Home Excel - Dicas Microsoft Excel VBA Excel VBA - Barras e Menus e Botoes Excel planilha vba botoes icon insere faceids limitados em planilha valores celula

Excel planilha vba botoes icon insere faceids limitados em planilha valores celula

E-mail Imprimir PDF

SaberExcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.

[email protected]

Option Explicit

Sub Criar_Botoes_ID()
Dim x1 As Integer
Dim x2 As Integer
Dim i As Integer
Dim Titulo As String
Dim Ident As Integer

On Error Resume Next

x1 = Range("ini").Value
x2 = Range("fim").Value

If x2 < x1 Then x2 = x1

Call EliminarFiguras

Sheets("Botões").Select

Range("A1").Value = "ID"
Range("B1").Value = "Figura"
Range("C1").Value = "Descrição"
Range("B1").Select

Application.CommandBars.Add(Name:="temp").Visible = False

For i = x1 To x2
With Application.CommandBars("temp")
.Controls.Add Type:=msoControlButton, ID:=i, Before:=1

If .Controls.Count > 0 Then
Titulo = .Controls(1).Caption
Ident = .Controls(1).ID

If Titulo > "" Then
.Controls(1).CopyFace
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Value = Ident
ActiveCell.Offset(0, 1).Value = Titulo
ActiveSheet.PasteSpecial

.Controls(1).Delete
End If

End If

End With
Next i
Application.CommandBars("temp").Delete

Range("B1").Select

Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=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





 Baixe o exemplo de planilha contendo a macro acima
 Excel planilha vba botoes icon insere faceids limitados em planilha valores celula (35.84 kB)




Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino
Informática - Submarino.com.br

Última atualização em Qua, 10 de Agosto de 2011 08:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

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


Pesquisa Google SaberExcel

Publicidade Google

<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>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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