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
193
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
En minä kyllä enää odota sinua
Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O402002Taas pedofiliatuomio Haapaveelle
Vastenmielisiä ja vakavia rikostapauksia pikkupaikkakunnan alueellekin näyttää riittävän. Tämän alan rikoksien tuomiot411677Jos joku luulee että kaikki käy
Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn611515Joka kolmas työtön on työkyvytön
Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais1811436Sakin hivutus - ilmiö
Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok681239Ei ole rohkeutta tulla jututtamaan
Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var81221Julkinen saunatilanne Haapavedellä, tämä on täyttä paskaa!
Eilen Haapaveden uimahallin saunassa koettu tilanne oli täysin käsittämätöntä ja helvetin järkyttävää. Ladyboy harjoitti19953- 63914
Mitä tapahtuu?
Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?17913Kuhmon K-kaupan vanhenevat hapannaamat kassoilla
Pitemmän aikaa olen ihmetellyt kaverin kanssa miksi Kuhmon K-kaupassa on aina tympeimmät kassattöntekijät? Kesällä tulee14855