Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba usf textbox contar preenchidos

Excel planilha vba usf textbox contar preenchidos

E-mail Imprimir PDF

Saberexcel- o site de quem precisa aprender Macros MS Excel VBA

E
sses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos textboxes, retorna a quantidade de textboxes
preenchidos, com uma operação matematica.

Private Sub cmdCONTAR_Click()
Dim vContador, iValor
ObjetosTxt = 10
iValor = 0

For vContador = 1 To ObjetosTxt
  If Len(Me.Controls("cmbTEXTO" & vContador)) > 0 Then
     iValor = iValor + 1
  End If
Next

'uma mensagem com quebra de linhas -- intuito didático.
MsgBox "Neste formulário há:  " & vbCrLf & _
       "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" & vbCrLf & _
       "[ " & iValor & _
       " ] .....: - TextBox's preenchidos   " & vbCrLf & "[ " & ObjetosTxt - iValor & _
       " ] .....: - TextBox's Vazios  " & vbCrLf & _
       "[ " & Val(ObjetosTxt) & " ] .....: - TextBox's no Total" & _
       vbCrLf & "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" & _
       vbCrLf & "Escola Saberexcel VBA Estudos® - Treinamentos" & _
       vbCrLf & "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", _
       vbInformation, "Saberexcel VBA Estudos®"

End Sub


Private Sub cmdFECHAR_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
Me.cmbTEXTO1.SetFocus
End Sub

Private Sub Image1_MouseMove
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



Baixe o exemplo de planiha contendo os macros acima:
Excel planilha vba usf textbox contar preenchidos (94.2 KB)

Última atualização em Ter, 01 de Novembro de 2011 18:03  

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