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
173
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
- 1191682
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi991508Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy37963Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M29889Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?38841Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm50806Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s43758Olet myös vähän ärsyttävä
Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.37750Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56748Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet37720