[求助]请问，在VBA中能否实现foxpro中宏代换功能 ？

在VBA中的一个窗体使用了多个部件，如CHECKBOX1～20，希望在窗体打开时自动对它更换caption。单个重命名是知道的，如checkbox1.caption=1  .........  checkbox20.caption=20............如何利用循环语句对其批量命名？ 

for i=1 to 20 : checkbox(i).text=i :next i     我知道这样的书写方法不正确，请问该如何编写这些语句？

在foxpro中可以使用宏代换来实现，如 J="checkbox"& str(i,2,0) &".text=1" : &J ，在VBA中如何实现呢？

本人在自学VBA，对VBA的自定义函数了解不太透彻。不知道能不能通过自定义函数来实现宏代换？!

欢迎zldccmx

使用用户窗体的Controls集合

例如:UserForm1.Controls("Checkbox"& str(i,2,0)).Caption="zldccmx"

老大，好象不行的!!这是文件附件

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

--------------------------

老大，能否帮小妹修改一下我上传的那个文件再贴进来？

你来九江了，小妹请你唱茶!

或者：

Private Sub UserForm_Activate()
For i = 1 To 20
UserForm1.Controls("Checkbox" & i).Caption = "zldccmx" & i
Next i
End Sub

谢谢7楼的GG!

按你这方法搞定!

让小妹kiss U 一下![em04]

呵呵，别想歪了，只能是脸部哦