Question

我在 Excel 201 0中创建了一个简单的表单，其中我希望替换单元格区域{11}中的11个单元格中的单个文本字符串值

我已使用此代码测试B5 : B15处的第一个单元格，该单元格在B5中由Label基础知识名称引用，并且我在表格Christian_Input上标记了文本框：

A5

当我在表单中输入一个新的文本字符串并运行它时，表单只显示在我的Sheet1上，输入文本框中包含替换文本，但单元格Private Sub Christian_Input_Change() ThisWorkbook.Worksheets("Sheet1").Cells(5, 1) = Christian_Input.Text End Sub中的文本字符串既未突出显示也未被替换。

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

任何人都可以告知我需要做出哪些改动。

Answer 1

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

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

1 个答案: