|
楼主 |
发表于 2017-2-24 15:34
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
■激活对话框,用于返回到首个需要输入的textbox
TextBox1.SetFocus
■冻结对话框,让对话框不能改动
TextBox1.Enabled = False
■给下拉框添加项目
Private Sub UserForm_Activate()
With ComboBox1
.AddItem "商业险"
.AddItem "交强险"
End With
End Sub
■隔行复制
Sub run()
A = Range("A1000").End(3).Row
For i = 1 To A
Cells(2 + (i - 1) * 2, 4) = Cells(i + 1, 1)
Cells(3 + (i - 1) * 2, 4) = Cells(i + 1, 2)
Next i
End Sub
■在A列输入后,自动在C列添加日期
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 2) = Date
End Sub
■打开与单元格内容相同名称的工作表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub '如果是空白单元格 则不执行
Sheets(Target.Value).Activate '激活工作表
End Sub
■ 返回G列最后一行的值
=LOOKUP(9E+307,G:G)
■ 当前(活动)单元格的内容等于textbox1的值
Private Sub CommandButton1_Click()
Selection.Value = TextBox1.Text
End Sub
|
|