Question

尝试按工作顺序整理此工作表，并在YouTube上观看此视频：https://www.youtube.com/watch?v=0ahYoy5L3ec。

我严格遵循公式，并尝试了一些基本的故障排除方法，但是我对VBA的了解和使用充其量只是基础知识。

任何对此的帮助将不胜感激。

我有一个导致以下问题的代码示例：

（我设法到达应该为用户创建“所有页面”访问权限的代码部分）

该行的调试器中似乎突出显示了该错误：

If Target.Value = Empty Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ð" 窗口观察说这是一个变体/整数

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("I4:Q8")) Is Nothing Then```

    If Target.Value = "Ð" Then
        Target.Value = "Ï"
        Exit Sub
    End If

    If Target.Value = "x" Then Target.Value = "Ð"
    If Target.Value = "Ï" Then Target.Value = "x"
    If Target.Value = Empty Then Target.Value = "Ð"

End If

If Not Intersect(Target, Range("H4:H8")) Is Nothing Then
    If Target.Value = "Ð" Then
        Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ï"
        Exit Sub
    End If
    If Target.Value = "x" Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ð"
    If Target.Value = "Ï" Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "x"
    If Target.Value = Empty Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ð"
End If

End Sub

Answer 1

错字错误

该错误是由于使用符号^而不是&。

更改这些行：

If Target.Value = "x" Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ð"
If Target.Value = "Ï" Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "x"
If Target.Value = Empty Then Range("H" & Target.Row & ":Q" ^ Target.Row).Value = "Ð"

有了这些：

If Target.Value = "x" Then Range("H" & Target.Row & ":Q" & Target.Row).Value = "Ð"
If Target.Value = "Ï" Then Range("H" & Target.Row & ":Q" & Target.Row).Value = "x"
If Target.Value = Empty Then Range("H" & Target.Row & ":Q" & Target.Row).Value = "Ð"

它将起作用。

希望这会有所帮助。

类型与变量/整数不匹配

1 个答案:

错字错误