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

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

您不需要Select放置值：

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

答案L

 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 - 创建一个填充活动单元格的文本框

Excel VBA - Creating a textbox that fills the active cell

excel

vba

basic