Pesquisar na Comunidade
Mostrando resultados para as tags ''vba.''.
Encontrado 5 registros
-
Olá, pessoal queria saber qual comando posso usar para obter o caminho do arquivo coreldraw que esta ativo no momento que executo a macro.Tente usar o comando "ThisWorkbook.Path" mas ele não funciona.
-
Bom dia, sei que a função Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 funciona na plhanilha mas quando tento executar ela no excel da erro de #VALOR!, não sei resolver. Public Function pascoa(ByVal data_inicial As Date, ByVal data_final As Date) As Date ano_inicial = Year(data_inicial) pascoa = WorksheetFunction.Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 End Function
-
Bom dia, estou tentando fazer uma function que pega como parâmetro duas datas e retorna os dias uteis desse período, entretanto não consigo entender o que estou fazendo de errado 'retorna os dias uteis Public Function DiasUteis(ByVal data_inicial As Date, ByVal data_final As Date) As Integer Ano_inicial = Year(data_inicial) Ano_final = Year(data_final) Aux = 0 Corridos = WorksheetFunction.NetworkDays(data_inicial, data_final) Feriados = 0 While Aux <= Ano_final If Aux = 0 Then Aux = Ano_inicial End If pascoa = WorksheetFunction.Floor(Day(Minute(Aux / 38) / 2 + 56) & "/5" & "/" & Aux, 7) - 34 pascoa = CDate(pascoa) Carnaval1 = CDate(pascoa - 48) Calnaval2 = CDate(canaval1 + 1) Paixao = CDate(pascoa - 2) Corpo = CDate(pascoa + 60) tiradentes = WorksheetFunction.Date(Aux, 4, 21) confraternizacao = WorksheetFunction.Date(Aux, 1, 1) Trabalho = WorksheetFunction.Date(Aux, 5, 1) Independencia = WorksheetFunction.Date(Aux, 9, 7) Senhora = WorksheetFunction.Date(Aux, 10, 12) Finados = WorksheetFunction.Date(Aux, 11, 2) proclamacao = WorksheetFunction.Date(Aux, 11, 15) Natal = WorksheetFunction.Date(Aux, 12, 25) If pascoa > data_inicial Then If pascoa < data_final Then Feriados = Feriados + 1 End If End If If pascoa > data_inicial Then If pascoa < data_final Then Feriados = Feriados + 1 End If End If If Carnaval1 > data_inicial Then If Carnaval1 < data_final Then Feriados = Feriados + 1 End If End If If Carnaval2 > data_inicial Then If Carnaval2 < data_final Then Feriados = Feriados + 1 End If End If If Paixao > data_inicial Then If Paixao < data_final Then Feriados = Feriados + 1 End If End If If Corpo > data_inicial Then If Corpo < data_final Then Feriados = Feriados + 1 End If End If If tiradentes > data_inicial Then If tiradentes < data_final Then Feriados = Feriados + 1 End If End If If confraternizacao > data_inicial Then If confraternizacao < data_final Then Feriados = Feriados + 1 End If End If If Trabalho > data_inicial Then If Trabalho < data_final Then Feriados = Feriados + 1 End If End If If Independencia > data_inicial Then If Independencia < data_final Then Feriados = Feriados + 1 End If End If If Senhora > data_inicial Then If Senhora < data_final Then Feriados = Feriados + 1 End If End If If Natal > data_inicial Then If Natal < data_final Then Feriados = Feriados + 1 End If End If If Finados > data_inicial Then If Finados < data_final Then Feriados = Feriados + 1 End If End If If proclamacao > data_inicial Then If proclamacao < data_final Then Feriados = Feriados + 1 End If End If Aux = Aux + 1 Wend Corridos = Corridos - Feriados DiasUteis = Corridos End Function
-
Bom dia , Preciso de uma ajuda, desde já agradeço . Estou criando um controle financeiro , criar uma macro que dependendo da quantidade de meses que se repita o lançamento e ele já salve essa repitação salvando o valor e a data (de vencimento) durante os mesês . (como se fosse um parcelamento).