回答編集履歴
1
一か所修正しました。For i = ustr.ZenLen + 1 To ustr.HanLenをFor i = ustr.ZenLen To ustr.HanLenにしました。（get_updat）
answer
CHANGED
|
@@ -96,7 +96,7 @@
|
|
|
96
96
|
update_len = ustr.ZenLen
|
|
97
97
|
Exit Sub
|
|
98
98
|
End If
|
|
99
|
-
For i = ustr.ZenLen
|
|
99
|
+
For i = ustr.ZenLen To ustr.HanLen
|
|
100
100
|
str = Mid(rg.Value, start_pos, i)
|
|
101
101
|
pos = InStr(1, str, ustr.OrgStr, vbTextCompare)
|
|
102
102
|
If pos <> 0 Then
|