Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

文字列：定数（改行・タブ）

2015/09/01

改行・タブの定数

これらの定数は、使用前に定義する必要はありません。コード中のどこでも、対応する値の代わりに使用することができます。

定数	値	内容
vbCr	Chr(13)	改行（キャリッジリターン文字）
vbLf	Chr(10)	改行（ラインフィード文字）
VbCrLf	Chr(13)+Chr(10)	改行（キャリッジリターンとラインフィードの組み合わせ）
vbNewLine	Chr(13)+Chr(10) または Chr(10)	改行（プラットフォームで指定した改行文字）
vbTab	Chr(9)	タブ文字（横）

改行・タブの定数を使った例

サンプルVBAソース

　
Sub Sample_Const()


    Dim str As String

    'Chr(13) キャリッジリターン文字。
    str = "キャリッジリターン文字" & vbCr

    'Chr(10) ラインフィード文字。
    str = str & "ラインフィード文字" & vbLf

    'Chr(13)+Chr(10) キャリッジリターンとラインフィードの組み合わせ。
    str = str & "キャリッジリターンとラインフィード" & vbCrLf

    'Chr(13)+Chr(10) または Chr(10) プラットフォームで指定した改行文字。
    str = str & "プラットフォームで指定した改行文字" & vbNewLine

    'Chr(9)  タブ文字 (横)。
    str = str & "これが" & vbTab & "タブ文字 (横)です。" & vbNewLine

    MsgBox str


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

　

Sub Sample_Const()

Dim str As String

'Chr(13) キャリッジリターン文字。

str = "キャリッジリターン文字" & vbCr

'Chr(10) ラインフィード文字。

str = str & "ラインフィード文字" & vbLf

'Chr(13)+Chr(10) キャリッジリターンとラインフィードの組み合わせ。

str = str & "キャリッジリターンとラインフィード" & vbCrLf

'Chr(13)+Chr(10) または Chr(10) プラットフォームで指定した改行文字。

str = str & "プラットフォームで指定した改行文字" & vbNewLine

'Chr(9) タブ文字 (横)。

str = str & "これが" & vbTab & "タブ文字 (横)です。" & vbNewLine

MsgBox str

End Sub

　

実行結果

- VBA基本 VBA基本, エクセルVBA, タブ文字, 定数, 改行コード

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

: xlFileFormat 列挙型

xlFileFormat 列挙型 Workbook.SaveAs メソッドの引 …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: 文字列：文字列の長さを取得（ Len 関数、LenB 関数）

Len 関数（文字列の長さを取得）【書式】 result_len = Len …

: 指定した値を16進数で表記した文字列に変換する（Hex 関数）

Hex 関数の使い方【書式】 result = Hex ( expressi …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

PREV: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）
NEXT: 現在選択されているセルを参照（RangeSelection プロパティ）