| |
| 【タイトル】 |
| 現在カーソルがある行全体を選択する |
| |
| |
| |
| 【書式】 |
Sub Select_This_Rows()
'現在カーソルがある行全体を選択する
Dim ThisRow As Long
ThisRow = Selection(1).Row
Rows(ThisRow).Select
End Sub
|
|
| |
| 【説明】 |
| １行目：現在行の行番号を保持する変数を宣言 |
| ２行目：現在行の行番号を取得 |
| ３行目：取得した行番号の行全体を選択 |
| |
| 【別の書式】 |
| 下記のように、１行にまとめることができる。 |
Sub Select_This_Rows()
'現在カーソルがある行全体を選択する
Rows(Selection(1).Row).Select
End Sub
|
|
| |
|