Question

我想在Excel电子表格的特定单元格中的文本框数据中添加其他固定文本。例如，用户将在文本框中输入“ g0 / 0”，但在单元格A2中应读取“ interface g0 / 0”。这是我到目前为止所拥有的：

Private Sub Populate_Click()
Dim ws As Worksheet
Set ws = Worksheets("Remote")
ws.Range("A2") = Interface.Value

所以我想我会在最后一行的某处添加“接口”，但是我不确定语法。谢谢！

Answer 1

您可能需要先在字符串中限定所需的值，然后将该值设为“ A2”。假设您的输入文本框在表单上...

Dim InterfaceValue as string
InterfaceValue = "interface" &  FormName.InputTextBox.Value
ws.Range("A2").value = InterfaceValue

Answer 2

您可以尝试循环所有行，并将固定的字符串值插入单元格。

例如

用于（XMLResource报告：报告）{

        Row row = sheet.createRow(rowNum++);
        sheet.setColumnWidth(0, 1000);
        row.createCell(0)
                .setCellValue(report.getPage());

        row.createCell(1)
                .setCellValue(report.getTestName());

        row.createCell(2)
                .setCellValue(report.getDescription());

        row.createCell(3)
                .setCellValue(report.getSTATUS());

        row.createCell(4)
                .setCellValue(report.getBuisImpact());

        row.createCell(5)
        .setCellValue(report.getVali());
    }

（报告是仅字符串对象）

将固定文本添加到Excel用户窗体文本框

2 个答案: