Olisi tarkoitus muuttaa samalla tavalla monia userformeja :
Sub Muuta(nimi)
With UserForms(nimi)
...
End With
En saanut toimimaan. Ikäänkuin toimisi, mutta käytännössä mikään ei muutu. Jos argumentin esittelee ( nimi As UserForm), sitä ei tunnisteta ollenkaan. Onko jokaiselle tehtävä erikseen samanlainen rutiini?
Näin sain toiminaan :
With UserForm1
...
End With
With UserForm2
...
End With
jne.
UserFormien muuttaminen
UserForms
4
208
Vastaukset
- Kundepuu
ilmeisesti halusit tehdä muutokset design- tilassa eikä run- time?
moduuliin...
Sub Muuta()
Dim Ctrl As Object
For i = 1 To 2 'muuta oikea määrä lomakkeita
With ThisWorkbook.VBProject.VBComponents("UserForm" & i).Designer
For Each Ctrl In .Controls
If TypeName(Ctrl) = "TextBox" Then
Select Case Ctrl.Name
Case "TextBox1"
With Ctrl
.ControlTipText = "Anna nimi"
.BackColor = RGB(255, 127, 127)
.Text = "1"
End With
Case "TextBox2"
With Ctrl
.Locked = True
.BackColor = RGB(127, 255, 255)
.Text = "2"
End With
Case Else
With Ctrl
.PasswordChar = "*"
.BackColor = RGB(127, 127, 255)
End With
End Select
End If
Next Ctrl
End With
Next
End Sub
Keep EXCELing
@Kunde- UserForms
Vielä jäi ongelmaksi, miten pääsisin käsiksi formin otsikkoon. Rivi
.Caption ="uusi otsikko"
ei muuta otsikkoa, vaan tekee otsikkopalkin alapuolelle ylimääräisen rivin. Onko se bugi?
Tähän uuteen ei edes pääse käsiksi formieditorilla. Sillä voi muuttaa vain alkuperäistä yläpalkissa olevaa otsikkotekstiä. - Kundepuu
Haluatko siis muuttaa formin otsikkoa vai mitä?
ei ymmärrä... - UserForms
Kundepuu kirjoitti:
Haluatko siis muuttaa formin otsikkoa vai mitä?
ei ymmärrä...Kaikkia pitää muuttaa. Otsikon muuttaminen ei onnistunut tuolla keinolla, ilmestyi vain se ylimääräinen haamurivi. Ratkaisin asian lopulta suunnilleen kuten olin sitä ensin kaavaillutkin. Sanat muutetaan UserForm_Activate -rutiinista. Viisastenkivi ja ongelman avain oli jättää vain aliohjelmakutsusta sulkeet pois. Kummallista. En ole sellaiseen vaatimukseen aiemmin törmännyt.
Muutatekstit (Me) ' Ei toimi
Muutatekstit Me ' Tämä toimii
Sub Muutatekstit( UF As Object )
With UF
...
End With
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Jens Ihlen (ex Kukka) poika todistaa oikeudessa
10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö2489335Riikka runnoo! Uutta velkaa tänä vuonna 17 mrd. euroa
Tirsk. Nyt kyllä hihityttää kuin pientä eläintä. Riikka takoo maailmanennätyksiä tasaiseen tahtiin. " [Riikka] joutuu1497670K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä
vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon1495231Suomeen ei kuulu ihmiset jotka ei halua kätellä toisia ihmisiä, koska tämä on vääräuskoinen
Nainen joka ei halunnut kätellä Stubbia on selvästi ääripään muslimi, eli sitä sakkia josta niitä ongelmia koituu. Ulos1494917PS:n Purra teki -JÄTTI-VELAT
* * PS:n Purra teki -JÄTTI-VELAT - ! ja jätti MaksuHuolet -Kansan Maksettavaksi -! *504623Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin
Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko1044325Kysymys: Kuinka moneen maahan neuvosto-venäjä on hyökännyt
viimeisten 90-vuoden aikana? Ja lähinnä on siis kyse neuvosto-venäjän naapurimaista - kuten Suomesta. Lista on huomatta1284154- 1661917
Nainen, sanotaan että totuus tekee kipeää
Ehkä mutta se voi olla myös se kaikkein kamalin asia kohdata. Kuplassa on turvallista, kun tietää vähemmän on helpompi.91729Valtio lopettaa pienituloisten perheiden kylpylälomien tukemisen
Pienituloiset suomalaiset ovat voineet vuosikymmenten ajan hakea tuettuja lomia terveydellisin, sosiaalisin ja taloudell2821567