-
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- Hobby elektronika
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Okos Otthon / Smart Home
- Sorozatok
- Gaming notebook topik
- Star Citizen
- Windows 10
- One otthoni szolgáltatások (TV, internet, telefon)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Ilyen olcsó sem volt még egy Apple notebook
- További aktív témák...
- Beszámítás! HP Elitebook 840 G11 14 FHD notebook - Ultra 5 135U 16GB DDR5 256GB SSD Intel Win11
- Dell Vostro 3425 6magos Ryzen 5 5625U 16GB RAM 512GB SSD 1 év garancia
- Lenovo Thinkpad X1 Nano 5G Gen2 3K IPS i7-1260P 12mag 16GB DDR5 512GB SSD Intel Iris XE W11 Garancia
- Keresünk Galaxy S21/S21+/S21 Ultra/S21 Fe
- Honor Magic V5 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest