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

285

    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. Kuinka Riikka Purra on parantanut Suomen kansalaisen elämää?

      Haastan kaikki perussuomalaisten kannattajat kertomaan konkreettisia esimerkkejä kuinka Riikka Purran harjoittama politi
      Maailman menoa
      243
      4778
    2. Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava

      valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak
      Maailman menoa
      86
      2317
    3. Kehu kaivattuasi

      Mikä hänessä on parasta? Jos osaat kertoa muuta kuin ulkonäköön liittyvää, niin ansaitset mitalin.
      Ikävä
      117
      1500
    4. Mahtavaa, Trump pelasti lentäjän, Irania nöyryytettiin

      https://www.is.fi/ulkomaat/art-2000011917601.html Taas osoitus kuinka ylivertainen maa USA on Trumpin johdolla.
      Maailman menoa
      319
      915
    5. Minkälaisen viestin

      Laittaisit ikävöinnin kohteelle, jos rohkenisit?
      Ikävä
      72
      864
    6. Keskiviikkona 8.4.2026 se tapahtuu

      Nimittäin tulevana keskiviikkona 8.4.2026 Donald Trump ilmoittaa Naton pääsihteerille että Yhdysvallat eroaa Natosta. N
      NATO
      270
      839
    7. Miten voit olla niin tyhmä

      että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle
      Tunteet
      112
      756
    8. Rakastin sua niin paljon ettei löydy sanoja sille tunteenpalolle mitä silloin koin

      Sellaista tunnetta ei koe kuin ehkä kerran elämässä. Tuntui, että sekoaa, että menee järjiltään. Tuntui että räjähtää si
      Ikävä
      33
      747
    9. Hitto mulla

      On sinua ikävä ihana.
      Ikävä
      38
      716
    10. Millaisena uskot

      Kaivattusi kokevan tunteensa?
      Ikävä
      67
      672
    Aihe