Excel VBA 2007: 選択されているセルを含む行を処理する方法とは？

2009/03/11 13:54

このQ&Aのポイント

複数のセルが選択されている場合、選択されているセルを含む行の特定の列にマークを付けたいという問題があります。
通常の方法では、縦方向や横方向の処理を行うために、同じ行に何度も処理が行われてしまいます。
選択されているセルを含む行の特定の列にマークを付ける方法を改善するためのアドバイスをお願いします。

Excel VBA 2007: 選択されているセルを含む行を処理？

いつもお世話になります。以下の問題について何かわかりましたらご教示ください。複数のセルが選択されているとします。選択されているセルを■、されていないセルを□とします。問題は「選択されているセルを含む行のＥ列にマークをしろ」です。（例題１）＼ＡＢＣＤＥ１□□□□□ ２□□■□□ ３□□■□□ ４□□■□□ ５□□□□□ 今、Ｃ２、Ｃ３、Ｃ４が選択されています。影響のある行は２，３，４行目ですので、以下のようになります。（マークを＊で示します）＼ＡＢＣＤＥ１□□□□□ ２□□■□＊３□□■□＊４□□■□＊５□□□□□ 以下、前と後で例題を示します。（例題２）＼ＡＢＣＤＥ１□□□□□ ２■■□□□ ３□□□□□ ４□□□□□ ５□□□□□ ＝＞＼ＡＢＣＤＥ１□□□□□ ２■■□□＊３□□□□□ ４□□□□□ ５□□□□□ （例題３）＼ＡＢＣＤＥ１□□□□□ ２□□□□□ ３□□□□□ ４□□□■□ ５□□■■□ ＝＞＼ＡＢＣＤＥ１□□□□□ ２□□□□□ ３□□□□□ ４□□□■＊５□□■■＊（例題４）＼ＡＢＣＤＥ１■□□□□ ２□■□□□ ３□□□□□ ４□□□■□ ５□□□□□ ＝＞＼ＡＢＣＤＥ１■□□□＊２□■□□＊３□□□□□ ４□□□■＊５□□□□□ 以下のようにやればわかっているんですが、この場合は縦方向だけでなく横方向にも処理するので、同じ行について何回も処理が発生してしまいます。実際には縦にも横にもすごく広いので、避けたいところです。 Sub test() Dim cell As Range For Each cell In Selection Cells(cell.row, 5).Value = "＊" Next cell End Sub 以下のようにすれば必ず縦方向優先ですが、同じ理由で避けたいです。 Sub test() Dim myRow as long Dim myCol as long For myRow = 1 to 65536 For myCol = 1 to 4 If Cells(myRow, myCol).Selected Then Cells(myRow, 5).Value = "＊" Exit For End If Next myCol Next myRow End Sub もっといい方法があればご教示ください。よろしくお願いします！