多莫西卡.
我想在工作表里创建一个按钮，按钮连接一段代码
怎么写ie呀
按钮我创建了，怎么衔接代码
Sub aa()
Dim cc As OLEObject
Dim aa As Worksheet
Set target = Cells(15, 7)
Set aa = sheet1
Set cc = aa.OLEObjects.Add(classtype:="forms.commandbutton.1", Left:=target.Top, Top:=target.Top)
cc.Name = "确认"
cc.Object.Caption = "确认2"
dd = aa.CodeName
End Sub
'Private Sub 确认()
Sub 确认()
UserForm1.Show
End Sub
间之水山.海上
开发工具--插入--表单控件---指定你编写的宏即可
多莫西卡.
，，，我想的全部用vba代码实现。指定我编写的宏，但是单击这个按钮，到不了我指定的宏
总是到工作表里
多莫西卡.
是，我想将这个指定到我的宏里
想要用代吗生成按钮，而不是手动添加
间之水山.海上
ActiveSheet.Buttons.Add(248.25, 105, 75, 25.5)
管群群分.州苏
?上海-山水之间对不起，您尚无权操作此口令
间之水山.海上
Sub 宏1()
'
' 宏1 宏
'
'
ActiveSheet.Buttons.Add(248.25, 105, 75, 25.5).Select
Selection.OnAction = "宏1"
Range("J7").Select
End Sub
你要的是这样吧？
生成一个按钮，并指定一个宏。
多莫西卡.
对这个对子狮.沙长
哪位亲，会看的，给我解释一哈
Sub 根据任意列内容筛选批量打印()
Dim d
Dim arr
Dim i%, nrow%, s%
Dim a As String, j As String, k As String
a = InputBox("请输入所需筛选的列，例子如：A列开始，就输入数字1", "输入序号 ")
j = InputBox("请输入数据区域,例如第二行A2为所需筛选列的下一列,那么输入:A3:Z")
k = InputBox("请输入自动筛选(标题行),例如第二行:2:2")
dyn = a '先设置要打印的列号，比如F列的列号就是6,
'dyn = [j2].Value '先设置要打印的列号，比如F列的列号就是6,
nrow = Range("A65536").End(3).Row '第1列最后可见非空单元行号(A列分类)
arr = Range(j & nrow) '在这里修改你的数据范围
s = UBound(arr) '一维数组最后项数
Set d = CreateObject("Scripting.Dictionary") '创建字典对象
For i = 1 To s '循环数组各项
d(arr(i, dyn)) = "" '将打印列对应的项目 纳入字典
Next
Range(k).AutoFilter '选择第2行自动筛选(标题行在第2行)
'Range("2:2").AutoFilter '选择第2行自动筛选(标题行在第2行)
For i = 1 To d.Count '循环字典项
Selection.AutoFilter Field:=dyn, Criteria1:=Application.Index(d.keys, 0, i) 'Field:=dyn,这里改为了变量，即要打印的列。以字典各项自动筛选
ActiveWindow.SelectedSheets.PrintPreview '打印预览 'Printout 打印当前表 'Copies:=1 '打印指定工作表1份
Next
Selection.AutoFilter '取消自动筛选，全部显示
Set dyn = Nothing
End Sub
对