Desenvolvimento em Office

MiniMercado 3/4

2014-03-11T08:07:00.001-07:00

)

MiniMercado 1/4

2014-03-11T08:05:00.003-07:00

)

MiniMercado 2/4

2014-03-11T08:05:00.001-07:00

)

Controle Financeiro - Excel 2007

2012-03-07T02:21:00.000-08:00

Fórmula Matricial

2011-10-25T07:33:00.000-07:00

Realizar a soma condicional com base em fórmula matricial para simular a função SOMASES() do Excel 2007 no Excel 2003.

Ficha de Cronometragem / Cronoanálise

2011-09-21T19:29:00.000-07:00

Planilha para realizar o balanceamento dos processos de produção. Valor R$ 50,00.

Contas a Pagar com Plano de Contas

2011-07-20T19:54:00.000-07:00

Apresentar Imagem de Produto

2011-06-18T19:39:00.000-07:00

Veja como é possível visualizar a imagem de um produto durante o processo de cadastro na planilha excel. Valor da Planilha R$ 50,00.

Planilhas de Cálculo do Preço de Venda

2011-05-08T21:10:00.000-07:00

Demonstração de planilha de cálculo do preço de venda com visualização e acompanhamento do gráfico do ponto de equilíbrio.
Valor da Planilha R$ 300,00.

Gráfico do Ponto de Equilíbrio

2011-03-13T19:29:00.001-07:00

Validação de Dados - Listas Personalizadas

2011-03-13T19:28:00.000-07:00

Função para validar Título Eleitoral

2011-02-13T10:31:00.000-08:00

Public Function ValidarTEleitor(valor As String)
    Dim OnlyNumber, SomaDV1, SomaDV2 As String
    Dim FatorMult As String
    For i = 1 To Len(valor)
        OnlyNumber = Mid(valor, i, 1)
        If OnlyNumber >= "0" And OnlyNumber <= "9" Then numero = numero & OnlyNumber
    Next
    FatorMult = "23456789" '
    For i = 1 To Len(FatorMult)
          SomaDV1 = SomaDV1 + val(Mid(numero, i, 1)) * val(Mid(FatorMult, i, 1))
    Next
    SomaDV1 = SomaDV1 Mod 11
    If SomaDV1 = 10 Then SomaDV1 = 0
    SomaDV2 = val(Mid(numero, 9, 1)) * 7
    SomaDV2 = SomaDV2 + val(Mid(numero, 10, 1)) * 8
    SomaDV2 = SomaDV2 + val(SomaDV1) * 9
    SomaDV2 = SomaDV2 Mod 11
    If SomaDV2 = 10 Then SomaDV2 = 0
    '--------------------- Teste de validação dos título digitado -----------------
    If val(Mid(numero, 11, 1)) = SomaDV1 And val(Mid(numero, 12, 1)) = SomaDV2 Then
        Dim D9, D10 As String
        D9 = Mid(numero, 9, 1)
        D10 = Mid(numero, 10, 1)
        If CInt(D9 & D10) > 0 And CInt(D9 & D10) < 29 Then
           MsgBox "Número do Título Eleitoral correto."
        Else
           MsgBox "Número do Título Eleitoral Inválido.", vbCritical, "Atenção !"
        End If
    Else
        MsgBox "Número do Título Eleitoral Inválido.", vbCritical, "Atenção !"
    End If
End Function
Vídeo para demonstrar a função:

Máscara de Entrada no TextBox - EVENTO KEYPRESS

2011-02-12T20:34:00.000-08:00

Segue o código para gerar máscara de entrada para CNPJ e CPF dos dados digitados em um textbox, utilizando evento KeyPress.

Código Vba CNPJ:
Private Sub CNPJ_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 8, 48 To 57
                Me.CNPJ.MaxLength = 18 ' Quantidade máxima de caracteres no textbox CNPJ                If Len(CNPJ) = 2 Then CNPJ = CNPJ + "."
                If Len(CNPJ) = 6 Then CNPJ = CNPJ + "."
                If Len(CNPJ) = 10 Then CNPJ = CNPJ + "/"
                If Len(CNPJ) = 15 Then CNPJ = CNPJ + "-"
        Case Else
            KeyAscii = 0
    End Select
End Sub
Código Vba CPF:
Private Sub Cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 8, 48 To 57
                Me.cpf.MaxLength = 14 ' Quantidade máxima de caracteres no textbox Cpf
                If Len(cpf) = 3 Then cpf = cpf + "."
                If Len(cpf) = 7 Then cpf = cpf + "."
                If Len(cpf) = 11 Then cpf = cpf + "-"
        Case Else
            KeyAscii = 0
    End Select
End Sub

Uso da Função - ÍNDICE() E CORRESP()

2011-02-01T10:06:00.000-08:00

Uso da função PROCV() com SEERRO()

2011-01-25T13:24:00.000-08:00