- GoodSpeed: Samsung Galaxy A56 5G
- Flashback: Olcsó emulátoros kézi konzol R36S
- mefistofeles: Az elhízás nem akaratgyengeség!
- bambano: Bambanő háza tája
- dchard: GSM Nap az Informatika Történeti Kiállításon [2026.02.14.]
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- Elektromos rásegítésű kerékpárok
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
-
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
Én az eszköztárra tettem egy ikont, ami a kérdéses színeket megadja.
Sub Szín_lekérdezés()
If Selection.Font.ColorIndex = -4105 Then
MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " (automatikus)"
Else
MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
End If
If Selection.Interior.ColorIndex = -4142 Then
MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " (átlátszó)"
Else
MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
End If
End SubA subrutint a personal.xls-be tettem.
A két feltételt nem is kell belevenni, azok csak arra jók, hogy a -4105 és -4142-es színkódot könnyebben lehessen értelmezni.
Neked kétfelé kell vágnod a userformon ezt a rutint.
Új hozzászólás Aktív témák
- Elképesztő lemaradásban van az aktuális Loongson CPU-család
- Microsoft Excel topic
- NFL és amerikai futball topik - Spoiler veszély!
- Bittorrent topik
- Viccrovat
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Home server / házi szerver építése
- Egér probléma
- Kínai és egyéb olcsó órák topikja
- Forza sorozat (Horizon/Motorsport)
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- PC Game Pass előfizetés
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Sosemhasznált! HP OmniBook 5 i3-1315U 8GB 1TB 16" FHD+ Gar.: 1 év
- Csere-Beszámítás! Acer Nitro 5 AN515-57! I7 11800H / RTX 3050Ti / 16GB DDR4 / 512GB Nvme SSD!
- BESZÁMÍTÁS! Részletfizetés 0% THM ÚJ AMD RYZEN 8500G/7600/8700G/7800X3D processzor 3 év 27% áfa
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RTX 2060 6GB Rampage SHIVA Cooler Master 650W
- Lenovo Thunderbolt 3 kábel (4X90U90617)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50
