質問: vbaで色付きセルの列のアルファベットを取得する方法について 1つの行でセルにとびとびで色が付いていて、左から数えて一番最初に色が付いている列と最後に色が付いている列のアルファベットを取得する方法はありますか。セルの範囲自体はa列からaka列と決まっています。調べたい行は4行目です。セルの色は決まっておりません。 どなたか教えていただけますでしょうか。
回答: こんにちは! no.1さんと殆どやり方は同じになりますが、 一例です。 sub sample1() dim j as long dim myfirst as string, myend as string dim myflg as boolean '//▼最初の列を取得// for j = 1 to range("aka4").column if cells(4, j).displayformat.interior.colorindex <> xlnone then myfirst = cells(4, j).address(false, false) myflg = true exit for end if next j '//▼最後の列を取得// for j = range("aka4").column to 1 step -1 if cells(4, j).displayformat.interior.colorindex <> xlnone then myend = cells(4, j).address(false, false) myflg = true exit for end if next j if myflg = true then msgbox "最初の列:" & left(myfirst, len(myfirst) - 1) & "列" & vbcrlf & _ "最後の列:" & left(myend, len(myend) - 1) & "列" else msgbox "色付きセルなし!" end if end sub こんな感じではどうでしょうか?m(_ _)m