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

  • #28984 Delila_1 veterán Tsabee #28983
    Új Válasz #28984
    Ú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 Tsabee #28983 üzenetére

    Kezdjük az egyszerűbbel. Beírod a sorszámokat 1-től 7-ig. Mivel nem adtad meg, hol kellenek ezek a számok, az A1-ben kezdtem. Az A8 képlete =A1, ezt másolhatod, ameddig kell.

    A másikhoz 2 makró szükséges.
    Alt+F11-gyel belépsz a makró szerkesztőbe. Bal oldalon kiválasztod a füzetedet, ott is a ThisWorkbook lapot. A jobb oldalon kapott nagy fehér felületre bemásolod a makrót:

    Sub Szin_lekerdezes()
    MsgBox "Háttér színkód: " & Selection.Interior.ColorIndex & vbLf & _
    "Karakter színkód: " & Selection.Font.ColorIndex
    End Sub

    Ez azt csinálja, hogy kiírja egy üzenetben az aktív cella hátterének, és karakterének a színkódját.
    Összeállítasz egy segédtáblát, ahol az első oszlop tartalmazza a bevihető, színezendő számokat, a 2. oszlop a háttér-, a 3. a karakter színkódja lesz. Nálam ez a segédtábla az N:P oszlopokban van. Az N oszlopban beállítod a kívánt 2 színt, majd ráállsz az első számra, és indítod a fenti makrót (Alt+F8-ra megjelenő ablakban). A két kapott értéket beírod a megfelelő helyre. Ezt egyszer kell végig zongoráznod.

    Most jön a bevitt számok cellájának az automatikus színezése.
    Azt sem írtad meg, hova viszed be ezeket a számokat. A lenti makró az A oszlopba beírt számok celláját színezi. Ezt a makrót a lapodhoz kell rendelni. Lapfülön jobb klikk, újra a VB szerkesztőben vagy, abban is a lapodhoz tartozó üres felület jelent meg a jobb oldalon. Oda kell bemásolnod a kódot:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    On Error Resume Next
    Range(Target.Address).Interior.ColorIndex = _
    Application.WorksheetFunction.VLookup(Target, Range("N:P"), 2, 0)
    Range(Target.Address).Font.ColorIndex = _
    Application.WorksheetFunction.VLookup(Target, Range("N:P"), 3, 0)
    End If
    End Sub

    Ezzel kész az előkészület.
    Mikor beírsz egy számot az A oszlopba azok közül, amiket a segédtáblában megadtál, a kedvenc színösszeállításodra színezi a cellát. Olyan szám beírásánál, ami nem szerepel a segédtáblában, marad az eredeti háttér- és karakterszín.

    Kép hozzá:

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