Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Victoryus: Hp T630 thin client, htpc
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- GoodSpeed: Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- GoodSpeed: Egy bihari a Hajdúságban
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
-
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
-
Mutt
senior tag
válasz
Gandalf80 #19835 üzenetére
Hello,
2. Feladat:
Van-e arra mód, hogyha valaki áll egy cellába, akkor az adott sor színes legyen?Erre nem láttam még választ, de itt van pár lehetőség. A minta fájl letöltethető innen.
1. Tisztán VBA-val vhogy így megoldható:
Private korabbi As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim kijelol As Range
'elég csak 1 oszlopot megjegyeznünk
Set kijelol = Target.Resize(, 1)
'ha még nincs mit eltüntetni, akkor csak szinezünk
If korabbi Is Nothing Then
kijelol.EntireRow.Interior.Color = RGB(127, 127, 127)
Else
korabbi.EntireRow.Interior.Pattern = xlNone
kijelol.EntireRow.Interior.Color = RGB(127, 127, 127)
End If
Set korabbi = kijelol
End SubA kód a kijelölt sorokat átszinezi, ezért ha eleve ki van szinezve az adatsor, akkor ez elrontja azt.
2. Feltételes formázás
Ehhez kell egy rövid kód:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'válassz a lapon egy üres cellát, ahol tárolhatjuk az aktuális sor számát
Range("G1") = ActiveCell.Row
End SubHa ez megvan, akkor már csak egy feltételes formázást kell beállítani.
3. Add-in használata
A Kutools tud ilyet.üdv
-
válasz
Gandalf80 #19835 üzenetére
szia, az első kérdésedre tudom a választ, biztos leeht jobban is csinálni, de működik, én is csak most tanulom a dolgot.
Sub transzponalas()
ActiveSheet.Range("A1:B7").Copy 'itt adod meg a másolandó ranget amire épp szükséged van
'itt megadod a másolás helyét, a Munka2-t átírod a kívánt munkalap nevére, jelen esetben azt hiszem Kiküldve I, A1 cella
'helyére pedig a tartomány első celláját írod
Sheets("Munka2").Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
'Sheets("Munka2").Activate ha szeretnéd, hogy a másik munkalap legyen aktív ezután, akkor vedd ki e sor elejéről a '-t
Application.CutCopyMode = False 'ez megszünteti a kijelölést
End Sub
Új hozzászólás Aktív témák
- BESZÁMÍTÁS! ASROCK B650M R5 7600X 32GB DDR5 1TB SSD RX 6900XT OCF 16GB Zalman Z1 PLUS CM 1200W
- HGST HUH721010AL5200 10TB 7.2k SAS HDD, DELL branded, nettó 40000Ft + ÁFA, 1 év garancia
- HP 14 Elitebook 640 G9 FHD IPS i5-1235U 4.4Ghz 10mag 16GB 256GB Intel Iris XE Win11 Pro Garancia
- Katonai Rugged laptopok Panasonic Toughbook és Getac S410 6-11.gen gar.
- BESZÁMÍTÁS! Asus H370 i5 9600K 16GB DDR4 512B SSD RTX 2060 Super 8GB Chieftec HC-10B-OP Zalman 850W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest