-
Mobilarena
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
Hirdetés
- Kompakt vízhűtés
- Tőzsde és gazdaság
- Kormányok / autós szimulátorok topikja
- Melyik tápegységet vegyem?
- Óra topik
- Házimozi belépő szinten
- Kevesebb dolgozó kell az Amazonnak, AI veszi át a rutinfeladatokat
- Milyen processzort vegyek?
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Interactive Brokers társalgó
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Lenovo ThinkPad X270 (16) - i5-7300U, 16GB, 512GB SSD, 12" FULL HD
- BESZÁMÍTÁS! SAPPHIRE VEGA 64 8GB HBM2 videokártya garanciával hibátlan működéssel
- Bomba ár! Lenovo ThinkPad T470s - i5-6GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- Csere-Beszámítás! Számítógép PC Játékra! Intel I7 6700/ RX 580 8GB / 32GB DDR4 / 500GB SSD
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest