エクセルVBAで、選択セルを常にC行にする。

質問

エクセルVBAで、選択セルを常にC行にする。
例：ボタンをクリックすれば、選択しているセルがN25ならC25になり、N7ならC7にしたいのです。
選択セル範囲がB2：N12ならば、一番上を有効として、C２のみを選択範囲としてほしいのです。
VBAで記述するならどのようになるか。ご教示ください。

回答No.4

hige_082 · ベストアンサー

一例です

Sub test()
Cells(Selection.Row, 3).Select
End Sub

参考まで

お礼

ありがとうござました。
簡潔でおもった通りの動作が可能でした。
ありがとうございました。

回答No.3

mitarashi

こんな動作でいかがでしょうか。ご参考まで。
Sub test()
If TypeName(Selection) <> "Range" Then Exit Sub
Intersect(Selection.Cells(1).EntireRow, Columns("$C:$C")).Select
End Sub

お礼

ありがとうございました。
少し私には、構文が難しく応用することができません。
VBAの勉強がんばります。

回答No.2

ka_na_de

こんにちは。

一例です。

Sub test()
　　Dim myRow As Long

　　On Error Resume Next
　　myRow = Selection.Resize(1).Row
　　On Error GoTo 0
　　If myRow > 0 Then
　　　　Cells(myRow, "C").Select
　　End If
End Sub

お礼

ありがとうございました。
エラー処理も付け加えていただきありがとうございました。
また今後ともご指導ください。

回答No.1

hallo-2007

Sub ボタン1_Click()
Range("C" & Selection.Row).Activate
End Sub
こんな感じのことでしょうか？

お礼

ありがとうございました。
初心者にはわかりやすい構文です。
またご教示お願いします。