Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6921 / 76732

←次へ　｜　前へ→


	【75407】Re:離れた行の行No取得

kanabun - 14/3/21(金) 9:47 -


	引用なし

	パスワード

▼亜矢さん： > 離れた行を何行か選択した時、その選択した行Noを >　取得する方法を教えて頂きたいと思います。選択行数は８行以内です「離れた行」というのは「連続していない行」ということですか？どう使うか分からないので、とりあえず、行を選択して右クリックすると、選択されている行番号をカンマ区切りでメッセージするプロシージャ。（シートモジュールに書いてください） Private Sub Worksheet_BeforeRightClick( _ 　　　 ByVal Target As Range, Cancel As Boolean) 　　Dim Gyo As Range 　　Dim i As Long 　　ReDim LiN(1 To Target.Areas.Count) 'Area数　　　　Cancel = True 　　For Each Gyo In Target.Areas 　　　　i = i + 1 　　　　LiN(i) = Gyo.Row 　　Next 　　MsgBox Join(LiN, ",") End Sub