Adicionado em: | 27/07/2011 |
Modificado em: | 27/07/2011 |
Tamanho: | Vazio |
Downloads: | 0 |
Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esses procedimento e macros do Aplicativo Microsoft Excel VBA, com auxlio do Evento SelectionChange, colore as linha(s) e Coluna(s) da célula ativa,
também inserí com finaldidade didática um loop contador que insere as cores e numeros correpondentes na planilha auxiliar.
Espero que o exemplo lhes sejam útil. Fiquem com Deus. Expedito Marcondes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static vCelulaAtiva As Range
If Not vCelulaAtiva Is Nothing Then
vCelulaAtiva.EntireRow.Interior.ColorIndex = xlColorIndexNone
vCelulaAtiva.EntireColumn.Interior.ColorIndex = xlColorIndexNone
Target.Value = ""
End If
Target.EntireRow.Interior.ColorIndex = 36
Target.EntireRow.Font.ColorIndex = 10
Target.EntireColumn.Interior.ColorIndex = 4
Target.Value = "Saberexcel_VBA_Treinamentos®"
Set vCelulaAtiva = Target
End Sub
Sub cores_numeros_vb()
[A2].Select
For i = 1 To 56
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next i
[d1].Select
End Sub
Sub limpar_celulas_teste()
Saber2.[A2:B100].Clear
Saber1.Cells.ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 05/10/2011 |
Modificado em: | 09/01/2012 |
Tamanho: | Vazio |
Downloads: | 1185 |
Escola Saberexcel VBA Estudos e Treinamentos, Macros Fórmulas e Funções
Esse macro do aplicativo Microsoft Excel VBA(Visual Basic Application), deleta todas as linhas vazias no intervalo de células usados na coluna(A).
Sub deletar_linhas_em_branco()
On Error GoTo err:
Range(Range("A65000").End(xlUp), Range("A2")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[C2].Value = "VAZIAS DELETADAS"
Exit Sub
err: MsgBox ("não existe linhas vazias na área usada"), vbInformation, "Saberexcel - o site das macros"
[C2].Value = "VAZIAS INEXISTENTES" 'caso o usuario insista em deletar linhas vazias sem existir.
End Sub
Sub copiar_teste()
[a].Copy [b] 'copiando área de células(a) para célula(renomeada como(b))
[C2].Value = "deletar vazias"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Excel planilha vba deletar linhas vazias
Adicionado em: | 09/01/2012 |
Modificado em: | 09/01/2012 |
Tamanho: | Vazio |
Downloads: | 1245 |
Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções
Esse Planilha faz parte das planilhas treinamento:
LOCALIZAR, IDENTIFICAR, DESLOCAR DADOS - PLANILHAS CELULAS LINHAS E COLUNAS
o objetivo desse exemplo é localizar e identificar a primeira e ultima linha da coluna(G) identificar
em seguida, selecionar a mesma área de linha na coluna[c]; e colorí-la em amarelo. Observe que ao executar o Macro, o código "Clearformats' retira a formatação das células, para facilitar a identificação do resultado teste com o macro. a medida que for expandindo a digitação na coluna(G), também irá afetar a coluna(C). (----->) - se colore o intervalo de células em amarelo, isso quer dizer, que voce pode, copiar, negritar, sublinhar, recortar, deletar, etc ..... espero que o exemplo possa lhe ser útil. Fique com Deus.
(*) - não deixe de ver nosso trabalho:
120 - Planilhas de Loops (Excelente planilhas exemplos com todas instruções loops)
PLANILHAS - trabalhando com deslocamento de dados em Células, linhas e colunas.
' - - - - - - - - - - - - - - - - - - - - - - - - - -
Const s = vbInformation
Const b = "Escola Saberexcel VBA Estudos®"
' - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub selecionar_numero_linhas_correspondentes_colC()
Dim x As Range
[a].ClearFormats
UL = Range("G650000").End(xlUp).Row '.Value 'definir a UL(UltimaLinha)
PL = Range("G2").End(xlUp).Row '.Value 'definir a PL(Primeira Linha)
MsgBox "UL(Ultima Linha): [ " & UL & " ] - PL(Primeira Linha) [ " & PL & " ]", s, b
'Range("c" & UL & ":" & "c" & PL).Select 'seleciona também
Set x = Range("c" & UL & ":" & "c" & PL) '.Select
x.Select
x.Interior.ColorIndex = 36
[h1].Select
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 03/05/2011 |
Modificado em: | 03/05/2011 |
Tamanho: | Vazio |
Downloads: | 952 |
Saberexcel o site de quem precisa aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere linhas em branco alternadas às linhas existentes em uma determinada planilha, e atendendo ao pedido da Silvia, Campinas-SP, que pede uma forma bem simples de copiar dados de determinada folha planilha para outra folha de planilha. Silvia, observe que no macro Copiar_para_teste(), abaixo eu nomeei as células a serem copiadas da folha de planilha auxiliar como 'dados', e também a célula(A1) da folha de planilha que receberá os dados como 'sba', observe
Sub Inserir_cinco_linhas_branco()
Dim vLinhasBranco As Long, rgLocaliza As Range, rgLinha As Range
Dim arrInserirLinhas() As String, vLinhaArray As Long
vLinhasBranco = 5
With Saber1 'determinando a planilha
Set rgLocaliza = .Range("A1:A14") 'select range to test
ReDim arrInserirLinhas(1 To 1)
For Each rgLinha In rgLocaliza.Rows
If rgLinha.Row > 1 Then 'skip row 1
If rgLinha.Cells(1, 1) <> rgLinha.Offset(-1, 0) Then
arrInserirLinhas(UBound(arrInserirLinhas)) = _
rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco) & _
":" & (rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco)) + vLinhasBranco - 1
vLinhaArray = UBound(arrInserirLinhas) + 1
ReDim Preserve arrInserirLinhas(1 To vLinhaArray)
End If
End If
Next rgLinha 'inserir Linhas
For vLinhaArray = LBound(arrInserirLinhas) To UBound(arrInserirLinhas)
If arrInserirLinhas(vLinhaArray) <> "" Then
.Rows(arrInserirLinhas(vLinhaArray)).Insert Shift:=xlDown
End If
Next vLinhaArray
End With
End Sub
'Silvia aqui esta a macro auxiliar para ajudar na realização do teste, como expliquei acima, tentei simplificar ao máximo a macro copiar e colar,
'atendendo seu pedido. Espero que o exemplo os ajude, Fique com Deus, Boa Sorte. Expedito Marcondes.
Sub copiar_teste()
[dados].Copy [sba]
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 22/04/2011 |
Modificado em: | 22/04/2011 |
Tamanho: | Vazio |
Downloads: | 1056 |
Saberexcel - site dos que precisam aprender Microsoft Excel VBA(Visual Basic Application)
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), tem por finalidade inserir o total de lançamentos em determinada área de folha de planilha, observe que o exemplo poderá ajudá-lo muito na conclusão de um relatório.
Usando a WorksheetFunction ContA (que corresponde a Funçao do Excel Cont.Valores()), o macros com variáveis que verificam o número de linhas e colunas usadas, vão inserir o total dos lançamentos efetuados na folha folha de planilha.
Não deixe de ver as 340 Planilhas Exemplos de worksheetFunctions, desenvolví uma para cada Função do Excel, e onde foi possível inserir a worksheetFunction para ilustrar o exemplo foi feito.
Sobre as 340 Planilhas worksheetfunction funções de planilhas retornam valores vba
Sub Contando_lancamentos()
Dim vLinhas
vLinhas = Range("A65000").End(xlUp).Row + 2 'observe que será lançado após tres linhas abaixo
Range("A" & vLinhas) = "Total Lançamentos efetuados...:'"
Range("G" & vLinhas) = Application.WorksheetFunction.CountA(Range("A1:A" & vLinhas)) - 1
Range("H" & vLinhas) = "Lançamentos'"
End Sub
Caso você queira inserir a fórmula conta.valores na célula J28,
veja que usei o gravador de macro para capturar o código da fórmula e inserí aqui,
Sobre Gravador de macros é o objeto de estudo de nosso Caderno_1, do Curso Completo Microsoft Excel VBA
Domime bem esse assunto do Gravador de Macros. ajuda muito aos iniciantes. Fiquem com Deus - Expedito Marcondes
Sub Inserindo_formula_contar()
[J28].FormulaR1C1 = "=COUNTA(R[-26]C[-9]:R[22]C[-9])"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA