この記事では、VBA内のタブ文字のフォーマットを理解するために2つのマクロを作成しました。

A9:A11の範囲のデータを生データとして取得しました。

ArrowRaw

例1では、タブ文字(vbTab)で区切られた、A9:A11の範囲内のセルからのデータを統合した文字列を作成しました。メッセージボックスを使用して文字列を表示すると、タブの間隔を確認できます。

ArrowFirstOutput

ただし、セルA14に文字列値を挿入すると、タブ間隔は表示されません。単語の間にタブ文字が存在することを示すために、いくつかのExcel数式を使用しました。

ArrowFormulas

例2では、​​セルA14の文字列値の各文字を区切り、改行文字(vbNewLine)を使用して改行を挿入しました。例2の出力も、メッセージボックスを使用して表示されます。

ArrowSecondOutput

コードについては以下に従ってください

Option Explicit

Sub example1()

'Declaring variable

Dim MainString As String

'Concatenating value from range A9 to A11 separated by Tab character

MainString = Range("A9").Value & vbTab & Range("A10").Value & vbTab & Range("A11").Value

'Display string in message box

MsgBox MainString

'Assigning value to cell A14

Range("A14").Value = MainString

End Sub

Sub example2()

'Declaring variables

Dim i, CharLength As Integer

Dim Output As String

Dim InputValue As String

'Getting input value from cell A14

InputValue = Range("A14").Value

CharLength = Len(InputValue)

'Looping through all the characters in the input value

For i = 1 To CharLength

'Creating string in which each character in the input is separated by new line

Output = Output & Asc(Mid(InputValue, i, 1)) & " " & Mid(InputValue, i, 1) & vbNewLine

Next i

'Displaying output using message box

MsgBox Output

End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください