Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with For Each ... Next and control
I have a form that contains a Multipage control, with 4 pages, and about 5
textboxes, 5 labels and 5 commandbuttons on each page. I am trying to use "For Each ctl In frmOpenFiles.Controls If TypeName(ctl) = "TextBox" Then" to go through the controls on the form and only look for the textboxes. My problem is that I am looking for a way to do the textboxes for before the other controls or if there is a way to tell the programme which controls to start with. I want it to start with the textboxes on the first page of the Multipage, then the textboxes on the second page and so on. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with For Each ... Next and control
On Sep 16, 11:36 am, Ayo wrote:
I have a form that contains a Multipage control, with 4 pages, and about 5 textboxes, 5 labels and 5 commandbuttons on each page. I am trying to use "For Each ctl In frmOpenFiles.Controls If TypeName(ctl) = "TextBox" Then" to go through the controls on the form and only look for the textboxes. My problem is that I am looking for a way to do the textboxes for before the other controls or if there is a way to tell the programme which controls to start with. I want it to start with the textboxes on the first page of the Multipage, then the textboxes on the second page and so on. Hello Ayo, This macro steps through each page of the MultiPage control and counts the number of TextBoxes on each page, if any. After each page is examined, a MessageBox displays the count. The macro was placed in the UserForm Click event. You can use this code as template for your own. Private Sub UserForm_Click() Dim Ctrls As Object Dim I As Long, N As Long Dim txtbox As Object For I = 0 To UserForm1.MultiPage1.Pages.Count - 1 Set Ctrls = UserForm1.MultiPage1.Pages(I).Controls For Each txtbox In Ctrls N = N + 1 Next txtbox MsgBox "Page(" & I & ") has " & N & " TextBoxes" N = 0 Next I End Sub Sincerely, Leith Ross |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with For Each ... Next and control
Thanks a lot Leith. I think this might actually do the trick.
"Leith Ross" wrote: On Sep 16, 11:36 am, Ayo wrote: I have a form that contains a Multipage control, with 4 pages, and about 5 textboxes, 5 labels and 5 commandbuttons on each page. I am trying to use "For Each ctl In frmOpenFiles.Controls If TypeName(ctl) = "TextBox" Then" to go through the controls on the form and only look for the textboxes. My problem is that I am looking for a way to do the textboxes for before the other controls or if there is a way to tell the programme which controls to start with. I want it to start with the textboxes on the first page of the Multipage, then the textboxes on the second page and so on. Hello Ayo, This macro steps through each page of the MultiPage control and counts the number of TextBoxes on each page, if any. After each page is examined, a MessageBox displays the count. The macro was placed in the UserForm Click event. You can use this code as template for your own. Private Sub UserForm_Click() Dim Ctrls As Object Dim I As Long, N As Long Dim txtbox As Object For I = 0 To UserForm1.MultiPage1.Pages.Count - 1 Set Ctrls = UserForm1.MultiPage1.Pages(I).Controls For Each txtbox In Ctrls N = N + 1 Next txtbox MsgBox "Page(" & I & ") has " & N & " TextBoxes" N = 0 Next I End Sub Sincerely, Leith Ross |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2007 Form Control/ActiveX Control font difference | Excel Discussion (Misc queries) | |||
Excel spin box - no Control tab in Format Control dialong box | Excel Worksheet Functions | |||
Control disappeared problem - specifically, the Calendar Control | Excel Programming | |||
Programatically control picture property of Image control | Excel Programming | |||
Calendar Control: Can't exit design mode because control can't be created | Excel Programming |