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

  • #38207 csferke senior tag
    Új Válasz #38207
    Ú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

    csferke

    senior tag

    Sziasztok!
    Az alábbi kóddal az E oszlop éppen kiválasztott cellájába szeretnék adatot felvenni DE CSAK NAGYBETŰ mehet a cellába.
    Az is megoldás lenne ha az egész E oszlopot le lehetne formázni NAGYBETŰS-re.

    Sub bevitel()
    Dim xpos, ypos, Prompt, Title, Default, MyValue
    Prompt = ""
    Title = "ADATBEVITEL"
    xpos = 5000
    ypos = 5800

    ActiveCell.Offset(0, 1).Select
    Default = ""
    Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
    MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
    ActiveCell = MyValue
    End Sub

    Mi a legegyszerűbb megoldás arra, hogy az E oszlop celláiba csak ezeket a betűket lehessen megadni H, RR, F, I, A, R, L, N, O ?

    Segítséget kérek.

    köszi

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