2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • 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

  • #45973 p5quser tag Delila_1 #45972
    Új Válasz #45973
    Ú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

    p5quser

    tag

    válasz Delila_1 #45972 üzenetére

    Szia!
    Köszi a választ! Elsiklottam dolgok felett.
    A ComboBox_Change() így néz ki;
    Private Sub ComboBox1_Change()
        Dim i As Long
        For i = 1 To Application.WorksheetFunction.CountA(Sheets(1).Range("B:B"))
            If LCase(Left(Sheets(1).Cells(i, 2), 1)) = Me.ComboBox1 And Me.ComboBox1 <> vbNullString Then
                Me.ComboBox1.AddItem Sheets(1).Cells(i, 2)
            End If
        Next i
        Me.ComboBox1.DropDown
    End Sub
    Ő egy "auto suggestion" combobox, mindig a "B" oszlopból húzza be az ajánlott nevet. Ez egy 3xxx soros lista, amit a duplázások elkerülése végett ír ki. De - gondolom - minden módosításnál újraszámolja a cellákat. Lassabb gépeken (hdd) körülményes. Ha a userform incializálásakor megszámoltatnám vele, talán gördülékenyebb lenne. Ha a
    Application.WorksheetFunction.CountA(Sheets(1).Range("B:B")) -t
    deklarálnám és utána már csak behúznám, az segítene?

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