選択範囲の半角英字をそのまま全角に変換するよ
この説明は、ChatGPTで作成しています。
このVBAコードは、Excelで選択したセルの中にある半角の英字（A～Z、a～z）を全角の英字に変換するものです。以下にその仕組みをわかりやすく説明します。
このコードがやっていること
準備
画面のチラつきを防ぐために、Application.ScreenUpdatingをFalseにして処理を高速化しています。
万が一エラーが発生しても処理を途中で止めないようにするために、On Error Resume Nextを設定しています。
処理対象のセルを取得する
For Each myRng In Selection という部分で、選択範囲内のセルを1つずつ処理しています。
セルの中身を確認
各セルの値が空ではないかをIf Not IsEmpty(myRng.Value)で確認し、値がある場合のみ次の処理を行います。
文字を1文字ずつチェックして変換
セルの中の文字列をFor i = 1 To Len(txt)で1文字ずつ調べます。
If char Like "[A-Za-z]"という条件で、その文字が英字（A～Z、a～z）であるかを確認します。
半角英字であれば、StrConv(char, vbWide)を使ってその文字を全角に変換します。
変換結果をセルに戻す
変換が終わった文字列をセルに再び設定しています。
画面更新の再開
最後に、Application.ScreenUpdating = Trueで画面更新を再開します。
ポイント
このコードは、「選択範囲」に適用されます。そのため、事前に対象となるセルを選んでから実行する必要があります。
半角英字だけが変換対象で、数字や記号などはそのままです。
変換にはStrConvというVBAの便利な関数を使用しており、これにより簡単に半角から全角に変換できます。
こんな場面で便利！
例えば、Excelで作業しているときに、英字を全角に揃えたい場合がありますよね？このコードを使えば、手作業で変換する手間を省けます！
関連リンク
参考にしたサイト※ありがとうございます！
Sub 選択範囲の半角英字をそのまま全角に変換するよ()
Application.ScreenUpdating = False
On Error Resume Next
Dim myRng As Range
Dim txt As String
Dim i As Long
Dim char As String
For Each myRng In Selection
If Not IsEmpty(myRng.Value) Then
txt = myRng.Value
For i = 1 To Len(txt)
char = Mid(txt, i, 1)
If char Like "[A-Za-z]" Then
char = StrConv(char, vbWide)
Mid(txt, i, 1) = char
End If
Next i
myRng.Value = txt
End If
Next myRng
Application.ScreenUpdating = True
End Sub
ハッシュタグ
#excel #できること #vba #半角英字 #全角変換 #Excel自動化 #初心者向けVBA #文字列操作 #エクセル作業効率化 #プログラミング初学者 #VBA活用術 #コード解説 #VBAマクロ #エラー処理 #画面更新高速化 #セル操作 #文字列処理 #初心者向け #便利ツール #VBA関数
English Translation
Convert Half-width Alphabets in Selected Range to Full-width
This explanation is created using ChatGPT.
This VBA code is designed to convert half-width alphabets (A-Z, a-z) in the selected cells of Excel into full-width alphabets. Below is a simple explanation of how it works.
What This Code Does
Preparation
It disables screen updating (Application.ScreenUpdating = False) to prevent flickering and make the process faster.
It uses On Error Resume Next to ensure the process doesn’t stop in case of errors.
Retrieve Cells to Process
The line For Each myRng In Selection iterates through each cell in the selected range.
Check Cell Content
It checks if the cell is not empty using If Not IsEmpty(myRng.Value). If the cell has content, it proceeds with the next steps.
Check and Convert Characters One by One
It examines each character in the cell content using For i = 1 To Len(txt).
It checks if the character is an alphabet (A-Z, a-z) using If char Like "[A-Za-z]".
If it’s a half-width alphabet, it converts it to full-width using StrConv(char, vbWide).
Update the Cell with Converted Content
After conversion, the updated text is written back to the cell.
Re-enable Screen Updating
Finally, it re-enables screen updating with Application.ScreenUpdating = True.
Key Points
This code works on the selected cells, so you need to select the target cells beforehand.
It specifically converts only half-width alphabets; numbers and symbols are left unchanged.
The conversion relies on StrConv, a handy VBA function, making it simple to transform half-width to full-width.
When to Use This?
Imagine you are working in Excel and need to align alphabets in full-width. This code saves you the hassle of manual conversion!
Related Links
Hashtags
#excel #vba #convertAlphabets #fullWidth #automation #excelTips #codingForBeginners #macro #VBAFunction #stringManipulation #VBAForBeginners #errorHandling #productivityTools #ExcelAutomation #VBAReference #screenUpdate #rangeOperations #textProcessing #helpfulCode #VBAExamples
