- Red Magic 11 Air – vékony házból süvít a szél
- Csíptetős fülesek csatája – Sony LinkBuds Clip vs. Huawei FreeClip 2
- Mérföldkő a szilárdtest-akkuknál: fontos lépést tett a QuantumScape
- Újabb óriásakku a Honortól: a X80 lehet a következő 10 000 mAh-s modell
- iPhone 18 Pro Max: kis kapacitásbővítés hoz nagy előrelépést üzemidőben
- iPhone topik
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Ezek a OnePlus 12 és 12R európai árai
- Bemutatkozott a Poco X7 és X7 Pro
- OnePlus 15 - van plusz energia
- Yettel topik
- Itt az első hivatalos poszter a Galaxy S26 Ultrához
- Fotók, videók mobillal
- Milyen okostelefont vegyek?
- Samsung Galaxy S10e - esszenciális
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- MasterDeeJay: RAM gondolatok: Mennyi a minimum? DDR3 is jó?
-
Mobilarena

Új hozzászólás Aktív témák
-
dancers
csendes tag
Sziasztok!
Szeretném a segítségeteket kérni.
Az lenne a problémám excelben, hogy ha agy cella értéke 1, akkor jelenjen meg egy kép, de ha a cella értéke 2 lesz, akkor egy másik kép jelenjen meg.
Sehogy sem tudom megoldani, mert nem tudok programozni, de a feladathoz amit kaptam már csak ez hiányzik.
Írtam már a prog.hu-ra, ott nem segítettek, a pcforum.hu:
A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = False
End If
If Target = 2 Then
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = True
End If
End If
End SubA "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.
de hiába másoltam be, nem csinált semmi.köszönöm szépen
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Apple iPad 8 (2020) 10.2 128GB 91% akku megkímélt, szép állapot
- AMD 7500F Tray 2028 novemberig garanciával
- DJI NEO drón 3 akkumulátorral +tok +ND szűrők
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 66921Ft+ÁFA
- -ÚJ- 2x8GB 3600MHz Apacer NOX hűtőbordás DDR4 kitek! GAR/SZÁMLA (a Te nevedre kiállítva)!
- HP Elitebook X360 830 G7,Multi-Touch 2 az 1-ben,i5-10310U,16GB DDR4,256GB SSD,WIN11
- Apple iPhone 13 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Keresünk iPhone 16/16 Plus/16e/16 Pro/16 Pro Max
- Új és újszerű 15-16 Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest



