VBA常用技巧代码解析

yvhgydn

请问老大，你的VBA常用技巧代码解析大至上目录有多少页，我打算把前面的先打印出来，准备预留目录页出来，不知道留多少

cnhbqhdzxzj

谢谢版主，做个记号。

yuanzhuping

原帖由 yvhgydn 于 2009-5-20 18:03 发表
请问老大，你的VBA常用技巧代码解析大至上目录有多少页，我打算把前面的先打印出来，准备预留目录页出来，不知道留多少

说实话我也不知道会有多少页，后面的有些只写了个技巧名称，有些连技巧名称都没写上去，真的不清楚，如果要打印的话建议还是再等等。

yuanzhuping

原帖由 ykx042907 于 2009-5-20 16:36 发表
袁版主：您好！
   辛苦了！不好意思，请问一下：本人在运行技巧152时，出现下面附件图片中的错误提示。是怎么回事呀？谢谢！

附件的文件夹中有一个123.BMP文件，要和Excel文件放在同一文件夹中。

ykx042907

谢谢袁版主！是不是一定要解压后才能打开呀？我是解压后才可能打开的。

ykx042907

袁版主：您好！
   本人按照您介绍的步骤制作了一个关于“禁用宏则关闭工作薄”的工作薄，点击“禁用宏”，出现“该工作薄中包含一种无法禁用的宏（Microsoft Excel 4.0 版的宏），此宏.........”对话框后，点击“是(Y)”后,仍然可以打开工作薄,只是禁用了宏而已.是怎么回事?敬请袁版主赐教,十分感激!

yuanzhuping

技巧155         不重复值的录入
       在工作表中录入数据时，有时希望能限制重复值的录入，比如在示例的A列单元格只能录入唯一的人员编号，此时可以利用工作表的Change事件结合工作表的CountIf 函数来判断所录入的人员编号是否重复，示例代码如下。

1. #001  Private Sub Worksheet_Change(ByVal Target As Range)
   
2. #002      With Target
   
3. #003          If .Column <> 1 Or .Count > 1 Then Exit Sub
   
4. #004          If Application.CountIf(Range("A:A"), .Value) > 1 Then
   
5. #005              .Select
   
6. #006              MsgBox "不能输入重复的人员编号!", 64
   
7. #007              Application.EnableEvents = False
   
8. #008              .Value = ""
   
9. #009              Application.EnableEvents = True
   
10. #010          End If
    
11. #011      End With
    
12. #012  End Sub

复制代码

代码解析：
       工作表的Change事件过程，使A列单元格只能录入唯一的人员编号。
      第4行代码使用工作表的CountIf 函数来判断在A列单元格输入的人员编号是否重复。工作表的CountIf 函数计算区域中满足给定条件的单元格的个数，语法如下：
      COUNTIF(range, criteria)
       参数range为需要计算其中满足条件的单元格数目的单元格区域。
       参数criteria为确定哪些单元格将被计算在内的条件，其形式可以为数字、表达式、单元格引用或文本。
       在示例中以所录入的人员编号与A列单元格区域进行比较，如果CountIf 函数的返回值大于1，说明录入的是重复编号。
       第5行代码，重新选择该单元格便于下一步清空后重新录入。
       第7、8、9行代码，清除录入的重复编号，在清除前将Application对象的EnableEvents属性设置为False，禁用事件。因为如果不禁用事件，那么在清除重复值的过程中会不断地触发工作表的Change事件，从而造成代码运行的死循环。
       经过以上的设置，在工作表的A列中只能录入唯一的人员编号，如果录入重复值会进行如图所示提示，点击确定后自动清除录入的重复编号。
      

wuzhiwuxing

感谢老师的无私奉献!

yuanzhuping

原帖由 ykx042907 于 2009-5-21 08:21 发表
谢谢袁版主！是不是一定要解压后才能打开呀？我是解压后才可能打开的。

附件解压后有个文件夹，有一个Excel文件和一个123.BMP图像文件，运行时要保证两个文件在同一个目录中。

yuanzhuping

原帖由 ykx042907 于 2009-5-21 08:38 发表
袁版主：您好！
   本人按照您介绍的步骤制作了一个关于“禁用宏则关闭工作薄”的工作薄，点击“禁用宏”，出现“该工作薄中包含一种无法禁用的宏（Microsoft Excel 4.0 版的宏），此宏.........”对话框后，点击“ ...

你的附件没有为每个表添加工作表级别的名称“Auto_Activate”，并将引用都指向宏表“Macro1”的A2单元格。先运行一下队件中的AddPrivateNames过程。
Sub AddPrivateNames()
    Dim sht As Object
    For Each sht In Sheets
        ThisWorkbook.Names.Add sht.Name & "!Auto_Activate", "=Macro1!$A$2", False
    Next
End Sub