Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 967 |
Esta macro do Aplicativo Microsoft Excel VBA, seleciona e ou deleta todas as células
com fórmula, somente as células que contenham fórmulas
Sub Seleciona_todas_Celulas_Com_Formulas()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'Selection.ClearContents
'Selection.Delete
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 659 |
Saberexcel - o site das macros
Proteger as células com formulas com macro método validação dados
Macro do Aplicativo Microsoft Excel VBA, que proteja minhas fórmulas pela Validação de Dados,
Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Existe Fórmula - não digite!"
.InputMessage = ""
.ErrorMessage = "Célula com Fórmula está protegida!!"""
.ShowInput = True 'Mude para FALSE para desproteger a células
.ShowError = True 'Mude para FALSE para desproteger a células
End With
End Sub
Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 694 |
Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, transforma as formulas relativas em fórmulas absolutas ou relativas e vice versa
Sub Formulas_relativa_absoluta()
[E21].Select
ActiveCell.Formula = Application.ConvertFormula _
(Formula:=ActiveCell.Formula, _
fromReferenceStyle:=xlA1, _
toAbsolute:=xlAbsolute)
[G21].Value = "<< ' =SOMA($B$17:$B$26) ( A B S O L U T A S )"
End Sub
Sub Formulas_absoluta_relativa()
[E21].Select
ActiveCell.Formula = Application.ConvertFormula _
(Formula:=ActiveCell.Formula, _
fromReferenceStyle:=xlA1, _
toAbsolute:=xlRelative)
[G21].Value = "<< ' =SOMA(B17:B26) << R E L A T I V A S >> "
End Sub
Enumeração XlReferenceType |
Especifica o estilo de referência de célula quando uma fórmula está sendo convertida.
Informação sobre versão
Version adicionada: Excel 2007
Nome | Valor | Descrição |
---|---|---|
xlAbsolute | 1 | Converte para linha absoluta e estilo de coluna. |
xlAbsRowRelColumn | 2 | Converte para linha absoluta e estilo de coluna relativa. |
xlRelative | 4 | Converte para linha relativa e estilo de coluna. |
xlRelRowAbsColumn | 3 | Converte para linha relativa e estilo de coluna absoluta. |
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 826 |
SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)
Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.
Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.
Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub
Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String
Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False
resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If
End Sub
Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 489 |
Macro do Aplicativo Microsoft Excel VBA Selecione células com fórmulas
na folha de Planilha.
voce poderá também selecionar, vá à Caixa de Diálogo ou também (Tecle (F5),
e Especial) aparecerá a caixa de diálogo da imagem ao lado.
Essa macro seleciona todas as células com fórmulas na folha de planilha
Sub SelectFormulaCells()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
End Sub
Primeiro:
Observe "SpecialCells" nos arquivos de Ajuda de VBE assim vê o que outras
espécies de Células Especiais são disponíveis (espaços em branco, comentários etc.) "as Constantes" são outro modo de referenciar "Valores"
Segundo:
Se só uma célula for selecionada, todas as células na folha ativa serão procuradas. Se duas ou mais células forem selecionadas, só a seleção será procurada.
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