Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reading List Box Value
I will guess the listbox is from the forms toolbar instead of the control
toolbox toolbar and Listbox_click is assigned to the listbox. Sub Listbox_click() dim sName as String dim lbox as Listbox sName = Application.Caller set lbox = Activesheet.Listboxes(sName) with lbox msgbox sname & ": " & .list(.listindex) End With End Sub -- Regards, Tom Ogilvy Bob Wilcox wrote in message ... Hello, In one module, I have sucessfully created and populated a listbox on a worksheet. My last LOC in that module is to Set objListBox = Nothing. However, in the module, "ListBox_Click" (which does display a MsgBox when clicked), I cannot determine the values of the clicked data. Question, do I use Shapes, Controls or somthing else? What and how do I set the object? B Wilcox |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reading List Box Value
I used the command:
Set objListBox = .Shapes.AddFormControl(xlListBox, 400, 10, 100, 400) to create the list box. -----Original Message----- I will guess the listbox is from the forms toolbar instead of the control toolbox toolbar and Listbox_click is assigned to the listbox. Sub Listbox_click() dim sName as String dim lbox as Listbox sName = Application.Caller set lbox = Activesheet.Listboxes(sName) with lbox msgbox sname & ": " & .list(.listindex) End With End Sub -- Regards, Tom Ogilvy Bob Wilcox wrote in message ... Hello, In one module, I have sucessfully created and populated a listbox on a worksheet. My last LOC in that module is to Set objListBox = Nothing. However, in the module, "ListBox_Click" (which does display a MsgBox when clicked), I cannot determine the values of the clicked data. Question, do I use Shapes, Controls or somthing else? What and how do I set the object? B Wilcox . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reading List Box Value
Yes, that produces a Listbox from the forms toolbar. My code works with
that. Here is an example: Sub Macro1() Dim objListbox As Object For Each shp In ActiveSheet.Shapes shp.Delete Next With ActiveSheet Set objListbox = .Shapes. _ AddFormControl(xlListBox, 400, 10, 100, 400) End With objListbox.ControlFormat.ListFillRange = _ "Sheet1!A1:A10" ActiveSheet.ListBoxes(objListbox.Name) _ .OnAction = "Listbox_click" End Sub Sub Listbox_click() Dim sName As String Dim lbox As ListBox sName = Application.Caller Set lbox = ActiveSheet.ListBoxes(sName) With lbox MsgBox sName & ": " & .List(.ListIndex) End With End Sub -- Regards, Tom Ogilvy "b wilcox" wrote in message ... I used the command: Set objListBox = .Shapes.AddFormControl(xlListBox, 400, 10, 100, 400) to create the list box. -----Original Message----- I will guess the listbox is from the forms toolbar instead of the control toolbox toolbar and Listbox_click is assigned to the listbox. Sub Listbox_click() dim sName as String dim lbox as Listbox sName = Application.Caller set lbox = Activesheet.Listboxes(sName) with lbox msgbox sname & ": " & .list(.listindex) End With End Sub -- Regards, Tom Ogilvy Bob Wilcox wrote in message ... Hello, In one module, I have sucessfully created and populated a listbox on a worksheet. My last LOC in that module is to Set objListBox = Nothing. However, in the module, "ListBox_Click" (which does display a MsgBox when clicked), I cannot determine the values of the clicked data. Question, do I use Shapes, Controls or somthing else? What and how do I set the object? B Wilcox . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reading a list of names to update their records | Excel Discussion (Misc queries) | |||
reading from SQL | Excel Discussion (Misc queries) | |||
Reading XML | Excel Discussion (Misc queries) | |||
Reading List Box Value | Excel Programming | |||
sub for reading | Excel Programming |