UserFormien muuttaminen

UserForms

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.

4

184

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      323
      7075
    2. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      71
      4258
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      208
      3155
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2937
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1952
    6. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      149
      1781
    7. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      212
      1746
    8. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      165
      1560
    9. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1548
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1438
    Aihe