| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Gotta be some more Efficient code
I have 10 text boxes is there a more efficient way to write this code.
Eventually there could be more textboxes and labels. Loop? Thank you so much. If Len(Trim(Label1.Caption)) 0 Then TextBox1.Visible = True Else TextBox1.Visible = False End If If Len(Trim(Label2.Caption)) 0 Then TextBox2.Visible = True Else TextBox2.Visible = False End If -- Thank you, Jennifer |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Gotta be some more Efficient code
this worked for me
Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 10 If Len(Trim(Me.Controls("label" & i).Caption)) 0 Then Me.Controls("textbox" & i).Visible = True Else Me.Controls("textbox" & i).Visible = False End If Next End Sub -- Gary "Jennifer" wrote in message ... I have 10 text boxes is there a more efficient way to write this code. Eventually there could be more textboxes and labels. Loop? Thank you so much. If Len(Trim(Label1.Caption)) 0 Then TextBox1.Visible = True Else TextBox1.Visible = False End If If Len(Trim(Label2.Caption)) 0 Then TextBox2.Visible = True Else TextBox2.Visible = False End If -- Thank you, Jennifer |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Gotta be some more Efficient code
Dim i As Integer
For i = 1 To 10 Controls("TextBox" & i).Visible = (Len(Controls("Label" & i).Caption) 0) Next I assume you don't need the Trim function because *you* will be creating the captions and can avoid captions with only blank spaces ? Greg "Jennifer" wrote: I have 10 text boxes is there a more efficient way to write this code. Eventually there could be more textboxes and labels. Loop? Thank you so much. If Len(Trim(Label1.Caption)) 0 Then TextBox1.Visible = True Else TextBox1.Visible = False End If If Len(Trim(Label2.Caption)) 0 Then TextBox2.Visible = True Else TextBox2.Visible = False End If -- Thank you, Jennifer |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Gotta be some more Efficient code
This works for a UserForm but does it work for activeX controls on the
worksheet? -- Regards, Nigel "Greg Wilson" wrote in message ... Dim i As Integer For i = 1 To 10 Controls("TextBox" & i).Visible = (Len(Controls("Label" & i).Caption) 0) Next I assume you don't need the Trim function because *you* will be creating the captions and can avoid captions with only blank spaces ? Greg "Jennifer" wrote: I have 10 text boxes is there a more efficient way to write this code. Eventually there could be more textboxes and labels. Loop? Thank you so much. If Len(Trim(Label1.Caption)) 0 Then TextBox1.Visible = True Else TextBox1.Visible = False End If If Len(Trim(Label2.Caption)) 0 Then TextBox2.Visible = True Else TextBox2.Visible = False End If -- Thank you, Jennifer |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Gotta be some more Efficient code
It was <g and thanks for the solution.
-- Regards, Nigel "Greg Wilson" wrote in message ... I assume that was a rhetorical question <g Dim i As Integer For i = 1 To 10 With Me.OLEObjects("Label" & i).Object Me.OLEObjects("TextBox" & i).Visible = (Len(.Caption) 0) End With Next "Nigel" wrote: This works for a UserForm but does it work for activeX controls on the worksheet? -- Regards, Nigel "Greg Wilson" wrote in message ... Dim i As Integer For i = 1 To 10 Controls("TextBox" & i).Visible = (Len(Controls("Label" & i).Caption) 0) Next I assume you don't need the Trim function because *you* will be creating the captions and can avoid captions with only blank spaces ? Greg "Jennifer" wrote: I have 10 text boxes is there a more efficient way to write this code. Eventually there could be more textboxes and labels. Loop? Thank you so much. If Len(Trim(Label1.Caption)) 0 Then TextBox1.Visible = True Else TextBox1.Visible = False End If If Len(Trim(Label2.Caption)) 0 Then TextBox2.Visible = True Else TextBox2.Visible = False End If -- Thank you, Jennifer |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| More efficient code | Excel Programming | |||
| Can anyone help me convert to more efficient code? | Excel Programming | |||
| Efficient Code | Excel Programming | |||
| More Efficient code than this | Excel Programming | |||
| More efficient code | Excel Programming | |||
Linear Mode
