回答編集履歴

1

コード追記

2021/12/27 06:49

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -24,7 +24,7 @@
24
24
 
25
25
  ```vba
26
26
 
27
- Function Hikaku(a As String)
27
+ Function Hikaku(a As String) As Long
28
28
 
29
29
 
30
30
 
@@ -47,3 +47,35 @@
47
47
  =Hikaku(A1)
48
48
 
49
49
  ```
50
+
51
+
52
+
53
+ ---
54
+
55
+ やりたいことがよくわからないですが、
56
+
57
+ 文字列を先頭から比較していってどこまで一致しているのかその文字数を表示するというユーザー定義関数を提示しておきます。
58
+
59
+
60
+
61
+ ```vba
62
+
63
+ Function Hikaku(a As String, b As String) As Long
64
+
65
+ Dim i As Long, l As Long
66
+
67
+ l = Len(a)
68
+
69
+ If l > Len(b) Then l = Len(b)
70
+
71
+ For i = 1 To l
72
+
73
+ If Mid(a, i, 1) <> Mid(b, i, 1) Then Exit For
74
+
75
+ Next
76
+
77
+ Hikaku = i - 1
78
+
79
+ End Function
80
+
81
+ ```