Valor da variável global não está sendo traduzido do Userform para a Subrotina

Escrever Dim monthYearEntered As Stringno topo de um módulo declara a variável monthYearEnteredcomo global, mas seu escopo é limitado ao módulo onde a definição está. Isso significa que, fora do módulo, a variável é desconhecida.

Se você quiser que a variável seja acessível fora do módulo, você precisa declará-la usando a Globalpalavra-chave, não a Dimpalavra-chave .

Global monthYearEntered As String 

Como você declarou a variável com Dim, a declaração monthYearEntered = YearMonthField.Valueno formulário não pode escrever na variável - ela é simplesmente desconhecida lá. Há 2 possibilidades, mas no final das contas o resultado é o mesmo:

• Você tem uma variável monthYearEntereddeclarada no formulário. Esta é uma nova variável e não tem nada a ver com a variável que você declarou no módulo.

• Você não tem uma variável declarada no formulário:

  • Você não usa Option Explicitno formulário. Quando a rotina Click atinge a declaração de atribuição, o tempo de execução do VBA verá que, neste momento, monthYearEnteredé desconhecido para criá-lo em tempo real. Novamente, esta é uma variável diferente.
  • Você usa Option Explicit: O compilador irá reclamar.

Você pode verificar isso facilmente no editor VBA: mova o cursor sobre a variável e pressione Shift+F2

• Quando a variável é declarada localmente, o editor VBA irá pular para a declaração dentro do formulário
• Quando o formulário acessa uma variável declarada globalmente, o editor salta para a declaração dentro do módulo.
• Quando o formulário usa uma variável não declarada, você vê a mensagem "Identificador sob o cursor não é reconhecido" .
• Quando você move o cursor para algo que faz parte do ambiente VBA (uma função como Leftou Date, ou um objeto como Application), a janela do navegador de objetos é exibida.

Um exemplo: coloquei o seguinte código em um módulo1

Option Explicit

Global globVar As String
Dim dimVar As String

Sub test1()
    globVar = "global var from module1"
    dimVar = "dimmed var from module1"
    
    Debug.Print "Start in test1: ", globVar, dimVar
    test2
    Debug.Print "Back in test1: ", globVar, dimVar
End Sub

Agora crio outro módulo e coloco o seguinte código (note que por enquanto, Option Explicitestá desativado):

' Opção Explícita Sub test2() Debug.Print "Agora em test2: ", globVar, dimVar globVar = "substituído em test2" dimVar = "substituído em test2" Debug.Print "Ainda em test2: ", globVar, dimVar End Sub

Executando test1, você obtém a seguinte saída:

Start in test1:             global var from module1     dimmed var from module1
Now in test2:               global var from module1     
Still in test2:             overwritten in test2        overwritten in test2
Back in test1:              overwritten in test2        dimmed var from module1

Você pode ver que globVaré exibido em test2, e o novo valor atribuído é visto também ao retornar para test1. No entanto, imprimir dimVarem test2 não mostra nada: A variável é desconhecida naquele momento e criada instantaneamente. Você pode escrever nela, mas isso não é visto em test1 pois é uma variável diferente , apenas com o mesmo nome.

Se você ativar agora o Option Explicitno módulo2, você obterá um erro do compilador porque dimVaris unkwown. Se você adicionar agora uma declaração para dimVarinto module2 (para se livrar desse erro do compilador), você declara uma nova variável - o resultado é o mesmo: globVaré visível em ambos os módulos, mas dimVardo módulo1 não é.

Option Explicit
Dim dimVar As String
Sub test2()
    Debug.Print "Now in test2: ", globVar, dimVar
    globVar = "overwritten in test2"
    dimVar = "overwritten in test2"
    Debug.Print "Still in test2: ", globVar, dimVar
End Sub

(Mesma saída de antes)

Só para completar: se você adicionar uma declaração para globVarno módulo2, você ocultará a declaração de globVarno módulo1 e terá duas variáveis ​​diferentes.

Option Explicit
Dim globvar As String
Dim dimvar As String
Sub test2()
    Debug.Print "Now in test2: ", globvar, dimvar
    globvar = "overwritten in test2"
    dimvar = "overwritten in test2"
    Debug.Print "Still in test2: ", globvar, dimvar
End Sub

Agora você obtém

Start in test1:             global var from module1     dimmed var from module1
Now in test2:                             
Still in test2:             overwritten in test2        overwritten in test2
Back in test1:              global var from module1     dimmed var from module1

Se você quiser declarar uma variável "global" dentro de um formulário, não poderá usar a palavra-chave Global. O motivo é que um formulário é uma classe, e você pode ter várias instâncias de uma classe (você pode abrir um formulário mais de uma vez). Para tornar uma variável visível fora do formulário, use a palavra-chave public.

Código do formulário: Public formVar As String

Private Sub Ok_clicked
    formVar = "I was filled in the form"
    Me.Hide
End Sub

Código do módulo usando a instância padrão do formulário:

UserForm1.Show
Debug.Print UserForm1.formVar

ou usando uma instância explícita:

Dim frm as New UserForm1
frm.Show
Debug.Print frm.formVar

Note que você precisa usar Hidepara fechar o formulário. Se você usar o comando infame Unload, o objeto userform é destruído (removido da memória) e frm.formVarnão fica mais acessível.

Resumo:

• Usar Dimno nível do módulo declara uma variável no nível do módulo que é desconhecida em outros módulos
• Usando Globaldeclara uma variável que é conhecida em todos os módulos
• Em um formulário (ou um módulo de classe), você não pode definir uma variável Global. Para tornar uma variável acessível, declare-a como pública.
• Use sempre Option Explicitpara evitar que o tempo de execução do VBA crie variáveis ​​não declaradas dinamicamente.
• Em caso de dúvida, use Shift+F2 para ver onde uma variável é declarada.