老大,好象不行的!!这是文件附件
tjW64eUv.rar
(14.68 KB, 下载次数: 12)
照你的做,无法通过。 Private Sub UserForm_Click() For i = 1 To 20 UserForm1.Controls("Checkbox" & Str(i, 2, 0)).Caption = "zldccmx" '这儿STR()的语法好象不对 Next i End Sub 以下是我的参照别人的代码自己修改的一段代码,还是不行,请帮忙修正一下。(原来的代码在EXCEL表中试验通过,怎么在USERFORM1中无法实现了呢?) Private Sub CommandButton1_Click() Dim i As Integer ' Dim ws As Worksheet ' Set ws = Worksheets("sheet1") Dim ws As UserForm '= userforms("") Set ws = UserForm1 Dim ctrl(1 To 24) As OLEObject '定义变量 ' Stop For i = 1 To 8 '在userform1中创建 8 行* 3列 的checkbox For j = 1 To 3 g = j + (i - 1) Set ctrl(g) = ws.OLEObjects.Add(classtype:="Forms.Checkbox.1", Top:=24, Left:=12, Width:=63, Height:=18) With ctrl(g) .Name = Sheet1.Cells(g, 1) .Top = 60 + 30 * i .Object.Font.Name = "宋体" .Object.FontStyle = "常规" .Object.Size = 12 .Object.Caption = Sheet1.Cells(g, 2) End With Next j Next i End Sub --------------------------
[此贴子已经被作者于2006-7-22 8:07:15编辑过] |