Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Variável global com...
 
Notifications
Clear all

Variável global como criar e inicializar ?

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
544 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos confesso, que não estou conseguindo criar e inicializar uma variável global.

Coloquei a variável col acima de todas as funções, dá erro

Qual o procedimento que se deve realizar para criação desta variável

Tenho a seguinte estrutura

Dim col As Integer
col = 2 'NÃO INICIALIZA

Private Sub CommandButton1_Click()
             CalculaHorasPorDia objPlanilha.Name, i
End Sub

Sub CriaHorasTrabalhadas(col As Integer)
End Sub

Sub CalculaHorasPorDia(nomePlanilha As String, ByVal i As Integer)

      col = 10 'DESEJO MUDAR O VALOR DA VARIÁVEL GLOBAL
      CriaHorasTrabalhadas(col)
  
End Sub
 
Postado : 13/09/2016 10:16 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Tenta assim

Private Col as integer

Sub teste ()

Col = 2

End Sub

 
Postado : 13/09/2016 10:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigo, voltei aqui para informar que havia feito isto, agorinha de pouco e que havia funcionado kkkkkk, mas você chegou primeiro kkkkkkkkkk

Vou agradecer

Obrigado

 
Postado : 13/09/2016 10:47 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Para Variaveis Globais, temos de Declara-las como "Public" e não Private.

Public Col AS Integer - estamos declarando somente a Variável Col como Publica podendo ser utilizada em qualquer rotina.

Para definirmos um "VALOR" fixo e deixa-lo como Public (Global) neste caso o correto seria Declara-lo como uma "Constante", ficando :
Public Const col = 2

Lembrando que como foi atribuido um valor a Constante "Col", este não poderá ser alterado no decorrer da Rotina em que será utilizada, ou seja será sempre "2"

[]s

 
Postado : 13/09/2016 10:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico