Co myslíš tím číselníkem?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Provázaní nekolika číselníků
MS Excel
Téma: Provázaní nekolika číselníků 
Zaslal/a 16.1.2014 18:24
Zdravim,potreboval bych prosim poradit.
Mam 4 číselníky, každý z těchto číselníků ma hodnoty 0 a 1.
Ja bych ty ciselniky potreboval provázat mezi sebou tímto zpusobem.
Kdyz hodnota císelniku 1 bude rovna 1,tak vsechny ostatní číselníky musi mit hodnotu 0.
Tohle potrebuju aplikovat na kazdy císelnik zvlast, tzn. Kdyz hodnota ciselniku 2=1, budou ostatní císelníky mít hodnotu 0.
Snad jsem to popsal spravne,tim,ze zkousim vic veci naraz,zacinam uz z tech funkci a vypoctu jako amater plnou hlavu 
(16.1.2014 18:41)#017312
(16.1.2014 18:52)#017313
(16.1.2014 21:03)#017314
vlož do modulu příslušného listu a kdyžtak pouprav čísla číselníků.
Private Sub SpinButton1_Change()
If SpinButton2 = 1 Or SpinButton3 = 1 Or SpinButton4 = 1 Then
SpinButton1 = 0
End If
End Sub
Private Sub SpinButton2_Change()
If SpinButton1 = 1 Or SpinButton3 = 1 Or SpinButton4 = 1 Then
SpinButton2 = 0
End If
End Sub
Private Sub SpinButton3_Change()
If SpinButton1 = 1 Or SpinButton2 = 1 Or SpinButton4 = 1 Then
SpinButton3 = 0
End If
End Sub
Private Sub SpinButton4_Change()
If SpinButton1 = 1 Or SpinButton2 = 1 Or SpinButton3 = 1 Then
SpinButton4 = 0
End If
End Subcitovat
Private Sub SpinButton1_Change()
If SpinButton2 = 1 Or SpinButton3 = 1 Or SpinButton4 = 1 Then
SpinButton1 = 0
End If
End Sub
Private Sub SpinButton2_Change()
If SpinButton1 = 1 Or SpinButton3 = 1 Or SpinButton4 = 1 Then
SpinButton2 = 0
End If
End Sub
Private Sub SpinButton3_Change()
If SpinButton1 = 1 Or SpinButton2 = 1 Or SpinButton4 = 1 Then
SpinButton3 = 0
End If
End Sub
Private Sub SpinButton4_Change()
If SpinButton1 = 1 Or SpinButton2 = 1 Or SpinButton3 = 1 Then
SpinButton4 = 0
End If
End Subcitovat
(16.1.2014 21:40)#017315
Muzes mi prosim popsat nejak trochu podrobneji ten postup "Vloz do modulu"
Ocividne jsem si ukrojil trochu vetsi krajic,nez jsem mel. Jsem amater a cekal jsem,ze jsem se zaseknul opet na nejake blbosti a ze cely muj problem pujed resit pomoci nejakych funkci.
O makrech a modulech nevim zatim vubec nic
citovat
Ocividne jsem si ukrojil trochu vetsi krajic,nez jsem mel. Jsem amater a cekal jsem,ze jsem se zaseknul opet na nejake blbosti a ze cely muj problem pujed resit pomoci nejakych funkci.
O makrech a modulech nevim zatim vubec nic
citovat(16.1.2014 21:54)#017316
Použij přepínače, nabývají hodnot 0 nebo jedna a pokud je jich na listu víc, tak zapnutí jednoho vypne ostatní. A máš to bez maker.citovat
(16.1.2014 22:31)#017317
Prepinace jsem zkousel,ale asi jsem je esce spravne nepochopil,protoze mi proste nefunguji... to za prve a za druhe, ja ty ciselniky potrebuju kvuli designu a celymu konceptu.
Je to simulator pro PC hru a ty prepinace se mi tam vubec nehodi,kdyz mam vsude prave ty ciselnikycitovat
Je to simulator pro PC hru a ty prepinace se mi tam vubec nehodi,kdyz mam vsude prave ty ciselniky
citovat
Chybí mi takový detail. Píšete "číselníky", takže se asi bavíme o Ovládacích prvcích na listu? Kdyby to bylo ve UserForm, napsal byste pravděpodobně SpinButton.
Takže pokud se nepletu, tak druhá věc - jde o formulářový prvek nebo ActiveX?
lubo naznačil, že přesně k tomu slouží přepínače, nemusíte nic psát, ale pokud z estetických důvodů potřebujete číselník a jedná se o ActiveX budete potřebovat událost SpinButton_Change, pokud formulář, tak asi Worksheet_Change (formulářové prvky nepoužívám, ale asi budete muset provázat každý prvek s buňkou, abyste vyvolal proceduru)
Jedno vím určitě, kdybyste se zaregistroval a vložil sem přílohu, tak už to máte vyřešené.citovat
Takže pokud se nepletu, tak druhá věc - jde o formulářový prvek nebo ActiveX?
lubo naznačil, že přesně k tomu slouží přepínače, nemusíte nic psát, ale pokud z estetických důvodů potřebujete číselník a jedná se o ActiveX budete potřebovat událost SpinButton_Change, pokud formulář, tak asi Worksheet_Change (formulářové prvky nepoužívám, ale asi budete muset provázat každý prvek s buňkou, abyste vyvolal proceduru)
Jedno vím určitě, kdybyste se zaregistroval a vložil sem přílohu, tak už to máte vyřešené.citovat
@cmuch
To nebude fungovat. Napsal jste to tak, že pokud je jiný SB roven 1, tak ten který měníte nepude nastavit na 1 a požadavek je aby se ostatní vynulovaly ;) .
Navíc bych využil subprocedury, abych v případě úprav nemusel měnit 4 procedury, ale pouze 1
Zhruba nějak takto:Private Sub subSpinButtonChange(sb1 As SpinButton, sb2 As SpinButton, sb3 As SpinButton, sb4 As SpinButton)
If sb1.Value = 1 Then
sb2.Value = 0
sb3.Value = 0
sb4.Value = 0
End If
End Sub
Private Sub SpinButton1_Change()
Call subSpinButtonChange(SpinButton1, SpinButton2, SpinButton3, SpinButton4)
End Sub
Private Sub SpinButton2_Change()
Call subSpinButtonChange(SpinButton2, SpinButton1, SpinButton3, SpinButton4)
End Sub
Private Sub SpinButton3_Change()
Call subSpinButtonChange(SpinButton3, SpinButton2, SpinButton1, SpinButton4)
End Sub
Private Sub SpinButton4_Change()
Call subSpinButtonChange(SpinButton4, SpinButton2, SpinButton3, SpinButton1)
End Subcitovat
To nebude fungovat. Napsal jste to tak, že pokud je jiný SB roven 1, tak ten který měníte nepude nastavit na 1 a požadavek je aby se ostatní vynulovaly ;) .
Navíc bych využil subprocedury, abych v případě úprav nemusel měnit 4 procedury, ale pouze 1
Zhruba nějak takto:Private Sub subSpinButtonChange(sb1 As SpinButton, sb2 As SpinButton, sb3 As SpinButton, sb4 As SpinButton)
If sb1.Value = 1 Then
sb2.Value = 0
sb3.Value = 0
sb4.Value = 0
End If
End Sub
Private Sub SpinButton1_Change()
Call subSpinButtonChange(SpinButton1, SpinButton2, SpinButton3, SpinButton4)
End Sub
Private Sub SpinButton2_Change()
Call subSpinButtonChange(SpinButton2, SpinButton1, SpinButton3, SpinButton4)
End Sub
Private Sub SpinButton3_Change()
Call subSpinButtonChange(SpinButton3, SpinButton2, SpinButton1, SpinButton4)
End Sub
Private Sub SpinButton4_Change()
Call subSpinButtonChange(SpinButton4, SpinButton2, SpinButton3, SpinButton1)
End Subcitovat
(17.1.2014 13:43)#017337
Já vycházel z toho, že budou všechny v 0 a pak se nějaký změní. A ostatní pak nepůjdou měnit dokud nebudou zase všechny v 0.
ŠPATNĚ JSEM TO TEDY POCHOPIL
citovat
ŠPATNĚ JSEM TO TEDY POCHOPIL
citovat(17.1.2014 16:16)#017343
Asi se spatne a neodborne vyjadruju,takze se timto omluvam a pokusim se to nejak upresnit.
a) Autor 1 - Takže pokud se nepletu, tak druhá věc - jde o formulářový prvek nebo ActiveX?
Jsem amater,nevim,jaky v tom je rozdil
b) Autor 2 - Já vycházel z toho, že budou všechny v 0 a pak se nějaký změní
Tohle je pravda, protni hodnota je u vsech O.
Pro lepsi pochopeni a orientaci udelam screan ... ocividne jsem si vazne ukousnul malinko vetsi sousto a esce vam tu motam hlavy,takze se zaroven omlouvamcitovat
a) Autor 1 - Takže pokud se nepletu, tak druhá věc - jde o formulářový prvek nebo ActiveX?
Jsem amater,nevim,jaky v tom je rozdil
b) Autor 2 - Já vycházel z toho, že budou všechny v 0 a pak se nějaký změní
Tohle je pravda, protni hodnota je u vsech O.
Pro lepsi pochopeni a orientaci udelam screan ... ocividne jsem si vazne ukousnul malinko vetsi sousto a esce vam tu motam hlavy,takze se zaroven omlouvamcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články