Question

我想创建一个宏，它将字符串输入到已定义行中的下一个可用单元格中。因此，当找到下一个可用单元格时，会出现一个输入框，用户键入数据，然后数据进入活动单元格。

我目前有这个：

Sub Find_Blank_Row()
Dim QtyInput As String
Dim BlankRow As Long
BlankRow = Range("A65536").End(xlUp).Row + 1
Cells(BlankRow, 1).Select
QtyInput = InputBox("please Enter Company Name")
ActiveRow.Font.Bold = True
ActiveSheet.Range("ActiveCell").Value = QtyEntry
End Sub

我如何使这项工作？

提前致谢。

Answer 1

ActiveCell是一个始终在运行时定义的对象，而不是Range对象的名称。你应该替换它：

ActiveSheet.Range("ActiveCell").Value = QtyEntry

用这个

ActiveCell.Value = QtyEntry '<-- ActiveCell is an object pointed through the variable "ActiveCell"

Answer 2

您无需选择以放置值：

Sub Find_Blank_Row()

    Dim QtyInput As String

    QtyInput = InputBox("please Enter Company Name")

    With Cells(Rows.Count, 1).End(xlUp).Offset(1,0)
        .Font.Bold = True
        .Value = QtyEntry
    End With

End Sub

Answer 3

答案

 Sub Find_Blank_Row()
 Dim QtyInput As String
 Dim BlankRow As Long
 BlankRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
 QtyInput = InputBox("Please Enter Company Name")
 Cells(BlankRow, 1).Font.Bold = True
 Cells(BlankRow, 1).Value = QtyInput
 End Sub

Excel VBA - 创建填充活动单元格的文本框

3 个答案: