-
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
-
Delila_1
veterán
válasz
Ősember
#3667
üzenetére
Ha semmiképp nem sikerül rábeszélned a szám formátumra, fogj egy üres füzetet, jelöld ki minden lapját és minden celláját, állítsd a formátumot kedved szerintire, és a Mentés másként menüpontban sablonként (Munkafüzet.xlt néven) mentsd el. Az Excel megnyitásakor ez a formátum jön elő innen kezdve.
A fájlt önállóan a C:\Document and Settings\Felhasználó\Application Data\Microsoft\Excel\XLSTART -ba teszi, ahol a personal.xls is van – ha van.
A mentés előtt beállíthatsz egyebeket is, én pl. a függőlegesen középre igazítást választottam. Kedved szerint sortörés engedélyezését, vagy bármi mást is választhatsz, csak ne írj semmit a füzetbe.
-
Delila_1
veterán
válasz
Ősember
#3657
üzenetére
Akkor ezt vidd be az előző helyett:
Sub KerekOtven()
usor = Range("A65536").End(xlUp).Row
For sor = 1 To usor
If Cells(sor, 1) > "" Then
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
End If
Next
End SubHogy a biztonsági szint magas voltára hivatkozott mindkét esetben, csak a szegényes szókincsére vall - eszerint. Hiányosan írták le a lehetséges hibákat.
-
Delila_1
veterán
válasz
Ősember
#3646
üzenetére
Mindkét kérdésedre igen a válasz. Az 1-et írd át annyira, ahányadik oszlopban vannak az adataid.
A kódot a VBE-be (Visual Basic Editor) másold be. Behívása vagy Eszközök/Makró/Visual Basic menüből, vagy Alt+F11-el történik. A bal oldali könyvtárban állj rá a füzetedre, majd a menüből az Insert/Module hatására jobb oldalon kapsz egy üres lapot, oda másold.
Indítás az Excelben: Eszközök/Makró/Makrók (vagy ezek helyett Alt+F8), ott a makró címére duplán kattintasz. -
Delila_1
veterán
válasz
Ősember
#3642
üzenetére
G1-be írom a szorzót (123), H1-be a hozzáadandó értéket (5). A számok az A oszlopban, A1-től kezdődően vannak, a kerekített eredményt a B oszlopban kapom meg. A C-be beíratom a (A+H1)*G1 értéket, hogy ellenőrizni lehessen a kerekítést. Ha erre az utóbbira nincs szükség, töröld a Cells(sor,3)=sz sort.
Sub KerekOtven()
sor = 1
Do While Cells(sor, 1) <> ""
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
sor = sor + 1
Loop
End Sub
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Okos Otthon / Smart Home
- World of Warships
- Hivatalos a OnePlus 13 startdátuma
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Samsung kuponkunyeráló
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Samsung Galaxy A52s 5G - jó S-tehetség
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Micro Four Thirds
- Apple MacBook
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Microsoft és egyéb dobozos retro szoftverek
- Apple Watch Series 10 46mm Jet Black használt karcmentes 100% akku garancia 2026.10.26.-ig
- Sandisk Portable SSD 2TB!
- GYÖNYÖRŰ iPhone 13 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4393, 100% Akkumulátor
- Új! AKRacing Premium Master gamer szék
- iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4383, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest