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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

Replace 関数の使い方【書式】 result = Replace ( s …

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

: 指定した数値を文字列に変換する（Str 関数）

Str 関数の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

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

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

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

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