Excel の表を Wiki 文法の形に書き換える（その三） ( ソフトウェア ) - 川柳などの短詩を作り、交流しませんか！！

Excel の表を Wiki 文法の形に書き換える（その三）

Excel の表らしく見せるためには、数値データは後揃えにしたほうがいいとの
御指摘を受けて、数値データの場合はセルの右揃えができるようにします。

そのためには、 align 属性を right にすればよいということです。
以下のブログの記事を参考にしました。

i-8jo.com（Yahoo!blog入門） - 記事本文を飾り付けてみよう「（その２５）Wiki超入門１５」
http://blogs.yahoo.co.jp/i_8jo/2009246.html

例えば、左揃え、中央揃え、右揃えの Wiki 文法は次のように書きます。

||<#FFFFFF' ``||
||<#CCFFFF' style=line-height:5pt; '``左揃えの例
||<#CCFFFF' style=line-height:5pt; '``中央揃えの例
||<#CCFFFF' style=line-height:5pt; '``右揃えの例
||<#FFFFFF' ``||
||<#CCFFFF' align=left style=line-height:5pt; '``ABC
||<#CCFFFF' align=center style=line-height:5pt; '``DEF
||<#CCFFFF' align=right style=line-height:5pt; '``GHI

すると、以下のようになります。


左揃えの例	中央揃えの例	右揃えの例

ABC	DEF	GHI

これを元に、マクロを書き換えます。
数値データを判定して、その部分だけ右揃えができるようにします。
マクロは以下の通りです。

Sub CreateSimpleWikiTable3()
' マクロ作成日 : 2007/1/28 ユーザー名 : 玄
' 選択した Excel の表を Wiki 文法の形に書き換える。
' セルのデータが数値ならば右寄せ、その他は左寄せにする

Dim c As Long
Dim r As Long
Dim sc As Long
Dim sr As Long
Dim st As String
Dim ws As Worksheet

sc = Selection.Columns.Count
sr = Selection.Rows.Count

' Wiki 文法への書き換えのコード
For r = 1 To sr

st = st & "||<#FFFFFF' ``||" & vbCrLf

For c = 1 To sc

st = st & "||<#CCFFFF' "

' セルのデータが数値: 右寄せ
' その他: 左寄せ
If IsNumeric(Selection.Cells(r, c)) Then

st = st & "align=right "

End If

' セルの縦の幅を設定
st = st & "style=line-height:5pt; '``"
st = st & Selection.Cells(r, c).Text
st = st & vbCrLf

Next c

Next r

' 新しいワークシートを作成し、
' その中に Wiki 文法に書き換えた表を出力する
Set ws = ThisWorkbook.Worksheets.Add()
ws.Cells(1, 1) = st

Set ws = Nothing

End Sub

このマクロを使用してできた表は、以下の通りです
（使用の仕方は、前回のマクロの記事を参考にしてください）。


年月日	借方科目	借方金額	貸方科目	貸方金額

2006/11/1	現金	12,000	資本金	12,000

2006/11/1	病院代（F診療所）	500	現金	500

2006/11/8	病院代（F診療所）	500	現金	500

2006/11/8	図書費	819	未払金	819

2006/11/8	図書費	714	未払金	714

2006/11/8	図書費	1,470	未払金	1,470

2006/11/8	図書費	1,680	未払金	1,680

2006/11/8	支払手数料	260	未払金	260