vba - 用 VBA 表单中的文本框输入替换 Excel 单元格值

Question

我在Excel 201 0 中创建了一个简单的表单，我希望在其中替换单元格范围内 11 个单元格中的单个文本字符串值B5 : B15

我已经使用此代码测试了标签 Christian NameB5引用的第一个单元格，A5并且我在 Christian_Input 表单上标记了文本框：

Private Sub Christian_Input_Change()

ThisWorkbook.Worksheets("Sheet1").Cells(5, 1) = Christian_Input.Text
End Sub

当我在表单中输入一个新的文本字符串并运行它时，表单只是出现在我的 Sheet1 上，输入文本框中的替换文本但单元格中的文本字符串B5既没有突出显示也没有被替换。

最后，当我打开文件时，表单不可见。

谁能告诉我需要做些什么改变。

score 0 · Accepted Answer

ThisWorkbook.Worksheets("Sheet1").range("B5:B15").value = Christian_Input.Text
ThisWorkbook.Worksheets("Sheet1").range("B5").select

将以下内容添加到“此工作簿”模块以在您打开工作簿时自动启动表单（将 UserFormNameHere 替换为您的表单名称）：

Private Sub Workbook_Open()
    UserFormNameHere.show   
End Sub

1 回答 1