きゃり～

ブログのレイアウトを変更したのは。。。


プログラムを紹介するとき、１行に収まるようにしたかったから。

まあ、目的は果たしたようですが。。。

今日は、プログラムを紹介するときに必要になる「字下げ」をtableと で作ってみました。。

【コード】

<table border="0"><tr>
<td></td>
<td>&nbsp;&nbsp;</td><td>&nbsp;&nbsp;</td><td>&nbsp;&nbsp;</td>
<td>&nbsp;&nbsp;</td><td></td>
</tr><tr>
<td>01:&nbsp;</td>
<td colspan="5">Function UFShtChk1(mySheet As Variant, Wb1 As Workbook) As Boolean</td>
</tr><tr>

（中略）

<td>11:&nbsp;</td><td></td>
<td colspan="4">For i = 1 To Wb1.Worksheets.Count</td>
</tr><tr>
<td>12:&nbsp;</td><td colspan="2"></td>
<td colspan="3">If Wb1.Worksheets(i).Name = mySheet Then</td>
</tr><tr>
<td>13:&nbsp;</td><td colspan="3"></td>
<td colspan="2">UFShtChk1 = True ' 見つかった！</td>
</tr><tr>
<td>14:&nbsp;</td><td colspan="3"></td>
<td colspan="2">Exit For</td>
</tr><tr>
<td>15:&nbsp;</td><td colspan="2"></td>
<td colspan="3">End If</td>
</tr><tr>
<td>16:&nbsp;</td><td colspan="1"></td>
<td colspan="4">Next</td>
</tr><tr>
<td>17:&nbsp;</td>
<td colspan="5">End Function</td>
</tr></table>

【表示】

01:	Function UFShtChk1(mySheet As Variant, Wb1 As Workbook) As Boolean
（中略）
11:		For i = 1 To Wb1.Worksheets.Count
12:			If Wb1.Worksheets(i).Name = mySheet Then
13:				UFShtChk1 = True ' 見つかった！
14:				Exit For
15:			End If
16:		Next
17:	End Function

HTMLが分かる方なら、分かるかと思いますが。。
tableのcolspanを使って、字下げの量を調整しています。

「あんたも、きゃり～を見習って、ファッションに興味を持ったらどうなのよ？」
「。。。」

きゃりーぱみゅぱみゅ - ファッションモンスター,Kyary Pamyu Pamyu Fashion Monster


きゃり～って、フツーの女のこなのね。

タグ：ファッションモンスター きゃりーぱみゅぱみゅ 本仮屋ユイカ table nbsp colspan

コメント 2

タグのお話ですか。
ちょっとずれますけど、参考までにお伺いしたいのですが
シーサー用に配布されているフリーのテンプレートを
ソネ風呂につかいたいんですけど、
ソネ風呂ってnice!という独自仕様がありますよね。
それはcssの部分だけコピペすればいいんでしょうかね
by いっぷく (2013-02-20 04:38) 

いっぷくさん、
seesaaブログとSo-netブログでは、どんだけ差分があるか、
当方では分かりません。。あしからず。。

当方のブログのように、あらぬ影響が出るかもしれません。
まあ、それでも良ければ、現在のCSSをコピーして、
テキストファイルに保存してから、seesaaのCSSをコピペしてみては。。

無責任な回答ですみません。
[__猫]
by cheese999 (2013-02-20 22:45)