Excelのシート内で、罫線(下辺/太線)を引いたセルの値を取得する事ができたんですが、 これ以降が難しく進むことができません。 Dim rg As Range For Each rg In ActiveSheet.UsedRange If rg.Borders(xlEdgeBottom).Weight = 4 Then MsgBox rg.Address End If Next 上記の様に罫線(下辺/太線)の位置を取得する事ができたんですが、 現状だと列を指定できず罫線(下辺/太線)がある全ての位置を取得してしまいます。 そこで、H列&I列を限定としH3：I3から罫線(下辺/太線)がある所の範囲を取得できませんでしょうか？ その取得した範囲をセルの個数を関係なく 100％とし背景色が変更になった箇所が 増えると0％から50％とか80％と言う様に上がって行くように作成したいです。 範囲を全て背景色で塗られたら100％で、全く塗られてなければ0％にしたいです。 結果は、メッセージボックスで表示できる様になると良いです。 画像ですと、黄色の部分がちょうど半分になっているので50％となります。
↧