Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Visual Basic

Čaute machri

Viete mi niekto poradť s VBA?

V Buttone2 mám tento kód, ktorý funguje správne:


Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Dim a As Decimal = CInt(TextBox1.Text)
Dim b As Decimal = CInt(TextBox2.Text)
Dim c As Decimal = a - b
TextBox3.Text.Text = CStr(c)

ListView1.Items.Add(New ListViewItem({TextBox1.Text, TextBox2.Text, TextBox3.Text.ToString()}))


End Sub


Len že by som potreboval ešte v písať jeden kód do Buttonu2, ktorý by mi sčítaval tretí stĺpec z ListView do Label1.

Ak vie niekto poradiť vopred Ďakujem!!!
Naposledy upravil sandi70 : 11.12.14 at 09:15
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    taiko je offline (nepripojený) taiko

    Som, kto som taiko
    skus tuto otazkocku dat aj na stackoverflow.com. Myslim, ze tam sa skor dockas odpovede
    0

    sthruska je offline (nepripojený) sthruska

    sthruska
    A prečo ho tam nenapíšeš? Čo Ti bráni?
    0

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Pre Excel VBA takto:

    Code:
    Sub Button2_Click()
    
    Dim a As Integer ' = CInt(TextBox1.Text)
    Dim b As Integer ' = CInt(TextBox2.Text)
    Dim c As Integer ' = a - b
    Dim s As Integer ' sum of c
    Dim i As Integer
    
    a = CInt(TextBox1.Text)
    b = CInt(TextBox2.Text)
    c = a - b
    
    TextBox3.Text = CStr(c)
   
    ListBox1.AddItem CStr(a)
    ListBox1.List(ListBox1.ListCount - 1, 1) = CStr(b)
    ListBox1.List(ListBox1.ListCount - 1, 2) = CStr(c)
    
    For i = 0 To ListBox1.ListCount - 1
        s = s + CInt(ListBox1.List(i, 2))        
    Next i
    
    Label1.Caption = s

End Sub
    0

    Visual Basic

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka