代码之家 › 专栏 › 技术社区 › Pineapple

VBA将组合框值输出到列中的下一个可用单元格

userform textbox vba excel

Pineapple · 技术社区 · 8 年前

我正在尝试将值从Userform文本框输出到列中的下一个空单元格:

Private Sub CommandButton2_Click()
        Dim LastRow As Long
        With ThisWorkbook.Sheets("Output")
            LastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
            With .Range("H" & LastRow)
                .Value2 = TextBox1.Value
            End With
        End With
End Sub

然而,它不起作用,我没有收到任何错误消息。

你知道我在哪里出错了吗?

谢谢

1 回复 | 直到 8 年前

Pineapple 8 年前

尝试此操作*更改为CommandButton2

     Private Sub CommandButton2_Click()
     Dim LastRow As Long
     With ThisWorkbook.Sheets("Output")
     LastRow = Cells(.Rows.Count, "H").End(xlUp).Offset(1, 0).Row
     Range("H" & LastRow).Value = TextBox1.Value
     End With
     End Sub

推荐文章