Ao editar uma macro ou função do Microsoft Office VBA, você frequentemente move o cursor de uma linha que não terminou. Por exemplo, para copiar algo que você deseja colar nessa linha. Mas, se essa linha parcial não for sintaticamente válida, o editor do VBA interromperá o seu trabalho exibindo uma...
Eu escrevi o seguinte código: Function find_results_idle() Public iRaw As Integer Public iColumn As Integer iRaw = 1 iColumn = 1 E recebo a mensagem de erro: "atributo inválido na sub ou função" Você sabe o que eu fiz de errado? Tentei usar em Globalvez de Public, mas tive o mesmo...
Isso deve funcionar de acordo com outro post de estouro de pilha, mas não é: Dim arrWsNames As String() = {"Value1", "Value2"} Alguém pode me informar o que está
Não estou tentando iniciar um argumento aqui, mas por qualquer motivo, geralmente é afirmado que o Visual Basic não diferencia maiúsculas de minúsculas e as linguagens C não (e de alguma forma isso é uma coisa boa). Mas aqui está minha pergunta: onde exatamente o Visual Basic não diferencia...
Estou tentando exibir milissegundos em uma macro do Excel. Eu tenho uma coluna de números inteiros com registro de data e hora em milissegundos (por exemplo, 28095200 é 7: 48: 15.200 am) e desejo criar uma nova coluna ao lado, que mantenha uma média de execução e exiba o tempo em umhh:mm:ss.000...
Usando o VBA, como posso: testar se existe um arquivo e, se houver, delete
Quero inserir uma instrução if em uma célula por meio de vba que inclui aspas duplas. Aqui está o meu código: Worksheets("Sheet1").Range("A1").Value = "=IF(Sheet1!B1=0,"",Sheet1!B1)" Devido a aspas duplas, estou tendo problemas para inserir a string. Como faço para lidar com aspas...
Essa é uma daquelas coisas para as quais tenho certeza de que há uma função incorporada (e posso muito bem ter ouvido isso no passado), mas estou coçando a cabeça para lembrar. Como faço um loop em cada linha de um intervalo de várias colunas usando o Excel VBA? Todos os tutoriais que tenho...
Eu tenho um arquivo que é adicionado ou modificado manualmente com base nas entradas. Como a maior parte do conteúdo é repetitiva nesse arquivo, apenas os valores hexadecimais estão mudando, quero torná-lo um arquivo gerado por ferramenta. Quero escrever os códigos c que serão impressos nesse...
Dim wkbkdestination As Workbook Dim destsheet As Worksheet For Each ThisWorkSheet In wkbkorigin.Worksheets 'this throws subscript out of range if there is not a sheet in the destination 'workbook that has the same name as the current sheet in the origin workbook. Set destsheet =...
Tenho algumas planilhas do Excel que usam caixas de seleção ActiveX para controlar certas atividades. Trabalharam recentemente mas hoje começaram a dar erros. Fui alertado sobre isso por um colega, mas ele ainda estava funcionando no meu computador. Eu verifiquei sua versão do Excel com a minha e a...
Existe algo que eu preciso fazer referência? Como faço para usar isso: Dim fso As New FileSystemObject Dim fld As Folder Dim ts As TextStream Estou recebendo um erro porque ele não reconhece esses
Estou tentando escrever um script que abre muitos arquivos do Excel. Eu continuo recebendo o prompt: This workbook contains links to other data sources. Quero evitar que essa mensagem apareça, para que meu script possa percorrer automaticamente todas as pastas de trabalho, sem que eu precise...
Estou usando um loop While ... Wend do VBA. Dim count as Integer While True count=count+1 If count = 10 Then ''What should be the statement to break the While...Wend loop? ''Break or Exit While not working EndIf Wend Não quero usar uma condição como `While count <= 10 ......
Eu tenho uma planilha do Excel com a macro a seguir. Eu gostaria de fazer um loop a cada segundo, mas não consigo encontrar a função para fazer isso. Não é possível? Sub Macro1() ' ' Macro1 Macro ' Do Calculate 'Here I want to wait for one second Loop End
Eu tenho um loop for sobre uma matriz. O que eu quero fazer é testar uma determinada condição no loop e pular para a próxima iteração se for verdadeira: For i = LBound(Schedule, 1) To UBound(Schedule, 1) If (Schedule(i, 1) < ReferenceDate) Then PrevCouponIndex = i Continue '*** THIS LINE...
Estou procurando uma maneira de adicionar uma guia personalizada na faixa de opções do Excel que carregue alguns botões. Por acaso, alguns recursos abordaram o assunto através do Google, mas todos parecem duvidosos e absurdamente complicados. Qual é a maneira rápida e simples de fazer isso?...
Usando o Microsoft Excel 2010, percebi dois tipos de controles que podem ser inseridos em um documento: controles de formulário e controles ActiveX . Qual a diferença entre
O problema é que !=não funciona como função no excel vba. Eu quero ser capaz de usar If strTest != "" Then ao invés de If strTest = "" Then Existe outra abordagem para fazer isso !=? Minha função de imitar !=é Sub test() Dim intTest As Integer Dim strTest As String intTest = 5 strTest =...
Existe código em VBA com o qual posso encapsular uma função que me avisará quanto tempo levou para ser executado, para que eu possa comparar os diferentes tempos de execução das