Tere,
Sooviks teha excelis andmebaasi kus ilmuks tootepilt kui hiirega toote nimepeal seista.
Kahjuks ei tea õiget väljendit juhiste otsimiseks vms.
Et äkki keegi saab aru mis ma soovin teha ja oskab ka õpetada? Või siis suunata õige raja peale.
Selle asja sain nüüd selgeks.
Aga kas kuidagi on võimalik, et kommentaar(pilt) ilmuks igal pool kus on vastav toote nimi kasutusel?
Nimelt kasutan data validationi listi. Et valesi nimesi ei saaks kasutada ja hiljem saaks analüüsida tabelit pivot tabeliga.
Leidsin midagi sellist, aga nagu videos see asi mul tööle ei hakka.
Ma arvan, et koodis on viga, salvestada ta ka ei lase enam.
tsitaat:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "G2" Then
NewPic = "C:\Users\PC\Desktop\TOOTED" & Range("J2").Value
Target.Comment.Shape.Fill.UserPicture NewPic
End If
Macro errorit ette ei viska, aga pilti kommentaaris ära ka ei vaheta.
Kasutan excel 2013
Muidugist ei tea ma veel kas on võimalik ja kuidas luua 100 kannet, nii et alati see kommentaari asi töötaks
Leidsin midagi sellist, aga nagu videos see asi mul tööle ei hakka.
Ma arvan, et koodis on viga, salvestada ta ka ei lase enam.
tsitaat:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "G2" Then
NewPic = "C:\Users\PC\Desktop\TOOTED" & Range("J2").Value
Target.Comment.Shape.Fill.UserPicture NewPic
End If
Märgata seal kohe ka viga: "G2" vs "$G$2"
Target.Comment.Shape.Fill.UserPicture NewPic ei funka ka mul, kuid egas ole aega ka süveneda probleemi.(Mul OFF 2010)
Commentis pilti kuvada? Vöimalik aga kas lkka otstarbekas?
Kergem ehk nii: http://www.upload.ee/files/4235762/Pildid.xlsm.html
Fail tema avamisel laeb exceli lehele nimekirja SAMAS KAUSTAS asuvatest *.jpg failidest.
Nimekirjas e. lahtris klikkimisel kuvatakse samas pilt failist.
Kergem ehk nii: http://www.upload.ee/files/4235762/Pildid.xlsm.html
Fail tema avamisel laeb exceli lehele nimekirja SAMAS KAUSTAS asuvatest *.jpg failidest.
Nimekirjas e. lahtris klikkimisel kuvatakse samas pilt failist.
See lahendus sobiks väga hästi, aga mul oleks vaja saada jpg failide list C tulpa ja pilt peaks olema kuvatud klikitud lahtrist üleval pool. Muidu segab edasist tabeli täitmist.
Kahjuks on VBA parooli all, ja natukene riskantne häkkimis programme kasutada.
Oskab keegi sellise koodiga aidata või siis paroolist vabaneda?
Näiteks LibreOffice peaks suutma minuteada vaadata/näidata suvalist parooli all olevat MS Office VBA koodi. Või uuemate Officite korral see nii pole? Pildid.xlsm VBA koodi igatahes näitab.
Aga no proovi siis 5DCTFY
Muutsin siis koodi.
Vaata lahtreid AB1...AB4 ja katseta seal nende väärtustega kuni leiad enam-vähem sobiva.
Päris ideaalselt Excel küll ei käitu aga enam-vähem soovitava tulemuse peaks saama.
Muutsin siis koodi.
Vaata lahtreid AB1...AB4 ja katseta seal nende väärtustega kuni leiad enam-vähem sobiva.
Päris ideaalselt Excel küll ei käitu aga enam-vähem soovitava tulemuse peaks saama.
http://www.upload.ee/files/4241853/Pilte.xlsm.html
Väga häsi töötab see osa mis tegid. Kiitus selle eest.
Aga nüüd jama sellega, et sihi päraselt ikka kasutada ei saa. Tegin listi c1-c200, et seda siis hiljem rippmenüüna kasutada c200 ja edasi väljadel( siis näen pilti ikka sell hetkel kui vastava pildi (detaili) valin). Algselt on kõik ilus kuni salvestan faili ja uuesti avan. Avamise hetkel kustutab kogu c tulba ära. Kas annab piirata seda nimekirja mis pildi failidest koostab piirata 1-200 reaga? Et kõik mis c201 ja edasi lahtris alles jääks.
Või siis koostab piltidest nimekirja ac tulbal näiteks, aga pildi kuvab kui valida C-tulbast vastav pildi nimi.
Sellepärast oligi algfailis koodis: NewImage.Top = ActiveCell.Top ehk pilt kuvati klikitava lahtri körval aga Sa soovisid kergitada pilti kõrgemale.
tsitaat:
See lahendus sobiks väga hästi, aga mul oleks vaja saada jpg failide list C tulpa ja pilt peaks olema kuvatud klikitud lahtrist üleval pool. Muidu segab edasist tabeli täitmist.
Kui sa soovid, et faili laetakse pildid ainult üks kord siis:
Mine exceli lehe tab-ile ja sellel hiire parempoolse nupuga klick ning hiire menüüst ava: View Code, seejärel Properties aknast Thisworkbook modules'is asenda kood järgnevaga.
S.t. nimekiri moodustatakse ainult siis, kui lahter C1 on tühi ehk nimekirja pole veel.
Private Sub Workbook_Open()
Dim sFileNm As String, i As Long
Sheets("Sheet1").Select
i = 1
sFileNm = Dir(sPath, vbNormal) 'Get the first file from the specified directory
Do While sFileNm <> ""
If Right(sFileNm, 4) = ".jpg" Or Right(sFileNm, 4) = ".JPG" Then
ActiveSheet.Cells(i, 3).Value = sFileNm
i = i + 1
End If
sFileNm = Dir
Loop
sPath = ""
End If
End Sub
Mis puutub:
tsitaat:
Kas annab piirata seda nimekirja mis pildi failidest koostab piirata 1-200 reaga? Et kõik mis c201 ja edasi lahtris alles jääks.
siis sellest ma aru ei saa?
Selgita uuesti või veel parem oleks, kui oma faili seletustega PS-i paned.
sa ei või postitada uusi teemasid siia foorumisse sa ei või vastata selle foorumi teemadele sa ei või muuta oma postitusi selles foorumis sa ei või kustutada oma postitusi selles foorumis sa ei või vastata küsitlustele selles foorumis sa ei saa lisada manuseid selles foorumis sa võid manuseid alla laadida selles foorumis
Hinnavaatlus ei vastuta foorumis tehtud postituste eest.
:: KKK
:: otsing 
:: statistika
:: kasutajate nimekiri
:: kasutajate grupid
:: registreeri
teata moderaatorile
