white-space:表示指定

---

禁則処理：

normal	タグ・スペース・改行を1つの半角スペースで表示する
pre	タグ・スペース・改行を入力通りに表示する

white-spaceプロパティで、タグ・スペース・改行をソースに入力されている通りに表示させるかどうかを指定します。
ただし、このプロパティは InternetExplorer 6.0 の標準モードでは利用できますが、互換モードやそれ以外のバージョンでは利用出来ません。

white-space:normal　(1つの半角スペースで表示)

Sub MAKE_Filename() Dim SakuseiFile, Syurui, GazoNo1, GazoNo2 As String Dim idx, GYO, i1, i2 As Long GYO = ActiveSheet.Range("$I$65536").End(xlUp).Row GYO = GYO + 1 i2 = 8 For i1 = 8 To GYO If Cells(i1, 11) = Cells(i1 - 1, 11) Then GazoNo2 = Cells(i1, 10) Else SakuseiFile = SakuseiFile & ".txt" Cells(i2, 13) = SakuseiFile i2 = i2 + 1 Syurui = Cells(i1, 9) GazoNo1 = Cells(i1, 10) GazoNo2 = "" End If Next MsgBox "処理が完了しました。", vbInformation End Sub

white-space:normal　(入力通りに表示)

Sub MAKE_Filename() Dim SakuseiFile, Syurui, GazoNo1, GazoNo2 As String Dim idx, GYO, i1, i2 As Long GYO = ActiveSheet.Range("$I$65536").End(xlUp).Row GYO = GYO + 1 i2 = 8 For i1 = 8 To GYO If Cells(i1, 11) = Cells(i1 - 1, 11) Then GazoNo2 = Cells(i1, 10) Else SakuseiFile = SakuseiFile & ".txt" Cells(i2, 13) = SakuseiFile i2 = i2 + 1 Syurui = Cells(i1, 9) GazoNo1 = Cells(i1, 10) GazoNo2 = "" End If Next MsgBox "処理が完了しました。", vbInformation End Sub

<STYLE type="text/css">
<!--
.txt1 { white-space:normal; }
.txt2 { white-space:pre; }
-->
</STYLE>

<H4>white-space:normal　(1つの半角スペースで表示)</H4>
<P><CODE class="txt1">

Sub MAKE_Filename() Dim SakuseiFile, Syurui, GazoNo1, GazoNo2 As String Dim idx, GYO, i1, i2 As Long GYO = ActiveSheet.Range("$I$65536").End(xlUp).Row GYO = GYO + 1 i2 = 8 For i1 = 8 To GYO If Cells(i1, 11) = Cells(i1 - 1, 11) Then GazoNo2 = Cells(i1, 10) Else SakuseiFile = SakuseiFile & ".txt" Cells(i2, 13) = SakuseiFile i2 = i2 + 1 Syurui = Cells(i1, 9) GazoNo1 = Cells(i1, 10) GazoNo2 = "" End If Next MsgBox "処理が完了しました。", vbInformation End Sub

</CODE></P>
<H4>white-space:normal　(入力通りに表示)</H4>
<P><CODE class="txt2">
|　(内容は上記と同じなので省略)
</CODE></P>