Excel - Deklarace

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Pavel123
Level 1
Level 1
Příspěvky: 91
Registrován: prosinec 06
Pohlaví: Nespecifikováno
Stav:
Offline

Excel - Deklarace

Příspěvekod Pavel123 » 01 led 2007 14:53

Dobrý den, můžete mi prosím někdo říct proč mi nefunguje kód2
když kód1 jedna funguje? Událost CommandButton1_Click() vždy
předchází události CommandButton2_Click().

Kód1, TextBox se jménem "MyTextBox" již existuje
CommandButton2_Click() funguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub

Kód2, TextBox se jménem "MyTextBox" vytvářím
CommandButton2_Click() nefunguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub

Jinými slovy, přestože v obou případech používám proměnnou MyObject
deklarovanou v sekci General a v obou případech ji nastavuji shodně
Set MyObject = ActiveSheet.OLEObjects(str).Object
Tak v kódu2 CommandButton2_Click() skončí hláškou
Object variable or With block variable not set
Moc dík za radu.
Pavel

Reklama
cukista
Level 1
Level 1
Příspěvky: 51
Registrován: srpen 05
Pohlaví: Nespecifikováno
Stav:
Offline

Příspěvekod cukista » 09 led 2007 14:18

... a nemas tam nahodou chybu v tom prikazu, kdy TextBox vkladas, myslim ten konec...

Kód: Vybrat vše

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str


nema to byt takhle?

Kód: Vybrat vše

Name:= str)


Ja jsem to nezkousel, jen mi to takhle prijde dost divne zapsane - metoda Add s parametry a za tim jeste jeji metoda...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6000
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    266
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1646
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2325
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1842
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti