Adicionado em: | 23/11/2010 |
Modificado em: | 10/06/2011 |
Tamanho: | Vazio |
Downloads: | 598 |
Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, extrai para determinada região (intervalo de células) os números das linhas e colunas, para onde os dados são extraidos, ou seja (5 linhas e 9 colunas)
Sub Celulas_Exemplo()
For i = 1 To 5
For j = 1 To 11
Cells(i, j) = "Linha " & i & " Coluna " & j
Next j
Next i
' Range("A1:k10").Select
' Selection.Columns.AutoFit
End Sub
Sub Limpar()
Range("A1:K5").ClearContents
Range("B1") = "Inserir números das colunas e linhas - <<SaberExcel - site das macros>>"
End Sub
Sub ver_código()
SendKeys ("%{F11}")
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Baixe o exemplo de planilha contendo as macros acima
vba linhas macro insere determinado range letra e num linha (29.46 KB 2010-09-19 21:16:50)
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 648 |
Esta macro do Aplicativo Microsoft Excel VBA, Insere um marcador na linha do cursor realçando linha e coluna ativa um marcador para realçar a linha e a coluna ativa inserindo uma linha colorida na linha e coluna ativas, formata seleção no cursor linhas e colunas este evento insere um shape e navega junto com o cursor marcando selecionando as linhas e colunas ativadas pelo cursor retângulo. Observe que usamos o Evento Selection_Change da Folha de código da planilha.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Definição de variáveis ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
'Testa se os retangulos shapes são existentes.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
'Ajuste dos shapes retangulos
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"
With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
End Sub
Aprenda Microsoft Excel VBA --(Saberexcel)--
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 632 |
Saberexcel_site_das_macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula selecionada, observe que aqui usamos o evento Selection Change, isso é, o evento ocorre ao selecionar determinada célula.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vColuna As String, vLinha As Long, i As Integer
vColuna = Replace(Target.Address, "$", "") 'guarda o simbolo $
For i = 0 To 9
vColuna = Replace(vColuna, i, "") ' guarda os números
Next i
vLinha = Target.Row
MsgBox ("Você Selecionou :" & Chr(13) & "Coluna.....: " & vColuna & Chr(13) & "Linha.......: " & _
vLinha & Chr(13) & "Celula......: " & Target.Address & Chr(13) & "Valor......: " & Target.Value), _
vbInformation, "Saberexcel - site das macros"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade:
Compre com segurança, qualidade e ótimos preços nas lojas SubMarino
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 961 |
SaberExcel - o site das Macros
Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.
Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática
Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 23/12/2010 |
Modificado em: | 23/12/2010 |
Tamanho: | Vazio |
Downloads: | 506 |
Saberexcel - o site das Macros
Essas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem na folha de planilha na celula ativa a letra da coluna correspondente, isto é, onde a função foi inserida. Para facilitar o teste inserí umas macros auxliares para facilitar no teste.
Espero que isso possam ajudá-los em alguma coisa. Fiquem com Deus. E_Marcondes
Option Explicit
Function Coluna_Letra$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
Coluna_Letra$ = Target.Address(True, False)
Coluna_Letra$ = Left(Coluna_Letra, InStr(1, Coluna_Letra, "$") - 1)
End Function
Function MostraColuna$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
MostraColuna = Target.Address(True, False)
MostraColuna = Left(MostraColuna, InStr(1, MostraColuna, "$") - 1)
End Function
'macros abaixo são para auxiliar no teste do usuario desenvolvedor
Sub Inserindo_Funcoes_teste()
[C1].Value = "Observe, macro desloca 1 linha acima, portanto se inserir na linha 1 gera erro"
ActiveCell.Offset(-1, 0).Value = "Inserindo funções para teste na célula Ativa"
ActiveCell.FormulaR1C1 = "=MostraColuna()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=MostraColuna()"
ActiveCell.Offset(2, 1).Select
ActiveCell.FormulaR1C1 = "=Coluna_Letra()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=Coluna_Letra()"
ActiveCell.Offset(1, 0).Select
Range("G20").Select
End Sub
Sub limpar()
Cells.ClearContents
End Sub
Sub visualizar_macro()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
Application.Goto reference:="Coluna_Letra"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub
Sub oc()
'observe que aqui eu usei o nome da folha de código da folha de planilha (se mudar o nome da planilha nao gera erro - Saber1)
Saber1.Shapes("sb").Visible = False
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com 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