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

208

    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. S-kaupoissa on nykyään ihanaa käydä

      Kun niissä ei enää käy satuolentoihin uskovat hihhuIit eivätkä persut. Asiakaskunta on huomattavasti siistiytynyt muutam
      Maailman menoa
      268
      14375
    2. Riikka runnoo! Uutta velkaa tänä vuonna 17 mrd. euroa

      Tirsk. Nyt kyllä hihityttää kuin pientä eläintä. Riikka takoo maailmanennätyksiä tasaiseen tahtiin. " [Riikka] joutuu
      Maailman menoa
      67
      7285
    3. Jens Ihlen (ex Kukka) poika todistaa oikeudessa

      10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö
      Maailman menoa
      211
      7091
    4. Kela maksoi etuuksia 17,3 mrd. eur, yritykset sai 10,6 mrd.

      Tuohon päälle vietiin vielä palkansaajilta työeläkeloisille 27,5 miljardia euroa. Etenkin Suomen Sosialistiset Yrittäjä
      Maailman menoa
      60
      5135
    5. K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä

      vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon
      Maailman menoa
      113
      4872
    6. Näin tyhmä vasemmistolainen on: "S-kaupoissa on nykyään ihanaa käydä

      kun siellä ei ole hihhuleita eikä persuja." Vain tyhmä eli heikkoälyinen vasemmistolainen voi tehdä noin lapsellisia ju
      Maailman menoa
      75
      4724
    7. Suomeen ei kuulu ihmiset jotka ei halua kätellä toisia ihmisiä, koska tämä on vääräuskoinen

      Nainen joka ei halunnut kätellä Stubbia on selvästi ääripään muslimi, eli sitä sakkia josta niitä ongelmia koituu. Ulos
      Maailman menoa
      96
      4495
    8. PS:n Purra teki -JÄTTI-VELAT

      * * PS:n Purra teki -JÄTTI-VELAT - ! ja jätti MaksuHuolet -Kansan Maksettavaksi -! *
      Maailman menoa
      21
      4417
    9. Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin

      Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko
      Maailman menoa
      78
      4165
    10. Kysymys: Kuinka moneen maahan neuvosto-venäjä on hyökännyt

      viimeisten 90-vuoden aikana? Ja lähinnä on siis kyse neuvosto-venäjän naapurimaista - kuten Suomesta. Lista on huomatta
      Maailman menoa
      102
      3958
    Aihe