求VBA批量添加窗体代码

求VBA批量添加窗体代码，可以达到附件中的效果？

VBA批量添加.rar (9.01 KB)

哦，最终结果要放在B列吧

[ 本帖最后由 dragonthree 于 2011-8-4 23:54 编辑 ]

不理解意思，是不是这样？


Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    If TextBox3.Text = "" Then
        MsgBox Label4.Caption & "为空!!", "请输入"
        TextBox3.SetFocus
        Exit Sub
    End If
   
   
    With Sheets("Sheet1")
        Dim x As Integer
        For x = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        
            y = IIf(行.Value = True, TextBox3.Text, "")
            .Cells(x, 3) = .Cells(x, 1) & y
            .Cells(x, 4) = y & .Cells(x, 1)
        Next
    End With
   
End Sub

Private Sub CommandButton2_Click()
Dim i As Long
For i = 1 To Range("a65536").End(3).Row
  If Controls("行") = True Then
  Cells(i, 2) = TextBox3.Text & Cells(i, 1)
  Else
  Cells(i, 2) = Cells(i, 1) & TextBox3.Text
  End If
  Next
End Sub

[ 本帖最后由 dragonthree 于 2011-8-5 00:29 编辑 ]

呵呵，看来用这个的人还挺多的啊，我曾自己写过一个跟4楼类似的代码，但不是用窗体而是快捷键。