1、实现一个基本的复制功能,办公室同事所需要的一个小功能。
- Sub rep()
- '
- ' rep Macro
- ' 宏由 sea gull 录制,时间: 2007-1-10
- '
-
- '
- Dim i As Integer
- Dim endrow As Integer
- endrow = Range("A65536").End(xlUp).Row
-
- For i = 2 To endrow
-
- If Cells(i, 2).Value = "" Then
- Cells(i, 2).Value = Cells(i, 3).Value
- End If
-
- Next
-
- End Sub
2、检查身份证号码不为18位的单元格刷红:
- Sub check18()
- '
- ' check18 Macro
- ' 宏由 sea gull 录制,时间: 2007-1-10
- '
- '
- Dim i As Integer
- Dim endrow As Integer
- endrow = Range("A65536").End(xlUp).Row
- For i = 2 To endrow
- If Len(CStr(Cells(i, 3).Value)) <> 18 And Len(CStr(Cells(i, 3).Value)) <> 15 Then
- Cells(i, 3).Font.ColorIndex = 3
- End If
- Next
-
- End Sub
分享到:
相关推荐
罗刚君老师的VBA自学宝典(第3版),这个不用多介绍吧,120多兆高清且带详细阅读标签,适合VBA初学者及进阶,很多人肯定在找这本书,有需要的尽情的下吧。《Excel VBA 程序开发自学宝典(第3 版)》是VBA 入门与提高...
非常详尽的Excel_VBA程序设计,好不容易才整理搜索到的。 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第...
excel VBA程序开发,简单的说, Excel VBA 是依附于 Excel 程序的一种自动化语言, 它可以使常用的程序自动化, 类似于 DOS(磁盘操作系统)中的批处理文件(后缀名“.bat”)。那么它有什么具体的功能?在 工作中与...
简单的VBA实现PPT抽奖程序,名单不会被反复抽取
就是一个VBA里面最简单的程序,宏只能完成简单的操作,我们需要在宏里面定义变量,数组,循环,条件等让一个简单的程序变得更加的简壮,完成更加复杂的操作,那么就需要我们不仅要掌握录制宏,还有学习VBA程序里面的...
通过宏与窗体的结合,能完成一些较为简单的数据库对象管理工作,例如打开或关闭一个表,输出一个消息框等。但宏的运行速度比较慢,且功能有限,只能处理一些简单的操作,对实现较复杂的操作,例如循环、判断、与其它...
excel2003vba写的一个小型聊天程序,主要应用了winsock控件,需要用到mswinsck.ocx,并且卸载KB960715补丁
ExcelVBA单一导线简易平差程序设计,赵亚红,张丽华,为了解决控制测量中导线的数据处理问题,采用 Excel VBA开发了单一导线简易平差程序。该程序可以自动生成任意未知点个数的导线计算表�
企业HR电话面试,资料录入系统,是采用简单易懂的VBA。
用VBA EXCEL开发的简单的例子,非常的实用,可以作为实际的参考
5.从另外一个VBA过程里运行函数过程 94 6.传递参数 95 7.明确参数类型 96 8.按地址和按值传递参数 97 9.使用可选的参数 97 10.定位内置函数 98 11.使用MSGBOX函数 99 12.MSGBOX函数的运行值 103 13.使用INPUTBOX函数...
很多人都会遇到,有大量格式雷同的表格需要批量处理,但表格中数据行数或页数不同,通过excel的公式很难实现柔性处理,遇到新的表格又...针对这个问题,我们用通过简单的VBA程序即可实现多表格多页批量复制和筛选数据。
精彩编程与编程技巧-用VBA编制Access的查询程序 ...
用Excel VBA做的简易随机抽奖程序,随机抽取,不会重复抽取,供各位VBA爱好者参考!
分享一个多年前在上家公司编写的一个治具管理程序,旨在让正在接触用VBA为EXCEL润色的朋友多一个参考. 特点: 这是一个企业中,类似于仓库管理的程序. 基于EXCEL表格来保存数据,方便使用和统计. 而利用VBA编程添加的...
excle vba简单入门,简单程序说明
Public Sub JJCC() QXAN = 0 On Error Resume Next CXKS If Dir("C:\windows\cxml.txt") = "" Then Exit Sub If sf Then Exit Sub Dim ss1 As AcadSelectionSet Dim ss2 As AcadSelectionSet ...
如果钻孔数量少,手工标注还较简单,但当钻孔数量较多时,手工标注不仅繁琐,且易出错,利用AutoCAD制图软件中的二次开发工具VBA编程,实现钻孔标注程序化处理,则可大大减轻工作量,介绍了编程的思路及程序的实现...
利用Excel的VBA编写一个简单的24点游戏,修正错误,答案更全面,去除明显重复的答案。 使用前,需要“启用宏”。 启用宏前,需要将宏安全性调为中。 没有考虑太多优化,如运算顺序……
第2篇包括实例1~实例20,主要通过20个简单实例介绍Office VBA编程的特点和方法;第3篇包括实例21个实例29,主要通过9个典型的实用实例深入讲解Office VBA编程的方法、技巧和应用方向。第4篇包括实例30,主要通过4个...