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
204
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
Mihin kaikkeen sinä ihastuit hänessä
Mikä oli se asia mikä vei jalat altasi? ❤️ Oliko jotain erityistä tilannetta vai tunne? Kenties monen sattuman summa? Ai949127Persut: haluamme lisää veroja!
Lisää lisää veroja huutaa persukuoro. Veroila Suomi nousuun! "Uusi matkailuvero eli matkailijamaksu peritään esimerki564809Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.
https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.414501Jos samassa autossa istuu romani, somali ja venäläinen, kuka ajaa?
Arvioiden mukaan romanit lähtivät noin 1000-luvulla liikkeelle pohjois-Intiasta. Nyt 1000 vuotta myöhemmin he ovat levit532823Numero josta kaivattusi tulee mieleen
Onko jokin numero joka yhdistää teidät jotenkin? Älä laita puhelinnumeroa.1001546- 401336
Tämmönen höpsö
Höpönassu mä olen. En mikään erikoinen…hölötän välillä ihan levottomia. Tykkäisit varmasti jos olisin siellä sun vieress441276Heräsin taas sinä mielessä
Miten voi haluta toista näin paljon? 😳 Kyllä meillä on muutenkin hyvä yhteys. Ehkä se tekee myös tästä niin voimakkaan?641222Jorman paluu sodasta Lieksaan oli katkera
Jorma Karhunen astui Lieksan asemalle. Aurinko paistoi, mutta Jorman maailma oli sumuinen. Takana oli se helvetti, jota411189Kannattaa toimia yleisesti ottaen
Ajoissa. Vaikka miten paljon haluan ja tunnen, olen löytänyt nyt elämääni jotain uutta ja se todennäköisesti edistyy, jo1681140