Ae amigos, como vão?
Caros amigos, preciso diminuir o valor 104119 de mais de 500 linhas. Coloquei um exemplo de como são essas linhas.
{104188}{104222}O Oráculo vai te ver agora.
{104478}{104516}Sei que você é o Neo.
{104531}{104558}Já vou te atender.
{104584}{104608}Você é o Oráculo?
{104617}{104639}Bingo.
{104706}{104774}Não era bem o que|esperava, não é?
Issu ae em cima é uma parte das legendas do MatriX. Eu preciso usar alguma fórmula no Excel para q faça o cálculo de uma vez só diminuindo de todas essas linhas ae o valor 104119. Pra ter uma idéia do que estou precisando, após diminuido o valor 104119 da primeira linha ficaria assim:
{69}{103}O Oráculo vai te ver agora.
Outra coisa é q todas as 500 linhas ocupam somente a coluna A do excel, sendo que todo o conteúdo de uma linha inteira está apenas na coluna 1A, assim como todo o conteúdo da linha 2 está na coluna 2A, e assim por diante.
Putz, que complicação hein?
Espero q tenham entendido o que eu quero fazer e ficaria muito agradecido se alguém me ajudar a descascar esse pepino!
Conto com vocês.
Obrigado!
- Home
- >
- Fórum
- >
- Entretenimento...
- >
- Gravação, Softw...
- >
- Malditas Legendas, será q...
Eu faço edição de legenda com os programas de edição que tem na seguinte HP: http://doom9.org/software.htm
CTT
Meu chapa,
Você pode criar o seguinte código VB na sua planilha (Ferramentas > Macro > Editor do Visual Basic...):
Sub Subtracao()
Rem Este procedimento foi desenvolvido por André Vianna, em 14/12/2002.
Rem Todos os direitos reservados - uso permitido apenas com a inclusão
Rem destas três linhas de comentário. Uso restrito a fins educacionais.
Rem Não foi incluído nenhum tratamento de erro.
Dim aux As Integer, cont1 As Integer, cont2 As Integer
Dim auxStr As String, Aux2 As String
auxStr = "<>"
aux = 0
Do Until (auxStr = "")
aux = aux + 1
Aux2 = "A" & CStr(aux)
Range(Aux2).Select
auxStr = ActiveCell.FormulaR1C1
cont1 = InStr(1, auxStr, "{", vbTextCompare)
cont2 = InStr(1, auxStr, "}", vbTextCompare)
If cont1 * cont2 > 0 Then
auxStr = Left(auxStr, cont1) & CStr(Val(Mid(auxStr, cont1 + 1, cont2 - cont1 - 1)) - 104119) & Right(auxStr, Len(auxStr) - cont2 + 1)
cont1 = InStr(InStr(1, auxStr, "{") + 1, auxStr, "{", vbBinaryCompare)
cont2 = InStr(cont1, auxStr, "}", vbBinaryCompare)
If cont1 * cont2 > 0 Then
auxStr = Left(auxStr, cont1) & CStr(Val(Mid(auxStr, cont1 + 1, cont2 - cont1 - 1)) - 104119) & Right(auxStr, Len(auxStr) - cont2 + 1)
End If
Else
auxStr = ""
End If
ActiveCell.FormulaR1C1 = auxStr
Loop
MsgBox "Terminei...", vbInformation + vbOKOnly, "Ta-dá..."
End Sub
No mesmo editor VB, vá em Executar > Executar Sub/UserForm (F5) e... Voilà!!!
Não se esqueça de fazer, ANTES, uma cópia de segurança de sua planilha, para o caso de algo dar errado!!!
A rotina foi testada, simulando-se exatamente a situação definida pelo colega...
Alternei de "vbTextCompare" para "vbBinaryCompare" para mostrar que, em casos como este, pode-se utilizar qualquer um dos dois...
Divirta-se!
[]´s
"Muitas pessoas são bastante educadas para não falar com a boca cheia, porém não se preocupam em fazê-lo com a cabeça oca." - Orson Welles
VecchiAe amigos, como vão?
Caros amigos, preciso diminuir o valor 104119 de mais de 500 linhas. Coloquei um exemplo de c...
ae, usa o SubSync como ele vc acerta o valor de uma linha e ele automaticamente replica pra demais. É bem baba!!!!
GzorkMeu chapa,
Você pode criar o seguinte código VB na sua planilha (Ferramentas > Macro > Editor do Visual Basi...
Olá Gzork, como vai?
Prezado amigo primeiramente obrigado! Mais sinceramente naum entendi como usar o camando ae de cima. tipo vc disse pra eu criar o seguinte código VB na minha planilha (Ferramentas > Macro > Editor do Visual Basic...) Mais depois desses caminhos ae de cima naum sei mais onde ir. Por favor quais o próximos passos pra eu colocar a mega-fórmula do André Vianna?
Conto com vc!
Obrigado!
Hum...
Depois que você estiver no editor, venha nesta página do fórum e selecione e copie o trecho de VB (está totalmente em verde :wink: ).
Volte para o editor VB. No lado esquerdo, deve haver uma coluna cujo título, na barra, deverá ser algo do tipo "Projeto - VBAProject", dentro desta janela, você deve encontrar o objeto "EstaPasta_de_trabalho". Clique com o botão direito do mouse sobre este objeto e escolha a opção "Visualisar código". Neste instante deverá abrir uma janela em branco do lado direiro; nela, cole o código previamente copiado.
Neste momento, tendo a certeza que a planilha está com os dados que você descreveu no seu primeiro post, vá em Executar > Executar Sub/UserForm (F5).
Se tudo correr bem, uma pequena mensagem aparecerá: "Terminei...".
Vá, então, para a planilha e verifique se o efeito desejado foi obtido...
Espero ter explicado melhor agora... Qualquer dúvida, é só postar!
Boa sorte!
[]´s
"Muitas pessoas são bastante educadas para não falar com a boca cheia, porém não se preocupam em fazê-lo com a cabeça oca." - Orson Welles
Não dá pra arrumar as legendas com o Subsync ????
P-IV3.0@3.8/Mobo Asus P5G/Memo Dual 2Gb/2 x Hd Seagate 120Gb Sata150 Raid 0/NVidia 8600GT PCI-E/SoundBlaster Audigy LS/Dvd+-RW/Dvd-rom/.
Weyne JrNão entendo porque essa complicação toda. É muito mais simples utilizar um programa que edite as legendas como o [b]S...
Foi o que eu disse mas se o cara que arruma na unha fazê o que...
o cara que mata mosca com marreta!!!!
Weyne JrNão entendo porque essa complicação toda. É muito mais simples utilizar um programa que edite as legendas como o [b]S...
Cara, já tentei mil e um programas e nada de dar certo. Naum quero complicar e sim resolver o problema, mesmo assim valeu! :lol:
m@arceloFoi o que eu disse mas se o cara que arruma na unha fazê o que...
o cara que mata mosca com marreta!!!!
AuehUeah... :lol: :lol: :lol:
GzorkHum...
Depois que você estiver no editor, venha nesta página do fórum e selecione e copie o trecho de VB (está tot...
Irááááááááááá...... Valeu grande Gzork !!! Deu certim. AuehUEah... vc reslveu o meu problema. AuehUEah.... Valeu mesmo AMIGÃO!
:lol: :lol: :lol: :lol: :lol:
Weyne JrNão entendo porque essa complicação toda. É muito mais simples utilizar um programa que edite as legendas como o S...
Não sei não Weyne, mas pode ser pelo mesmo motivo que montanhista não usa helicóptero para chegar ao topo... Talvez seja o instinto do ser humano de vencer os desafios... sei lá...
Só sei que encarei como desafio e, por sorte, dei uma sugestão que ajudou nosso colega... :wink:
Ao Vecchi, fico satisfeito por ter auxiliado de alguma forma na solução de seu problema e saber que não precisa jogar fora seu trabalho!
[] a todos!
"Muitas pessoas são bastante educadas para não falar com a boca cheia, porém não se preocupam em fazê-lo com a cabeça oca." - Orson Welles
GzorkAo Vecchi, fico satisfeito por ter auxiliado de alguma forma na solução de seu problema e saber que não precisa jogar fora seu trabalho!
Ae graaaaaannnnnnndeeeeeee Gzork, blz?
hehehehe... mais uma vez te agradeço pela mão que me deu. E realmente vc me salvou de perder o meu trabalho. E que trabalheira deu, hehehehe.... mais o q importa é q vc salvou meu trabalho.
Valeu AMIGÃO!!! :lol: :lol: :lol: