回答編集履歴
1
ttyp03さんの指摘を追記
test
CHANGED
|
@@ -21,3 +21,53 @@
|
|
|
21
21
|
|
|
22
22
|
|
|
23
23
|
[VBAのEmptyやNothingやNull等の違い](https://vbabeginner.net/vba%E3%81%AEempty%E3%82%84nothing%E3%82%84null%E3%81%AA%E3%81%A9%E3%81%AE%E9%81%95%E3%81%84%E3%82%92%E6%95%B4%E7%90%86/)
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
**「空白文字のみが記入されてる場合も未記入扱いにしたい！」**という場合は
|
|
30
|
+
|
|
31
|
+
以下の追記も確認してみてください！
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
**※ttyp03さんの指摘を追記**
|
|
36
|
+
|
|
37
|
+
「If textbox_value = "" Then」の判定だと本当に未記入の場合のみtrueになる
|
|
38
|
+
|
|
39
|
+
→テキストボックスに空白文字のみ記入された場合は見た目は未記入なのにfalseになる！
|
|
40
|
+
|
|
41
|
+
「Trim(string型の変数)」を使うと変数前後の空白が取れる
|
|
42
|
+
|
|
43
|
+
→空白文字のみ記入された場合もtrueになる！
|
|
44
|
+
|
|
45
|
+
ということです。※以下サイトに詳細書いてます
|
|
46
|
+
|
|
47
|
+
[Trim関数について](https://www.sejuku.net/blog/34111#i)
|
|
48
|
+
|
|
49
|
+
Trimだとタブ等の文字が消えないので上記サイトの
|
|
50
|
+
|
|
51
|
+
「3 改行、タブ、全角スペースを削除する方法」項目のように
|
|
52
|
+
|
|
53
|
+
Replace関数で消していくやり方も確認してみてください。
|
|
54
|
+
|
|
55
|
+
**▼ 空白文字のみの場合は未記入とする判定方法に変更**
|
|
56
|
+
|
|
57
|
+
```vb
|
|
58
|
+
|
|
59
|
+
' 記入内容を変更しないように、必ず別の変数に取得する
|
|
60
|
+
|
|
61
|
+
Dim hantei As String
|
|
62
|
+
|
|
63
|
+
hantei = Trim(textbox_value) ' 空白削除
|
|
64
|
+
|
|
65
|
+
hantei = Replace(hantei, vbTab, "") ' タブ削除
|
|
66
|
+
|
|
67
|
+
hantei = Replace(hantei, vbCrLf, "") ' 改行削除
|
|
68
|
+
|
|
69
|
+
hantei = Replace(hantei, vbLf, "") ' 改行削除
|
|
70
|
+
|
|
71
|
+
If hantei = "" Then
|
|
72
|
+
|
|
73
|
+
```
|