文字列:文字列変数の値を右詰めまたは左詰めにする(RSet ステートメント・LSet ステートメント)
2015/05/15
RSet ステートメント・LSet ステートメント
< RSet ステートメント >
RSet stringvar = string
< LSet ステートメント >
LSet stringvar = string
【項目の説明】
- stringvar ・・・ 右詰または左詰めを行う文字列変数名。
- string ・・・ 格納される任意の文字列・文字列式を指定します。
RSet ステートメント
引数 stringvar が引数 string よりも長い場合、引数 stringvar の余った部分(左側)をスペースで埋めます。
また、引数 stringvar が引数 string より短い場合、stringvar に格納できる長さの文字だけ stringvar にコピーされ、格納できない部分は切り捨てられます。
LSet ステートメント
引数 stringvar が引数 string よりも長い場合、引数 stringvar の余った部分(右側)をスペースで埋めます。
また、引数 stringvar が引数 string より短い場合、stringvar に格納できる長さの文字だけ stringvar にコピーされ、格納できない部分は切り捨てられます。
RSet ステートメントでは、ユーザー定義型の変数を使用することはできません。
また、LSet ステートメントを使って、あるユーザー定義型の変数を別のユーザー定義型の変数にコピーすることは可能ですが、できる限りしないほうがよいでしょう。あるデータ型のデータを別のデータ型で予約されている領域にコピーすると、予期しない結果が生じる可能性があります。
RSet ・LSet ステートメントの使用例
引数 stringvar が引数 string よりも長い場合
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Sample_Set1() Dim myLeft, myRight, myStr myRight = "1234567890" myLeft = "1234567890" myStr = "1234567890" RSet myRight = "あいうえ" LSet myLeft = "あいうえ" MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft End Sub |
実行結果
引数 stringvar が引数 string よりも短い場合
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Sample_Set2() Dim myLeft, myRight, myStr myRight = "12345" myLeft = "12345" myStr = "12345" RSet myRight = "あいうえおかきくけこ" LSet myLeft = "あいうえおかきくけこ" MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft End Sub |
実行結果
関連記事
-
-
指定した値を16進数で表記した文字列に変換する(Hex 関数)
Hex 関数 の使い方 【書式】 result = Hex ( expressi …
-
-
文字列:文字を指定数並べた文字列を返す(String 関数)
String 関数 【書式】 result = String ( number, …
-
-
指定した数値を文字列に変換する(Str 関数)
Str 関数 の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …
-
-
色の設定(ThemeColor プロパティ・TintAndShade プロパティ)
ThemeColor プロパティ・TintAndShade プロパティ テーマカ …
-
-
変数がオブジェクト型かどうかをチェックする( IsObject 関数 )
IsObject 関数の使い方 【書式】 result = IsObject ( …
-
-
VBA で正規表現を使う(RegExp オブジェクト)
RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …
-
-
画面の更新を停止(ScreenUpdating プロパティ)
画面の更新を停止 マクロを実行すると、画面が更新されます。これにより、実行速度が …
-
-
ユーザー設定リストを使って並べ替える(Sort)
VBAでリスト、テーブルを並べ替える(Sort) VBAで、ソートを行うには、S …
-
-
ポイント単位の値に変換(CentimetersToPoints,InchesToPoints)
CentimetersToPoints メソッド センチメートル単位の値をポイン …
-
-
Array 関数(バリアント型の配列を作成)
Array 関数の使い方 【書式】 myArray = Array ( elem …