Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 1460 |
Saberexcel o site das macros
Essa macro do Aplicativo microsoft Excel VBA, copia a folha de planilha ativa sem fórmulas e sem os objetos(botoes) para última folha de planilha do Livro.
Option Explicit
Sub Copiar_Planilhas()
Dim SbCelNome As String, SbObjetos As Object
Dim wshPlan As Worksheet
Dim rnCell As Range
Dim i As Integer
Application.ScreenUpdating = False
i = Worksheets.Count
ActiveSheet.Copy after:=Worksheets(i)
i = i + 1
Set wshPlan = Worksheets(i)
'Se houver célula com fórmulas na celula
On Error Resume Next
'Converte fórmulas para valores constantes
For Each rnCell In wshPlan.Cells.SpecialCells(xlFormulas)
rnCell.Value = rnCell.Value
Next rnCell
'É uma colecção compreensiva na fórmula planilha pode
'ser mais rápido com o Colar Especial.
'With wshPlan.UsedRange
' .Copy
' .PasteSpecial Paste:=xlValues
'End With
'Application.CutCopyMode = False
'Recuperando nome da folha
SbCelNome = CStr(wshPlan.Range("A2").Value)
'Remove o Formulário objeto, valores, e para compartilhar ficha
'seu nome
With wshPlan
For Each SbObjetos In .Shapes
SbObjetos.Delete
Next SbObjetos
.Name = SbCelNome
.Range("B4:B6").Value = ""
.Range("A1").Select
End With
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 595 |
SaberExcel VBA Estudos - o site das macros
Essas Funções do Aplicativo Microsoft Excel VBA, calculam descontos de acordo com o valor de compra, aqui fiz dois exemplos com as mesmas instruções, porém, usando duas estruturas de decisão (Instruções condicionais) diferentes. Estrutruras de decisão de instrução IF...THEN... ELSE.. END IF e SELECT CASE , que executam condicionalmente um grupo de instruções, dependendo do valor de uma expressão.
Function CalcPreço(quantidade As Integer)
If quantidade < 101 Then
CalcPreço = 10
ElseIf quantidade < 301 Then
CalcPreço = 9
ElseIf quantidade < 701 Then
CalcPreço = 8
Else: CalcPreço = 7
End If
End Function
Function CalcPreço(quantidade As Integer)
Select Case quantidade
Case 0 To 100: CalcPreço = 10
Case 100 To 300: CalcPreço = 9
Case 300 To 700: CalcPreço = 8
Case Is >= 701: CalcPreço = 7
End Select
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 878 |
Saberexcel - o site das macros
Esse exemplo de fórmulas do Aplicativo Microsoft Excel VBA, insere em determinada célula uma fórmula matricial Soma(se()) e Somase(), que somará valores de determinadas ocorrencias de ítens na coluna(A)
Fruta | Valor |
Laranja | 10 |
Maça | 14 |
Laranja | 20 |
Uva | 30 |
Pessego | 50 |
Pera | 10 |
Laranja | 14 |
Uva | 12 |
Uva | 87 |
Laranja | 25 |
Laranja | 37 |
Fórmulas usadas
'=SOMA(SE(($A$2:$A$12="Laranja");($B$2:$B$12)))
ou
=SOMASE($A$2:$A$12;$F$1;$B$2:$B$12)
Aprenda 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