Centar za edukaciju-BiH

iCentar → Zabava → Trac partijanje


Prosiri i skupi Opcije teme
Stranice (310):1,2 ... 277,278,279,280,281 ... 309,310
 Prikazi prvu neprocitanu poruku

#2781 29.06.2018 19:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
E ja se tu ne mijesam vise.
Ja sam napravio tabele ali nisu moje prihvacene tako da dalje i nisam u toku.
Cini mi se da su i drugi napominjali da se ide u pogresnom smjeru.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2782 29.06.2018 19:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Sta je sa ovom temom.
http://icentar.ba/...e=1#p31566
a i sonja izgleda se preselila. Nema je vise.
Bas mi je zao.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2783 01.07.2018 09:19
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Citiraj zxz:
Sta je sa ovom temom.
http://icentar.ba/...e=1#p31566
a i sonja izgleda se preselila. Nema je vise.
Bas mi je zao.

i to ceka u redu.
-nazvo me prijatelj oce neki kontakt knjigu u accessu pa se sada mucim u tome
-bilo posla
-inace mi taj web prioritet, ali svaki dan nesto iskrsne pa reko sutra cu a sutra stalno sutra

evo sada se mucim i sa vb excel check box
imam 8 check boxova a uz njih txt box, kako cekirati jedan i pri tome da se ostalih sedam iskljuci automatski. Nikao mi ne uspijeva. To bi isto trebao staviti primjer ali toliko sam zaglibio sa obavezama da cu sutra, pa opet sutra i tako dani idu

jebajga
zivot je moja domovina.
↑  ↓

#2784 01.07.2018 12:54
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,866


Predmet:Re: dobro jutro, dobar dan...
Nema tu filozofije oko check box.
Na on_Clik na prvi check box stavis me.Check2.Value=False
me.Check3.Value=False
i tako dalje , taj kod stavis na svi check boxova
Ovaj post je ureden 1 puta. Posljednja izmjena 01.07.2018 12:54 od strane Gjoreski. ↑  ↓

#2785 02.07.2018 18:15
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Citiraj Gjoreski:
Nema tu filozofije oko check box.
Na on_Clik na prvi check box stavis me.Check2.Value=False
me.Check3.Value=False
i tako dalje , taj kod stavis na svi check boxova

hvala

vidi ovo, vba

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.  
  8.         dim arrImeFajla as string
  9.  
  10.         imeFajla=01_jankomir_20180604
  11.         arrImeFajla=Split(imeFajla,"_")
  12.  
  13.         brSkladista=arrImeFajla(0)
  14.         imeSkladista=arrImeFajla(1)
  15.         datum=arrImeFajla(2)
  16. end sub

a kako ovo? javlja gresku

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.         imeFajla=01_jankomir_20180604
  8.        
  9.         if ime2array(imeFajla)=false then msgbox "greska"
  10.  
  11.         imeFajla=02_zitnjak_20180702
  12.  
  13.         if ime2array(imeFajla)=false then msgbox "greska"
  14. end sub
  15.  
  16. function ime2array() as boolean
  17.         dim arrImeFajla as string
  18.         arrImeFajla=Split(imeFajla,"_")
  19.        
  20.         brSkladista=arrImeFajla(0) <=GRESKA compile error: expected array
  21.  
  22.         imeSkladista=arrImeFajla(1)
  23.         datum=arrImeFajla(2)
  24. end function
zivot je moja domovina.
↑  ↓

#2786 02.07.2018 19:48
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,866


Predmet:Re: dobro jutro, dobar dan...
A gde ti je putajne do fajla?
Ime fajla nije ti kompletno?
↑  ↓

#2787 02.07.2018 21:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
PreuzmiIzvorni kôd (Text):
  1. sub ucitajDatoteku()  
  2.  'odredi path
  3.    
  4.     Dim folderPath As String
  5.     Application.DefaultFilePath = Application.ThisWorkbook.Path
  6.    
  7.     'ekstenzija
  8.     Dim prihvaceneEkstenzije As String
  9.     prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
  10.                            
  11.     'otvori datoteku
  12.     FileToOpen = Application.GetOpenFilename _
  13.                 (Title:="izaberi datoteku za uvoz podataka", _
  14.                 FileFilter:=prihvaceneEkstenzije)
  15.                
  16.     'ako datoteka nije izabrana
  17.     If FileToOpen = False Then
  18.         MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
  19.         Exit Function
  20.     End If
  21.    
  22.     'ime datoteke koju smo uzeli
  23.     imeFajla = GetFilenameFromPath(FileToOpen)
  24. end sub

PreuzmiIzvorni kôd (Text):
  1. Public Function GetFilenameFromPath(ByVal strPath As String) As String
  2.     'UZMI IME IF FAJLA
  3.     ' npr. 'c:\winnt\win.ini' vraca 'win.ini'
  4.  
  5.     If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
  6.         GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
  7.     End If
  8. End Function
zivot je moja domovina.
↑  ↓

#2788 02.07.2018 21:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
PreuzmiIzvorni kôd (Text):
  1. sub ucitajDatoteku()  
  2.  'odredi path
  3.    
  4.     Dim folderPath As String
  5.     Application.DefaultFilePath = Application.ThisWorkbook.Path
  6.    
  7.     'ekstenzija
  8.     Dim prihvaceneEkstenzije As String
  9.     prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
  10.                            
  11.     'otvori datoteku
  12.     FileToOpen = Application.GetOpenFilename _
  13.                 (Title:="izaberi datoteku za uvoz podataka", _
  14.                 FileFilter:=prihvaceneEkstenzije)
  15.                
  16.     'ako datoteka nije izabrana
  17.     If FileToOpen = False Then
  18.         MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
  19.         Exit Function
  20.     End If
  21.    
  22.     'ime datoteke koju smo uzeli
  23.     imeFajla = GetFilenameFromPath(FileToOpen)
  24. end sub

PreuzmiIzvorni kôd (Text):
  1. Public Function GetFilenameFromPath(ByVal strPath As String) As String
  2.     'UZMI IME IF FAJLA
  3.     ' npr. 'c:\winnt\win.ini' vraca 'win.ini'
  4.  
  5.     If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
  6.         GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
  7.     End If
  8. End Function
zivot je moja domovina.
↑  ↓

#2789 03.07.2018 14:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Kako su samo vredni.
Umjesto dobro jutro bacaju se kodovima.
Hehehe
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2790 04.07.2018 07:12
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
dobro jutro
nevrijeme u zagrebu.
zivot je moja domovina.
↑  ↓

Stranice (310):1,2 ... 277,278,279,280,281 ... 309,310

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 5: 24 pm.