Hirdetés
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Xiaomi 15T Pro - a téma nincs lezárva
- Nagy aksival és erős hardverrel megjött Magyarországra a Poco X8 Pro és Pro Max
- Xiaomi Mi 9T Pro - tizenegyes!
- Külföldi prepaid SIM-ek itthon
- One mobilszolgáltatások
- Milyen okostelefont vegyek?
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Poco F5 - pokolian jó ajánlat
-
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
A lapfülek bal oldalán lévő nyilakon jobb klikkre függőlegesen megjelenik a lapok neve, onnan könnyebben kiválaszthatod a szükségeset.
Tehetsz ki gombokat is az első lapra, a gombokhoz tartozó makró ennyi:
sub ElsőLap()
sheets("ElsőLap").select
end subA makrók második sorában megadhatod a cellát, amelyikre szeretnéd, hogy ugorjon a kijelölés.
-
#9479
Fire/SOUL/CD
félisten
Swen_N
#9478
-
Delila_1
veterán
Az X, vagy x beírása az első sorba hozza működésbe a makrót.
Lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutsz, jobb oldalra másold be a makrót. Az Interior.ColorIndex = 3 -nál a 3 (piros) helyett megadhatsz más számmal más színt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And UCase(Target.Value) = "X" Then _
Columns(Target.Column).Interior.ColorIndex = 3
If Target.Row = 1 And UCase(Target.Value) = "" Then _
Columns(Target.Column).Interior.ColorIndex = xlNone
End Sub -
#8806
m.zmrzlina
senior tag
Swen_N
#8805
m.zmrzlina
senior tag
Jelöld ki a tartományt az elejétől a végéig (a képen ez A6:E14) utána Új formázási szabály>A formázandó cellák kijelölése képlettel.
A képlet pedig így néz ki:
=$D6<$B$3 (a 6-os elől vedd ki a $ jelet amit automatikusan betesz az excel ha a cellára kattintással jelölöd ki )
A második kérdésed érdekesebb arra nem tudom a választ. Nálam elég átírni akármelyik dátumot a D oszlopban és <Enter> után aktualizálja is a formátumot.
-
#8804
m.zmrzlina
senior tag
Swen_N
#8800
m.zmrzlina
senior tag
Nem tudom melyik verziót használod de az Excel2007-nél a következő lehetőség van az általad leírt probléma megoldására.
Először kijelölöd a tartományt amit formázni szeretnél, aztán Új formázási szabály>A formázandó cellák kijelölése képlettel.
Megadod a feltételt majd beállítod a formátumot. -
#8801
Fire/SOUL/CD
félisten
Swen_N
#8800
-
Delila_1
veterán
Itt egy másik megoldás, nem én követtem el, csak átvettem. A laphoz kell rendelni (lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra kell bemásolni. A cellára lépve megkapod a "célkereszt"-et.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
With .EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 36
End With
End Sub -
#8754
m.zmrzlina
senior tag
Swen_N
#8752
m.zmrzlina
senior tag
Biztosan van rá egyszerűbb megoldás is, nekem ezt sikerült kiötleni. Akkor használható ha a munkalap celláinak eredetileg nincsenek olyan háttérszinei amelyeket nem szeretnél törölni.
Úgy működik, hogy a cellába aminek a sorát és oszlopát ki szeretnéd emelni nyomsz egy dulpakattintást.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim sor As Long, oszlop As Long
'aktív cella azonosítók
sor = ActiveCell.Row
oszlop = ActiveCell.Column
Application.ScreenUpdating = False
'korábbi háttérszín törlése
Cells.Select
Selection.Interior.Pattern = xlNone
'aktív cellába vissza
Cells(sor, oszlop).Select
'aktív cella sorának háttérszíne
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 20
'aktív cellába vissza
Cells(sor, oszlop).Select
'aktív cella oszlopának háttérszíne
ActiveCell.EntireColumn.Select
Selection.Interior.ColorIndex = 20
'aktív cellába vissza
Cells(sor, oszlop).Select
Application.ScreenUpdating = True
End Sub
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Microsoft Office 2024 Home Business dobozos
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- The Elder Scrolls Online Imperial Collector s Edition
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Eladó egy adata 32gb 3200Mhz laptop ddr4 ram
- Dell Latitude 5290, 2 az 1 ben,12.5",FHD,i5-8350U,8GB DDR4,256GB SSD,WIN11
- Apple iPhone 13 256GB, Kártyafüggetlen, 1 Év Garanciával
- Tavaszi RAKTÁRSÖPRÉS!!! - Videókártyák, Monitorok, Notebookok, Stb. - Szaküzletből! Számlával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest