ここから本文です

エクセルVBAでアクティブセルの位置を獲得するコードを教えてください!また、左ク...

whatsuptokyo2003さん

2008/9/510:38:43

エクセルVBAでアクティブセルの位置を獲得するコードを教えてください!また、左クリックした場合に起こるイベントプロシージャはないのでしょうか?セルを左クリックしたら記号を表示するようにしたいのです。

閲覧数:
185,371
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

sii_sideさん

2008/9/511:06:51

>エクセルVBAでアクティブセルの位置を獲得するコードを教えてください!

ActiveCell.Column
ActiveCell.Row

上記で、アクティブセルの行と列の番号を取得できます。
セル番地であれば、

ActiveCell.Address

でも取得できます。

Private Sub GetCellInfo()
Dim a, c, r
a = ActiveCell.Address

c = ActiveCell.Column
r = ActiveCell.Row

MsgBox "セル番地:" & a & "、セルの列番号:" & c & "、セルの行番号:" & r
End Sub

こんな感じでしょうか。

>左クリックした場合に起こるイベントプロシージャはないのでしょうか?
>セルを左クリックしたら記号を表示するようにしたいのです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = "★"
End Sub

左クリックそのもののイベントは確かありませんので、
右クリックでもキーボードによるセル移動でも効いてしまいますが、
上記のようなコードを使用するはずです。

質問した人からのコメント

2008/9/5 11:13:58

感謝 とても素早いご回答をありがとうございます!助かります!
早速作って見ます。3日ほど悩んでいたのですごく嬉しいです。
ありがとうございました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

5文字以上入力してください

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。