Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- mefistofeles: A furcsa hobbi.....
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- Gurulunk, WAZE?!
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
- Lalikiraly: Kinek milyen setupja van?
-
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
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
Fferi50- HIBÁTLAN iPhone 12 Pro 512GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3684, 100% Akkumulátor
- Logitech G513 Carbon Tactile DE (3) (ELKELT)
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest