private sub commandbutton1_click()
dim contar as variant
dim a=1
do while a <= contar
sheets("datos").range("j" & a+1) = textbox1
textbox=""`your text`
a=a+1
loop
end sub
Private Sub CommandButton1_Click()
Dim contar As Variant
Dim a As Integer
contar = Application.WorksheetFunction.CountA(Sheets("datos").Range("a1:a150"))
- 1
a = 1
Do While a <= contar
Sheets("datos").Range("j" & a + 1) = TextBox1
TextBox1 = ""
a = a + 1
Loop
End Sub
Private Sub CommandButton1_Click()
Dim contar As Integer
Dim check As Integer
check = Application.WorksheetFunction.CountA(Sheets("datos").Range("j2:j150"))
contar = Application.WorksheetFunction.CountA(Sheets("datos").Range("a1:a150"))
- 1
If check <= contar Then
Sheets("datos").Range("j" & check + 2) = TextBox1
TextBox1 = ""
End If
End Sub
2条答案
按热度按时间txu3uszq1#
你好再次道歉我的第一个职位是一些如何，不清楚和不完整的让我张贴我写的代码，这是行不通的。
欢迎提出任何意见
zwghvu4y2#
你好我想我已经用不同的方法自己解决了它