使用環境
- OS：Windows 10 Pro（バージョン：20H2）
- ソフト：Microsoft Excel VBA
経緯
VBAを使って、バーコードリーダーから読み取った値を処理している際に、
全角文字で読み取られてしまうケースがあり、非常に困っていました。
そこで今回は、全角文字を半角文字に変換する方法について学びました。
解決方法：StrConv関数（vbNarrowオプション）を使う
VBAでは、StrConv関数を使うことで、
簡単に全角から半角へ変換することができます。
コード例（バーコード入力を半角に変換）
Dim barcode_raw As String
Dim barcode As String
barcode_raw = Application.InputBox(prompt:="バーコードを読んでください。", Title:="バーコードフォーム", Type:=2)
barcode = StrConv(barcode_raw, vbNarrow)
コード解説
- 1～2行目：文字列型の変数
barcode_rawとbarcodeを宣言します。 - 3行目：バーコード入力用のInputBoxを表示し、入力された値を
barcode_rawに格納します。
※ここではType:=2（文字列入力）を指定しています。（Type:=3は数値入力用なので本来は2が適切です。） - 4行目：
StrConv関数を使い、barcode_rawの内容を**半角（vbNarrow）**に変換し、barcodeに格納します。
これで、バーコード入力時に全角だった文字列も、自動的に半角に変換されるようになります。
失敗談から学んだこと
最初は、xlIMEModeプロパティや**CStr()**を使って解決しようとしましたが、
- オブジェクト関連のエラー
- 型変換だけでは文字幅が変わらない問題
に直面し、うまくいきませんでした。
最終的に、**StrConv関数＋vbNarrow**を使う方法がシンプルで確実だと理解しました。
まとめ
VBAで全角を半角に変換するには、
StrConv(変換対象, vbNarrow)
を使うのが最も簡単かつ確実な方法です。
特にバーコード処理やデータベースへの登録など、
文字コード統一が求められる場面で非常に有効です。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
