excel - Excel VBAで行と列IDに基づいてセル値を見つける方法

Question

行と列の ID に基づいてセルの値を見つけるには、VBA Sub が必要です。以下の例では、East と RT3 が交差する場所である 80 を選択する必要があります。

    ABCDE
1ヌル RT1 RT2 RT3 RT4
2 北 31 40 78 11
3 南 32 41 79 12
4 東 33 42 80 13
5 西 34 43 81 14

Answer 1

テストされていない以下と同様の使用：

Function getcell(ct as string, rt as string) as range

    With activecell
        R = .columns("A").find(rt).row
        C = .rows("1").find(ct).Column
        'The below will escape the function if none where found
        If r = nothing or c = nothing then exit function
        Set getcell = .cells(r, c)
    End with

End function