Tag: listbox

VBA Excel：仅在列表框中显示可见单元格

我有下面提到的代码，我想加载过滤的单元格只能进入列表框，但我不知道为什么下面提到的代码不起作用。 传说： PatternSearchButton是一个button PatternTextBox是一个文本框，用户通过该文本框input一个表单将要过滤的值。 WsLookup是一个function，select表（function完整） Private Sub PatternSearchButton_Click() Dim PatternInput As String, PatternCounter As Double, WsSelector As Worksheet PatternInput = PatternTextBox.Value Set WsSelector = WsLookup(GSMListType.Value) WsSelector.Range("F:F").AutoFilter Field:=1, Criteria1:=PatternInput PatternCounter = Application.WorksheetFunction.Subtotal(4, WsSelector.Range("F:F")) With AvailableNumberList .Clear For k = 2 To PatternCounter + 1 .AddItem WsSelector.Range("A" & k).SpecialCells(xlCellTypeVisible).Value Next k End With End Sub

Excel ActiveX ListBox每次更新都会缩小

我有一套链接的工作是这样的： 用户键入到一个ActiveX文本框 该TextBox中的更改事件调用模块中的一个子 该模块子驱动器更新工作表中的命名范围 范围值驱动更新基于范围值使用查找函数的Excel单元格表 表值被复制并粘贴到另一个范围（以消除到公式的链接） 这个粘贴的范围被放入一个ListBox（使用这个来支撑Rory的耐心）： ActiveSheet.ListBox1.List = Sheets（“Search Criteria Control”）。Range（“G1：G21”）。Value 结果是，对于用户在文本框中键入的每个字符，ListBox被更新。 我遇到的问题是，ListBox中的每一个按键在上面＃1中提到的TextBox中缩小了一点。 这是正常的行为，我滥用ListBoxes，我做错了什么，或者我需要重新指定列表框的尺寸每次更新这样的事情？ ActiveSheet.OLEObjects("ListBox1").Top = 35 ActiveSheet.OLEObjects("ListBox1").Left = 650 ActiveSheet.OLEObjects("ListBox1").Width = 550 ActiveSheet.OLEObjects("ListBox1").Height = 610 在此先感谢您的任何想法。

以excel粘贴友好的格式将列表框中的项目添加到剪贴板中

目标：使用VBA（excel）以excel友好格式填充表格（从列表框）到剪贴板，这样我就可以粘贴（ctrl + V）到excel中，并将值分割成正确的列和行他们在原来的列表框中。 问题：我似乎无法得到正确的格式。 当我把我的剪贴板的内容粘贴到Excel中时，每一行都包含在一个单元格（第一列）中，用“，”（这是我试图用作“分隔符”的一种方式） – 不知道这是否正确或不？） 我正在使用API​​解决方法填充剪贴板，我不想用代码阻止你死亡，但这里是最重要的位（我总是感觉 – 问我是否需要看更多的代码）。 Private Sub btnCopyTable_Click() Dim I As Long Dim J As Long Dim tmp As String Dim arrItems() As String Dim clipboard As DataObject ReDim arrItems(0 To lbIPActions.ColumnCount – 1) For J = 0 To lbIPActions.ListCount – 1 For I = 0 To lbIPActions.ColumnCount – 1 […]

Excel：如果selectlistbox值n2，则更改另一个单元格的值

所以基本上，我有一个列表框（名为ListBox1）有4个值（我们称之为“value1”，“value2”等）。 我想要做的是以下伪代码： if (value1 is selected) then change the formula in cell A1 to "=B1/B2" elseif (value2 is selected) then change the formula in cell A1 to "=ROUND(B1/B2,0)" elseif (value3 is selected) then change the formula in cell A1 to "=ROUNDUP(B1/B2,0)" elseif (value4 is selected) then change the formula in cell A1 to "=ROUNDDOWN(B1/B2,0)" （使用macros将是最好的） […]

如何将列表框中的所有项目导出为VB中的Excel

我正在使用VB窗体窗体。 我试图导出列表框1中的所有项目使用button的excel文件，但问题是它只导出第一个项目 我想导出所有的listbox1项目 这是我的代码 Imports Microsoft.Office.Interop Public Class Form1 Dim MsExcel As Excel.Application Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsExcel = CreateObject("Excel.Application") MsExcel.Workbooks.Add() MsExcel.Range("A1").Value = ListBox1.Items MsExcel.Visible = True End Sub End Class

Excel VBA从列表框中获取多选

我有一个列表框，我设置selectmulti 我正在尝试使用以下命令获取所选项目的值： Private Sub CommandButton3_Click() Dim lItem As Long Dim nboc As Integer Dim c As Integer Range("G:G").Clear nboc = Worksheets("BDD").Range("IQ2").Value c = 0 For lItem = 0 To ListBox2.ListCount – 1 If ListBox2.Selected(lItem) = True Then c = c + 1 Worksheets("Bordereau Prep").Range("G15:G" & 14 + c) = ListBox2.List(lItem) ListBox2.Selected(lItem) = False End If […]

从Excel中添加项目到列表框

我有一个Excel文件中包含100行的列。 我试图使用一个button导入列到列表框。 问题是只有48行是从Excel列导入的。 为什么没有导入列中的所有行？ 这是我的代码（vb.net表单）： Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Dim oExcel As Object = CreateObject("Excel.Application") Dim oBook As Object = oExcel.Workbooks.Open("C:\Users\User\Desktop\1.xlsx") Dim oSheet As Object = oBook.Worksheets(1) Dim i As Integer Dim cell As String For i = 0 To AscW(ListBox1.Items.Count.ToString()(i = i + 1)) – 1 'set cell […]

Excel VBA ActiveX ListBox不允许点击

我创build了一些代码，用Lables，TextBoxes和ListBox填充Excel工作表。 使用.List = Sheets（）。Range（）。填充ListBox之后，我无法点击select一个项目。 如果我保存工作表，closures并重新打开它工作正常。 我检查了http://blogs.technet.com/b/the_microsoft_excel_support_team_blog/archive/2014/12/11/forms-controls-stop-working-after-december-2014-updates-.aspx 但我没有得到一个错误，所以这似乎是错误的修复。 当我search以下KB http://support.microsoft.com/kb/3025036/EN-US 症状与我所经历的不同。 我也试过使用Sheets（）。激活如张贴在这里： Excel的ActiveX列表框没有启用文件打开 但是这没有帮助，或者我正在实施它不正确。 这是创buildListBox的代码 Private Sub Create_ListBox_ActiveXControlProperties() Dim oLISTBOX As OLEObject Set oLISTBOX = ActiveSheet.OLEObjects.Add(classtype:="Forms.ListBox.1", Top:=35, Width:=500, Left:=650, Height:=600) ActiveSheet.OLEObjects("ListBox1").Object.Font.Size = 14 ActiveSheet.OLEObjects("ListBox1").Object.ListStyle = 0 ActiveSheet.OLEObjects("ListBox1").Object.List = Sheets("Search Criteria Control").Range("g1:g21").Value End Sub 任何人都可以build议我可以寻找解决办法吗？

excel 2010 vba我怎样才能声明一个列表框？

我有一个用户表单，其中包含以下代码位： Private Sub RemoveRecipientCommandButton_Click() Application.ScreenUpdating = False Dim intCount As Integer For intCount = RecipientsListBox.ListCount – 1 To 0 Step -1 If RecipientsListBox.Selected(intCount) Then RecipientsListBox.RemoveItem (intCount) Next intCount Application.ScreenUpdating = True End Sub 此代码运行在MultiSelect 1 – fmMultiSelectMulti的列表框上，工作正常。 当我尝试允许parameter passing给它的时候，问题出现了，所以我可以在多个ListBox上使用同一个子类。 我试过了： Private Sub RemoveRecipientCommandButton_Click() Application.ScreenUpdating = False RemoveSelected (RecipientsListBox) Application.ScreenUpdating = True End Sub 同 Private […]

根据其值VBA删除列表框中的项目

我试图删除除特定值以外的用户表单列表框中的所有项目 可以说我想删除我的列表框中除了“猫”和“狗”以外的所有东西 我写了： For i = 0 To ListBox2.ListCount – 1 If ListBox2.List(i) <> "Cat" or ListBox2.List(i) <> "Dog" Then ListBox2.RemoveItem i End If Next 由于某种原因，它不工作，我试图find一个解决scheme，但我不能。 这里有什么问题？