- Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
- Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Egészen nagy teljesítményspektrumon fedné le a mobil piacot az AMD
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- VR topik (Oculus Rift, stb.)
- Logitech Z906
- Vezetékes FEJhallgatók
- Milyen egeret válasszak?
- Kormányok / autós szimulátorok topicja
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Modern monitorokra köthető 3dfx Voodoo kártya a fészerből
- Gaming notebook topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen alaplapot vegyek?
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
ph A cég megoldása centralizált vezérelhetőséggel, masszív radiátorral és robusztus ventilátorokkal igyekszik vásárlásra csábítani.
Aktív témák
-
MaciLaci68
csendes tag
Szervusztok,
Az alábbi makró szerepe hogy ha az aktív cellának van neve, akkor azt A1 cellába beírja.
Kicsit bonyolult lett, az összes nevet átnézi a program és ha az aktív cella címe egyezik valamelyik név címével akkor megvan a tettes.
Szóval nekem csak az aktív cella neve kellene egy egyszerűbb módszerrel. Kínomban találtam ki ezt a bonyolultat.Sub NEVEKRE_hivatkozás()
aktívcella = ActiveCell.Address
Lap = ActiveSheet.Name
aktívcellacím = "=" & Lap & "!" & aktívcellanévszám = ActiveWorkbook.Names.Count
For i = 1 To névszám
On Error Resume Next
nevekcímei = ActiveWorkbook.Names(i).RefersToLocal
If nevekcímei = aktívcellacím Then
név = ActiveWorkbook.Names(i).Name
Range("A1") = név
Else
End If
NextEnd Sub
Aktív témák
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Vírusirtó, Antivirus VPN kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."