Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA in Excel
I am a new VBA programmer. I have code similiar to:
label1.visible = true label2.visible = true label3.visible = true Clearly this is suitable for a for loop. I an having difficulties figuring out the code for such an action. Any suggestions? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA in Excel
On Jun 8, 6:27 pm, Dunc_w wrote:
I am a new VBA programmer. I have code similiar to: label1.visible = true label2.visible = true label3.visible = true Clearly this is suitable for a for loop. I an having difficulties figuring out the code for such an action. Any suggestions? Hello Dunc_w, Provided these labels are on a UserForm and the numbers are sequential then this will work... ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sub ShowLabels() Dim I For I = 1 To 3 UserForm1.Controls("Label" & I).Visible = True Next I End Sub ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sincerely, Leith Ross |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA in Excel
Hello Leith,
I tried a similar one but this one do not work. The code is executing without an error but the captions are not changed. L_HP_1 is a Label Name and Camp_CF is a userform Sub ShowLabels() Dim I As Integer For I = 1 To 3 Camp_CF.Controls("L_HP_" & I).Caption = "Akash" Next I End Sub -- Akash Nath Hewlett Packard India "Leith Ross" wrote: On Jun 8, 6:27 pm, Dunc_w wrote: I am a new VBA programmer. I have code similiar to: label1.visible = true label2.visible = true label3.visible = true Clearly this is suitable for a for loop. I an having difficulties figuring out the code for such an action. Any suggestions? Hello Dunc_w, Provided these labels are on a UserForm and the numbers are sequential then this will work... ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sub ShowLabels() Dim I For I = 1 To 3 UserForm1.Controls("Label" & I).Visible = True Next I End Sub ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sincerely, Leith Ross |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|