
sexta-feira, 28 de janeiro de 2011
quarta-feira, 26 de janeiro de 2011
2. Eu sou tão feio que o Bicho Papão conta história minha pra fazer medo no filho dele.
3. Aprendi só mergulhar, voltar pra cima é outra história
4. Tem leite de morcego? Não? Deus é testemunha de que eu queria leite, então bota uma pinga aí! Mussum
5. Você já reparou que todo mundo fica mais feliz na sexta-feira trabalhando, do que no domingo à noite descansando?
6. O cara era tão preguiçoso que a morte falou pra ele "Vamos!" e ele respondeu "Aaaah nããão!". Viveu mais 3 anos...
7. Eu fui preso por nada, é sério! Roubei a carteira de um professor, e adivinhem o que tinha dentro...
8. Fui preso por roubar um banco... E só fui pego por que é muito difícil correr do guarda carregando um banco!
9. Se preguiça desse dinheiro, Eike Batista seria meu funcionário.
10. Se a Terra não girasse, existiriam menos tontos no mundo?
11. Cartão de milhagem Hellmann's: Viaje na maionese sem sair do lugar!
12. Ao ler minha mão a cigana achou uma linha meio gozada.
13. Vou para academia em busca de um corpo ideal: e que esse corpo seja bronzeado, olhos verdes e dê mole pra mim!
14. G Magazine: Não perca a matéria sobre Pequenas Empresas Grandes Negócios... Saiba como abrir seu negócio na hora do aperto.
15. Se você é realmente tão foda como diz, me diga rápido qual é o diminutivo de "golfinho"?
16. Malandro é vendedor de materiais de construção. Dá o cano e ainda ganha dinheiro!
17. Eu sempre digo "tapa não educa", mas um soco na cara e uns dois tabefes bem dados coloca qualquer um na linha
18. Safado é fotógrafo de casamento, que trabalha tirando foto da desgraça dos outros.
19. Pornografia: Uma ideia na cabeça, uma câmera na mão e a outra mão sabe-se lá aonde.
20. Uma pulguinha perguntou para outra: Onde você mora? Em São Bernardo e você? Em Pitbull.
21. Eu não sou baixinho, sou compacto. Tudo de bom em pouco espaço.
22. Minha namorada me disse que eu não sou velho, sou apenas um modelo retrô!
23. Deus castiga, mas o que ele fez com você foi sacanagem!
24. Não, eu não iria fazer nada de errado, eu só ia quebrar a cabeça do Quico. Chaves
25. Na Índia a vaca é sagrada, na Europa a vaca é louca, no Brasil a vaca é qualquer amiga mais chegada do seu namorado.
26. Pessoas com asma não são criativas, é muito pouca inspiração.
27. Falar de mim é fácil. Quero ver é sair bonito em uma foto 3x4
28. Eu sou tão feio que quando saio da frente do espelho ele fala "Obrigado".
29. Meu carro é tão pequeno, que se eu sair dele e esquecer de tirar o cinto de segurança, ele vira uma mochila! Bruno Motta
30. Mesmo eu sendo gorda e grande, meu cupido não acerta uma.
31. Não consigo nem jogar Guitar Hero no easy e Deus me põe pra jogar a vida no hard...
32. Metade dos políticos é incapaz, a outra metade é capaz de tudo.
33. Brincalhão é quem colocou o "U" do lado do "I" no teclado. Algumas vezes meu pau me dá dinheiro e o meu pai fica duro.
34. Minha mulher disse que eu estava me tornando um velho safado, então eu disse que não estava ficando velho. Silvio Santos
35. Minha vó foi entregar o DVD na locadora, mas voltou pra casa toda nervosa dizendo que esqueceu de rebobinar!
36. Briguinha de nada entre marido e mulher:
- Você é sempre tão estúpido, ou hoje é uma ocasião especial?
- E eu não sei o que você toma para ficar idiota, mas realmente funciona!
37. Alô você que gosta de beijar o seu cachorro na boca: 5 minutos atrás ele estava lambendo o próprio pênis
38. “Moro onde você passa as férias." Nossa você mora na internet?
39. Quando te vi de longe pensei ser meu amor eterno. Quando te vi de perto... vai ser feia assim lá no inferno!
40. Domingo no Gugu, de volta para minha terra. Se emocione com a família minhoca!
41. Pedi para minha namorada pegar no meu grandão... Ela pegou no meu nariz!
42. Um elefante incomoda muita gente, mas calcinha enfiada na bunda incomoda muito mais.
43. Quem ama o feio, bonito lhe parece", ou seja, o amor é a versão mais antiga que existe do Photoshop
44. Quem nunca disse "piu" bem baixinho quando um dos pais disse que não queria ouvir nenhum "piu" não sabe o que é adrenalina na vida.
45. Metrossexualismo é coisa de viado! Agora deixa eu relaxar em paz porque senão o creme anti-rugas não vai servir de nada.
46. Se você fica excitada quando sentir algo esfregar em você, fazer você suar, ficar coladinho em várias posições? Então toma aqui um vale-transporte e vai pro busão...
47. Falar de mim é fácil, quero ver é pagar as minhas contas.
48. 90% das crianças quando vão tomar banho ensaboam a barriga primeiro, depois ensaboam a barriga, a barriga e por último a barriga.
49. Misturei Activia com Gretchen e tive um Piri piri piripipiri! Aaah uuh!
50. Meu avô é tão velho, mas tão velho, que ele não tem espermatozoides, tem espermatossauros!
51. Humor negro é quando a Claudia Leitte canta "levanta, sacode, balança" em pleno o Teleton.
52. Será lançado um filme sobre a vida do Ricky Martin: "EX-MAN"
53. Não entendo essa perseguição com as "mulheres frutas", a Camila Pitanga está na mídia por tanto tempo e ninguém nunca falou nada!
54. Na medida em que o Faustão emagrece, a cabeça cresce!
55. Comi ovo e me atacou o fígado... ainda bem que não comi fígado.
56. Nossa, você arrasou no karaokê... arrasou com a noite de todo mundo.
57. Ele nasce, você ganha presente. Ele morre, você ganha feriado. Ele ressuscita você ganha chocolate. Não é à toa que Jesus é tão querido.
58. Todo mundo tem um lado feio, o meu é o de fora!
59. A felicidade bateu em minha porta, mas não atendi pensando que fosse Testemunha de Jeová
60. Eu sou tão feio que quando nasci o médico disse para minha mãe: "Senhora, sinto muito, fizemos de tudo, mas acho que seu filho está vivo!"
terça-feira, 25 de janeiro de 2011
Se juntar Zorra Total, Turma do Didi, Faustão, os Cara de Pau... sobra o quê? Ah.. tava esquecendo do programa da Regina Casé!!! PELAMORDEDEUS!! Deixei sintonizado no último domingo por 26 segundos no programa e apareceu um grupo de funk que conseguiu repetir a mesma frase 397 vezes seguidas... Não deve existir em todo o universo ritmo pior que o funk carioca. Sério. O funk carioca consegue ser pior que sertanejo universitário que é MUITO chato e MUITO enjoado. Quer ouvir funk original e bom? Procura James Brown, Rick James, Earth, Wind & Fire....
*************
Agora tá uma época excelente pra economizar energia elétrica. Com o carnaval que se aproxima, com as reprises de programas e do BBB não tem mais desculpas. Desliga essa tv e vai fazer algo mais produtivo.
*************
Os filmes "A Saga Crepúsculo: Eclipse" e "O Último Mestre do Ar" foram anunciados nesta segunda-feira como os grandes favoritos para a 31ª edição do Framboesa de Ouro, considerada uma paródia do Oscar pela indústria de Hollywood.
As duas produções empataram com nove nomeações o mais negativo do ano cinematográfico de acordo com a Fundação Golden Raspberry Award, que publicou nesta segunda-feira a lista dos indicados.
Os protagonistas de "Crepúsculo" Taylor Lautner e Robert Pattinson receberam indicações na categoria de Pior Ator e Kristen Stewart, também de Crepúsculo, foi nomeada para Pior Atriz, ao lado de Jennifer Aniston ("Caçador de Recompensas"), Megan Fox ("Jonah Hex"), Miley Cyrus ("A Última Música"), e o quarteto feminino de "Sex and the City 2" liderado por Sarah Jessica Parker.
********segunda-feira, 24 de janeiro de 2011










• Eddie Murphy: Burro
• Cameron Diaz: Princesa Fiona
• Julie Andrews: Rainha Lillian
• Antonio Banderas: Gato de Botas
• Cody Cameron: Pinóquio/Os três porquinhos
• John Cleese: Rei Harold
• Rupert Everett: Príncipe Charmoso
• Eric Idle: Merlin
• Justin Timberlake: Príncipe Artie
• Susan Blakeslee: Rainha má
• Larry King: Doris
• John Krasinski: Lancelot
• Ian McShane: Capitão Hook
• Maya Rudolph: Rapunzel
sexta-feira, 21 de janeiro de 2011
quarta-feira, 19 de janeiro de 2011
Nessa postagem um tutorial que fiz sobre consulta em banco de dados usando o Excel 2007 e um pouco de programação em VBA e Formulários.
Podemos fazer acesso a um banco de dados em planilhas independentes usando os recursos de formulário e alguns comandos em programação em VBA. Para utilizar esses recursos, será necessário exibir a Guia Desenvolvedor do Excel 2007. Clique no botão do Office no canto superior esquerdo do vídeo, clique em Opções do Excel, em Mais Usados, habilite a opção Mostrar Guia Desenvolvedor na Faixa de Opções.
Vamos deixar apenas duas planilhas na pasta de trabalho do Excel. Se você tem três ou mais, clique botão direito do mouse sobre as excedentes e escolha Excluir no menu flutuante.
Na primeira aba da planilha escreva Tabela e a segunda nomeie de Consulta. Digite os dados conforma a tabela abaixo na planilha Tabela. Eu utilizei nomes de cidades da região para os locais da pesquisa de preços.
Você pode alterar os nomes dos produtos e dos locais livremente.
Na segunda planilha (Consulta), selecione e escolha uma cor para o fundo. Clique na Guia Desenvolver/Inserir e selecione a Caixa de Grupo dos Controles de Formulário.
Desenhe uma caixa de grupo como mostrado na figura abaixo, começando a partir da linha 5 da planilha Consulta.
Se você precisar aumentar ou diminuir a caixa, clique numa alça de dimensionamento (bolinha) dos cantos da caixa e arraste para o centro da figura para diminuir ou para fora, para aumentar.
No topo da caixa, digite um nome para ela. Pode ser Pesquisa por produtos ou outro que você queira.
Digite os dados iniciais da planilha conforme mostrado abaixo. Produto em A7, Valor em A8 e Valor Revenda em A9, todos alinhados à direita. As caixas brancas são apenas células com contorno preto e fundo branco.
Na linha Produto, vamos inserir uma Caixa de Combinação para o vendedor escolher o produto em uma lista suspensa, sem a necessidade de digitação. Clique na Guia Desenvolver/Inserir e selecione a Caixa de Combinação, que é o segundo botão da primeira linha do Controle de Formulário. Desenhe o tamanho da Caixa de Combinação. Clique com o mouse e arraste para definir o tamanho apropriado.
Para aumentar ou diminuir a caixa, clique com o botão direito do mouse sobre ela e depois com o esquerdo nas alças de dimensionamento. Em breve será feita a configuração adequada para exibição da lista.
Ao lado, crie mais uma caixa de grupo. Dê o nome de Locais de Pesquisa.
Insira nessa caixa de grupo, controles do tipo Botão de Opção.
Digite um nome de cidade para cada cidade onde será feira a pesquisa por preços de produtos. Utilizei as cidades da região do Vale do Taquari (Arroio do Meio, Lajeado, Estrela, Santa Cruz do Sul, Teutônia e Venâncio Aires).
Você pode alterar se achar conveniente. Para digitar o nome da cidade, clique sobre o item, quando abrir a caixa, digite o nome do local.
Para movimentar, clique sobre a borda da caixa com o botão direito do mouse e use as setas de direção do teclado para deslocar em qualquer direção. Você pode ainda personalizar as opções, dando um ar mais profissional como efeitos em 3D. Clique com o botão direito do mouse sobre o item e escolha Formatar Controle...
Na janela que abre, clique em Sombreamento em 3D. Crie agora mais uma Caixa de Grupo abaixo dos dados já digitados e nomeie de Valores.
Digite os dados conforma a figura abaixo. Texto alinhado á direita e células vazias pintadas de branco com contorno em preto.
Agora vamos inserir outros elementos da planilha. São os controles ActiveX para escolher Quantidade de itens comprados e também o número de parcelas da compra. Clique na Guia Desenvolvedor, escolha Inserir e nos Controles ActiveX clique em Barra de Rolagem.
Desenhe uma barra de rolagem ao lado do item Quantidade. Lembre-se que as bolinhas servem para dimensionar o tamanho da barra.
Repita o procedimento ao lado da célula “Número de Parcelas” para acrescentar mais uma barra de rolagem. Na próxima etapa iremos adicionar mais dois controles, desta vez serão botões que controlarão a visibilidade da planilha com a base de dados.
Clique na Guia Desenvolvedor, escolha Inserir e nos Controles ActiveX clique em Botão de Comando.Esse CommandButton deve ser desenhado ao lado da célula Valor Final.
Um detalhe importante: Para modificar ou programar o botão o Modo de Design deverá estar habilitado. Quando desmarcado o botão se comporta como um botão do Windows e não há como editar seu código nem aumentar ou diminuir seu tamanho. Para acrescentar comportamentos ao botão de Controle ActiveX clique no botão Propriedades.
O que deve ser modificado para atribuir comportamentos ao botão... Digite no primeiro botão as configurações da janela abaixo:
Name: É o nome pelo qual o botão será referido na programação. Escolha um nome curto e sem espaços.
BackColor: Permite escolher cor de fundo para o botão
Caption: O nome que será exibido em cima do botão
Font: Permite escolher ou trocar a fonte para o texto do botão
ForeColor: A cor da fonte mostrada no botão
Height: Define a altura do botão em pontos
Left: Distância relacionada ao botão do lado esquerdo da tela
Locked: Quando True, bloqueia o deslocamento do botão na tela
Picture: Atribui uma figura ou foto na imagem do botão
PrintObject: Quando True, imprime o botão com a planilha
Shadow: Exibe uma sombra embaixo do botão
Top: Distância relacionada ao botão do topo da tela
Visible: Aplica o atributo de visibilidade ao botão quando a planilha for aberta
Width: Define a largura do botão em pontos
WordWrap: Quando true, atribui uma quebra na linha quando o texto do botão for muito extenso.
Repita o Procedimento para o segundo botão. Desenhe um novo botão e configure de acordo com essas sugestões:
Name: Ocultar
BackColor: Não mudar a cor do fundo
Caption: Ocultar Planilha
Font: Calibri
ForeColor: Não mudar a cor do texto
Height: 22,5
Left: 203
Locked: True
Picture: (nenhum)
PrintObject: True
Shadow: False
Top: 261
Visible: True
Width: 90,75
WordWrap: False
Para alguém ser um programador em VB são necessárias muitas horas de treinamento formal e de prática. A ideia desse post é só fazer uma pesquisa no Excel utilizando um pouco da programação em VB, por isso só tem mesmo o básico.
Maaassss....antes de iniciar a programação, vamos entender um pouco do Visual Basic:
O VB permite criar aplicativos tanto para máquina local quanto para ambiente de rede. Estes aplicativos podem tanto compartilhar banco de dados quanto acessar um banco de dados cliente-servidor. Os programas desenvolvidos em Visual Basic são orientados a eventos.
Eventos são ações geradas pelo usuário clicar o mouse ou pressionar uma uma tecla. Os eventos podem também ser gerados pelo próprio Windows. Existem eventos associados ao formulário, e cada controle inserido neste.
Agora vamos às linhas de código.Veja se o botão Modo de Design está habilitado e dê dois clicks rápidos sobre o botão Exibir tabela.
Isso deverá abrir o módulo de programação do Visual Basic. Digite as linha de código abaixo.
Private Sub exibir_Click()
Dim Exibir As String
Exibir = MsgBox("Deseja exibir a planilha tabela?", vbYesNo, "Confirmação")
If Exibir = vbYes Then
Sheets("tabela").Visible = True
Sheets("tabela").Select
Else
Exit Sub
End If
End Sub
O que significa:
Private Sub exibir_Click() - Inicia o procedimento
Dim Exibir As String - Declara Exibir como uma variável do tipo String (Uma sequência de Caracteres).
Uma variável é algum tipo de dados ao qual é reservado um espaço físico na memória do computador. Para declarar variáveis, você precisa dar a uma variável tanto um nome (Exibir) quanto um tipo (String). Os nomes de variáveis podem ter até 40 caracteres, e precisam começar com uma letra.
Declarando com o Comando Dim
Sintaxe: Dim
Exemplo: Dim Exibir As String
- Exibir = MsgBox("Deseja exibir a planilha tabela?", vbYesNo, "Confirmação")
Aqui declaramos que a variável recebeu uma MSGBox com a informação contida nos parênteses.
- VbYesNo define os tipos de botões que aparecerão na Caixa de Mensagem: Sim ou Não
A palavra “Confirmação” aparecerá na barra de título da caixa de mensagem (MessageBox).
- If Exibir = vbYes Then - Aqui iniciam os procedimentos lógicos com os laços de repetição. SE Exibir for igual a SIM, ou seja se o usuário clicar no botão SIM, então...
- Sheets("tabela").Visible = True - Muda a propriedade de visibilidade da planilha Tabela e torne-a Visível.
- Sheets("tabela").Select - Nessa linha estamos ainda informando para torná-la ativa.
- Else - Senão
- Exit Sub - Fecha da janela
- End If - Aqui Fechamos os procedimentos lógicos
- End Sub - No final sempre é necessário fechar ou encerrar o procedimento.
Veja se o Modo de Design ainda está habilitado e dê dois clicks rápidos sobre o botão Ocultar Tabela. Isso deverá abrir o módulo de programação do Visual Basic. Digite as linhas de código abaixo:
Private Sub ocultar_Click()
Sheets("tabela").Visible = False
End Sub
Na linha de código: Sheets("tabela").Visible = False, mudamos a propriedade de visibilidade da planilha Tabela e tornando-a Invisível ou oculta.
Desligue o Modo de Design e teste os botões para confirmar a programação.
Para que o Excel calcule a margem de lucro em cada produto, crie uma Caixa de Seleção...
e ao lado digite Lucro.
Na parte superior da planilha, onde existem as linhas vazias, digite Cidade em A2, Lucro em A3 e Produto em C2, todos alinhados à direita.
Clique com o botão direito do mouse sobre a primeira cidade listada no Formulário e escolha Formatar Controle.
Na guia Controle, no campo Vínculo de célula, digite $B$2 (com $ para Referências Absolutas). Essa célula deve exibir um número que indica qual cidade está selecionada na área Local de Pesquisa no Formulário.
Observe que selecionando outra cidade, o valor da B2, também muda.
A Caixa de Combinação onde o produto será pesquisado, também deve ser configurada a fim de exibir os produtos da lista da planilha Tabela. Acesse a planilha Tabela e dê um nome para o intervalo dos produtos. Veja no exemplo abaixo. Selecione de A2 até A12 e na Caixa de nome digite Prod e pressione Enter para nomear.
Repita o mesmo processo para nomear o intervalo do Local da Pesquisa. Selecione de B2 até G12, clique na Caixa de Nome e digite para esse intervalo o nome de Base.
Volte à planilha Consulta, clique com o botão direito do mouse sobre a Caixa de Combinação e escolha Formatar controle...
Na Guia Controle, digite Prod no Intervalo de entrada. O Excel reconhecerá o intervalo nomeado na planilha Tabela. Em vínculo com a célula escolha $D$2, em Linhas Suspensas não há necessidade de alteração e para um efeito mais elegante marque Sombreamento 3D. Clique OK.Agora, clicando na seta da Caixa de Combinação, os produtos já aparecem listados.
Para continuar nosso trabalho, vamos configurar a Caixa de Seleção Lucro. Clique com o botão direito sobre ela e escolha Formatar controle.
Em Vínculo de célula escreva $B$3. Assim, a célula B3 irá exibir a resposta VERDADEIRO quando a caixa de seleção estiver marcada e FALSO quando estiver desmarcada.
E para concluir nosso trabalho, as fórmulas!
Para que o valor do produto seja encontrado, será necessário utilizar uma função do Excel que faz um cruzamento entre o local da pesquisa selecionado na caixa de Grupo de Formulário Locais da Pesquisa e o item selecionado na Caixa de Combinação dos Produtos. A função apropriada para esse caso é a INDICE que busca uma informação num banco de dados pela interseção de informações através de linha e coluna.
Na célula para o valor: digite a fórmula: =ÍNDICE(base;D2;B2).
- Indice é a função que executa a pesquisa
- base é o local ou a base de dados para a pesquisa
- D2 é a célula onde está relacionado o vínculo com o produto escolhido na Caixa de Combinação
- B2 é a célula onde está relacionado o vínculo com o local escolhido no Botão de Opção do Formulário
Na célula para o Valor de Revenda: digite a fórmula: =B8*150%
O valor contido em B8 será multiplicado por 150% dando uma margem de 50% sobre o valor original
Na célula para o Lucro: digite a fórmula: =SE(B3=VERDADEIRO;B9-B8;"")
- Se o valor da célula B3 for VERDADEIRO, então calcule o Valor de revenda MENOS o valor da compra, SENÃO deixe a célula VAZIA.
A célula da Quantidade terá o valor definido pela barra de rolagem. Clique no botão Modo de Design e depois um clique na Barra de Rolagem da Quantidade e após em Propriedades. Vamos configurar a rolagem da barra.
Clique no botão Modo de Design e depois um clique na Barra de Rolagem da Quantidade e após em Propriedades.
Apenas mude o valor Max para 20 para limitar em 20 peças por cliente e o valor Min em 1, que é a quantidade mínima da compra.
Para o número de parcelas, repita todo o procedimento para tornar a barra ativa, clique no botão Modo de Design e depois um clique na Barra de Rolagem das parcelas e após em Propriedades. Mude o valor Max para 12 para limitar as parcelas e o valor Min em 2.
O Valor Total será a multiplicação da quantidade pelo Valor Unitário: =B13*B9
A porcentagem de juros depende do número de parcelas, daí você digita essa fórmula com a função SE que calcula os juros dependendo da quantidade de parcelas
=SE(B15<4;0;se(b15>10;3,5%;2,5%))
O valor final da Parcela é calculado assim: =(B14/B15)*B16+B14/B15
O valor final da compra: =B15*B17
Para finalizar a planilha, você poderá acrescentar uma barra com o nome do trabalho sobrescrevendo as células de controle usadas no formulário e na função índice.
Poderá também realizar pequenos ajustes de alinhamentos, exibindo a grade do Excel (Guia Layout da Página, grupo Opções de Planilha, Linha de Grade, Exibir).
Espero que seja útil a quem gosta de aprender mais sobre o Excel que é uma fabulosa ferramenta de trabalho. I hope you enjoy it.































