vba与数据有效性的例子

If Target.Count > 2 Then Exit Sub

If Target.Column <> 3 Or Target.Row <3 Then Exit Sub

Dim aa, Arr, i&

Target.Offset(0, -1) = ""

Arr = Sheet1.[a1].CurrentRegion

For i = 3 To UBound(Arr)

If Arr(i, 2) = Target.Value Then

aa = aa & Arr(i, 1) & ","

End If

Next

If aa = "" Then MsgBox "没有找到编号": Exit Sub

aa = Left(aa, Len(aa) - 1)

With Target.Offset(0, -1).Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:=aa

End With

(0)

相关推荐

  • vba do loop的几个例子

    一、Do…Loop语句的语法 Do[While I Until<逻辑表达式>] <循环体> Loop[While I Until<逻辑表达式>] 当逻辑表达式的值为 ...

  • PowerPoint中利用VBA制作课堂小测验

    PowerPoint附带的VBA功能使其具有了制作智能课件的能力。本文就是基于PowerPoint中的VBA来制作智能的物理课堂小测验的一个例子。 一、基本构想 图1 本例很简单,就两道题:界面如图1 ...

  • Excel表格中使用vba宏帮你按条件拆分两个单元格中的数字

    Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没有的数字并 ...

  • VBA代码编写技巧

    方法1:尽量使用VBA原有的属性、方法和Worksheet函数 由于Excel对象多达百多个,对象的属性、方法、事件多不胜数,对于初学者来说可能对它们不全部了解,这就产生了编程者经常编写与Excel对 ...

  • GetSaveAsFilename保存文件例子

    GetSaveAsFilename是通过Application来调用的,而Application又是通过VBA环境来使用的,因此,本例子给你介绍的是在Excel环境下,调用另存为对话框的示例代码。 它 ...

  • Excel表格中vba宏帮助你按条件拆分两个单元格中的数字

    Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没有的数字并 ...

  • Excel表格中vba宏按条件拆分两个单元格中的数字

    有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没 ...

  • excel RTD函数实际例子及语法

    一、RTD函数语法 RTD(ProgID,server,topic1,[topic2],...) 函数功能:全部显示全部隐藏从支持 COM 自动化 (COM 加载项:通过添加自定义命令和指定的功能来扩 ...

  • Excel2013怎么设置数据有效性

    Excel2013怎么设置数据有效性?相信不少使用Excel2013的用户都发现了,这个版本与其他版本相比,有着不小的改变,其中数据有效性改名为了数据验证,所以很多人在网上问"数据有效性&q ...