-
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- Milyen légtisztítót vegyek?
- Macska topik
- Pécs és környéke adok-veszek-beszélgetek
- Revolut
- BestBuy topik
- OnePlus 15 - van plusz energia
- Egérpad topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Azonnali alaplapos kérdések órája
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- BESZÁMÍTÁS! Gigabyte G1.Sniper Z97 chipset alaplap garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- szinteÚJ, dobozos Dell Pro 14 Core Ultra 7 255U 32GB DDR5 1TB AI PC FHD+ 1 év garancia
- RAPOO 7100P 1000DPI optikai rádiós 5GHz egér
- ÚJ Apple Macbook Air 15,3 M4 10C CPU/10C GPU/16GB/256GB - Ezüst mw1g3mg/a - 3 év gari - MAGYAR
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest