VBA 中如何动态添加命令按钮？ 在空白窗体中添加n个按钮(n是变化的)

请按要求把下面实验报告的空格部分补充完整． &n...~

（1）用“伏安法”测电阻的实验原理是：R=UI；故答案为：R=UI．（2）用“伏安法”测电阻的实验器材有：电源、电压表、电流表、待测电阻、滑动变阻器、开关、导线等．故答案为：电源；电压表．（3）本实验的数据表格如下所示，实验序号 1 23 电压/U 电流/I 电阻/Ω 故答案为：表格如上表所示．（4）测定值电阻时进行多次测量的目的是：多次测量求平均值，减小实验误差；探究电阻与哪些因素有关时进行多次测量的目的是：通过多次测量获得多组数据，来寻找一定的规律；故答案为：多次测量求平均值，减小实验误差；通过多次测量获得多组数据，来寻找一定的规律．

Private Sub Command1_Click()Dim N As Integer, S As DoubleN = Val(InputBox("请输入整数N"))Call qsum(N, S)Print SEnd SubPrivate Sub qsum(ByVal N As Integer, S As Double)Dim i As Integer, m As DoubleFor i = 1 To N m = m + iNext iS = mEnd S

设数据在A1单元格
Private Sub UserForm_Initialize()
If IsNumeric(Range("A1")) Then
For i = 1 To Range("A1")
Set tctl = UserForm1.Controls.Add("Forms.CommandButton.1")
With tctl
.Left = 10
.Top = 10 + (i - 1) * 30
.Width = 40
.Height = 25
.Caption = "按钮" & i
End With
Next
UserForm1.Height = CInt(Range("A1")) * 30 + 40
End If
End Sub

n从哪里来?
在窗口load事件中写代码即可

---

惠东县13417289223： vba窗体在运行时动态添加控件的代码有哪些? - ？
超萍麦克： 一、动态添加CommandButton命令按钮 Dim mc As CommandButton Static k k = k + 1 Set mc = Me.Controls.Add(＂Forms.Commandbutton.1＂) mc.Caption = k mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height Me.Controls....

惠东县13417289223： VBA 窗体中动态添加的控件 - ？
超萍麦克： 实例代码: //在picture1上面添加一个commandbutton Private Sub Form_Load() Form1.Controls.Add ＂VB.CommandButton＂, ＂cmdOk＂, Picture1 //动态添加控件 With Form1.cmdOk .Visible = True .Width = 500 .Caption = ＂确认(&Y)＂ End With End Sub

惠东县13417289223： 如何使用vba,用代码编写在打开工作表时创建命令按钮,关闭时删除按钮,谢谢各位高手!! - ？
超萍麦克： 打开VBA编辑器,在 thisworkbook一栏里加入一下代码: 打开时建按钮,按钮名和大小可在程序里修改.Private Sub Workbook_Open() ActiveSheet.OLEObjects.Add(ClassType:=＂Forms.CommandButton.1＂, Link:=False _ , DisplayAsIcon:=...

惠东县13417289223： vb中添加一个命令按钮cmdsep怎么做 - ？
超萍麦克： 按以下步骤实现动态添加命令按钮 (1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理) Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框 Private Sub cmdX_...

惠东县13417289223： 在excel中如何用VBA制作浮动按钮 - ？
超萍麦克： 右键-菜单栏空白处-勾选visual Basic-点击控件工具箱-选中命令按钮-放入你要的制定位置.

惠东县13417289223： 如何在excel表中插入”命令按钮“,啊有会的 - ？
超萍麦克： 右击工具栏空白处,勾选“控件工具箱”调出浮动工具条,点命令按钮后在表中画出来就是.至于按钮代码、属性修改请先从帮助那学一下VBA.

惠东县13417289223： Excel 请问在VBA中,在frame中动态添加控件的方法 - ？
超萍麦克： 选中textbox,剪切,然后选中frame(一定要选哦),粘贴.调整textbox在frame中的合适位置即可. ----------------------- 请不要把word vba当成VB使用,补充问题即使在VB中运用也存在一定困难.当然在VB中可解决,但基于WORD对象中只怕难实现.

惠东县13417289223： VB中怎么设置动态添加的命令按钮的代码?？
超萍麦克： Dim WithEvents command1 As CommandButton Private Sub Form_Load() Set command1 = Me.Controls.Add(＂VB.CommandButton＂, ＂Cmd1＂, Me) With command1 .Visible = True .Left = 1000 .Top = 1000 .Width = 1300 .Height = 350 .Caption = ＂确定＂ End With End Sub

惠东县13417289223： VBA!!跪求各位大神~~在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码 - ？
超萍麦克： s一直没变,直接看最后一步,也就是I=2的情况.选D

惠东县13417289223： 写一段vba程序,在所有工作表中插入一个按钮 - ？
超萍麦克： 按Alt+F11,打开VBA编辑器,插入一个模块,把下面的代码贴进去,返回Excel按Alt+F8运行t3即可实现 Sub tt() Sheets(＂目录＂).Select End Sub Sub t3() Dim s As Worksheet Set os = ActiveSheet Application.ScreenUpdating = False For ...