Excel VBA pomoc se vzorcem
Dobrý den, mám vzorec VBA a potřebuji, aby se to samo aktualizovala.
Vyhledává obrázek když do buňky F5 pomocí svyhledat se vyhledá číslo např.: 002 tak to vyhledá obrázek
ale neaktualizuje se to samo. Můžete mi, prosím pomoci, aby to aktualizovalo samo.
Děkuji
Vzorec je:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
Dim N As String
Const Cesta = "F:\002. Fotky Osobností\"
N = Cells(5, 6)
If N <> "" Then
N = Cesta & N
Select Case True
Case Len(Dir(N & ".png")) > 0: Call ZmenObrazok(N & ".png")
Case Len(Dir(N & ".jpg")) > 0: Call ZmenObrazok(N & ".jpg")
Case Len(Dir(N & ".gif")) > 0: Call ZmenObrazok(N & ".gif")
Case Len(Dir(N & ".bmp")) > 0: Call ZmenObrazok(N & ".bmp")
End Select
Else
Shapes("imgHDD").Fill.Solid
End If
End If
End Sub
Private Sub ZmenObrazok(S As String)
Shapes("imgHDD").Fill.UserPicture (S)
Jen tak pro pořádek:
index.php
Siki,
takže časopriestorový skokan Eilsa to už vyriešil...
nuž... proste hľadal, kde sa dá... Ale tie vysvetlenia požiadaviek, či už tu alebo tam, sú neskutočne zmätočné... Terminológia a chápanie mimo...
Bolo zrejmé, že je to sotva jeho výtvor, s takými formuláciami požiadaviek ťažko čosi takého mohol vytvoriť, ale ok... Lenže takýmto prístupom bude večne odkázaný na zlepence čiastkových riešení z rôznych strán...
Etkin, to je pre Teba.
(ak si sa už vrátil pozrieť i sem z Wall...)
Ak sa tomu ozaj chceš venovať, začni štúdiom základov Office, aby si vedel vôbec pomenovať prvky a nástroje týchto programov. Potom by bolo fajn trocha viac sa oboznámiť s funkciami Excelu a potom, ako ďalší krok, sú základy VBA. Až potom môžeš chcieť ako-tak rozumieť makrám.
Alebo Ti nevadí sa zas a znova, bez pokroku, pýtať amatérske dotazy bez toho, aby si vlastne vedel vysvetliť, o čo Ti ide? (trebárs ako má Eilsa vysvetliť, že akú ikonu chce kam vlastne vložiť)? Ak sa tomu chceš venovať, tak musíš zmeniť prístup. Inak je to k ničomu...
Můj příspěvek možná vyzněl jinak než byl zamýšlen.
Ale jó, já mu to neberu. Sám mám na různých fórech jiný nick. Kdyby napsal
tak si toho ani nevšimnu, ale tohle
mě prostě praštilo do očí, tak sem kouknul "vedle". Kdyby alespoň vlepil celý kód nebo napsal, už sem to vyřešil jinde a dal odkaz.
Trefil by mě šlak, když něco hledám na fórech kde je ve vlákně spousta návrhů a nakonec se dozvím jen suché konstatování VYŘEŠENO
Prostě sem vlepil odkaz i pro další, kteří se ve vlákně nějakým způsobem angažovali.
naviac žiadny OBR_Z_VYHLEDANI v tejto poradni nikde vo svojom vzore nemal, nenašiel som ho nikde... Až keď si dal ten link, tak ma napadlo, že to bude asi odtiaľ
Proste ping-pong... Skladajú mu to ľudia z rôznych fór
A už toho nechaj, poďme spať
