Tag: listboxitems

VBA Excel：参数不可选

vba非常新，而且我正在用一段代码来解决一些问题。 实质上，我试图从用户表单中的用户select的项目执行不同的工作表函数。 Private Sub cmdRunStat_Click() Dim averageValue As Single Dim sdValue As Single Dim maxValue As Variant Dim minValue As Single Dim modeValue As Single Dim UserRange As String, sheetName As String Set UserRange = ListBox1.Selected = True If optAverage.Value = True Then averageValue = WorksheetFunction.Average(UserRange) MsgBox "The average of the selected data is " […]

Excel列表框listindex不会突出显示

可以有一个更好的水平的Excel能力请帮助我下面的代码？ 我已经在Worksheet_Activate事件中进行了设置。 我有代码将ActiveX列表框设置为默认值，如下所示。 无论出于何种原因，列表框不显示作为高亮项目的默认值。 所有其他的逻辑似乎工作正常，但它让我疯狂，下面的代码将不会突出我的第一个列表框中愚蠢的第一个项目。 我究竟做错了什么？ With CTOverview.ListBox1 .IntegralHeight = True .Height = 114.75 .Width = 125.25 .IntegralHeight = False .ListIndex = 0 .Selected(0) = True .Value = "Entire Division" End With CTData.Range("Overview_RegionSelected").Value = CTOverview.ListBox1.Value With CTOverview.ListBox2 .IntegralHeight = True .Height = 114.75 .Width = 150 .IntegralHeight = False .ListIndex = -1 End With 谢谢你的帮助。

调用多个模块中的用户select

我当前的代码使用Workbook_Open事件来运行一个用户表单，询问用户想要做什么，如果他们select“A”它填充一个用户窗体显示所有打开的工作簿名称（S）的列表框。 使用ListBox_DblClick事件，我希望用户能够双击他们希望激活的工作簿的名称，以运行一些涉及从一张工作表复制信息的任务（一个工作簿导出到临时文件夹一个半不可能的命名系统）到一个工作簿，我知道的名字和位置。 我似乎无法获得双击事件后被调用的列表框值。 任何指针？ Userform2内的代码： Option Explicit Public Vval As String Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Vval = Me.ListBox1.Value Call AUTOMATEME Unload Me End Sub Private Sub UserForm_Initialize() Dim wkb As Workbook With Me.ListBox1 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With End Sub 双击事件调用的子（我有问题的）是： Sub AUTOMATEME() With Listbox1.Value Worksheets("MYDATA").Range("D2:D103").Select Selection.Copy […]