• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

tak uz som tam nasiel chybu ... v tych suborovh je navyse jedna ciarka tj. ma to viac stlpcov ako prvi riadok .... aj ked ten riadok je NULOVI

treba zistit pri akom subore to pada .... asi je dost mozne ze ten subor ma inu strukturu ako si poslal

alebo mas tam aj prazne subory? :) s tym som neratal

skus toto:

neviem preco ho nevidite ale napisem ho rovno do fota:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aImageName As String

Select Case Target.Address(False, False)
Case "E4:G4", "E4"
aImageName = "Image1"
Case "K4:M4", "K4"
aImageName = "Image2"
Case "E9:G9", "E9"
aImageName = "Image3"
Case "K9:M9", "K9"
aImageName = "Image4"
Case "E14:G14", "E14"
aImageName = "Image5"
Case "K14:M14", "K14"
aImageName = "Image6"
Case "E22:G22", "E22"
aImageName = "Image7"
Case "K22:M22", "K22"
aImageName = "Image8"
Case Else
End
End Select

On Error Resume Next
ActiveSheet.OLEObjects(aImageName).Object.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Target.Value2(1, 1) & ".jpg")
ActiveSheet.OLEObjects(aImageName).Object.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Target.Value & ".jpg")
On Error GoTo 0
End Sub


potom treba vytvorit v dokumente picture1 2 3 4 5 6 7 8 ... stu frame objecty

prilohu pls .) usetrite nam aj vam cas

skus toto:

skus toto:

nemozem to tu poslat tak dam sem kod

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "F4:H4" Then
On Error Resume Next
ActiveSheet.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Cells(3, 6) & ".jpg")
On Error GoTo 0
End If
End Sub


treba si potom tam vytvorit frame menom "Image1"

dajte si to do tabulky dany stlpec nastavte v podmienke napr. "> 800"

urobte si tu login a pridajte prilohu prosim vas :)) tak komplikovane

na kozy viem dat super obrazok z webu .))

s makrom sa da .... ale bez prilohy nechci hadat naco to potrebujete .)))

tak poprpsim prilohu neh viem o co ide

eLCHa: cyklus to je zivot :)) .... btw. snazim sa programovat tak aby som data necyklil ... zatial bezuspesne :)))

btw. netusim preco vam nefunguje to visible, keby fungovalo tak to makro prejde bezproblemov

edit. uz som si to vygooglil Office 2003 a nihsie nemalo moznost zneviditelnenia dokumentu

http://msdn.microsoft.com/en-us/library/office/aa215950(v=office.11).aspx

tak ADODB riesenie ... podla mna jedno z najrychlejsich a na filtrovanie najlepsie (pre labuznikou SQL-ka je idealne) ... samozrejme k tomuto rieseniu sa az tak nehodi .. preto som radsej chcel otvarat cez Open alebo add

... jedine v com je este hacik ze okrem cesty k suboru sa bude musiet zadavat aj range tabulky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje