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

    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

  • #8722 Delila_1 veterán a.t.t.i. #8721
    Új Válasz #8722
    Ú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 a.t.t.i. #8721 üzenetére

    A megjegyzésekben történő kereséshez itt egy makró.
    A makró első sorában megadott területen megvizsgálja a megjegyzések tartalmát, megkeresi bennük a megadott szöveget (keres="alma"), majd az O oszlopban egymás alatt felsorolja a találatok címét, mellettük a P oszlopban a megjegyzés teljes tartalmát.

    Sub Megjegyz()
    Columns("O:P").Select 'Itt változtass
    Selection.ClearContents

    Set ter = Range("A1:C10") 'itt változtass
    keres = InputBox("Mit keresel?") 'itt változtass
    sor = 1
    For Each CV In ter
    Set kom = Range(CV.Address).Comment 'aktuális cellához csatolt megjegyzés
    If Not kom Is Nothing Then 'ha van megjegyzés
    sz = kom.Text 'Megjegyzés szövege
    If InStr(sz, keres) Then
    Cells(sor, 15) = CV.Address 'itt változtass
    Cells(sor, 16) = sz 'itt változtass
    sor = sor + 1
    End If
    End If
    Next
    End Sub

    4 helyre írtam be, hogy "itt változtass".
    A másodikhoz a saját területedet írd, a 3. és 4. az O, ill. a P oszlopot jelöli ki (15 és 16) a megjegyzés cellájának, és szövegének beírásához. Az első helyen az előző beírásokat törlöm az O:P oszlopokban, vagyis csak akkor írd át, ha a 15 és 16 értéket módosítottad.

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