Setを使用すると、オブジェクトにエラーが発生します。セットを使用しない場合ブロック変数でエラーが発生しない

Question

ダッシュボードページのセルD15に表示されている部門に基づいてデータを入力する正しい場所にユーザーを誘導する動的なボタンを作成しようとしています。私は文字列がSetコマンドを必要としないことを知っていますが、私はそれで間違っているのか分かりません。

Sub GPS1() 
    Dim Dashboard As Worksheet 
    Set Dashboard = ThisWorkbook.Worksheets("Dashboard") 
Dim Func1 As String 
    'Set does not belong here Func1 = Dashboard.Range("D15") 
Dim OpenJobsCalculations As Worksheet 
    Set OpenJobsCalculations = ThisWorkbook.Worksheets("Open Jobs Calculations") 


    OpenJobsCalculations.Range("B:B").Find(Func1).Select 



End Sub 

Answer 1

私は、単一列の検索に一致機能を使用したいです。それは（検索よりもわずかに速いですTHISページ）によると、単一列の検索用：

Sub GPS1() 
    Dim Dashboard As Worksheet 
    Set Dashboard = ThisWorkbook.Worksheets("Dashboard") 

    Dim Func1 As String 
    Func1 = Dashboard.Range("D15").Value 

    Dim OpenJobsCalculations As Worksheet 
    Set OpenJobsCalculations = ThisWorkbook.Worksheets("Open Jobs Calculations") 

    Dim mtch 
    'find match 
    mtch = Application.Match(Func1, OpenJobsCalculations.Range("B:B"),0) 
    'If no match was found mtch will be an error. 
    'we now test whether it is an error or not. 
    If IsError(mtch) Then 
     MsgBox "No Match Found" 
    Else 
     OpenJobsCalculations.Range("B" & mtch).Select 
    End If 
End Sub 

Answer 2

Dashboard.Range("D15")が範囲ですが、私はそれはあなたがそのセルの値をしたい取る...あなたはRangeオブジェクトのプロパティで.Valueそれを指定する必要があります。

Func1 = Dashboard.Range("D15").Value

は、この情報がお役に立てば幸い！

Answer 3

これらのWorksheetオブジェクトの参照は不要です。 プロジェクトエクスプローラます（Ctrl + R）での「ダッシュボード」シートを選択し、その性質を立ち上げ、およびDashboardSheetのように、意味のあるものにその(name)プロパティを設定するF4を打ちます。 「オープン・ジョブズのため

MsgBox DashboardSheet.Range("A1").Value 

同上：

この「コードネームは」このように、そのワークシートを表します（無料！）グローバルスコープオブジェクト変数を参照するために、コードでどこでも使用することができます計算」シート - OpenJobsCalcSheetのようなものにその(name)プロパティを設定し、あなたがこれを行うことができます。

Dim result As Range 
Set result = OpenJobsCalcSheet.Range("B:B").Find("SomeStringValue") 

If result Is Not Nothing Then result.Select 

Find呼び出しの結果はNothingすることができますどのように注意してください -を呼び出しますon Nothingは、実行時エラー91 "オブジェクト参照またはブロック変数が設定されていない"を返すので、返されたRangeオブジェクトがNothingかどうかを最初にチェックする必要があります。

今、"SomeStringValue"があなたのコメントアウトされた文字列変数ですので、完全なコードは次のようになります。

Dim func1 As String 
func1 = DashboardSheet.Range("D15").Value 

Dim result As Range 
Set result = OpenJobsCalcSheet.Range("B:B").Find(func1) 

If result Is Not Nothing Then 
    result.Select 
Else 
    MsgBox "Woopsie!" 
End If 

Answer 4

あなたは、非アクティブシート上のセルを選択することはできません。使用：

Set OpenJobsCalculations = ThisWorkbook.Worksheets("Open Jobs Calculations") 
OpenJobsCalculations.Select