2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    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

  • #9528 perfag aktív tag lappy #9526
    Új Válasz #9528
    Ú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

    perfag

    aktív tag

    válasz lappy #9526 üzenetére

    Ez a sorod:
    Range(Cells(a, 1), Cells(a, 1)).Select
    az A2 cellát választja ki. Ezt írd át, hogy arra a listatartományra mutasson, aminek "első oszlopában számozás van a második oszlopában nevek".

    (Elmerengtem, kicsit hogy miért is tetted ezt For-Next ciklusba, mit keres ebben a ciklusban a nyomtatás parancs ... de azt hiszem a nagyon gonosz gondolataimat inkább nem írom le.

    Delila megelőzött. Jobb, ha nem is olvasd el amit írtam.)

  • #9527 Delila_1 veterán lappy #9526
    Új Válasz #9527
    Ú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 lappy #9526 üzenetére

    Mit is kellene nyomtatni? Elláttam magyarázatokkal a makródat.

    Sub nyomtat()
    'A névsor lap A2 cellájának az értékét teszi a b változóba
    b = Worksheets("névsor").Cells(2, 1).Value
    b = b + 1 'növeli a b értékét
    For a = 2 To b 'A névsor lapon a 2. sortól megy a ciklus b-ig
    Sheets("névsor").Select 'bár a névsor lap az aktív, a ciklusban mindig
    'kijelöli ugyanezt a lapot (?!)
    Range(Cells(a, 1), Cells(a, 1)).Select 'rááll az a-adik cellára az A oszlopban
    Selection.Copy 'másolja ezt a cellát
    Sheets("Sima").Select 'átmegy a Sima lapra
    Range("C3").Select 'beilleszti az előbb másoltat mindig ugyanoda, C3-ba
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False 'kijelölés megszüntetése
    'nyomtatja a Sima lapról az előzően nyomtatási területként kijelölt tartományt
    'itt az a szám látszik, amit a ciklusban utoljára a C3-ba írattál
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next a
    MsgBox "A nyomtatás kész, ügyes vagy!!!"
    Sheets("Sima").Select
    Range("C3").Select
    Selection.ClearContents
    Range("A2").Select
    End Sub

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