NakamuraBlog（ナカログ)

新着記事

2023/1/8

Nakamura 正規表現は奥が深いので、今回は「半角英数字」に絞っておりますゆえ、お許しください。基本的にコピペでOKです。VBAの使い方が分からない人は、この辺の記事をどうぞ。 Nakamura 検証用のテストコード簡単ですが、検証用のテストコードを紹介しますね。

Public Sub 正規表現_動作確認()
   Dim Str1 As String
   Dim Str2 As String
   Dim Str3 As String
   Dim Str4 As String
   Dim Str5 As String
   Dim Str6 As String
   Dim Str7 As String
   Dim Str8 As String
   Dim Str9 As String
   
   Str1 = "a"           '半角英字のみ 　　（結果：True）
   Str2 = "123"         '半角数字のみ 　　（結果：True）
   Str3 = "a123"        '半角英字＋数字 　（結果：True）
   Str4 = "日本語"      '日本語　　　　　 （結果：False）
   Str5 = "a123日本語"  '半角英数字+日本語（結果：False）
   
   Str6 = "Ａ"              '全角英字　 　（結果：False）
   Str7 = "１２３"          '全角数字　　 （結果：False）
   Str8 = "Ａ１２３日本語"  '全角英数字+日本語（結果：False）

   
   Debug.Print "①半角英字のみ："; chk_hankakueisuzi(Str1)
   Debug.Print "②半角数字のみ："; chk_hankakueisuzi(Str2)
   Debug.Print "③半角英字＋数字："; chk_hankakueisuzi(Str3)
   Debug.Print "④日本語："; chk_hankakueisuzi(Str4)
   Debug.Print "⑤半角英数字+日本語："; chk_hankakueisuzi(Str5)
   
   Debug.Print "⑥全角英字："; chk_hankakueisuzi(Str6)
   Debug.Print "⑦全角数字："; chk_hankakueisuzi(Str7)
   Debug.Print "⑧半角英数字+日本語："; chk_hankakueisuzi(Str8)

End Sub

Public Sub 正規表現_動作確認()

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Dim Str4 As String

Dim Str5 As String

Dim Str6 As String

Dim Str7 As String

Dim Str8 As String

Dim Str9 As String

Str1 = "a" '半角英字のみ　　（結果：True）

Str2 = "123" '半角数字のみ　　（結果：True）

Str3 = "a123" '半角英字＋数字　（結果：True）

Str4 = "日本語" '日本語　　　　　（結果：False）

Str5 = "a123日本語" '半角英数字+日本語（結果：False）

Str6 = "Ａ" '全角英字　　（結果：False）

Str7 = "１２３" '全角数字　　（結果：False）

Str8 = "Ａ１２３日本語" '全角英数字+日本語（結果：False）

Debug.Print "①半角英字のみ："; chk_hankakueisuzi(Str1)

Debug.Print "②半角数字のみ："; chk_hankakueisuzi(Str2)

Debug.Print "③半角英字＋数字："; chk_hankakueisuzi(Str3)

Debug.Print "④日本語："; chk_hankakueisuzi(Str4)

Debug.Print "⑤半角英数字+日本語："; chk_hankakueisuzi(Str5)

Debug.Print "⑥全角英字："; chk_hankakueisuzi(Str6)

Debug.Print "⑦全角数字："; chk_hankakueisuzi(Str7)

Debug.Print "⑧半角英数字+日本語："; chk_hankakueisuzi(Str8)

End Sub

検証するのが面倒な人向けに、検証用コードの出力結果をキャプチャを貼っておきます。イミディエイトウィンドウにTrue/Falseが出力されてる ...

2023/4/8

【白色申告】副業サラリーマン-おすすめ会計ソフト【確定申告】

副業で年間取得が20万円を少しだけ超えそう。今回の確定申告は「白色申告」で済ませたいな… Nakamura といった形で、まず手軽にやるなら「やよいの白色申告オンライン」がオススメですよ、ということを伝えたかったです。メモお金に余裕のある方は、「やよいの白色申告オンライン」以外でも問題ありません。本記事で紹介している会計ソフトは、基本機能は実装しているため、無料トライアルで確認するのもオススメ。ただ、「白色申告」に関しては「やよいの白色申告オンライン」が凄くオススメということを ...

2022/3/12

【VBA】非表示EXCELシートを一括表示（コピペコード）

Nakamura はい。ということで、説明しますね。コードの紹介（結論）※コピペでOK コードは至ってシンプルであり、以下の通りです。

Sub シート一括再表示()
　　Dim sheets As Worksheet
　　For Each sheets In Worksheets
　　　 sheets.Visible = True
　　Next
End Sub

Sub シート一括再表示()

　　Dim sheets As Worksheet

　　For Each sheets In Worksheets

　　　 sheets.Visible = True

End Sub

重要なポイント強いて重要なポイントをあげるとしたら、シートを再表示させたいEXCELの VBE上で記載してください。参考までに、実行画面のキャプチャも紹介しておきますね。 Nakamura 終わりにお疲れさまでした。紹介したコードは意外とシンプルだっ ...

2022/3/27

ロジクールMX ERGOがオススメな理由【トラックボールマウス】

トラックボールマウスって使いにくそう。。。 Nakamura 筆者は、7年間 1日12時間くらいPCを操作する仕事をしています。有線マウス、無線マウス、トラックボールマウス、MagicMouse（マジックマウス）・・・など、様々なマウスを試しました。そういった経験をもとに「ロジクール MX ERGO」が一番のオススメできるマウスだなーと思ったので、今回記事にしました。リンクこんな人にオススメ（操作性＋肩凝り解消の両方を解決したい人）　 ...

2022/3/26

【VBA】環境依存文字（レ点チェックなど）の出力方法【コード有】

Nakamura VBEなどが分からない人はコチラをどうぞはい。ということで、説明します。 VBAで環境依存文字を使用する際の手順（★重要）簡単な流れ【STEP1】対象文字の「文字コード」を調べる【STEP2】VBAでは「文字コード」から出力する VBE上では、環境依存文字は「?」(ハテナ)と表示されます。そして、この「?」は、「?」のまま String型として認識されてしまいます。つまりは、環境依存文字を使用する場合は「文字コード」から直接出力してあげる構成にし ...