セルをクリックしてactiveXコントロールのハイパーリンクを開く

Question

私は、activeXウェブコントロールを使用してExcel上でWebページを開こうとしていました。 ナビゲートボタンコントロールを使用すると罰金がかかりますが、シートを変更してセルをクリックすると、「エラー424オブジェクトは必須です」（翻訳が正しいかどうかはわかりません） ここで何をすべきか考えていますか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Column = 1 Then 
     If Not Cells(1, Target.Row).Value Is Nothing Then 
      Worksheets("Browser").WebBrowser1.Navigate "http://127.0.0.1?loc=" & Target.Value 
     End If 
    End If 
End Sub 

問題があなたのWebBrowserコントロールではありません事前

Answer 1

のおかげで、それは（私はコードがそのライン上に停止している疑いがある）あなたのifの文です。特にここではIs Nothingの使用が間違っています。代わりに、文字列""またはvbNullのいずれかのセルの値をテストします。

If Not Cells(1, Target.Row).Value = vbNull Then