Hallo,
is er iemand die voor mij een tweetal macro's kan overzetten van VBA naar Java?
We hebben een gezamenlijk document nu in google docs staan en nu werken de macro's helaas niet meer.
Heb zelf totaal geen verstand van Java en zou het graag weer werkend willen zien, alvast bedankt.
Macro's zijn:
#Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count = 1 Then
If Target.Column = 9 And Target <> "" Then
Target.Offset(0, 2) = Time
Application.ScreenUpdating = False
End If
End If
End Sub#
#Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count = 1 Then
If Target.Column = 13 And Target = "" Then
Target.Offset(0, 0) = Time
End If
If Not Application.Intersect(Target, Range("E1:E1")) Is Nothing Then
Call Save
Application.ScreenUpdating = False
End If
End If
End Sub#
M.vr.gr
is er iemand die voor mij een tweetal macro's kan overzetten van VBA naar Java?
We hebben een gezamenlijk document nu in google docs staan en nu werken de macro's helaas niet meer.
Heb zelf totaal geen verstand van Java en zou het graag weer werkend willen zien, alvast bedankt.
Macro's zijn:
#Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count = 1 Then
If Target.Column = 9 And Target <> "" Then
Target.Offset(0, 2) = Time
Application.ScreenUpdating = False
End If
End If
End Sub#
#Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count = 1 Then
If Target.Column = 13 And Target = "" Then
Target.Offset(0, 0) = Time
End If
If Not Application.Intersect(Target, Range("E1:E1")) Is Nothing Then
Call Save
Application.ScreenUpdating = False
End If
End If
End Sub#
M.vr.gr
Laatst bewerkt: