Como fazer uma macro de comparação em ihm

Visual Basic 2010 Express Mais...Menos

Este artigo contém uma macro do Microsoft Visual Basic for Applications (procedimento Sub) que percorre todas as planilhas na pasta de trabalho ativa. Essa macro também exibe o nome de cada planilha.

A Microsoft fornece exemplos de programação apenas por questões ilustrativas, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um determinado propósito. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas. Para testar as macros de exemplo, execute as seguintes etapas:

Digite o seguinte código de macro em um novo módulo de planilha.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
Para executar a macro, posicione o ponto de inserção na linha "Sub WorksheetLoop()" e pressione F5.

A macro percorrerá a pasta de trabalho e exibirá uma caixa de mensagem com um nome de planilha diferente a cada vez que for executada. Observe que essa macro exibirá apenas os nomes de planilha; não exibirá os nomes de outros tipos de planilhas na pasta de trabalho.Você também pode percorrer todas as planilhas na pasta de trabalho usando um loop "For Each".

Digite o seguinte código de macro em um novo módulo de planilha.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
Para executar a macro, posicione o ponto de inserção na linha "sub WorksheetLoop2()" e pressione F5.

Essa macro funciona de forma idêntica à macro WorksheetLoop, exceto por usar um tipo diferente de loop para processar todas as planilhas na pasta de trabalho ativa.

Para obter mais ajuda com o Visual Basic for Applications, consulte o seguinte artigo na Base de Dados de Conhecimento da Microsoft:

163435 VBA: Recursos de programação para Visual Basic for Applications

226118 OFF2000: Recursos de programação para Visual Basic for Applications

VBA no Excel significa Visual Basic for Applications, que é a linguagem de programação da Microsoft. Para otimizar o desempenho e reduzir o tempo no Excel precisamos de Macros e o VBA é a ferramenta usada no backend.

Alguns links úteis para obter mais informações sobre macros e VBA no Excel:

1. Grave macros no Excel.

2. Como criar uma macro no Excel?

Neste artigo, vamos discutir vários operadores de comparação no Excel VBA.

Implementação:

Nas guias do Microsoft Excel, selecione a guia Desenvolvedor. Inicialmente, a guia Desenvolvedor pode não estar disponível.

A guia Desenvolvedor pode ser ativada facilmente por um processo de duas etapas:

Clique com o botão direito em qualquer uma das guias existentes na parte superior da janela do Excel.
Agora selecione Personalizar a faixa de opções no menu pop-down.

Na caixa de opções do Excel , marque a caixa Desenvolvedor para habilitá-la e clique em OK.

Agora, a guia Desenvolvedor está visível.

Agora clique na opção Visual Basic na aba Desenvolvedor e faça um novo módulo para escrever o programa.

Developer -> Visual Basic -> Tools -> Macros

Agora crie uma macro e dê qualquer nome adequado.

Isso abrirá a janela do Editor, onde pode escrever o código.

Operadores de comparação no Excel:

S.No.	Operadores	Definição
1	<>	O operador diferente é usado para comparar dois operandos. Se os dois operandos não são iguais, ele retorna TRUE, caso contrário, ele retorna FALSE. Por exemplo: A = 10, B = 20 A condição será TRUE para A <> B, uma vez que A e B não são iguais.
2	=	Operador igual é usado para comparar dois operandos. Se os dois operandos são iguais, ele retorna TRUE, caso contrário, ele retorna FALSE. Por exemplo: A = 20, B = 20 A condição será TRUE para A = B, uma vez que A e B são iguais.
3	>	O operador Maior que verifica se o operando do lado esquerdo é estritamente maior que o operando em RHS. Se for maior, ele retorna TRUE, senão FALSE. Por exemplo: A = 10, B = 5 A condição será TRUE para A> B, uma vez que A é maior que B.
4	<	O operador Menor verifica se o operando do lado esquerdo está estritamente menos do que o operando em RHS. Se for maior, ele retorna TRUE, senão FALSE. Por exemplo: A = 10, B = 5 A condição será FALSE para A <B, pois A é maior que B.
5	> =	Maior que igual ao operador verifica se o operando do lado esquerdo é maior ou igual ao operando em RHS. Se for maior ou igual, ele retorna VERDADEIRO, senão FALSO. Por exemplo: A = 10, B = 10 A condição será VERDADEIRA para A> = B, já que A é igual a B.
6	<=	Menor que igual ao operador verifica se o operando do lado esquerdo está menor ou igual ao operando em RHS. Se for menor ou igual, ele retorna TRUE, senão FALSE. Por exemplo: A = 5, B = 10 A condição será VERDADEIRA para A <= B, uma vez que A é menor que B.

Os operadores de comparação são usados principalmente com a instrução If Else Then no Excel porque os operadores de comparação retornam TRUE se a condição for atendida e FALSE se não for.

A sintaxe de If Else no Excel é:

If condition/expression Then Code Block for True Else Code Block for False End If

Vamos pegar um exemplo onde os valores de A = -1 e B = -5 e ver o código no Excel VBA para todos os operadores de comparação.

1. Igual a e Diferente de

Sub Comparison_Operator_Demo() 'Entering the numbers Dim A As Integer: A = -1 Dim B As Integer: B = -5 'Condition for Equal To If A = B Then MsgBox " A and B are equal" Else MsgBox " A and B are not equal" End If End Sub

No código acima, If a condição se torna FALSE, pois os valores A e B não são iguais. Portanto, o bloco de código dentro de Else será executado.

Sub Comparison_Operator_Demo() 'Entering the numbers Dim A As Integer: A = -1 Dim B As Integer: B = -5 'Condition for Not Equal To If A <> B Then MsgBox " True since A and B are not same" Else MsgBox " False since A and B are same" End If End Sub

No código acima, se a condição se tornar TRUE, pois A e B não são iguais. Portanto, o bloco de código dentro de If será executado.

2. Operador maior ou menor que:

Sub Comparison_Operator_Demo() 'Entering the numbers Dim A As Integer: A = -1 Dim B As Integer: B = -5 'Condition for Greater Than If A > B Then MsgBox " A is greater than B" Else MsgBox " A is not greater than B" End If End Sub

No código acima, If a condição se torna TRUE, pois A é maior que B. Portanto, o bloco de código dentro de If será executado.

Sub Comparison_Operator_Demo() 'Entering the numbers Dim A As Integer: A = -1 Dim B As Integer: B = -5 'Condition for Less Than If A < B Then MsgBox "True because A is less than B" Else MsgBox "False because A is greater than B" End If End Sub

No código acima, se a condição se tornar FALSE, pois A é maior que B. Portanto, o bloco de código dentro de Else será executado.

Da mesma forma, você pode fazer para os operadores Maior que igual a e Menor que igual .