dotNETportal.cz

Dobrý den dovedl by mi někdo poradit. Vytvořil jsem několik TextBoxů ve VB pro Excel a potřeboval bych z nich číst v cyklu. Jak se mám na ně odkázat? Předpokládám, že syntaxe bude podobná jako pro VB6

př:

for I = 1 to 10

A(I)= TextBox(I).value

next I

Není to sice dobře zapsáno, ale doufám, že je to srozumitelné

Dobrý den,

a jak máte pojmenované ty textboxy?

Nejsem si tím 100% jistý, ale myslím, že ve VBA nejsou indexy prvků... Ale nevím to ale jistě, už si nepamatuji.

Místo .Value

A(i - 1) = UserForm1.Controls("TextBox" & i).Value

požívat TEXT (pro obsah), NAME (pro identifikátor), atp..

Procházením kolekce Controls

Např. kontrola textboxů ve formuláři

a zobrazit msgbox s názvy prázdných

Přidat do referencí:

Microsoft Forms 2.0 Object Library

've formuláři (UserForm)

Private Sub CommandButton_Click()
    CheckTextBoxesInForm Me
End Sub

'v modulu
Sub CheckTextBoxesInForm(f As UserForm)
    Dim c As Control
    Dim msg As String
    
    For Each c In f.Controls
        If TypeName(c) = "TextBox" Then
            Dim tb As MSForms.TextBox
            Set tb = c
            If tb.Value = vbNullString Then
                msg = IIf(msg = "", "", msg & vbCrLf)
                msg = msg & tb.Name & ".Value = vbNullString"
            End If
        End If
    Next
    If msg <> "" Then MsgBox msg
End Sub