Determina as propriedades exatas aplicadas pelo Button

Question

Digamos que eu clique em um botão no Excel como a formatação de vírgulas. Existe uma maneira de determinar os estilos exatos que se aplicam à seleção?

Estou tentando evitar navegar na árvore manualmente.

Como alternativa, se eu definir a cor da fonte para vermelho, embora isso seja óbvio, há uma maneira de tirar uma foto das propriedades do Excel antes e depois?

    

Answer 1

Bem, fiquei surpreso com isso, mas você basicamente pode começar a gravar uma macro em View - > Macros - > Record Macros .

A macro é então descartada sob alt + f11 em Módulo. Aqui está um exemplo.

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B10").Select
End Sub

    

Answer 2

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Private Sub AltPrintScreen()
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
Sub TakeSnapshot()
    Call AltPrintScreen
    SendKeys "^v"
End Sub

    

Answer 3

Sim, você só precisa executar uma macro com as propriedades que deseja visualizar:

Sub TellMeAboutIt()
    Dim testRange
    Set testRange = Range("A1")

    Debug.Print testRange.Interior.Color
    Debug.Print testRange.Font.Size
    Debug.Print testRange.Font.Bold
    Debug.Print testRange.Font.Italic
    Debug.Print testRange.Row
    Debug.Print testRange.Column
    Debug.Print testRange.Style

End Sub

Basta executá-lo antes e depois de fazer algo. Ou anexe-o a um evento. Como queiras. Dê uma olhada no Objeto de intervalo .