Boa tarde pessoal do GUJ,
Eu gostaria de saber se alguém conhece um programa que possa traduzir ou converter o Macro VBA do Excel para a linguagem Java.
É que eu tenho varias planilhas no Excel que esta na linguagem Macro VBA e gostaria de transformar estas planilhas que estão em VBA em linguagem Java e assim criar um programa igual as planilhas que eu estou usando.
Obs.: eu não sei programar em Macro VBA, estas planilhas que eu estou usando eu baixei da internet mais gostaria de transforma-la em um programa do Java.
Já procurei no Google mais não achei vai que alguém ai consegue achar né. Bom então alguém ai pode me ajudar?
Bom desde já muito muito muito OBRIGADO a todos que me ajudarem! 8)
Abaixo esta uma das planilhas em que estou usando. :arrow:
[code]Private Sub Worksheet_Activate()
If (click = 1) Then
If (Sheets(1).Range(“A2”) = 0 Or Sheets(1).Range(“A3”) <> “mrygpmd12v@jsordr”) Then
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
Sheets(3).ScrollArea = “A4:J95”
’ Range(“C7”).Select
End If
click = 0
End If
contartimes
End Sub
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]
a pedidos eu mudei o jeito de postar o código fonte