YMLib - Excel VBA - 座標の指定方法

座標の指定方法

2006/07/25

指定した位置にあるセルの内容を表示します。セルには名前をつけることもできます。名前を指定してセルを特定することもできます。

◆環境

OS	Windows 2000 Professional
Excel	2000(9.0.2812)
VBA	6.0.8435

EVBA001.xls

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

'================================================================
' 2006/07/25 (c) ymlib.com
' 座標の指定方法
'================================================================
Option Explicit

' 位置表示メソッド
Public Sub dispPos()

    Dim ws As Worksheet

    ' worksheetの取得
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    ' "Sheet1"をアクティブにする
    ws.Activate

    ' 座標でセルの位置を指定(縦,横)
    MsgBox ws.Cells(1, 1).Value
    MsgBox ws.Cells(3, 2).Value

    ' 名称でセルの位置を指定
    MsgBox ws.Range("A4").Value

    ' objectを省略すると、アクティブなワークシートの
    ' Rengeプロパティとなる
    MsgBox Range("InputName").Value

    ' セルの座標を表示
    MsgBox "横：" & Range("InputName").Column & " " & _
           "縦：" & Range("InputName").Row

    Set ws = Nothing

End Sub

セルを選択すると、左上に座標が表示されます。例えば、以下の場合に表示されている「B4」という文字は、一見、座標のようですが、実は座標ではなくセルの名前のようです。

この領域をクリックし、文字を入力することにより、セルの名前を任意に変更出来ます。「InputName」という名前に変更してみます。

◆実行結果

[編集(E)]-[ジャンプ(G)]で「名前を付けたセル」に移動することができます。

▲ PageTop ■ Home