[Excel]罫線から数字に変換したい

質問

マイクロソフトのExcel2003を使ってます。

条件付き書式を使うことで、数字を書いたセルに自動で罫線を引けることは分かりました。

今回私がしたいのはその逆。「罫線から数字にする」ということです。

例えばExcelのセル上で下のように
セルA1、B1、C1に対して罫線がひかれていた場合
____________ ____________ ____________
|セルA1| セルB1 セルC1|
　￣￣￣

四方を罫線で囲まれているセルは（今回の例ではセルA1）→8
上に罫線をひかれていたら（今回の例ではセルB1）→１
上と右に罫線がひかれていたら（今回の例ではセルC1）→4
と言った感じにセルA1、B1、C1に表示させたいです。

やり方を知っている方がいたら教えて下さい。
MSExcel2010やOpenOfficeならできるといった情報でも構いません。
よろしくお願いしますm(_ _)m

回答No.1

tsubuyuki · ベストアンサー

なかなか楽しそうな話題だったので、ちょっとだけ考えてみました。
マクロを使ってしまうのがちょっと哀しいところです。

詳しい条件が今一つ掴めなかったので、
とりあえずはセルの四方の罫線を数えるマクロです。

Sub CheckLine()
Dim Tag As Range
Dim ChLine As Integer, i As Long

　　For Each Tag In Selection
　　　　ChLine = 0
　　　　For i = 7 To 10
　　　　　　If Tag.Borders(i).LineStyle <> -4142 Then
　　　　　　　　ChLine = ChLine + 1
　　　　　　End If
　　　　Next
　　　　Tag.Value = ChLine
　　Next
End Sub

マクロを走らせたときに選択されている範囲のセル一つ一つに対し、
・とりあえず変数を初期化
・四方の罫線を確認
　（引かれていない時は-4142なので、それ以外だったら＋１
　　これを左・上・下・右の４回繰り返し、最大は「４」）
・最後に変数をセルに代入
と言う処理です。

でもこれではどこに罫線があるのか、数字から判断できませんね。

そこで、これに各々の条件をさらに加味します。
・左に罫線がある＝＋１
・上に罫線がある＝＋２
・下に罫線がある＝＋４
・右に罫線がある＝＋８
　（つまり、最大は１５＝四方に罫線、最小は０＝罫線無し）
とします。
そうすると以下のコード

Sub CheckLine2()
Dim Tag As Range
Dim ChLine As Integer, i As Long

　　For Each Tag In Selection
　　　　ChLine = 0
　　　　If Tag.Borders(xlEdgeLeft).LineStyle <> -4142 Then
　　　　　　ChLine = ChLine + 1
　　　　End If
　　　　If Tag.Borders(xlEdgeTop).LineStyle <> -4142 Then
　　　　　　ChLine = ChLine + 2
　　　　End If
　　　　If Tag.Borders(xlEdgeBottom).LineStyle <> -4142 Then
　　　　　　ChLine = ChLine + 4
　　　　End If
　　　　If Tag.Borders(xlEdgeRight).LineStyle <> -4142 Then
　　　　　　ChLine = ChLine + 8
　　　　End If

　　　　Tag.Value = ChLine
　　Next
End Sub

こんな感じです。
これも範囲を先に選択して走らせます。
図は、これの結果です。

さてさて、ではこれをご要望の
> 四方を罫線で囲まれているセルは（今回の例ではセルA1）→8
> 上に罫線をひかれていたら（今回の例ではセルB1）→１
> 上と右に罫線がひかれていたら（今回の例ではセルC1）→4
> と言った感じにセルA1、B1、C1に表示させたいです。
にどう応用するか？ですが、上述の通り、詳細な条件が若干不足しています。
具体的には「左はどうするか？下はどうするか？右だけの時は？」なんですけどね。
まぁ、これはコード内のIfをちょこちょこっといじってやると可能と思います。
例えば
　　If Tag.Borders(xlEdgeTop).LineStyle <> -4142 And Tag.Borders(xlEdgeRight).LineStyle <> -4142 Then
　　　　 Tag.Value = 4
　　End If
これで上右＝４に出来ます。
これを繰り返すと良いでしょう。
ただしこの場合、条件を付けていく順番をキッチリ考えないといけません。
例えば、上右＝４を入力した後に、上＝１を入れてしまうと上書きされてしまいます。
ここは注意が必要です。

とりあえず、何かの参考になれば幸いです。
個人的には、CheckLine2の考え方がオススメです（笑）。

お礼

わざわざ考えてくれたみたいでありがとうございますm(_ _)m

Excelの設定か関数を使えばなんとかなると思っていたのですが、

マクロ使わないとダメなんですね^^;

tsubuyukiさんの回答は私がやりたいことそのものずばりだったので

大いに参考にさせていただこうと思います！

本当にありがとうございました。