none
THIS existe no VBA? RRS feed

  • Pergunta

  • Olá, 
    Sou novo no fórum e preciso saber se o This que existe no JavaScript também existe no VBA Excel, ou se tem outra referência parecida. Exemplo:

    Sub ComboBox1_Change()
        MinhaFuncao This
    End Sub

    Sub MinhaFuncao(Obj1)
        MsgBox Obj1.Value 'mostra o texto da seleção do combobox
        MsgBox Obj1.ListIndex 'mostra o índice da seleção do combobox
    End Sub

    Grato!


    • Editado Wilker12 segunda-feira, 2 de julho de 2018 18:46
    segunda-feira, 2 de julho de 2018 18:39

Respostas

  • O mais proximo do "This" é o "Me", mas cuidado. VBA nao é uma linguagem orientada a objeto. Modulos sao classes estaticas e nao possuem Me.

    Se no seu caso ComboBox1 esta em formulario voce pode usar como referencia

     MinhaFuncao Me![ComboBox1] 


    Agora se ele esta um uma folha, entao voce tem que usar 

    MinhaFuncao ActiveSheet.DropDowns("ComboBox1")


    Resumindo: Vai depender de onde esta o combobox.

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    • Marcado como Resposta Wilker12 terça-feira, 10 de julho de 2018 01:07
    quarta-feira, 4 de julho de 2018 16:27

Todas as Respostas

  • O mais proximo do "This" é o "Me", mas cuidado. VBA nao é uma linguagem orientada a objeto. Modulos sao classes estaticas e nao possuem Me.

    Se no seu caso ComboBox1 esta em formulario voce pode usar como referencia

     MinhaFuncao Me![ComboBox1] 


    Agora se ele esta um uma folha, entao voce tem que usar 

    MinhaFuncao ActiveSheet.DropDowns("ComboBox1")


    Resumindo: Vai depender de onde esta o combobox.

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    • Marcado como Resposta Wilker12 terça-feira, 10 de julho de 2018 01:07
    quarta-feira, 4 de julho de 2018 16:27
  • Grato, William.
    terça-feira, 10 de julho de 2018 01:07