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

178

    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. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      180
      6567
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      148
      1814
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1588
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1310
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      47
      1019
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      40
      973
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      98
      942
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      869
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      243
      853
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      819
    Aihe