Crafteribanez

Resolvido a pesquisa com o seguinte comando Python

vNumeroCaracter = texto.find(variavel, inicio nova contagem)

Boa tarde

Estou tentando no Python => Google Colab o seguinte procedimento sem êxito.

Encontrar todas as ocorrências de um texto e localizar o índice de cada ocorrência.

Pretendo exportar os resultados obtidos para um arquivo externo.

Código até o momento:

from google.colab import files

arquivo = files.upload()



pip install pdfminer.six



from pdfminer.high_level import extract_text

texto = extract_text('dopa.pdf')

print(texto)



print("Termo Aditivo " + str(texto.count('EXTRATO DE TERMO ADITIVO')))

Este código me retorna a quantidade de ocorrências, porém precisaria encontrar os índices das 4 ocorrências para poder extrair as strings.

Depois do texto, sempre tem o número do aditivo, é o que me interessa;

Aceito sugestões.

Grato.

Boa Noite

No Google Sheets (Planilhas), há uma função Query que ajuda muito a fazer consultas em outras bases parametrizadas, utilizando princípios do SQL ( Select, where, From, etc .....).
Também encontrei em diversos sites maneiras de criar campos calculados dentro da query, incluindo novos campos.

O problema: Para valores numéricos, consegui facilmente criar um campo calculado dentro do query obtendo o resultado, porém para diferenças entre datas, isto não foi possível, ou, não conheço o método correto.

Retorna mensagem de erro que os campos não são numéricos.

Más se for feito diretamente na planilha um menos o outro, o resultado aparece normalmente.

Alguém teria um exemplo de cálculo entre dadas no query do Google sheets por acaso ? (Criação de campo calculado )

Grato.

Option Explicit

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim x As Integer
    Dim i As Long


Sub Consolida()

    Application.ScreenUpdating = False

    Dim arq(1 To 3) As String
    Dim WB1 As Workbook
    Dim WS1 As Worksheet
    Dim ULD As Long
    Dim i As Integer
    
    Set WB1 = ActiveWorkbook
    Set WS1 = WB1.Sheets("Dados")
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    WS1.Select
    Cells.Clear
    
    arq(1) = "\\caminho" & "\Arquivo01.xlsx"
    arq(2) = "\\Caminho" & "\Arquivo02.xlsx"
    arq(3) = "\\Caminho" & "\Arquivo03.xlsx"
    
    For i = Plan2.Range("Célula alvo").Value To (UBound(arq))
    
        With cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Data Source=" & arq(i)
            .Properties("Extended Properties") = "Excel 8.0;HDR=YES"
            .Open
        End With
        
        sql = "Select * from [Planilha$]"
        
        rs.Open sql, cn, adOpenKeyset, adLockOptimistic
        
        WS1.Activate
        ULD = WS1.Cells(Rows.Count, 1).End(xlUp).Row
        WS1.Range("A" & ULD + 1).CopyFromRecordset rs
        
        For x = 1 To rs.Fields.Count
            WS1.Cells(1, x) = rs.Fields(x - 1).Name
        Next x
        
        cn.Close
    
    Next i
    
    Set cn = Nothing
    Set rs = Nothing
    
    Plan1.Activate
    
    MsgBox "Consolidação concluída ! "
    Plan2.Activate
    
    Application.ScreenUpdating = False

End Sub

Eu utilizo esta macro para juntar meus arquivos, que tem colunas iguais.

Ativar a Referência "Microsoft Activex Data Objects 2.8 Library" ou superior para utilização da macro

Adaptar conforme sua pasta de trabalho e planilhas.
Felicidades.

=aleatórioentre(1;9999)

Adaptei uma função de verificação que encontrei em um site e funcionou bem.

Criei um array para os 6 valores da planilha.

Function verificar(vRegiao As Range) As Integer

Dim vValores(6)
Dim b As Variant
Dim i As Integer
Dim vContagem As Integer
Dim w As Range

vContagem = 0

vValores(1) = Plan1.Range("C3").Value
vValores(2) = Plan1.Range("D3").Value
vValores(3) = Plan1.Range("E3").Value
vValores(4) = Plan1.Range("F3").Value
vValores(5) = Plan1.Range("G3").Value
vValores(6) = Plan1.Range("H3").Value

For Each w In vRegiao

    For i = 1 To UBound(vValores)

        If vValores(i) = w.Value Then
            vContagem = vContagem + 1
        End If
    
    Next i

Next w

verificar = vContagem

End Function

Site original para procura com String em Array :

https://planilhando.com.br/forum/vba-macros/buscar-string-dentro-de-array/

Anexei a tua planilha com esta função VBA

Acho que atende.
Dá um grito se não for isto.
Feliciddes.

clube hardware1.7z

Pelo que vi na tua planilha, o retorno que desejas é na range J6:J9. ? Confere ?

Se for quer por fórmulas do Excel ou uma função do VBA ?

Acho que por fórmulas vai ser bem mais "comprido" o texto a ser digitado.

Boa tarde

Função no Excel pronta para este propósito não encontrei, porém criei agora, uma função personalizada que talvez te atenda.

Function junta(celula As Range) As String

    'Teste condicional: Se na célula F1 célula do critério estiver vazia
    If Plan1.Range("F1").Value = "" Then
        'Retorna para a função "Não encontrado"
        junta = "Não encontrado"
    'Caso contrário
    Else

        'Delcaração de veriáveis
        Dim uld As Long
        Dim a As Long
        Dim vCriterio As Integer
        Dim vTexto As String
        
        'Busca o valor do critério
        vCriterio = Plan1.Range("F1").Value
        'inicia a variável texto com vazio
        vTexto = ""
        
        'Verifica a última linha da coluna "A" da planilha 1 para looping for
        uld = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
        
        'Inicia o looping for
        For a = 2 To uld
        
            'Se a célula da coluna A da linha "a" for igual ao critério
            If Plan1.Range("A" & a).Value = vCriterio Then
            
                'Acrescenta a variável vTexto o conteúdo da celula atual do looping
                vTexto = vTexto & " - " & Plan1.Range("B" & a).Value
            
            End If
        
        Next a
        
        'Retorna para a função o texto concatenado de todos os critérios
        junta = vTexto
    
    End If

End Function

Inseri no posto o arquivo que criei com a macro.
Dá uma olhada na função.

Tentei descrever cada linha do código para melhor entendimento.

Se te servir altera de acordo com as tuas planilhas.

Felicidades.

Função Junta.7z

Boa tarde

Trabalho em meus projetos tanto com planilhas direto, bem como com userforms (Formulários).
Em ambos é possível retornar valores desejados.

No caso dos userforms pode-se com certeza armazenar resultados em planilhas, faço isto direto.
Poderia ser mais específico na questão ?
Acredito que o que desejas seja possível, mesmo não tendo entendido bem a questão.

Bom dia.

Não tenho por procedimento utilizar planilhas compartilhadas.

Para estas necessidades em que temos vários usuários geralmente utilizo um arquivo por pessoa em ambiente de rede com consulta sql, para os que somente "consultam" e procedimento de gravação para os que modificam. Base de dados separada em arquivo no servidor.

Fica como dica.

Provavelmente no fórum, haverá quem tenha melhor conhecimento em compartilhadas.

Se necessitar informações de como proceder sql para consultas. Contate.

Felicidades.

Boa noite

Uma das possibilidades de se fazer isto via código seria:

Private Sub Worksheet_Activate()

    If Environ("username") = "usuario que se quer restringir" Then
    
        Planilha1.Visible = False
    
    End If

End Sub

Eu particularmente, utilizaria um UserForm com envio de informações direto para a Pasta de Trabalho e planilha desejada.

Boa noite Marina
Não sei se já conseguiste resolver esta questão.
Olhei tua planilha e não vi datas inseridas em nenhum local, então acredito que desejas inserir isto de forma automática.
Pode-se fazer um monitoramente de células de uma planilha e através de uma "mudança" ou inserção de valores em um local, registrar em outra planiha, a data desta ocorrência, usuário logado e célula alvo.
Tenho alguns projetos em que registro alterações de valores em células e usuários que as procedeu, para fins de registro.
Não sei se é isto que desejas.
Caso tenha resolvido, felicidades, caso ainda não podes descrever melhor o problema.

Boa noite e felicidades.
 

Boa noite

Diretamente por funções de planilha não encontrei uma função que atendesse esta necessidade, porém via VBA, tem esta aqui que funciona.

A única coisa que tens que cuidar é o indice de ColorIndex do VBA.

Function verificaColorIndex(celula As Range)

    If celula.Font.ColorIndex = 3 Then
    
        verificaColorIndex = "Vermelho"
        
    ElseIf celula.Font.ColorIndex = 33 Then
    
        verificaColorIndex = "Azul-Claro"
        
    Else
    
        verificaColorIndex = "Indefinido"
        
    End If

End Function

Se necessitar auxilio para achar os códigos das cores contata.
Felicidades.

Boa tarde

Utilizei no Python na entrada entrada de dados a função replace para trocar a vírgula pelo ponto, considerando o cálculo no padrão americano.

Funciona bem o código, porém gostaria de informações/dicas de como o pessoal está procedendo para programar os cálculos no formato brasileiro.

Tem algum módulo pronto para isto, formato/visualização ? Ou cada vez que precisar visualizar o formato " Brasileiro => R$ 12.000,00" tem que ficar fazendo o replace ponto por virgula e virgula por ponto ?

Grato.

from tkinter import *

def bt_click():
    if(str(ed1.get()).replace(",","").isnumeric() and str(ed2.get().replace(",",""))).isnumeric():
        num1= float(ed1.get().replace(",","."))
        num2= float(ed1.get().replace(",","."))     

        num3 = num1 + num2
        lb1["text"] = ("%10.2f" %(num3))

janela = Tk()
janela.title("Calculos")

bt1 = Button(janela,width=10, text="Calcular", command = bt_click)
bt1.place(x=70, y=100)

ed1 = Entry(janela,width=10)
ed1.place(x=70, y=30)

ed2 = Entry(janela,width=10)
ed2.place(x=70, y=60)

lb1 = Label(janela,text="Resultado")
lb1.place(x=70, y=130)

janela.mainloop()

Bom dia
 

Comecei a testar o Mit AppInventor par criar aplicativos para Android.
Criei um bem básico e testei no meu Android 7.0 tudo ok.
Enviei para alguns camaradas testarem e o que tem Android 6.0 me respondeu que aplicativo informa não poder instalar por não ter suporte.

Gostaria de saber se o Mit AppInventor: http://ai2.appinventor.mit.edu/ tem versão mínima de Android  para rodar aplicativos ou seria problema no celular Android do camarada ?

Grato por alguma informação.

Bom dia

Trabalho diretamente com Excel 2010 e 2013. Desde 2018, monitoro resultados em Dashbords criados em Excel com pesquisas em outras planilhas Excel através de SQL.

Este abaixo é um exemplo de busca de dados com SQL no Excel, ativando a biblioteca "Microsoft ActiveX Data Objects 2.8 Library"

Questão. Gostaria de começar a desenvolver os Dashbords em LibreOffice Calc visto a facilidade de instalar o aplicativo "Sem licença paga"

Tem algum local "site" , "ebook" que eu possa consultar onde vejo como é possível este procedimento de SQL no Calc tipo no Excel ? Preciso que seja consulta planilha a planilha pois estou indo buscar dados em outras bases Excel.

Grato.

Sub SQLBuscaDados()

    Set WS1 = Plan003
    WS1.Activate
    WS1.Cells.Select
    Selection.ClearContents
    
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = ThisWorkbook.Path & "\Dados.xlsx"
        .Properties("Extended Properties") = "Excel 8.0;HDR=YES"
        .Open
    End With
    
    sql = "Select * from [Dados$]"
    
    rsConsulta.Open sql, cn, adOpenKeyset, adLockOptimistic
    Col = 1
    
    If rsConsulta.EOF = False Then
    
    WS1.Range("A2").Select
    
    For Each FD In rsConsulta.Fields

        With WS1.Cells(1, Col)
            .Value = FD.Name
            .Font.Bold = True
            .Interior.Color = RGB(37, 219, 219)
        End With

        Col = Col + 1

    Next FD

        WS1.Cells(2, 1).CopyFromRecordset rsConsulta
        
        Else
        
            MsgBox "Não há dados"
        
        End If
    
    cn.Close
    
    WS1.Range("A2").Select
    
    Set WS1 = Nothing
    
End Sub

Faço pesquisas internas do mesmo modo com a mesma bilibioteca referenciando as planilhas internas.

Boa Tarde

Criei um formulário para inserção de dados no Word em um arquivo1.

Recebo os dados para inserir no formulário sempre de  outro arquivo Word.

Quando abro o formulário do word para inserir os arquivos não consigo copiar do outro arquivo do Word os dados para colar nos campos apropriados do formulário, pois este fica desabilitado..

Tem algum comando para ser colocado no formulário do Word ou habilitar ou desabilitar algo nas opções do Word que me permita trabalhar com o formulário aberto e ao mesmo tempo copiar os dados de outro arquivo do Word ? Seria copiar do arquivo e colar no formulário.

Grato por uma ideia.

Boa noite.

Estou estudando Português e tentando estudar Javascript junto para ver se consigo unir o útil ao agradável.

O que estou tentando no momento é fazer um método de busca por dígrafos dentro de uma string.

A string é uma palavra, não passa disto, somente uma palavra.

Diz a regra do Português que as letras juntas (ch, nh, lh, rr, ss, xc, e em alguns casos gu e qu são sempre dígrafos não importando a posição em que se encontram na palavra.

Outra regra diz que as letras juntas (am, an, em, en) especificamente estas são dígrafos somente no início e no meio da palavra, no fim são ditongos.

Considerando que dígrafos são duas letras e um som(fonema), eu utilizo o código:

function fonetica(){ 

        //Texto a ser procurado
        textoprompt = document.getElementById("palavra").value;
        //Primeira variavel de contagem de dígrafos
        //Modificadores i = Sem case sensitive / g todas as ocorrencias        
        
        //Procura Dígrafos Consonantais
        digrafo1 = textoprompt.match(/Ch|Nh|Lh|RR|SS|XC|SC|GU|QU/ig);
        if(digrafo1 != null){
                dig1 = digrafo1.length;                
        } else {
                dig1=0;
        }

Neste primeiro caso não importa a contagem pois todos são dígrafos de qualquer maneira com exceção de gu qu dependendo da ocasião.

Porém , no caso abaixo, preciso descobrir a posição de cada elemento do "digrafo2" onde cada um inicia e depois descontar da quantidade total de letras para verificar se o dígrafo não está no final, se estiver, não é dígrafo e não posso contar no resultado.

Exemplo: A palavra "change" tem 6 letras e 5 fonemas ( considerando que "an" está no meio e é dígrafo portanto somente um som)

A ideia neste código abaixo era retornar a posição de cada digrafo2 e descontar em código posterior do total de caracteres para ver se esta no inicio ou no meio.

Este código posicao=.... não está me dando nenhum retorno.

Agradeço uma ideia. Os alerts que usei foi para ver até onde o código estava chegando.

 digrafo2 = textoprompt.match(/Am|An|Em|En|Im|In|Om|On|Um|Un/ig);
        if (digrafo2 != null){
                if(digrafo2.length > 1){
                        alert(digrafo2.length);
                        for (i=1 ; i<=digrafo2.length ; i++){
                                alert("aqui"); 
                                posicao[i]=textoprompt.search(digrafo2[i]);
                                alert("aqui2");
                                alert(posicao[i]);  


                        }
                }        

Pessoal, usei indexOf e localizou cada posição.

Encerrado !

A algum tempo tive este mesmo problema, resolvi com a utilização de mais de uma célula na função SE.

Arquivo anexo.

Não achei isto vantajoso, depois de algum tempo, criei uma função em VBA que ficava menos poluída na planilha.

Más de qualquer forma vai aí o método que encontrei e resolveu naquele momento.

As últimas 03 colunas observe que são uma junção da função SE, neste modelo consigo colocar quantos níveis quiser, somente ir colocando cada 7 Se's em uma coluna e referenciar esta nova coluna (célula) ao final da coluna anterior.

Boa sorte!

15 Niveis Funcao SE.xls

Boa tarde

Necessito alterar o código para abrir um arquivo Excel com senha via SQL

Sub Clientes()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim x As Integer
    Dim Cliente As String
    
    Application.ScreenUpdating = False
    
    Cliente = Sheets("Relatorio").Range("A1")
    
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Ace.oledb.12.0"
    
    cn.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Clientes.xls;Extended Properties=Excel 12.0"
    cn.Open
    Sheets("Relatorio").Select
    Cells.Clear
    
    sql = "select * from [Base1$]"
    Set rs = New ADODB.Recordset
    
    rs.Open sql, cn
    Sheets("Relatorio").Range("A3").CopyFromRecordset rs
    
    For x = 1 To rs.Fields.Count
        Cells(2, x) = rs.Fields(x - 1).Name
    Next x
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    
End Sub

Já procurei especificamente sobre SQL com senha para abrir Excel, porém não encontrei nada.

A senha para este modelo é "teste". Em que parte do código insiro a senha ?

Grato.

Sim. Compreendi agora o procedimento.

Arrastei para a direita as caixas ao contrário de arrastar para baixo.

Grato.

Sim encaixa, porém somente ocupando todo o espaço abaixo na horizontal. A forma default que era na Explorer e Properties na esquerda vertical e código ocupando todo o espaço a direita vertical não aceita.

Perfeito.

Set SH2 = Plan1 é mais lógico sendo na mesma pasta de trabalho.

Porém como geralmente trabalho com duas pastas de trabalhos, a referência ao nome interno de uma planilha em outra pasta de trabalho seria possível ou utilizamos o modo "convencional'  set sh3 = worksheets("Cadastro").

A questão tem seu valor pois utilizamos planilhas em rede e que facilmente usuários podem renomear planilhas sem a prévia comunicação, prejudicando assim as rotinas de VBA.

Boa Tarde

Como referenciar no vba as planilhas pela propriedade (Name) primeira da listagem e não pela propriedade Name.

Exemplo, aqui refencio pelo nome que está na aba da planilha

Dim WK2 As Workbook

Dim SH2 As Worksheet

Set WK2 = ActiveWorkbook
Set SH2 = WK2.Worksheets("Clientes")

Agora na expressão:

Set SH2 = WK2.Worksheets("Plan1")  gostaria de referenciar a propriedade (Name) Plan1

Tentei

Set SH2 = WK2.Plan1 - Não aceita

Set SH2 = WK2.(Plan1) - Não aceita

Set SH2 = WK2.[Plan1] - Não aceita.

Aceito sugestões.

Grato.

Boa Tarde

Por um equívoco, consegui desconfigurar as janelas do VBA no Excel. Janela Explorer, Propriedades e Código.

Eu fico movimentando sempre as janelas e quando clico para encaixar, só encaixa na horizontal. Fica muito ruim a visualização.

Não consigo mais encaixar como default Explorer e Properties na esquerda uma em cima da outra e e a janela de códigos na direita ocupando a maioria do espaço.

Alguma sugestão de comando para voltar ao default da IDE ?

Grato.