この記事では、シングルクリックで行番号を取得する方法を学習します。

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img1

現在のワークシート（この例ではsheet1）に次のコードを入力します

Private Sub Worksheet_SelectionChange（ByVal Target As Range）

Dim rownumber As Integer

行番号= ActiveCell.Row

If ActiveCell.Value <> “” Then

MsgBox “行番号をクリックしました”＆行番号

終了If

サブの終了

img2

SelectionChangeイベントは、ユーザーがセルを選択するたびにアクティブになり、選択したセルの行番号が表示されます。

アクティブセルが空の場合、コードは実行されません。

img3

上記のスナップショットでは、数式バーにセルD4が含まれているため、行番号は4であることがわかります。

セルA1を選択すると、行番号は1になります。以下に示すスナップショットを参照してください

img4

このようにして、VBAコードを使用して、選択したセルの行番号を取得できます。