Ir para conteúdo
Fórum Script Brasil

Lisandro Oliveira

Membros
  • Total de itens

    399
  • Registro em

  • Última visita

Tudo que Lisandro Oliveira postou

  1. Olá mstr ... você pode fazer via VBA veja: Vá em ferramentas/macros/editor do visual basic Clique em inserir / módulo, e cole esse código lá Sub lis() Dim l As Integer l = 1 While Range("a" & l).Value <> Empty Range("a" & l).Select Rows(l).Select Selection.Interior.ColorIndex = 37 l = l + 2 Wend End Sub Agora feche essa janela e volte para a planilha do excel Insira um botão de comando que está na barra de formulario (se ela não estiver sendo exibida vá em exibir/barra de ferramentas/formulario) Aparecerá uma janela com a macro lis, clique nela / ok Pronto, digite qualquer coisa na coluna A nas linhas 1,2,3,4,5,6 e depois clique sobre o botão. Endendeu... beleza?? Abraços.
  2. é isso mesmo veja: Insert into clientes values(1,'maria','01/01/2005')
  3. Cara, sinceramente eu desconheço isso no power point!!
  4. Olá Gutto, só pode ser problema de instalação, porque isso funciona normalmente em qualquer outra maquina que estiver instalado o office, na hora da instalação você tente escolher a personalizada, e nela clique sobre o access e escolha "excecutar apartir do meu computador", assim ele instala mais recursos pra ele. Abraços.
  5. Para colocar o numero de paginas vá em Inserir / numero de paginas para sair lado a lado, imprima primeiro as paginas pares e depois as impares Vá em arquivo imprimir, lá você vai encontrar a opção para imprimir primeiro as pares e depois imprima as impares beleza???
  6. Felipe eu não utilizo muito o office XP, mas é quase certeza que você encontrará na ajuda dele Abraços.
  7. Lisandro Oliveira

    Site

    Veja esses sites: http://www.virtual.epm.br/material/tis/mat...l97/Excel97.htm http://www.truquesedicas.com/tutoriais/exc...wlets/00001.php http://venus.rdc.puc-rio.br/kids/kidlink/k...ManualExcel.pdf http://www.apostilando.com/download.php?cod=465 http://www.cultura.ufpa.br/dicas/ms/excel.htm Cara você acha muita coisa nos utilizando site de buscas Abraços.
  8. Lisandro Oliveira

    Ajuda

    Olá Gutelo, quando se vai salvar, não se salva somente uma planilha, se salva o arquivo todo (a pasta toda) ActiveWorkbook.Save Agora caso você nunca tenha salvo o arquivo, você na primeira vez precisará informar o local onde você quer grava-lo ActiveWorkbook.SaveAs Filename:= _ "C:\arquivo.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Entendeu????
  9. Lisandro Oliveira

    Campo Null

    Olá fertel, para fazer isso você tem que colocar is null: SELECT * FROM CONTA WHERE CONTA.NUMERO IS NULL Abraços.
  10. Lisandro Oliveira

    Backup

    Olá Milene, eu sempre faço assim: **Para criar o device: exec sp_addumpdevice @devtype = 'Disk', @logicalname = 'Backup_banco', @physicalname = 'C:\Backup\Backup_banco.Bak' BACKUP DATABASE cliente TO Backup_banco Tente aí qualquer coisa retorne, Abraços.
  11. As versoes enterprise só podem ser instaladas nos servers da vida, instale a personal edition. Abraços.
  12. Anderson é isso mesmo que você está fazendo, só que no update é assim: UPDATE DOCUMENTO SET ARMAZEM = 2 WHERE ID = 1
  13. Fausto, as pessoas não terão acesso ao banco nem as tabelas se elas não se logarem com um usuario e uma senha, caso você tenha que dar um usuario e uma senha para essas pessoa coloque restrições de acesso, crie Views ou coloque as senhas criptografadas no banco, etc... beleza???
  14. Olá Neves, você pode ir pelo enterprise manager para visualizar todas as tabelas existentes, Veja tambem as proc Sp_help e SP_helpDB beleza???
  15. Olá joel, você esta usando o SQL Server 7 ou 2000?? Se for 7, só instalando como accent insensitive se for 2000 no select você pode fazer assim: Select * From table1 where teste Collate SQL_Latin1_General_CP1_CI_AI = 'Á' Collate SQL_Latin1_General_CP1_CI_AI beleza????
  16. Olá gutelo, faça assim: selecione as celulas que você quer permitir a edição, vá em formatar / celulas / Proteção em travado, desative o quadradinho pronto, agora é só ir em Ferramentas /proteger planilha Tentaí Qualquer coisa retorne Abraços...
  17. Olá você pode fazer assim: Abra a planilha, vá em ferramentas/macros/editor do Visual Basic e clique 2x sobre "Esta Pasta de Trabalho", e cole esse codigo lá Salve a planilha e feche-a Pronto, abra ela novamente, ela somente poderá ser aberta 5 vezes, na 6ª ela irá fechar automaticamente, e na 7ª será solicitado uma senha para a abertura da planilha que é 999 beleza ??? Private Sub Workbook_Open() Dim a As String If Range("a65536").Value = 5 Then If Range("b65536").Value = 1 Then a = InputBox("Digite a senha: 999") If Val(a) = 999 Then Range("a65536").Value = 0 Range("b65536").Value = 0 Exit Sub End If End If Range("b65536").Value = 1 ActiveWorkbook.Save End If Dim l As Integer l = Range("a65536").Value l = l + 1 If l = 6 Then Workbooks.Close End If Range("a65536").Value = l ActiveWorkbook.Save End Sub beleza??
  18. Aline utilizando VBA dá pra fazer belezinha Veja: -Abra a planilha e vá em Ferramentas/macros/editor do visual basic -Clique no menu Inserir / módulo e cole esse Código Sub lis() Dim l, dia As Integer l = 2 dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While Range("a" & l).Value <> "" dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While dtini <= dtfim dia = Weekday(dtini, vbMonday) If dia = 6 Or dia = 7 Then qtd = qtd + 0 ElseIf dia = 5 Then qtd = qtd + 8 Else qtd = qtd + 9 End If dtini = dtini + 1 Wend Range("E" & l).Value = qtd l = l + 1 qtd = 0 Wend End Sub -Agora feche o editor do Visual Basic -Vá em exibir /barras de ferramentas / formulario -Procure na barra de ferramentas o "Botão", clique nele abra-o na planilha -Aparecerá uma janela pedindo para você atribuir macro, clique em lis / OK Pronto, só que para funcionar certinho o nome deve estar na celula A1, a dataini na celula B1... Eu testei e funcionou, tente aí, qualquer coisa retorne Você poderia explicar melhor o seu código? Estou aprendendo vba e me interessei por esse programa. grato Olá stralo, ficou melhor o "sem problema" hehehe, Primeiro eu crieu uma variavel l que represanta a linha na planilha e o l começa com 2 ou seja linha 2, depois eu criei duas variaveis, uma guardará a data inicial que está na coluna B e linha 2 ("b2") ou Range("b" & l).value, outra a data final. depois entra em um looping que diz enquanto o conteudo da celula a2 for diferente que vazio prossiga, ai entra-se em um outro loop que diz: enquanto a data inicial for menor que a data final faça: aí a variavel dia guarda o dia da semana em numero ex: 1 = segunda, 2 =terça..., pronto, depois só estou perguntando se o dia for 6 ou 7 ou seja Sab ou Dom a variavel qtd quarda o valor zero e assim por diante..., depois é exibido o valor da variavel qtd na celula Range("E" & l).Value na coluna E e na linha abaixo dos valores. beleza??
  19. Olá coloque isso que já ira resolver o seu caso: O error resume next Até mais...
  20. Aline utilizando VBA dá pra fazer sem problema Veja: -Abra a planilha e vá em Ferramentas/macros/editor do visual basic -Clique no menu Inserir / módulo e cole esse Código Sub lis() Dim l, dia As Integer l = 2 dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While Range("a" & l).Value <> "" dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While dtini <= dtfim dia = Weekday(dtini, vbMonday) If dia = 6 Or dia = 7 Then qtd = qtd + 0 ElseIf dia = 5 Then qtd = qtd + 8 Else qtd = qtd + 9 End If dtini = dtini + 1 Wend Range("E" & l).Value = qtd l = l + 1 qtd = 0 Wend End Sub -Agora feche o editor do Visual Basic -Vá em exibir /barras de ferramentas / formulario -Procure na barra de ferramentas o "Botão", clique nele abra-o na planilha -Aparecerá uma janela pedindo para você atribuir macro, clique em lis / OK Pronto, só que para funcionar certinho o nome deve estar na celula A1, a dataini na celula B1... Eu testei e funcionou, tente aí, qualquer coisa retorne
  21. Olá Aline, você poderia colocar mais ou menos como que estaria organizado esses dados na sua planilha??, o que tem em cada coluna??
  22. Fraudinha, hoje em dia você acha facil facil um software para instalar em seu computador, no mesmo lugar que você encontra office, windows, etc..., você encontra o SQL Server2000, Instale o Personal edition, não precisa ser a versão Enterprise.
  23. Olá Eduardo Veja se esse serve: http://www.linhadecodigo.com.br/livros.asp?id=118
×
×
  • Criar Novo...