Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Bom dia,

Associe a macro abaixo ao evento Seleção Alterada dos "Eventos de Planilha" (Menu Planilha > Eventos de Planilha)

Será somado +10 ao conteúdo da célula A1 sempre que ela for selecionada.

REM  *****  BASIC  *****

Global gDentro As Boolean 

Sub SelecaoAlterada( oCelula )
    ' Testar se o objeto selecionado é uma célula individual''
    If oCelula.ImplementationName <> "ScCellObj" Then Exit Sub

    ' Endereço da Célula'
    oEnd = oCelula.CellAddress    

    ' Celula A1 => coluna 0, linha 0'
    If oEnd.Column = 0 And oEnd.Row = 0 Then
      If Not gDentro Then
        oCelula.Value = oCelula.Value + 10
        gDentro = True
      End If
    Else
      gDentro = False
    End If

End Sub

Atte,

Bom dia,

Associe a macro abaixo ao evento Seleção Alterada dos "Eventos de Planilha" (Menu Planilha > Eventos de Planilha)

Será somado +10 ao conteúdo da célula A1 sempre que ela for selecionada.

REM  *****  BASIC  *****

Global gDentro As Boolean 

Sub SelecaoAlterada( oCelula )
    ' Testar se o objeto selecionado é uma célula individual''
individual'
    If oCelula.ImplementationName <> "ScCellObj" Then Exit Sub

    ' Endereço da Célula'
    oEnd = oCelula.CellAddress    

    ' Celula A1 => coluna 0, linha 0'
    If oEnd.Column = 0 And oEnd.Row = 0 Then
      If Not gDentro Then
        oCelula.Value = oCelula.Value + 10
        gDentro = True
      End If
    Else
      gDentro = False
    End If

End Sub

Atte,