Miten saan Exelin VBA User Formissa toimimaan niin, että kun mulla on useampi check box, niin aina kun painaa check boxin valituksi, niin viereiseen labeliin tulee tekstiä.
Olen saanut niin että kun yhden boxin painaa valituksi, niin teksti ilmestyy labeliin, mutta ongelma ilmeneekin siinä vaiheessa kun valitsen kaksi check boxia aktiiviseksi. Kuinka saan näkymään sekä ekan boxin tekstin labelissä, sekä tokan boxin tekstin?
Esimerkkinä vaikka, että minulla on check boxeissa valittava mantereita ja haluan, että labeliin tulee näkyviin valittuun mantetereeseen kuuluvat maat. esim.
x Eurooppa -> labelissa lukee: Suomi, Ruotsi, Viro
x Aasia -> labelissa lukee sekä euroopan maat sekä aasian maat
Sekavasti selitetty, mutta toivottavasti joku edes tajusi ;)
VBA User Form ja CheckBoxit
1
338
Vastaukset
- vb2005
Option Explicit
Dim valitut_maat As Long
Private Sub UserForm_Initialize()
valitut_maat = 0
End Sub
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
valitut_maat = valitut_maat 1
Else
valitut_maat = valitut_maat - 1
End If
muutateksti
End Sub
Private Sub CheckBox2_Change()
If CheckBox2.Value = True Then
valitut_maat = valitut_maat 2
Else
valitut_maat = valitut_maat - 2
End If
muutateksti
End Sub
Private Sub CheckBox3_Change()
If CheckBox3.Value = True Then
valitut_maat = valitut_maat 4
Else
valitut_maat = valitut_maat - 4
End If
muutateksti
End Sub
Sub muutateksti()
Dim s As String
If valitut_maat And 1 Then
s = "Suomi, Ruotsi, Viro"
If valitut_maat > 1 Then
s = s ", "
End If
End If
If valitut_maat And 2 Then
s = s "Kiina, Indonesia"
If valitut_maat > 3 Then
s = s ", "
End If
End If
If valitut_maat And 4 Then
s = s "Sambia, Egypti"
End If
Label1.Caption = s
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Voisin jopa maksaa että saisin nähdä sut mies
Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?741370Tumman vihreä mercedes
Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,11930Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?
"Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol79872Käyttäkää kumia kajaanilaisten naisten kanssa
Elkää ottako riskiä ilman kumia kun saattaa käydä niin että sinusta tuleekin isä lapselle ja elättäjä molemmille.89779Tunnusmerkkejä Kaivatulle
Jotain mistä toinen tunnistaa. Täällä vaalea nainen kaipaa miestä jolla vaaleat hiukset ja asuu maalla. Pelataanko kortt51684- 53654
Oletko nainen enää täällä?
En ole tunnistanut kirjoituksiasi hetkeen. Ainoastaan yhdessä neutraalissa ketjussa, missä ei ollut kyse tunteista. Hyv44595Pakkomielle
Tahdon pyytää anteeksi, että olen kaivannut sinua kaikki nämä vuodet ja olet ollut minulle pakkomielle. Nyt on aika pääs46594Jymyuutinen: Suomen talous kasvaa hurjaa vauhtia
https://www.iltalehti.fi/talous/a/11fba8a8-a7fb-44f4-a58b-f129f6d5bdf5 Akavan pääekonomistin mukaan Suomen kokonaistuot133586Hurmasit sitten minut
kauneudellasi nainen ja kun sait minut rakastumaan itseesi muutuit ihan porsaaksi etkä välitä vartalostasi enää yhtään.45547