主页 / 问题 / 880046
Accepted
Sanvirtus
Asked:2020-09-11 20:38:53 +0000 UTC2020-09-11 20:38:53 +0000 UTC

如何在 VBA 的宏开头指定一个输入多个值的窗口？

  • 772

通常，在执行宏时，我需要打开一个对话框，其中一次将有多个字段和一个带有选项的组合框。指定所有值后，我需要使用它们。如何创建这样的窗口？组合框应指示“车辆，品牌”。组合框中只有2个值：Car1 Brand1，Car2 Brand2。但是当我工作时，我需要在不同的单元格中写下来，例如，在 A1：Machine1，在 A2：Brand1，A3：净重，a4：毛重等。

目前，我依次打开窗口，每个输入1个值，组合框我根本不知道该怎么做。

这就是我打开所需窗口的方式，但它们必须在同一个窗口中：

inputNetto = Val(InputBox("Введите вес Нетто"))
NewWorkbook.Worksheets(1).Cells(3, 25).Value = inputNetto 

inputBrutto = Val(InputBox("Введите вес Брутто"))
NewWorkbook.Worksheets(1).Cells(27, 23).Value = inputBrutto

inputPallets = Val(InputBox("Введите кол-во палетов"))
NewWorkbook.Worksheets(1).Cells(27, 26).Value = inputPallets

告诉我如何实现这样的窗口，我将不胜感激

vba

1 个回答

  1. Best Answer

    没有这样的对话框。您需要绘制一个表单（UserForm）。

    创建一个表单 - Insert-UserForm。使用ToolBox按钮，我们调用一个带有表单元素的窗口。我们在表单上拖动必要的元素，放置/格式。元素（或表单）的参数在“属性”窗口中设置（按F4）。

    处理元素和表单本身（初始化、激活、更改、退出等）都写在表单模块中（表单上的人民币-查看代码）/

    双击一个元素会创建一个空宏（通常是一个更改事件），您可以在其主体中添加必要的代码：

    Private Sub TextBox1_Change()

End Sub

    为了方便使用表单，最好重命名元素：

    tBoxName - 用于输入名称的文本框，cButClose - 关闭按钮等。

    通常，在打开表单时，必须填写列表，根据情况输入数据......为了使表单具有所需的外观，表单初始化事件：

    Private Sub UserForm_Initialize()
    • 3

相关问题