Tag: combobox
vb.net：如何检索编辑后的combobox元素的索引？
您好我正在使用visual basic编写一个程序，将编辑数据库的内容。 用户可以input他们想要更改的内容，然后程序将在数据库中覆盖此内容。 除了编辑combobox的内容之外，这一切都可以正常工作。 当我尝试然后检索combobox中编辑的索引时，我得到-1。 如果这没有意义，那么我的代码如下： Sub DatabaseWriteSpecific(array, filePath, row) Dim objExcel As New Excel.Application Dim objWorkbook As Excel.Workbook Dim objSheet As Excel.Worksheet objWorkbook = objExcel.Workbooks.Open(filePath) 'opens specified database objSheet = objWorkbook.Worksheets(1) For i As Integer = 1 To array.length objSheet.Cells(row, i).value = array(i – 1) 'adds each user input to database Next objWorkbook.Save() 'saves […]
将表单数据插入到不重复的用户表单combobox中 – Excel Vba
我正在用两个combobox制作一个excel用户表单。 一个combox从sheet3（A列）中检索名为“CompaniesandSubsidiaries”的数据。 然后在第一个combobox的基础上，第二个combobox检索子类数据。 但问题是A列有数据重复。 我附上了一张图片。 我正在尝试的是： Private Sub Combobox1_DropButtonClick() Dim rng As Range Dim ws As Worksheet Set ws = Worksheets("CompaniesandSubsidiaries") For Each rng In ws.Range("Companies") Me.ComboBox1.AddItem rng.Value Next rng End Sub Private Sub ComboBox2_DropButtonClick() Dim rng As Range Dim ws As Worksheet Set ws = Worksheets("CompaniesandSubsidiaries") For Each rng In ws.Range("Providers") Me.ComboBox2.AddItem rng.Value Next […]
Excel VBA时间格式与Combobox一起作为小数
非常基本，非常讨厌，我已经search了许多小时的解决scheme，没有任何帮助… 问题：我从命名范围填充Combobox，范围是时间列表（格式化为时间:-)，组合看起来不错，下拉显示我的时间，因为他们应该是，但是当选定的时间被格式化为十进制数。 .. 这里是代码（最低限度）： Private Sub UserForm_Initialize() ComboBoxTime.RowSource = "Help!Time" End Sub “帮助”是包含命名范围“时间”工作表的名称我已经尝试格式不同的方式没有运气… ComboBoxTime = Format(ComboBoxTime, "hhmm") 这里是链接到示例。 http://www.equstom.fi/dateproblem.html （是的，我需要从命名范围填充，而不是每个循环，我将设置.value与代码，整个文档实际上是相当复杂的，但我包括只是问题的一部分…）
excel vba填充comobox
我必须为我的用户表单填写几个combobox，但是当我加载用户表单时，combobox没有填充。 这里是代码： Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox1.AddItem "CSA" ComboBox1.AddItem "CAT" ComboBox1.AddItem "CAS" ComboBox1.Text = ComboBox1.List(0) End Sub Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case "CSA" Case "CAT" Case "CAS" Case Else End Select End Sub
Excel VBA：ComboBox.Rowsource值的dynamic范围在userForm从commandbutton调用时不显示
标题应该给出一个公平的问题的概述，但我正在运行一个dynamic的命名范围用于在用户窗体中的combobox。 当我运行表单时，值显示为预期的。 当我通过命令button调用模块子例程时，值不会出现，我不知道为什么。 我将粘贴所有的代码，并突出显示下面的有问题的代码片段： Private Sub btnGetGAToken_Click() '——————————– 'Obtain API Token from Google Analytics (GA), indicate to user that token has been obtained and populate Account combobox 'with a unique list of accounts, which will in turn populate the Profile combobox with the profiles associated with the chosen 'account '——————————– Dim txtEmailField As String Dim […]
Comobox和执行Excel C＃
我想我的代码能够执行一个命令，如果comboBox等于某个variables。 基本上，如果combobox = 0，那么excel会将单元格值更改为0.问题是if语句格式不正确。 谢谢你的帮助 if (comboBox1.SelectedText == "0") var xl = new Excel.Application(); xl.Visible = true; var wb = (Excel._Workbook)(xl.Workbooks.Add(Missing.Value)); var sheet = (Excel._Worksheet)wb.ActiveSheet; sheet.Cells[4, 6] = "0";
列表框或comboboxADODB导入列表中不可见的十进制项目
我已经多次遇到这个问题，并且一直能够解决这个问题。 而且全能的search引擎并没有帮助我。 问题是，当我从ADODBlogging集填充了一个列表框或combobox时，所有的十进制数据元素都不可见，例如下面的代码（conn是一个ADODB连接）： Private Sub GetFilteredRecords() Dim strSQL As String Dim arr As Variant 'create the SQL strSQL = "SELECT * FROM vwStandard_Fee2" 'execute the SQL and fill the rs ( rsFiltered ) Set rsFiltered = conn.Execute(strSQL) 'Apply recordset to the listbox on the form If Not (rsFiltered.EOF = True And rsFiltered.BOF = True) Then […]
select选项后，VBA Excelcombobox不显示值
Private Sub ComboBox1_DropButtonClick() If ComboBox1.ListCount > 0 Then ActiveSheet.ComboBox1.Clear End If For N = 1 To ActiveWorkbook.Sheets.Count – 1 ComboBox1.AddItem ActiveWorkbook.Sheets(N).Name Next N End Sub 我是VBA新手，请耐心等待。 我可能不是这样做的最好的方式开始。 代码是取我的工作簿中的每张表的名称（除了最后一张表），并将它们添加到combobox列表中。 起初，每当我点击下拉菜单时，所有图纸名称都会再次被添加，使得每次点击都会继续增加列表。 我的补救措施是每次点击清除combobox，并重新填充。 但是，如果使用了明确的选项，则在进行select时不会显示该值。 当不使用清除选项时显示正常。 其他一切仍然有效，但我需要它来显示选定的值，以便用户不会感到困惑。 有没有更好的方法来完成我所需要的？ 编辑：如果它很重要，这不是在用户的forms，它只是一个活跃的xcombobox直接位于工作表上。
Excel VBAcombobox
我有一个用户窗体中的combobox，我正在寻找一种方法来findselect是什么，以便我可以利用它作为一个string，并将其传递到工作表上的单元格。 例如： Private Sub Filter_Click() 'The Userform is called Summary, and the ComboBox in question is named Month_Filter If Summary.Month_Filter = "January" Then ……. Call UpdatedTotals End Sub Sub UpdatedTotals() Dim ChosenDate as String If Summary.Month_Filter <> "" Then ChosenDate = Summary.Month_Filter.Value Range("A1").FormulaR1C1 = ChosenDate End Sub
使用excel vba将事件分配给多个对象时出错
我遵循我在这里发现的所有build议，自动更改combobox的“更改”function。 所有工作正常，代码不会产生任何错误，直到我想更改Excel表单上的combobox值：macros不会启动。 我的代码是： 在类文件（类：COptions） Option Explicit Public WithEvents lOptions As MSForms.ComboBox Private Sub lOptions_Change() MsgBox "hello " End Sub 在模块文件中 Sub macrotest() Dim j As String Dim tObject Set tObject = Sheets("test").OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Link:=False, _ DisplayAsIcon:=False, _ Left:=50, Top:=80, _ Width:=100, _ Height:=15) tObject.Name = "Combobox32" tObject.Object.Font.Size = 8 tObject.Object.BackColor = vbWhite tObject.Object.AddItem "blub1" tObject.Object.AddItem […]
