ExcelでVBAでタブ文字を指定する方法
この記事では、VBA内のタブ文字のフォーマットを理解するために2つのマクロを作成しました。
A9:A11の範囲のデータを生データとして取得しました。
例1では、タブ文字(vbTab)で区切られた、A9:A11の範囲内のセルからのデータを統合した文字列を作成しました。メッセージボックスを使用して文字列を表示すると、タブの間隔を確認できます。
ただし、セルA14に文字列値を挿入すると、タブ間隔は表示されません。単語の間にタブ文字が存在することを示すために、いくつかのExcel数式を使用しました。
例2では、セルA14の文字列値の各文字を区切り、改行文字(vbNewLine)を使用して改行を挿入しました。例2の出力も、メッセージボックスを使用して表示されます。
コードについては以下に従ってください
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]までご連絡ください