|
前回の記事でできた表は、縦の幅が大きいので、 縦長の表では少し全体が見えにくくなるかもしれません。 次のような 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 の表に新たに列を挿入して、 "|| 〜" をコピーすれば、
マクロを使わなくても作ることはできますね。
|
転載元: 
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- ソフトウェア
コメント（0）
