Ir para conteúdo
Fórum Script Brasil

devin

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    15

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por devin

  1. Botao pra Busca pasta

    em VBA

    Postado

    27 minutos atrás, vitorhsh disse:

    Boa tarde,  Devin

    Primeiramente muito obrigado por me ajuda,

    E quase isso que estou querendo, 

    Tenho uma Pasta 2017 dentro dela tenho os meses referente ao ano Janeiro/Agosto dentro das pastas dos meses tem a pasta dos dias 01/17 dentro de cada pasta de dia tenho arquivos para atualiza uma planilha gostaria de cria um botão pra escreve  em                                                                                         um form "Ano"SeriaAPastaAno 2017  "Mes"SeriaAPastaMes Abril  "Dia"SeriaAPastaDia 05 ao clica em busca o butao vai nas pasta respectivas abre o arquivo e minha macro faz o resto  segue em anexo um arquivo modelo 

    seu modelo abriu a caixa de dialago mais não procura a pasta 

     Whats 61-9-93535904 

     

    Att, Vitor Hugo

     

     

    Envia um arquivo de exemplo e o caminho real das pastas, ficou meio confuso.

  2. Controle de chaves

    em VBA

    Postado

    1 hora atrás, Breno Barbosa disse:

    Olá pessoal, alguém pode me ajudar com um probleminha criei uma planilha de controle de retirada de chave, o problema que necessito de um código VBA para restringir a retirada de chave de locais restrito que devem ser retiradas apenas pelo pequeno grupo de pessoas alguém pode me ajudar?

     

    Consegue explicar melhor e por exemplos?

  3. Botao pra Busca pasta

    em VBA

    Postado

    Pode utilizar o seguinte código:

     

    Exibe uma caixa para digitar uma data e declara as variáveis 

    Dim data As Date

    data = InputBox("TEXTO DE EXIBIÇÃO", "NOME DA CAIXA", "TEXTO EXIBIDO DENTRO DA CAIXA DE DIGITAÇÃO")
    dia_End = Mid(data, 1, 2)
    atual_End = Mid(data, 1, 2) + 1
    mês_End = Mid(data, 4, 2)
    ano_End = Mid(data, 7, 4)
	NOME_MÊS = MonthName(mês_End)

    Abre o arquivo utilizando as variáveis 

    Workbooks.Open "\X:\SPO\CGOF\DIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIG\ACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHAS\Macrov - Acompanhamento de orçamento\" & ano_End & "\" & mês_End & "_" & NOME_MÊS & "\limite.xlsx

    Não sei se é isso que precisa, mas pode utilizar as variáveis de outras maneiras.

  10. Ajuda com figcaption

    em Tutoriais & Dicas - HTML, XHTML, CSS

    Postado

    Gabriel, com um código pouco diferente do seu, consegui chegar no seu resultado, conforme o print. Segue abaixo o código utilizado: 

    <!DOCTYPE html>
<html>
<head>
<style>
body {margin:25px;}

div.polaroid {
  width: 80%;
  background-color: white;
  box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);
  margin-bottom: 25px;
}

div.container {
  text-align: center;
  padding: 10px 20px;
}

.bottomleft {
    position: absolute;
    bottom: 8px;
    left: 70px;
    font-size: 18px;
    color: white;
   }
</style>
</head>
<body>

<h2>Responsive Polaroid Images / Cards</h2>

<figure class="container">
  <img src="lights600x400.jpg"/>
    <div class="bottomleft">TESTE LEGENDA</div>
</figure>

</body>
</html>

    Espero ter ajudado.

    Capturar.PNG

  15. Algoritmo prestação

    em Lógica de Programação

    Postado

    Em 10/07/2017 at 21:37, Pablito821 disse:

    Boa noite,

    Galera estou aprendendo programação através de um livro de programação e não tenho os exercícios resolvidos que são proposto pelo livro, então eu venho através desse tópico para pedir ajuda aos mais experientes para me dizer se meu algoritmo estar correto ou não.  
    Efetuar o calculo e apresentação do valor de uma prestação em atraso, utilizando a formula: PRESTAÇÃO = VALOR+(VALOR*(TAXA/100)*TEMPO). 

    
algoritmo "Prestacao"
// Função : Calcular prestação
// Autor :   Pablo Kevin
// Data : 10/07/2017
// Seção de Declarações 
var
prestacao,valor,taxa,tempo:Real
inicio
// Seção de Comandos 
   Escreval("Calcular Valor de uma prestacao")
   Escreval("Digite o valor ===> ")
       leia(valor)
   Escreval("Digite o valor da taxa ==> ")
       leia(taxa)
   Escreval("Digite o tempo ==> ")
       leia(tempo)
   prestacao <- valor+(valor*taxa/100)*tempo
   Escreval("prestacao ==> ", prestacao, " R$")

   

fimalgoritmo

    OBRIGADO DESDE JÁ

    Amigo, não rodei o código, porém no enunciado que você passou está "PRESTAÇÃO = VALOR+(VALOR*(TAXA/100)*TEMPO)" e no código você botou "valor+(valor*taxa/100)*tempo", esta faltando o parênteses antes da "taxa", não sei se faz alguma diferença (também estou aprendendo), porém foi a única coisa que achei diferente no seu código.

×
×
  • Criar Novo...