CODEWITHSUNDEEP
vbaexcel
levshkatov
levshkatov

Reputation: 487

Name of object changes in function

I have a function that gets the number of Textbox. I need to use this number in object's name.

Private Function func(ByVal number As Integer)
If Val(TextBox[number].Text) > 300 Then
    TextBox[number].Text = 300
End If
End Function

E.g. if number is 5 it should be: TextBox5.Text = 300

Thanks for help!

Upvotes: 0

Views: 54

Answers (1)

A.S.H
A.S.H

Reputation: 29352

This function gets you a control given its name:

Private Function GetControlByName(name As String) As Object
    Dim obj As Object
    For Each obj In Me.Controls
        If obj.Name = name Then
            Set GetControlByName = obj
            Exit Function
        End If
    Next
End Function

Then this sub does what you want, but it will fail it you dont really have some textbox called TextBoxN, where N is the number you provide

Private Sub func(ByVal N As Integer)
    Dim t As Object
    Set t = GetControlByName("TextBox" & N)
    If val(t.Text) > 300 Then t.Text = "300"
End Sub

Upvotes: 2

Related Questions