回答編集履歴
2
補足
answer
CHANGED
|
@@ -46,4 +46,9 @@
|
|
|
46
46
|
ElseIf s Like "（##）*" Then
|
|
47
47
|
R7 = Val(Mid(s,2,2))
|
|
48
48
|
End If
|
|
49
|
-
```
|
|
49
|
+
```
|
|
50
|
+
補足
|
|
51
|
+
---
|
|
52
|
+
thom.jpさんの回答の[リンク先](https://thom.hateblo.jp/entry/2016/09/20/150650)でNBSP(ノーブレークスペース)を通常の半角スペースに変換する自作関数が紹介されていますが、NBSPは、ChrW(160)で表現できます。ということで、
|
|
53
|
+
`Replace(Range("A1").Value, ChrW(160)," ")`
|
|
54
|
+
で変換できます。
|
1
コード修正
answer
CHANGED
|
@@ -23,7 +23,7 @@
|
|
|
23
23
|
Case "（0）なし"
|
|
24
24
|
r7 = 0
|
|
25
25
|
Case Replace("（6）4?未満", "?", cm2)
|
|
26
|
-
r7 =
|
|
26
|
+
r7 = 6
|
|
27
27
|
Case Replace("（9）4?以上16?未満", "?", cm2)
|
|
28
28
|
r7 = 9
|
|
29
29
|
Case Replace("（12）16?以上36?未満", "?", cm2)
|