Hirdetés

  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

    LOGOUT

    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

  • #9803 m.zmrzlina senior tag Sir Pocok #9801
    Új Válasz #9803
    Ú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

    m.zmrzlina

    senior tag

    válasz Sir Pocok #9801 üzenetére

    Nem állítom, hogy hibátlan de kiindulásnak jó lesz aztán majd pontosítasz, hogy mit szeretnél:

    Sub kerescserel()
    Dim amitkeres As String, amirecserel As String

    Cells(1, 1).Select
    amitkeres = InputBox("Add meg a keresni kívánt számot!", "Keresés")
    amirecserel = InputBox("Mire szeretnéd cserélni?", "Keresés")

    Do Until IsEmpty(ActiveCell.Offset(1, 0)) = True
    On Error GoTo nincstobb
    Cells.Find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Select
    If ActiveCell.Value = amitkeres Then ActiveCell.Value = amirecserel
    Loop

    nincstobb:
    MsgBox ("A számok cseréje megtörtént.")
    End Sub

    Az A1 cellától keres lefelé a legutolsóig és ha megtalálta az első inputboxban bevitt karaktersorozatot akkor kicseréli arra amit a második inputboxban bevittél. Ez kicsit gyorsabb mint a beépített (Ctrl+H) módszer.

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

Hirdetés