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
305
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
Toiko Helen laivalastillisen vieraslajeja Suomeen?
Loviisan satamaan tuotiin laivalastillinen pähkinänkuoria Norsunluurannikolta Loviisan satamaan kiinnittyi vapun al1343227Elikkä Riikka Purra ei kannusta Suomea edes euroviisuissa
Sellaista on persujen "isänmaallisuus", oma kansa viimeiseksi ja ulkomaalaiset ensimmäisiksi. https://www.iltalehti.fi/732114Koulujen kesälomien siirto
Koulujen kesälomaa voitaisiin siirtää viikon verran. Se voisi olla hyvä kompromissi. Pääsiäsiseen voitaisiin lisätä muut1371805- 1261705
Riikka: 3 euron bensa, Ruotsi: bensavero jopa alle EU-minimin
Eipä vaan suomalainen autoilija saa kaikkien rakastamalta Riikalta sympatiaa. Ruotsissa on eri meininki, siellä diskutee241697- 1381355
Victoria-tytär, 16, vertaa Martina Aitolehteä ja Esko Eerikäistä: "Iskä on enemmän..."
Martina Aitolehti ja Esko Eerikäinen ovat ex-pari ja heillä on yksi yhteinen tytär, Victoria. Eerikäinen oli Huomenta Su1051192Nainen, mistä johtuu että joskus et vain ymmärrä?
Älä sitä, älä tätä. Ei niitä varoituksia turhaan sanota. Älä laita sormeasi sirkkeliin. Älä hengaile sen murhaaja poruka1441045"UKRAINA HYÖKKÄÄ LATVIAN ÖLJYVARASTOON JA JUNAAN"!!!
"MATKUSTAJAJUNA SAI UKRAINALAISLENNOKEISTA VAKAVIA VAURIOITA"!!!501014Yhä pyörit mielessä,
ja tällä kertaa huomasin yhden asian: Sinusta välittyi sellaista lempeyttä ja välittämisen tunnetta, jota ei voi unohtaa30944