Adicionado em: | 05/03/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 548 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) , copia as medidas das colunas determinadas na folha de planilha(Plan2)
para a planilha planilha(Plan1).
Sub copiar_medida_colunas_para_outra_plan()
Dim X As Byte
Dim Y As Long
Dim Z As Integer
Application.ScreenUpdating = 0
For X = 1 To 12 'planilhas
For Y = 1 To 20 'para 20 linhas
For Z = 1 To 20 'para 20 colunas
Plan1.Range("A" & Y).RowHeight = Plan2.Range("A" & Y).RowHeight
Plan1.Columns(Z).ColumnWidth = Plan2.Columns(Z).ColumnWidth
Next Z
Next Y
Next X
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
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
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: | 08/05/2011 |
Modificado em: | 08/05/2011 |
Tamanho: | Vazio |
Downloads: | 1511 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Esse macro do Aplicativo Microsoft Excel VBA, seleciona linhas e colunas pre-determinadas pelas variáveis em um macro. Também copiará os dados selecionados para Plan2, e G29, --- apenas para lhes para aprendermos como fazer uma forma simples - copiar e colar.
Sub selecionar_celulas()
'seleciona 6 seis linhas
'seleciona colunas até a 15ª Coluna + 4
'começa a selecionar a partir da coluna( 4+ 2) = (4 + i)
'variável (i) determinará a posição de linhas e colunas (+)
k = 1
i = 2
With Sheets("Selecionando_dados_variaveis")
.Range(.Cells(6, 4 + i), .Cells(k, 15 + i)).Select
End With
End Sub
Sub copiar_se_selecao_for_maior_uma_celula()
Dim Resposta As String
If Selection.Count = 1 Then 'caso contiver somente uma célula selecionada, poderia ser outra quantidade.
MsgBox ("nao há seleção para ser copiada"), vbInformation, "Saberexcel - execute o macro"
selecionar_celulas
Resposta = MsgBox("Deseja copiar a seleção para planilha [Plan2 e G17]", vbYesNo + vbInformation, "Saberexcel")
If Resposta = 6 Then ' 6 é igual a vbyes
Selection.Copy Saber2.[A1]
Selection.Copy [G29]
MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
Else
[C1].Select
End If
Else
'copia os dados se caso já o macro 'Selecionar_Celulas' for acionado primeiramente na folha de planilha.
Selection.Copy Saber2.[A1]
Selection.Copy [G29] 'será copiado também os dados para mesma folha de planilha para célula G29
MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
End If
End Sub
Sub limpar_teste()
Saber2.Cells.ClearContents
'esta linha abaixo vai limpar da célula G29 abaixo,
'Esses estudos de deslocar linhas e colunhas estão em nosso Modulo COMO FAZER - Programação MS Excel (Offset-Desloc)
Range("G29", [G29].End(xlDown).End(xlToRight)).ClearContents 'limpa dados G29 em diante, poderia ser select ou outra programação qualquer
MsgBox ("Os dados da folha de planilha 'Plan2' e G9 em diante foram deletada"), vbInformation, "Saberexcel - site das Macros"
End Sub
Sub ir_plan2()
Saber2.Select 'observe que sempre seleciono a folha de planiha pelo nome da folha de código,
'se o usuário mudar o nome da folha de planilha não ocorrerá erro.
End Sub
Sub voltar()
Saber1.Select
End Sub
Esse macro(código) é para auxiliar no teste, e também com finalidade didática, para mostrar o shapes(autoforma) contendo macro, ou se desejar
poderá mostrar diretamente a o Módulo VBE(Visual Basic Editor)
Sub visualizar_macros_vbe()
Dim Resposta As String
Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="selecionar_celulas"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub
esse macro é para ocultar o shapes(autoforma)
Sub oc()
Saber1.Shapes("sb").Visible = False
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: | 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
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