Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #41116 Delila_1 veterán logitechh #41115
    Új Válasz #41116
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz logitechh #41115 üzenetére

    Arra van a példa, hogy minden adatot az első üres sorba rögzíts (usor változó). Ha mindig ugyanabba a cellába akarod rögzíteni, akkor a

    'Felírás a Munka1 lapra
    usor = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row + 1
    For oszlop = 1 To 5
    Sheets("Munka1").Cells(usor, oszlop) = Controls("ComboBox" & oszlop)
    Controls("ComboBox" & oszlop) = ""
    Next
    Sheets("Munka1").Cells(usor, 6) = TextBox1
    TextBox1 = ""

    részt kell átírnod. Nincs szükség az usor-ra, hanem fixen add meg.

    'Felírás a Munka1 lapra

    For oszlop = 1 To 5
    Sheets("Munka1").Cells(2, oszlop) = Controls("ComboBox" & oszlop)
    Controls("ComboBox" & oszlop) = ""
    Next
    Sheets("Munka1").Cells(2, 6) = TextBox1
    TextBox1 = ""

    Így az adtok a 2. sorba kerülnek, a címsor alá.

    Megadhatod a felírást a ComboBox change eseményében is:

    Private Sub ComboBox1_Change()
    Sheets("Munka1").Cells(2, 1) = ComboBox1 'A2 cella
    ComboBox1 = "" 'ComboBox1 üresre állítása
    End Sub

Új hozzászólás Aktív témák