lobismano
Membros-
Total de itens
134 -
Registro em
-
Última visita
Sobre lobismano
lobismano's Achievements
0
Reputação
-
Ao passar o mouse, aparecer um link
pergunta respondeu ao MTavares de lobismano em Ajax, JavaScript, XML, DOM
beleza. <html> <head> <script> function exibelink(){ link.innerHTML = "<a href=http://www.terra.com.br>www.terra.com.br</a>" } </script> </head> <body> <img src="http://scriptbrasil.com.br/forum/membro.gif" onmouseover="exibelink();"></img> <span id="link"></span> -
beleza. soma = 0 faça enquanto ( primeiro < segundo ){ se primento modulo 2 = 0 então soma = soma + primeiro fim se }
-
replace "youtube", "voobys"
-
É uma boa. Onclick, chama a função e incrementa no banco de dados. Át.
-
beleza. Dim meuArray as variant meuArray = Array("Valor1","Valor2","Valor3...") Sheets("Infos Referências").range("A:L").AutoFilter Field:=3, Criteria1:=meuArray, Operator:=xlFilterValues At.
-
Uma alternativa é usar frames. no load do form você definie eles como visible=false. Quando clicar no botão habilita o frame especifico.
-
Você passou o coockie na query? select ... from ... order by Request.Cookies("sort")
-
Amigo, Segue um exemplo. <html> <head> <script> function atualiza_texto(elemento) { area.innerHTML = elemento; } </script> </head> <body>Texto: <input type="text" name="texto" onkeyup="atualiza_texto(this.value);"/> <p> <span id="area"></span> </body> </html> At.
-
Uma alternativa é utilizar cookies. Você armazena a ordenação no cookie e depois testa com if. if Request.Cookies("sort") = "asc" then Response.Cookies("sort")="desc" else Response.Cookies("sort")="asc" end if At.
-
Amigo, E só deixar em branco onde esta o valor "sort" ou com outro valor <>"sort" Át.
-
Amiga, Não sei o objetivo e nem o tamanho do seu arquivo mais acho que deste jeito é mais facil. Sub tarifa() Dim valor As String Dim arquivo As String Dim cont As Integer cont = 2 arquivo = "c:\teste.txt" Open arquivo For Append As #1 Do While Cells(cont, 1).Value <> "" If UCase(Left(Cells(cont, 1).Value, 3)) = "TAR" Then valor = Cells(cont, 2).Value * -1 Print #1, valor End If cont = cont + 1 Loop Close #1 End Sub At.
-
Amigo. Coloquei o código para qualquer um dos 2 tipos de botão que você escolha usar. Veja qual você está utilizando, acerte no nome do controle conforme o seu e remova o que você não vai precisar. O código está em 2 etapas: 1 - durante a abertura da planilha 2 - durante a edição da celula propriamente dita. 1 - Durante a abertura da planilha: Private Sub Workbook_Open() With Plan1 If .Range("B5").Value = "" Then .Shapes("Botão 1").ControlFormat.Enabled = False .Shapes("CommandButton1").ControlFormat.Enabled = False End If End With End Sub 2 - E na planilha onde contem a celula que será alterada. Private Sub Worksheet_Change(ByVal Target As Range) With Plan1 If .Range("B5").Value <> "" Then .Shapes("Botão 1").ControlFormat.Enabled = True .Shapes("CommandButton1").ControlFormat.Enabled = True Else .Shapes("Botão 1").ControlFormat.Enabled = False .Shapes("CommandButton1").ControlFormat.Enabled = False End If End With End Sub At.
-
Amigo, Qual é o evento que deve ser considerado para determinar o fim do valor entrado? Ex.: um enter, clique em outra celula, etc.
-
Como editar arquivo bat em textbox ajudem duvida cruel
pergunta respondeu ao pecados_imortais de lobismano em VBA
Amigo. O jeito que está tentando agora está diferente da pergunta inicial, mas vamos lá. se estiver querendo usar: W.WriteLine("cmd.exe /c C:\sampfp.exe -m && cmd & TextBox1.text") neste caso o textbox tem que estar assim: W.WriteLine("cmd.exe /c C:\sampfp.exe -m && cmd" & TextBox1.text & "") não sei o que o comando " && cmd " faz, por isso pode dar erro. Se quiser, posta o jeito que funciona sem textbox para ver se posso te ajudar At.