Hirdetés
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- Mert itt biztos, hogy megmarad.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sidi: Samsung Deskmaster 386s/20n
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
-
LOGOUT
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
Nem látszanak a sor-, és oszlopazonosítóid.
Tegyük fel, hogy a "ritkán" szó a B3 cellában van.Ebben az esetben a D3:D5 cellákat kijelölve a feltételes formátum képlete
=ÉS($B3="ritkán";$C3="enyhe")
,az E3:E5-é
=ÉS($B3="gyakran";$C3="enyhe")
,
az F3:F5-é=ÉS($B3="gyakran";$C3="súlyos")
Ez csak akkor működik majd, ha a B oszlopban a gyakran szó helyett nem gyakra, és nem gykran szerepel.
-
azopi74
addikt
Szia.
Nem írtad milyen nyelvű excel (és milyen verzió), de angol 2010-ben és 2013-ban:
File/Options/Advanced és tedd be a pipát az "Enable fill handle and cell drag and drop "
magyarban fájl/beállítások/speciálisban keresd (kitöltőjel használatának engedélyezése)
2007-ben az office menüben van valahol.
-
Mutt
senior tag
Hello,
...ugorjon, tehat a kovetkezo sor elejere.
Több megoldás lehetséges, ha esetleg egy fel nem soroltad oldottad meg, akkor oszd meg velünk.
1. Ha előre kijelölöd a beviteli tartományt, akkor TA-al csak ebben a tartományban tudsz mozogni. A kijelölés utolsó oszlopát elérve a következő sorra fog ugrani és nem a mellette lévő cellába.
2. Ha az adatsort Táblázatnak definiálod (Beszúrás -> Táblázat), akkor is a fentiek szerint működik. Ez csak 2007-es vagy frissebb verzióval megy.
3. Ha a munkalap nevén jobb klikket nyomsz válaszd a Kód megjelenítése opciót (ez az Excel VBA szerkesztőjét indítja). Itt a munkalap ScrollArea értékét állítsd be. A hátránya, hogy egyetlen más cellába a területen kívül nem lehet írni.
4. Nem tökéletes megoldás, de akár a Korrektúra -> Lapvédelem is működik. Előtte a szükséges cellákról vedd le a védelmet. A gond, hogy a TAB ilyenkor új sorba nem ugrik, de a kitöltött cellák között sorrendben nozog.
5. Makróval is elérhető a Worksheet_SelectionChange eseményen keresztül.
üdv.
-
Egy másik lehetséges megoldás: [link]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyWidth As Range
Dim MyHeight As Range
Set MyWidth = Range("AA1")
Set MyHeight = Range("AB1")
Application.ScreenUpdating = False
If Target.Address = MyWidth.Address Or Target.Address = MyHeight.Address Then
Range("A1:Z26").Clear
If MyWidth.Value Mod 5 Or MyHeight.Value Mod 5 Or IsEmpty(MyWidth.Value) Or IsEmpty(MyHeight.Value) Then
MsgBox ("Az alábbi hibák egyike lépett fel, kérem javítsa!" & vbCrLf & vbCrLf & _
"1. A szélesség és magasság értékének maradék nélkül oszthatónak kell lennie 5-el!" & vbCrLf & _
"2. A szélesség vagy magasság érték nincs megadva!")
Exit Sub
End If
For i = 0 To MyHeight.Value \ 5 - 1
For j = 0 To MyWidth.Value \ 5 - 1
Range("A1").Offset(i, j).Interior.ColorIndex = 3
Range("A1").Offset(i, j).Borders.ColorIndex = 0
Next j
Next i
End If
Application.ScreenUpdating = True
End Sub[ Módosította: #65675776 ]
-
Delila_1
veterán
A makró törli az előző színezést, bekéri a szélességet, majd a magasságot, és ennek megfelelően színezi a területet.
Rosszul írtad, a 80 cm nem a T, hanem az X oszlopig tart.Sub Ter()
Dim sz%, m%
Range("1:255").Interior.ColorIndex = -4142
sz% = Int(InputBox("Kérem a szélességet cm-ben", "Szélesség", Default) / 5)
m% = Int(InputBox("Kérem a magasságot cm-ben", "magasság", Default) / 5)
Range(Cells(1), Cells(m%, sz%)).Interior.ColorIndex = 5
End SubKitehetsz hozzá egy gombot.
Új hozzászólás Aktív témák
- Kecskemét és környéke adok-veszek-beszélgetek
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Béta iOS-t használók topikja
- Milyen belső merevlemezt vegyek?
- Python programozás
- Borderlands 4
- Diablo IV
- Battlefield 6
- Mobil flották
- Nem indul és mi a baja a gépemnek topik
- További aktív témák...
- iPhone Air 256GB Asztrofekete 3 ÉV kiterjesztett garancia
- BESZÁMÍTÁS! GIGABYTE A520M R5 5600X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Rampage SHIVA CM 650W
- Honor Pad X9 / 4GB RAM 128 GB / Kártyafüggetlen / 12Hó Garancia
- iKing.Hu - Nubia Z70 Ultra 5G Black Teljes kijelzős zászlóshajó, AI-erejű teljesítmény
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest