Sub按钮1030_Click()fork=6to75Fori=6To2105IfSheets("00信息库").Cells(i,3)=range("A"&k").valueThen[b6]=Sheets("00信息库").Cells(i,"f")[C6]=Sheets("00信息库...

0,Dic(Me.ComboBox1.Text))'用Index函数取出整列数据Crr=VBA.Filter(Application.Transpose(Brr),Me.ComboBox2.Text,True

Range("B1")=ListItem(2,1)'指定B选择EndSub

sheet2中加入以下代码：PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Column=2AndCells(Target.Row,1)<>""ThenSheet1.Range("C:C").Deletej=1Fori=1To...

不需要代码设置，直接alt+↑或alt+↓

如下这段，就是先选中A列，然后设置它的下拉菜单数据为：ABC,BCD,CDE,DEF如果下拉菜单数据来源于单元格，则把Formula1:="ABC,BCD,CDE,DEF"换成单元格地址，比如Formula1:="=$B$1:$B$3"这样即可。Sub...

7000个字符的公式？真是牛人啊。VBA是可以实现的，A1也不用写公式，都用VBA处理即可。

PrivateSubWorksheet_Change(ByValTargetAsRange)IfSheets("工作表名称").Cells(单元格地址)="代码1"ThenApplication.Run"'工作簿名称.xls'!模块名称.代码1"EndIfEndSub...

PrivateSubWorksheet_Change(ByValTargetAsRange)IfSheets("工作表名称").Cells(单元格地址)="代码1"ThenApplication.Run"'工作簿名称.xls'!模块名称.代码1"EndIfEndSub...

插入组合框ComboBox添加代码ComboBox1.AddItem"星期一"ComboBox1.AddItem"星期二"ComboBox1.AddItem"星期三"ComboBox1.AddItem"星期四"ComboBox1.AddItem"星期五"ComboBox1.AddItem"