VBA常用技巧代码解析

神迹

感激楼主的慷慨，你是我的导航者啊，太感谢你了！！

mafutz

太感谢了，正在学习中。

Fae

楼主真是伟大！O(∩_∩)O谢谢！

xxsheng

虽然只是下载了还没有看，但是不顶不行！！！！！！！！！

satyam

下载看了一下很好

satyam

请问老师怎样才能显示JPG图像？

yuanzhuping

原帖由 口是心非 于 2009-7-3 19:56 发表
袁版，在你的帖子：12-3        动态的数据有效性  这节中，为何我将该段代码写入thisworkbook中就无法执行呢？你的代码是写在了sheet1中，而且多了这一行：Option Explicit。请问这该如何解释？
还有就是代码中的第 ...

这是用sheet1工作表事件实现的，如果要写到thisworkbook中，那是工作簿的事件，也就是Workbook_SheetChange和Workbook_SheetSelectionChange事件了，代码如下：

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     If Target.Column = 1 And Target.Count = 1 And Target.Row > 1 Then
   
3.         With Target.Validation
   
4.             .Delete
   
5.             .Add Type:=xlValidateList, _
   
6.                 AlertStyle:=xlValidAlertStop, _
   
7.                 Operator:=xlBetween, _
   
8.                 Formula1:="主机,显示器"
   
9.         End With
   
10.     End If
    
11. End Sub
    
12. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
13.     If Target.Column = 1 And Target.Row > 1 And Target.Count = 1 Then
    
14.         With Target.Offset(0, 1).Validation
    
15.             .Delete
    
16.             Select Case Target
    
17.                 Case "主机"
    
18.                     .Add Type:=xlValidateList, _
    
19.                         AlertStyle:=xlValidAlertStop, _
    
20.                         Operator:=xlBetween, _
    
21.                         Formula1:="Z286,Z386,Z486,Z586"
    
22.                 Case "显示器"
    
23.                     .Add Type:=xlValidateList, _
    
24.                         AlertStyle:=xlValidAlertStop, _
    
25.                         Operator:=xlBetween, _
    
26.                         Formula1:="三星17,飞利浦15,三星15,飞利浦17"
    
27.             End Select
    
28.         End With
    
29.     End If
    
30. End Sub

复制代码

就样才能在工作簿的每一张工作表中实现此功能，当然也可以使用Sh参数指定工作簿中的若干张工作表有此功能。
Option Explicit 语句强制使用变量声明。

yuanzhuping

原帖由 口是心非 于 2009-7-3 19:56 发表
还有就是代码中的第一行：Private Sub Worksheet_SelectionChange(ByVal Target As Range)，括号中的代码如何解释，在之后的代码中您在频繁的使用target这个单词，这点尤其不明白，呵呵，我自己知道这个单词是目标的意思，仅此而已，盼解答，多谢。

工作表的SelectionChange 事件，当工作表上的选定区域发生改变时产生，参数target代码新选定的区域，比如你在工作表中选择了A1单元格，target就代表A1，选择了B1到F4，target就代表B1到F4。target返回的是一个Range对象，所以可以象使用Range对象一样使用它的各种属性，如row,column,address等。

5778

看看到什么地方，感觉这样不好，有什么问题应该去问题区

hai179

在哪里下载啊，找不到啊！