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

106

    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. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      74
      3690
    2. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      201
      2992
    3. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      25
      2910
    4. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2768
    5. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      24
      2704
    6. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2465
    7. Miten hitsissä ulosoton asiakas?

      On tää maailma kumma, tässä haisee suuri kusetus ja ennennäkemättömän törkeä *huijaus*! Miten to.monen kieroilu on edez
      Kotimaiset julkkisjuorut
      254
      2203
    8. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      209
      1918
    9. Törmättiin tänään

      enkä taaskaan osannut reagoida fiksusti. Menen aina lukkoon. Yksi asia on varma: tunteeni sinua kohtaan ovat edelleen v
      Ikävä
      24
      1917
    10. Vieläkö sä

      Rakastat mua?❤️😔
      Ikävä
      44
      1867
    Aihe