Мне нужно конвертировать Makro в Excel / VB в таблицы Google
Я пытался использовать конвертеры Java, но это не сработает так, как я:
private final void Worksheet_BeforeDoubleClick(Range Target, boolean Cancel) {
if (!(Intersect(Target, Range("A50:R131")) == null)) {
this.Unprotect;
if ((Target == "")) {
Target = "X";
}
else {
Target = "";
}
this.Protect;
Cancel = true;
}
}
ЭтоVB-код я успешно использую в Excel:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A50:R131")) Is Nothing Then
Me.Unprotect
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Me.Protect
Cancel = True
End If
Конец Sub
В промежутке я пробовал в Javascript Thx до snapstromegon
но я получилОшибка в строке 6: Синтаксическая ошибка?
<script language="JavaScript">
var nl = getNewLine()
function getNewLine() {
var agent = navigator.userAgent
if (agent.indexOf("Win") >= 0) <--- What is wrong here?
return "\r\n"
else
if (agent.indexOf("Mac") >= 0)
return "\r"
return "\r"
}
pagecode = 'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A50:R131")) Is Nothing Then
Me.Unprotect
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Me.Protect
Cancel = True
End If
End Sub'
document.write(pagecode);
</script>