- Ergonomikus, vezeték nélküli chiclet billentyűzet a Kensington értelmezésében
- Kiszivárgott egy lista a várható Lunar Lake modellekről
- Még ki se jött az új Xeon, de máris a 2025-ös fejlesztésre koncentrál az Intel
- Ezért működik ma csak Snapdragon X-en az Auto SR
- Problémák a Samsung 3 nm-es node-jával
Hirdetés
-
The First Descendant - Karakter előzetesek a megjelenésig
gp Alig néhány nap van már csak hátra az indulásig, érdemes közelebbről is megnézni a választható szereplőket.
-
Ergonomikus, vezeték nélküli chiclet billentyűzet a Kensington értelmezésében
ph A vállalat ízületkímélő, TKL-es újdonsága egyszerre három masinához köthető hozzá, és lehetővé teszi az inverz döntést.
-
Ellopták a Tesla akkumulátor-titkait
it Beperelte egy korábbi beszállítóját a Tesla, és azzal vádolja, hogy üzleti titkokat lopott a Tesla akkumulátorgyártási technológiájával kapcsolatban.
-
PROHARDVER!
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
-
Delila_1
Topikgazda
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[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
perfag
aktív tag
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.)
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Revolut
- Apple Watch Sport - ez is csak egy okosóra
- Projektor topic
- Konteó topic
- Milyen légkondit a lakásba?
- Kedvenc zene a mai napra
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Okosóra és okoskiegészítő topik
- Megérkezett a Google Pixel 7 és 7 Pro
- Garancia kérdés, fogyasztóvédelem
- További aktív témák...
- Védje meg számítógépét a vírusoktól!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office