WIKI文法
[ リスト | 詳細 ]
全1ページ
[1]
転載元: 
コメント（1）
|
今度は Excel のセル内で改行をした場合に、 Wiki の表でも改行ができるように工夫をします。 以下の例を見てください。 ||<#FFFFFF' ``|| ||||<#CCFFFF' style=line-height:5pt; '``改行しない例 ||||<#CCFFFF' style=line-height:5pt; '``改行する例 ||<#FFFFFF' ``|| ||||<#CCFFFF' ``ABC DEF ||||<#CCFFFF' width=80 style=word-spacing:560; '``GHI JKL 上の例では、 width （セルの幅）を指定した上で word-spacing:560 （スペースの部分で改行する） を宣言しています。そしてセルの改行する部分で、半角スペースを使います。 すると以下のように表示されます
これでセル内の改行はできました。 以上は以下のブログを参考にしました。 これをマクロにしてみました。マクロのコードは以下の通りです。 Sub CreateSimpleWikiTable4() ' マクロ作成日 : 2007/1/31 ユーザー名 : 玄 ' 選択した 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 ' セルの文字列を一時的に格納する変数 Dim buf As String sc = Selection.Columns.Count sr = Selection.Rows.Count ' Wiki 文法への書き換えのコード For r = 1 To sr
st = st & "||<#FFFFFF' ``||" & vbCrLf
Next rFor c = 1 To sc
' 普通のセルは中央寄せ
Next cst = st & "||||<#CCFFFF' " buf = Selection.Cells(r, c).Text ' セルのデータが数値のときは右寄せ If IsNumeric(Selection.Cells(r, c)) Then
st = st & "align=right "
End Ifbuf = Selection.Cells(r, c).Text ' セル内で「Alt + Enter」で改行したかどうかをチェックし、 ' 改行文字があれば半角スペースに変換して、 ' "width" と "word-spacing" を設定する。 If InStr(1, buf, vbLf) > 0 Then
buf = Replace(buf, vbLf, " " )
Elsest = st & "width=80 style=word-spacing:560;"
st = st & "style=line-height:5pt;"
End Ifst = st & " '``" st = st & buf st = st & vbCrLf ' 新しいワークシートを作成し、 ' その中に Wiki 文法に書き換えた表を出力する Set ws = ThisWorkbook.Worksheets.Add() ws.Cells(1, 1) = st Set ws = Nothing End Sub Excel の表をマウスで選択して、マクロを実行すると、以下のようになります。
これで改行も処理ができました。
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- ソフトウェア
|
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 すると、以下のようになります。
これを元に、マクロを書き換えます。 数値データを判定して、その部分だけ右揃えができるようにします。 マクロは以下の通りです。 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
Next rFor c = 1 To sc
st = st & "||<#CCFFFF' "
Next c' セルのデータが数値: 右寄せ ' その他: 左寄せ 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 ' 新しいワークシートを作成し、 ' その中に Wiki 文法に書き換えた表を出力する Set ws = ThisWorkbook.Worksheets.Add() ws.Cells(1, 1) = st Set ws = Nothing End Sub このマクロを使用してできた表は、以下の通りです （使用の仕方は、前回のマクロの記事を参考にしてください）。
中央揃えの場合は、行頭の "||" を "||||" にするとできます。
これで、かなり Excel の表らしくなったことと思います。
|
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- ソフトウェア
|
前回の記事でできた表は、縦の幅が大きいので、 縦長の表では少し全体が見えにくくなるかもしれません。 次のような Wiki 文法で表を作ると、 ||ABC||DEF||GHI||JKL|| ||MNO||PQR||STU||VWX|| 以下のような表になります。
これでは縦に少し長いということであれば、 縦の長さを調節する属性を指定することでできます。 以下のブログ記事を参考にしました。 ||<#FFFFFF' ``|| ||<#CCFFFF' style=line-height:5pt; '``ABC ||<#CCFFFF' style=line-height:5pt; '``DEF ||<#CCFFFF' style=line-height:5pt; '``GHI ||<#CCFFFF' style=line-height:5pt; '``JKL ||<#FFFFFF' ``|| ||<#CCFFFF' style=line-height:5pt; '``MNO ||<#CCFFFF' style=line-height:5pt; '``PQR ||<#CCFFFF' style=line-height:5pt; '``STU ||<#CCFFFF' style=line-height:5pt; '``VWX 上記では、セルの縦の長さを表す line-height 属性を 5pt に指定して（元々は 10pt）、 縦の長さを小さくしています。すると、以下のような表ができます。
この表を簡単に作れるようなマクロを書いてみました。 Sub CreateSimpleWikiTable2() ' マクロ作成日 : 2007/1/25 ユーザー名 : 玄 ' 選択した 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
Next rFor c = 1 To sc
' セルの色と縦の幅を設定
Next cst = st & "||<#CCFFFF' style=line-height:5pt; '``" st = st & Selection.Cells(r, c).Text st = st & vbCrLf ' 新しいワークシートを作成し、 ' その中に Wiki 文法に書き換えた表を出力する Set ws = ThisWorkbook.Worksheets.Add() ws.Cells(1, 1) = st Set ws = Nothing End Sub このマクロの使い方は、まず Excel の表の範囲をマウスで選択して マクロを実行すると、新しいワークシートができます。 その新しいワークシートの「Ａ１」のセルに Wiki の表ができていますので、 それをそのまま記事にコピー＆ペーストすれば出来上がりです。 そうしてできた表は、以下のとおりになります。
これも Excel の表に新たに列を挿入して、 "|| 〜" をコピーすれば、
マクロを使わなくても作ることはできますね。
|
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- ソフトウェア
全1ページ
[1]
