Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
iCentar » Forum » Racunari i oprema » Softver i operativni sistemi » Ms office » excel vba promijeni button kad je pritisnut » Odgovori na temu

Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → excel vba promijeni button kad je pritisnut


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


Avko (02.12.2019 21:52):
Predmet: Re: excel vba promijeni button kad je pritisnut
Å alio sam se za programere.

nego , idemo dalje. U primjeru kojeg sam stavio javlja mi gresku. Htio sam na Form 2 napraviti button no nisam uspio.
Zna li netko kako add commandbutton na userform2

zxz (02.12.2019 20:31):
Predmet: Re: excel vba promijeni button kad je pritisnut
Hehe po time onda ni ja sebe nemogu smatrati programerom jer koristim zip.
Zip koristim iz prostog razloga sto koristim komander a na njemu je ugradjen zip.
rar ili zip svejedno je mada koliko znam od prije da rar to moze malo bolje sbit ali nije to nesto da bi prevagnulo bar kod mene.
Zip je koliko ja znam nastao prije ili bolje reci ja sam prije do njega dosao jos kad je bio dos 3.3 pa je imao tri exe fajla pkzip pkunzip i pkzipfix ako nisam zaboravio.
Sve je to samo navika po meni i nista drugo.

Avko (02.12.2019 13:12):
Predmet: Re: excel vba promijeni button kad je pritisnut
@Zxz
nisam puno ustedio na ovome:

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub CommandButton1_Click()
  2.    Dim Broj As CommandButton
  3.    Set Broj = Me.ActiveControl
  4.    Call string2array(Broj)
  5.    Call ButtonCaptions(Broj)
  6. End Sub

jedino je korisno sto sam naucio kako napraviti object od commandbuttona pa pretpostavljam da ce mi u daljnem radu to jednom dobro doci.

sto se tice funkcije broj_slovo nije mi radilo kako sam zamislio vjerojatno jer nisam dobro objasnio.
Gdje god se nalazi slovo A u stringu "ABCEGF" treba ga zamijeniti sa odgovarajucim brojem tj. brojem koji je na poziciji A stringa u cons str.

Malo sam to preuredio a pomoglo mi to sto si napisao. Znaci, procitamo poziciju izabranog broja.
Npr. broj 23 je na 4 mjestu. Sada pogledamo koje slovo je na 4 mjestu u cons str a to je D slovo i onda u kombinaciji slovo D zamjenimo brojem 23, a procitamo ga iz arr(4).

Da, malo je komplicirano za shvatiti ali kad bi trebam jos jednom objasniti nebi znao. Kako je komplicirano za objasniti tako je komplicirano i za izvesti.

@Dex

ZIP i RAR, dva su brata

ZIP ima bolju podrÅ¡ku, raÅ¡ireniji je i većina operativnih sustava ima ugrađenu podrÅ¡ku za njega, ali RAR ima bolju kompresiju. Tako bar kazu, lazem ja ako lazu drugi.
RAR datoteke se takode koriste, ali za njihovo stvaranje potreban je WinRAR, koji je komercijalni softver, pa je malo manje rasiren od ZIP formata.
WinRar čuva izvorne datume kreiranja mapa
RAR datoteku mogu potpisati , tako da se moze vidjeti tko ju je napravio.

E sad, neko mi je rekao da ako želim biti kul i reci drugima da sam programer i da se ozbiljno bavim programskim jezicime i stručnjak sam u informatici slat cu komprimirane datoteke u RAR formatu, a obična raja koristi ZIP. Tako su mi rekli, ja sada neznam jeli to stvarno tako ili nije.

ali evo i u ZIP-u, office je 2007, sa omogucenim razvojnim okruzenjem (develope) i naravno preveden.

dex (01.12.2019 12:58):
Predmet: Re: excel vba promijeni button kad je pritisnut
@Avko, ne mogu otvoriti ovo tvoje, spakuj u zip

Jednostavnije bi ti bilo da napravis pomocnu tabelu, koji znak menjas kojim, i onda pomocu funkcije vlookup da zamenis, vidi primer. Onda nadalje svaki put samo menjas u pomocnoj koji znak odgovara kojem, bez ikakve promene u kodu

zxz (30.11.2019 00:27):
Predmet: Re: excel vba promijeni button kad je pritisnut
PreuzmiIzvorni kôd (Visual Basic):
  1. Function broj_slovo(broj As String)
  2. Dim broj_int As Integer
  3. Dim i As Integer
  4. Const str = "ABCDEFG"
  5.  
  6. broj_int = Int(broj)
  7. If broj_int > 0 Then
  8.     For i = 1 To 7
  9.         If i = broj_int Then
  10.         broj_slovo = Mid(str, i, 1)
  11.         Exit For
  12.         End If
  13.     Next i
  14. End If
  15. End Function
a ti se sam snadji kako impementirati

napisao si da je i broj string.

zxz (29.11.2019 21:14):
Predmet: Re: excel vba promijeni button kad je pritisnut
PreuzmiIzvorni kôd (Visual Basic):
  1. Function string2array(Broj)
  2.    
  3.     Dim brojac As Long
  4.     Dim arr As Variant
  5.     Dim izborBrojevaTemp As String
  6.  
  7.     strBroj = Broj.Caption
  8.     '=== ako izborBrojeva nije prazan ===
  9.    If Not izborBrojeva = Empty Then
  10.         'ako je ponovljen broj
  11.        If InStr(1, izborBrojeva, strBroj) > 0 Then
  12.             arr = Split(izborBrojeva, ",")
  13.             For brojac = 0 To UBound(arr) - 1
  14.                 If arr(brojac) <> strBroj Then
  15.                     izborBrojevaTemp = izborBrojevaTemp & arr(brojac) & ","
  16.                 End If
  17.             Next brojac
  18.             izborBrojeva = izborBrojevaTemp
  19.             ukupnoBrojeva = ukupnoBrojeva - 1
  20.            
  21.             GoTo ispisi
  22.            
  23.         Else 'ako broj nije ponovljen
  24.            If ukupnoBrojeva = 20 Then
  25.                 MsgBox "Izabrali ste max. broj brojeva!"
  26.                 Exit Function
  27.             End If
  28.             izborBrojeva = izborBrojeva & strBroj & ","
  29.         End If
  30.    
  31.     Else
  32.         izborBrojeva = strBroj & ","
  33.     End If
  34.    
  35.     arr = Split(izborBrojeva, ",")
  36.     ukupnoBrojeva = UBound(arr)
  37.    
  38. ispisi:
  39.     UserForm1.TextBox2.Value = "": UserForm1.TextBox2.Value = ukupnoBrojeva
  40.            
  41.     If Len(izborBrojeva) > 0 Then
  42.         UserForm1.TextBox1.Value = ""
  43.         UserForm1.TextBox1.Value = Left(izborBrojeva, Len(izborBrojeva) - 1)
  44.     Else
  45.         UserForm1.TextBox1.Value = ""
  46.     End If
  47.  
  48. End Function

kad radis sa form2 kontrolama.
ovo stavi na sve tastere
samo kopiras umjesto tvog koda.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub CommandButton1_Click()
  2.    Dim Broj As CommandButton
  3.    Set Broj = Me.ActiveControl
  4.    Call string2array(Broj)
  5.    Call ButtonCaptions(Broj)
  6. End Sub

Sad mi je jasnije malo sta hoces.
Mozda bi se brojevi mogli automatizirati
da kompjuter sam odabere brojeve.
Neznam dali bi ti to pasalo.

Avko (28.11.2019 12:55):
Predmet: Re: excel vba promijeni button kad je pritisnut
ma jok, bice da nisam dobro objasnio sto mi treba ili nisam znao ni di staviti ovo tvoje ni kako pokrenuti.
Juce izgubi cijeli dan na stvar koju bi neko rjesio za minut.

Zakacicu primjer. Automatski se pokrene. Radi mi samo za broj 1, mijenja boju.
Trebam staviti za svaki buton_click to pa ce sve raditi.

Ono sto sam htio napraviti je da mi detektirati klikom misa koji je button pritisnut pa da promjeni boju, al dobro ce biti i ovako necemo komplicirat.

nego trebao bi jos i zamjenu stringa sa vrijednostima drugog stringa;

stringA="1,2,3,4,5,6,7" - odabrani brojevi
stringB="A,B,C,D,E,F,G" - svakom broju dodijelimo slovo

array(1,1)="A,C,D" - kombinacija
array(1,2)="A,C,F" - kombinacija

promjeniti array(1,1) tako da bude array(1,1)="1,3,4"
zamijeniti slova za brojeve

zxz (28.11.2019 01:09):
Predmet: Re: excel vba promijeni button kad je pritisnut
i sta bi.
radi li ovo ?

zxz (26.11.2019 22:19):
Predmet: Re: excel vba promijeni button kad je pritisnut
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If ActiveCell.Interior.ColorIndex = 2 Then
  3.     ActiveCell.Interior.ColorIndex = 6
  4.     Else
  5.     ActiveCell.Interior.ColorIndex = 2
  6.     End If
  7. End Sub

Avko (26.11.2019 21:18):
Predmet: excel vba promijeni button kad je pritisnut
Imamo listic lota na kojem biramo brojeve.

1. Kada pritisnem neki broj trebalo bi ga nekako oznaciti da je pritisnut, a kada ga opet pritisnemo onda ga odznacimo.

2. nisam znao napisati kod kojim cu otkriti koji je button pritisnut vec sam uneo svih 45 buttona pa za svaki gledam dali je pritisnut, dali postoji mogucnost neke provjere dali je neki gumb pritisnut?

hvala

Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 5: 13 am.