Ir ao conteúdo
  • Cadastre-se

LaerteB

Membros Plenos
  • Total de itens

    50
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

7

Informações gerais

  • Cidade e Estado
    São Paulo/SP
  • Sexo
    Masculino

Meu PC

  • Processador
    AMD FX-8320E
  • Cooler
    Zalman CNPS10x FLEX / FAN COOLER EXCALIBUR 120MM R4-EXBB-20PK-R0
  • Placa de vídeo
    GTX 970 OC 4GB GDDR5 256 BIT da GALAX
  • Placa-mãe
    M5A97 EVO - Rev. 1.xx
  • Memória
    KINGSTON HIPERX FURY 16GB (2x8GB) 1866Mhz DDR3 CL10
  • HDs
    1 - HD WD BLACK 1TB / 1 - HD SEAGATE SURVEILLANCE 3TB
  • Fonte
    CORSAIR TX 750 W
  • Monitor
    LG 21' FLATRON E2250
  • Browser
    FIREFOX
  1. Bom dia, Neri Schuck Você pode utilizar o exemplo que lhe dei no outro Tópico ("Mensagem Aguarde igual parte inferior planilha"), tirando o Frame só deixando o label e modificando o código para a sua necessidade.. Para conseguir o mesmo feito que a Barra de Status da Planilha do Excel mostra, (com códigos só sei, neste momento, executá-los da maneira que informei anteriormente, que aparece a porcentagem concluída) provavelmente terá que recorrer as APIs, mas neste caso precisa procurar na net, se existe uma possibilidade do mesmo feito... Abraço . LaerteB
  2. Bom dia, Pessoal! Consegui resolver o problema (com esta gambiarra), tirei o código exemplo de outro Forum; do nosso amigo "Mauro Coutinho" e modifiquei para este código abaixo. Agora as caixinhas (com os códigos anteriores que mencionei) não somem e voltam ao estado original de quando foram selecionadas . Só uma coisa, para os que irão utilizar estes códigos, não esquecer de acertar também a ListView1, aqui só estou passando como funciona com estes códigos na ListView2.. OK. Abaixo o código "Salvador" rsrs.. : Dim idbox As Range Dim linUlt As Long Dim sidbox Dim r ' definimos a aba Dim work As Worksheet Set work = Worksheets("Plan2") ' verificação da ultima linha preenchida linUtil = work.Cells(Rows.Count, "F").End(xlUp).Row Set idbox = work.Range("F2:F" & linUtil) For Each sidbox In idbox For r = 1 To ListView2.ListItems.Count If ListView2.ListItems(r).ListSubItems(6).Text = sidbox Then ListView2.ListItems(r).Checked = True End If Next r Next sidbox Agradeço a todos que tentaram me ajudar ... Valeu mesmo a todos . Abraços LaerteB
  3. Bom dia, pessoal!! Então ainda não consegui resolver por completo o problema e ainda preciso de uma mãozinha... Parece que consegui fazer uma gambiarra para quando os checkbox forem marcados gravem na Plan2 (somente as linhas selecionadas); só que ele verifica somente a 1ª linha marcada (aquelas linhas que ficam gravadas na plan2 somente a 1ª é selecionada); desta forma ele consegue marcar na checkbox da 2ª listview somente a 1ª linha que está registrada na plan2 e as seguintes linhas gravadas na plan2 ele não está lendo ... Desta forma preciso que seja feita uma varredura completa nas linhas da Plan2 de seu ID (coluna 6 da listview e da Plan2), como se encontra no código que fiz, que infelizmente somente "pega" a 1ª linha da Plan2 (provavelmente estou esquecendo algo neste código ou fiz errado, desculpe meu lapso mental ). Este é o código para verificar e marcar a checkbox que está gravado na Plan2: Dim r, k As Integer Dim lin As Long Plan2.Select Plan2.Range("A2").Select lin = 2 For r = 1 To Me.ListView2.ListItems.Count With Me.ListView2 Do Until Sheets("Plan2").Cells(lin, 1) = "" If .ListItems(r).ListSubItems(6).Text = Sheets("Plan2").Cells(lin, 6) Then .ListItems(r).Selected = True .ListItems(r).Checked = True End If lin = lin + 1 Loop End With Next r Agora estou aguardando uma luz , para uma solução... Agradeço LaerteB
  4. Boa tarde, Neri Schuck. Primeiramente coloquei no seu projeto (no Formulário) uma "Barra de Progresso" que enquanto se efetua os cálculos a barra informa em porcentagem o tempo que está sendo concluído e no final aparece uma msgbox informando que foi finalizado o processamento. Alterei a localização dos códigos PopulaListBox, calculos, TotalPeriodo1, TotalPeriodo2 e Variacao, colocando-os em um módulo "MóduloBarraProgresso" e comentei os blocos com esses códigos no Formulário principal (qualquer coisa você pode retornar como estava, mas terá que alterar os códigos no botão "BtnAtualizar"). Não sei quanto tempo leva para calcular mais de 400 clientes no seu projeto original, neste exemplo que enviou tive que acrescentar mais linhas, para conseguir ver o resultado da "Barra de Progresso"; neste momento tem 600 linhas totais... Outra coisa a ListView1 ficará reduzida no seu tamanho, enquanto estiver executando a "Barra de Progresso", mas volta ao normal no final . OBS: fiz uma pequena alteração no PopulaListBox2, pois criei um clone do PopulaListBox e comentei a linha "Call calculos" (não apaguei o PopulaListBox e está funcionando com a linha "Call calculos"), está funcionando normalmente na Barra de Progresso, por ter colocado esta linha "Call calculos" dentro do código deste; se quiser que volte é só descomentar. Espero que este tipo de barra de progresso lhe sirva no seu projeto; se quiser você pode tentar fazer o que o "Edson Luiz Branco" mencionou acima, que é um método mais simples. Abaixo o arquivo com as alterações acima descritas: Abraços LaerteB teste (2)Alterado- 2.rar
  5. Boa tarde Neri Schuck. Somente para esclarecer sobre essa referência (pelo fato que já conseguistes arrumar), é por causa da versão do Office instalado, por exemplo tenho o Office 2010 e 2016; para o 2010 é o "Microsoft Office 14.0 Object Library" e para o 2016 é o "Microsoft Office 16.0 Object Library". LaerteB.
  6. Boa tarde, Neri Schuck. Não esqueci do teu problema não.. ontem e hoje está uma correria, mas estou vendo o seu caso e preciso de mais tempo para analisá-lo melhor... Por isso neste final de semana vou olhar novamente o seu exemplo e se surgir uma solução coloco até terça aqui OK.. Quem sabe se alguém tem uma solução para ti até lá né... quanto mais melhor... Um ótimo final de semana. LaerteB.
  7. Neri Schuck, Por gentileza anexe seu arquivo por aqui mesmo, pois não estou conseguindo abrir o Dropbox; por aqui aceita os tipo de arquivos log, txt, ini, zip, zipx, rar, 7z, jpg, png, gif, doc, docx, xls, xlsx, pdf, ppt, pps, pptx, bmp, csv, tiff, xml, jpeg . Até. LaerteB
  8. Neri Schuck, Compreendo o que quer dizer, mas sem um parâmetro de seu projeto fica difícil saber o que é "calculando". Para que fique melhor a visualização da sua situação precisamos de um modelo (pode ser um exemplo simples do seu projeto, com conteúdo fictício); com isso eu e outros poderão analisar e consequentemente ajudá-lo melhor. Anexe um exemplo simples do seu problema. Até. LaerteB
  9. Neri Schuck, Entendi, você optar por um Label piscante, assim que você clicar ou executar uma comando para os seus cálculos o Label fica visível e começa a piscar o tempo que você estipular (nas propriedades do Caption do Label escreva o texto que quiser como ex. "Aguardando"). Abaixo o código para o Label piscante: Option Explicit Private Declare Function GetTickCount Lib "Kernel32" () As Long Private Sub Piscando() Dim tempo As Long Dim t As Integer For t = 1 To 20 'Numero de vezes que o "objeto" vai piscar tempo = GetTickCount If Me.Label1.ForeColor = Preto Then Me.Label1.Visible = False Else Me.Label1.Visible = True End If DoEvents Do While GetTickCount - tempo < 200 'Tempo de espera para proximo loop de 2 segundos Loop Next End Sub Achei outra forma que talvez lhe sirva, vou passar o link para você analisar se é viável no seu projeto: https://br.ccm.net/faq/4198-vba-mensagem-para-fazer-o-usuario-esperar Veja se ajuda . LaerteB
  10. Boa tarde, Neri Schuck. Você pode tentar usar o Splash Screen, que simula o processamento ou abertura do formulário. Pode alterar a quantidade de tempo do mecanismo, para mais ou menos o tempo de seu cálculos. Exemplo do código: Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:05"), "FechaForm" End Sub Verifique se isto te ajuda. LaerteB
  11. Pessoal, Bom dia! Eu resolvi fazer um teste, para o segundo código que infomei na minha primeira mensagem que ainda não tinha usado (vejam o link referente a este código: https://www.mrexcel.com/forum/excel-questions/337574-disappearing-listview-checkboxes-multipage.html). Este código funcionou em partes, vou explicar, as caixinhas apareceram, mas os itens que eu selecionei sumiram, as caixinhas ficaram vazias (a Label que informa quantos itens foram selecionados ainda continua informando que estão selecionados ????). Posso usar este código colocando uma msgbox para informar o usuário que não deve ser clicado fora dos locais indicados, mas gostaria de uma outra solução que não desapareça a seleção já marcada (as caixinhas que sumiam foram resolvidas com este código que estou informando novamente abaixo), vou aguardar mais para ver se alguém tem uma outra luz para isso também, pois tem um sistema que impede de selecionar mais de 1 Item por vez na 1ª ListView (para não haver duplicatas de itens na 2ª ListView). Dim i As Integer For i = 1 To Me.ListView1.ListItems.Count With Me.ListView1 .ListItems(i).Checked = False End With Next i Obs: Se pudessemos impedir do usuário de clicar em qualquer lugar vazio do formulário resolveria este problema ...mas provavelmente surgiriam outros problemas .. Aguardando... Abraços a todos LaerteB
  12. Boa noite Pessoal. Resolvi fazer um exemplo "simples" do meu projeto (o meu projeto é muito grande), mas parecido ao que está dando o "sumiço" das caixinhas dos CheckBoxes. Não arrumei os códigos na listview1 para quando clicar mais de um item (senão ficaria com muitos códigos, fiz para ser enxuto aqui neste exemplo), desta maneira quando clicar no botão Add Itens irá acrescentar em duplicata os itens na listview2, mas isso é irrelevante aqui neste exemplo (no meu projeto está OK) beleza. Reparei que quando abre direto na page1 as caixinhas da listview1 estão lá, mas se abrir na page0 elas somem. Estou anexando o arquivo, espero que ajude a elucidar melhor este problema. Obrigado, aguardando respostas. Abraços LaerteB Checkbox erro.rar
  13. Olá Pessoal! Estou com problema, como o Título diz, a caixinha do Checkbox na ListView sumiu. Ocorre o seguinte, tenho duas ListView em uma Multipage; se encontra na page 1 e elas atualizam normalmente quando passo de uma page a outra; nas duas ListView deixei ativado as checkboxes na primeira coluna (com numeração) de cada uma, a primeira quando marco o item é transferido para a segunda ListView (por meio de um botão que está funcionado perfeitamente)... então posso marcar na segunda ListView os itens que quero, até aí tudo bem, agora se por acaso clico fora da ListView (em qualquer parte dentro da multipage em local que não contenha conteúdo nenhum) todas as caixinhas (tanto da 1ª como da 2ª ListView) somem. Eu sei que as caixinhas marcadas continuam marcadas, pois tenho uma label que conta os itens marcados; daí para voltar ao normal tenho que ficar clicando em cada um dos itens da ListView. Já tentei várias soluções, mas nenhuma deu resultado, pode ser que estou fazendo algo errado. Alguns métodos que encontrei: - no site mrexcel gringo: ' colocar isso em sua rotina LoadListView (não sei bem onde colocar) With Me.YourListView .ColumnHeaders.Clear .ListItems.Clear .Gridlines = True .CheckBoxes = True .HideColumnHeaders = False .View = lvwReport .Visible = True End With Este acima coloquei na atualização da ListView, na Multipage1 e não deu certo (só apagou por completo o conteúdo das ListView) - no site mrexcel gringo também: Dim i As Integer For i = 1 To Me.ListView1.ListItems.Count With Me.ListView1 .ListItems(i).Checked = False End With Next i Este acima ainda não testei e não sei onde inseri-lo ( e pelo que estou vendo não sei se vai resolver) Até tentei por mim mesmo este código: For i = 1 To ListView2_plano.ListItems.Count If (ListView2_plano.ListItems(i).Checked = False) or (ListView2_plano.ListItems(i).Checked = True) Then item.checked.visible = true End If Next i Só que não deu certo também. Agora estou recorrendo a vocês, alguém tem alguma ajuda para este caso, eu sei que existe muitas pessoas que estão na mesma situação. Agradeço desde já e aguardando uma resposta. Abraços LaerteB.
  14. Bom dia, Pessoal!! Agora faz um mês que postei a minha indagação, e por sinal percebi que ninguém neste fórum (como em outros três fóruns que sou inscrito) não teve uma solução para este caso. Bem como não pude esperar tanto, resolvi fazer um método diferente, estou utilizando o "winmm.dll" e gravo as mensagens em formato "wav". Este método é mais trabalhoso, pois tenho que gravar as mensagens com a minha própria voz (editando para não ficar ruim); entendo que isso é somente para os "Windows" legados pela "Microsoft", como no caso deste projeto (para o meu cliente) que é para Windows 7 64 bits. Sei que para o Windows 8.1 em diante não teremos problemas com isso e poderá ser usado a fala em português TTS - Heloísa ou outra que a Microsoft tem nas versões mais recentes dos Windows. Não gosto das outras vozes "comerciais", pois como meus projetos são para os clientes, é melhor as vozes nativas do próprio Windows do que essas que tem que comprar. Gostaria de agradecer a todos que tentaram, mesmo que não colocaram aqui uma resposta, sei que este caso é muito complicado e talvez não tenha uma solução neste momento (pelo fato até de ser Windows 7), mas se alguém encontrar uma solução a escreva aqui, desta forma podemos aprimorar nosso conhecimento e aprendizado. Abraços Laerte.
  15. Bom dia, Pessoal! Estava sumido, muitos problemas particulares.. agora estou voltando. Estou tendo uma dificuldade em um código no VBA Excel (Tenho o Excel 2010 e o 2016 em 32Bits - Windows 7 Premium de 64Bits); seria o seguinte : - Primeiro antes de formatar o meu PC estava funcionando tranquilo a fala em português (BR) no Excel (2010 ou 2016 com o Windows 7 de 64 Bits). - Depois que formatei e instalei o Windows 7 novamente e os Offices 2010 e 2016, e tb o idioma PT-BR para o Narrator (TTS - Heloisa, como tinha instalado anteriormente antes de formatar) e o narrator funciona normalmente em PT-BR; só que quando abro o programa em Excel (que antes funcionava) o código de fala (Speech.Speak) volta na falar em inglês. Já tentei de tudo, tipo desinstalar os pacotes de fala e reinstala-los... não deu certo... tentei até colocar os dois pacotes tanto 32 Bits e 64 Bits juntos e nada (funciona o narrator normalmente como PT-BR, mas no Excel não). Gostaria que se alguém souber me dar uma luz seria de grande ajuda ou outra solução para que o mesmo volte a falar em PT-BR. Abaixo o código que coloco no "UserForm_Initialize" : Application.Speech.Speak ("Olá! Bem Vindo ao Sistema." + CStr(Now)) Uma obs: não sei se tem alguma coisa a ver, tinha instalado antes de formatar o FreeSpeech 2000 (fiz com que funcionasse no Windows 7), mas não quero instalá-lo agora, pois pode dar conflitos com outros programas.. Agradeço e aguardando uma resposta é uma funcionalidade que preciso deixar implementada no meu projeto. Abraços Laerte.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×