【VBA】表示形式を文字列に設定する方法～たった3ステップで思い通りの表示形式に変換～

数値が勝手に日付になってしまったり、「0001」と入力したいのに「1」になってしまう。。

こんな問題を抱えていませんか？

間違った入力をしているわけではないのに、入力内容が思い通り表示されないってめちゃくちゃストレスですよね。

これらの問題は

VBAで表示形式を文字列に設定することで一瞬で解決

することができます。

本記事では、文字列設定の基礎から実践的なテクニックまで、初心者にもわかりやすく解説します。

たった3ステップの手順で、データの取り扱いが格段に楽になる方法をお伝えしますので、ぜひ最後までご覧ください。

VABを使って面倒なデータ処理を自動化してしまいましょう。

目次 [開く]

VBAで表示形式を文字列に設定する基本知識

エクセルでデータを扱う際、表示形式の設定は非常に重要です。

特にVBAを使ってデータを操作する場合、

テキストを文字列として表示させることでデータの取り扱いがとても楽

になります。

ここからは、VBAを使って表示形式を文字列に設定する方法について基礎から丁寧に解説していきます。

表示形式を文字列に設定する必要性とメリット

セルに入力した値は自動的に表示形式が変換されてしまいます。

例えば、

「2024-01-22」と入力すると日付として認識され、「1234」と入力すると数値として認識される

といった感じです。

便利な機能ではあるものの、

入力された値をそのまま文字列として扱いたいこと

ってありますよね。

「１」ではなく「０００１」と表示したい

「2025/1/1」ではなく「2025年1月1日」と表示したい

文字列として設定することで

データの加工や編集が簡単になり他のシステムとの連携もスムーズになる、計算式に影響を与えない、など

のメリットがあります。

ガッツポーズの人

入力内容をそのまま表示したい場合、表示形式「文字列」がおすすめ

VBAでの文字列表示形式の基本的な設定方法

VBAで表示形式を文字列に設定する基本的な方法は、

NumberFormatプロパティを使用する

です。

サンプルコードがこちら

Sub SetTextFormat()
'セルA1の表示形式を文字列に設定
Range("A1").NumberFormat = "@"
'選択範囲の表示形式を文字列に設定
Selection.NumberFormat = "@"
'特定の範囲の表示形式を文字列に設定
Range("A1:D10").NumberFormat = "@"
End Sub

このコードでは、@記号を使って表示形式を文字列に設定していて、

@記号はエクセルにおける文字列形式を表す特殊記号

です。

よくあるエラーと対処法

表示形式の設定時に発生しやすいエラーについて説明します。

最もよく遭遇するのが「型の不一致」エラーで、

数値や日付を含むセルを文字列に変換するときよく発生

してしまいます。

こうしたエラーを防ぐためのサンプルコードがこちら

Sub HandleErrors()
On Error Resume Next
'セルの値を一度変数に格納してから文字列として設定
Dim cellValue As String
cellValue = CStr(Range("A1").Value)
Range("A1").NumberFormat = "@"
Range("A1").Value = cellValue
On Error GoTo 0
End Sub

上記サンプルコードは、

CStr関数を使って確実に文字列に変換してから値を設定し、On Error Resume Nextを使用してエラーハンドリングをする

という内容です。

VBAで表示形式を文字列に変換する３ステップ

VBAで表示形式を文字列に設定する具体的な手順を3つのステップに分けて解説。

初めてVBAを使う方でも簡単に実装できるようにそれぞれのステップを詳しく説明していきます。

STEP1: セル範囲の選択とフォーマット設定

まず最初に、文字列として設定したいセル範囲を正しく選択する必要があります。

セル範囲を選択する最も基本的なコードの書き方がこちら

Sub SelectAndFormat()
'特定のセル範囲を選択
Dim targetRange As Range
Set targetRange = Worksheets("Sheet1").Range("A1:D10")
'現在のフォーマットをクリア
targetRange.Clear
'表示形式を文字列に設定
targetRange.NumberFormat = "@"
End Sub

上記サンプルコードは、

対象範囲を変数に格納し、既存のフォーマットをクリアしてから新しい表示形式を設定する

という意味です。

これにより、既存の設定による影響を避けることができます。

STEP2: NumberFormatプロパティの使い方

NumberFormatプロパティは表示形式を制御する重要な要素です。

文字列以外にも様々な表示形式を設定できますが、今回は文字列変換に焦点を当てて解説します。

Sub UseNumberFormat()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'文字列形式の設定
ws.Range("A1").NumberFormat = "@"
'値の設定
ws.Range("A1").Value = "2024-01-22"
'日付を文字列として保持
ws.Range("B1").NumberFormat = "@"
ws.Range("B1").Value = Format(Date, "yyyy-mm-dd")
End Sub

上記サンプルコードは、

日付データを文字列として保持しつつ、Format関数を使って希望の形式で表示する

という意味です。

STEP3: 文字列表示のカスタマイズ方法

文字列として設定した後、

「テキストの種類」「テキストの配置」「テキストの大きさ」などを指定する

ことでさらに見やすく使いやすい形式にできます。

文字列表示をカスタマイズするサンプルコードがこちら

Sub CustomizeTextFormat()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'左寄せで表示
ws.Range("A1").HorizontalAlignment = xlLeft
'フォントと色の設定
With ws.Range("A1")
.NumberFormat = "@"
.Font.Name = "メイリオ"
.Font.Size = 11
.Interior.Color = RGB(240, 240, 240)
End With
'文字列の前後に特定の文字を追加
ws.Range("A1").Value = "【" & ws.Range("A1").Value & "】"
End Sub

上記サンプルコードは、

「テキストを文字列形式にする」「テキストの種類をメイリオにする」「テキストのサイズを１１にする配置」「テキストの色を変える」

という意味です。

見た目を詳しく設定できるので、キレイな資料に仕上げることができます。

実践で使える！表示形式を文字列に変換する活用テクニック

実際の業務では、

単純な文字列変換だけでなく様々なデータタイプを適切に扱う

必要があります。

ここからは、実務でよく遭遇する具体的なケースとその解決方法について解説していきます。

日付データを文字列に変換する方法

日付データの文字列変換は、データ連携においてとても重要です。

特に、システム間でデータをやり取りする際には、日付の形式を統一する必要があります。

日付形式を統一するサンプルコードがこちら

Sub ConvertDateToString()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'日付データを文字列として格納
With ws.Range("A1")
.NumberFormat = "@"
.Value = Format(Date, "yyyy/mm/dd")
End With
'時刻を含む日付データの変換
With ws.Range("A2")
.NumberFormat = "@"
.Value = Format(Now, "yyyy/mm/dd hh:nn:ss")
End With
'和暦への変換例
With ws.Range("A3")
.NumberFormat = "@"
.Value = Format(Date, "gge年mm月dd日")
End With
End Sub

このコードでは、日付データを様々な形式の文字列に変換する方法を示しています。

ガッツポーズの人

業務内容に合った部分のコードをコピペして活用してください。

数値データを文字列として扱うポイント

数値データを文字列に変換する際は、桁数や小数点の扱いに注意が必要です。

桁数や小数点を指定するサンプルコードがこちら

Sub ConvertNumberToString()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'3桁区切りの数値を文字列に変換
With ws.Range("A1")
.NumberFormat = "@"
.Value = Format(1234567, "#,##0")
End With
'小数点以下を含む数値の変換
With ws.Range("A2")
.NumberFormat = "@"
.Value = Format(1234.567, "#,##0.000")
End With
'先頭にゼロを付ける場合（注文番号などに使用）
With ws.Range("A3")
.NumberFormat = "@"
.Value = Format(123, "0000000")
End With
End Sub

見た目のキレイな資料作りには、

「桁数を揃える」「カンマと小数点の表示を揃える」などの処理

が必要です。

ガッツポーズの人

手作業でやると編集忘れの恐れがあるのでVBAで自動化することをおすすめします。

複数セルの一括変換テクニック

大量のデータを扱う際は、効率的な一括変換が重要です。

複数のセルをまとめて変換するサンプルコードがこちら

Sub BatchConversion()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1:D100") '対象範囲を設定
Application.ScreenUpdating = False '画面更新を停止して処理を高速化
'一括で表示形式を設定
rng.NumberFormat = "@"
'各セルの値を文字列として再設定
For Each cell In rng
If Not IsEmpty(cell) Then
cell.Value = CStr(cell.Value)
End If
Next cell
Application.ScreenUpdating = True '画面更新を再開
End Sub

大量のデータをまとめて処理しようとすると時間がかかったり、最悪の場合「メモリー不足」というエラーが発生してしまいます。

こんな問題を解決するために上記サンプルコードでは

「Application.ScreenUpdatingプロパティを使用して処理を高速化する」「空のセルをスキップすることで不要な処理を減らす」

対策が設定されています。

ガッツポーズの人

VBA作成時によく使われるテクニックなので自由に扱えるようにしておきましょう。

よくある質問とトラブルシューティング

VBAで表示形式を文字列に設定する際に、よく発生する問題とその解決方法を解説していきます。

文字列変換後の値が正しく表示されない場合の対処法

値が正しく表示されない場合は、

データ型の変換時に問題が発生している

ことがほとんどです。

このような問題を解決するサンプルコードがこちら

Sub TroubleshootDisplayIssues()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'文字化けを防ぐための対処
With ws.Range("A1")
.NumberFormat = "@"
'バイト文字を適切に処理
.Value = StrConv(.Value, vbNarrow)
End With
'数値の丸め込みを防ぐ
With ws.Range("A2")
.NumberFormat = "@"
.Value = Format(.Value, "0.000") '小数点以下3桁を保持
End With
'特殊文字を含む場合の対処
With ws.Range("A3")
.NumberFormat = "@"
.Value = Replace(Replace(.Value, vbCr, ""), vbLf, "")
End With
End Sub

上記サンプルコードは、

文字化け、数値の丸め込み、特殊文字による表示崩れ、などの問題を対処

することができます。

表示形式の設定が保持されないときの解決方法

設定した表示形式が保持されない問題は、

ワークシートの保存や再開時によく発生

します。

このような問題を解決するサンプルコードがこちら

Sub PreserveTextFormat()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'ワークシートの変更イベントを活用
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
Application.EnableEvents = False
Target.NumberFormat = "@"
Application.EnableEvents = True
End If
End Sub

'ブックを保存する前の処理
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim targetRange As Range
Set targetRange = Range("A1:D100")
targetRange.NumberFormat = "@"
End Sub

上記サンプルコードは、

ワークシートの変更イベントとブックの保存前イベントを利用して、表示形式を確実に保持する

ことができます。

他のブックでも使える！汎用的なコード作成のコツ

異なる環境でも確実に動作する汎用的なコードを作成することは、業務効率化の重要なポイントです。

安全にかつ確実に実行できるサンプルコードがこちら

Public Function ConvertToText(ByVal targetRange As Range) As Boolean
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
'シート保護の一時解除
Dim isProtected As Boolean
isProtected = targetRange.Worksheet.ProtectContents
If isProtected Then targetRange.Worksheet.Unprotect
'表示形式の設定と値の変換
With targetRange
.NumberFormat = "@"
.Value = .Value
End With
'保護の再設定
If isProtected Then targetRange.Worksheet.Protect
Application.ScreenUpdating = True
ConvertToText = True
Exit Function
ErrorHandler:
Application.ScreenUpdating = True
If isProtected Then targetRange.Worksheet.Protect
ConvertToText = False
End Function