Boa tarde pessoal do GUJ,
Eu já postei uma coisa parecida com isso aqui no GUJ, mais depois de conversar muito com meus professores, eles me falarão que transformar Macros VBA do Excel em java seria muito difícil, só que terão uma dica de transformar Macros VBA do Excel para Virtual Basic (VB) que seria muito mais fácil, pq a parte do formulário seria muito mais fácil, só tem um problema eu não sei programar em VB e nem em Macros VBA do Excel. E meus professores também não conhece a linguagem Macros VBA do Excel.
Então se alguns ai no GUJ sabe programar em VB e Macros VBA do Excel, poderia me ajudar a traduzir Macros VBA do Excel para VB?
Traduzindo o código em si ou traduzir por intermédio de um programa ou se tem livro ou pagina na internet que me ajude.
Outra coisa eu baixei este Macros VBA do Excel da internet e queria transformar em um programa .exe
Muito Obrigado pela ajuda.
Vou colocar um pedaço do código em Macros VBA do Excel: :arrow:
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3 And Sheets(3).Range(“A3”) = 0) Then
contartimes
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 3 And Sheets(3).Range(“A3”) = 0) Then
contartimes
End If
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
contartimes2
Sheets(14).Range(“N6:N69”).Value = Sheets(3).Range(“C8:C71”).Value
Sheets(6).Range(“T1”).Value = Sheets(3).Range(“E7”).Value
Sheets(14).Calculate
Sheets(6).Calculate
End Sub
Private Sub contartimes()
Dim linha As Integer
Dim cont As Integer
Sheets(3).Range(“A3”) = 1
For linha = 1 To 64
If (Sheets(3).Cells(linha + 7, 3) <> “”) Then
cont = cont + 1
End If
Next linha
Sheets(3).Range(“E7”) = cont
Sheets(3).Range(“A3”) = 0
End Sub
Private Sub contartimes2()
Dim linha As Integer
Dim cont As Integer
Dim time(64) As String
Sheets(3).Range(“A3”) = 1
For linha = 1 To 64
If (Sheets(3).Cells(linha + 7, 3) <> “”) Then
cont = cont + 1
time(cont) = Sheets(3).Cells(linha + 7, 3)
End If
Next linha
For linha = 1 To 64
If (linha <= cont) Then
Sheets(3).Cells(linha + 7, 3) = time(linha)
Else
Sheets(3).Cells(linha + 7, 3) = ""
End If
Next linha
Sheets(3).Range(“E7”) = cont
Sheets(3).Range(“A3”) = 0
End Sub[/code]