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

関連記事

: IME の現在の状態を取得します（IMEStatus 関数）

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

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

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

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

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

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

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

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