回答編集履歴
2
※２
test
CHANGED
|
@@ -1,4 +1,5 @@
|
|
|
1
1
|
参考程度です。
|
|
2
|
+
（先頭から1文字ずつ比べるだけの簡易版）
|
|
2
3
|
```
|
|
3
4
|
Dim VAL As Variant
|
|
4
5
|
Sub Worksheet_SelectionChange(ByVal Target As Range)
|
1
※
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
参考程度です。
|
|
2
2
|
```
|
|
3
3
|
Dim VAL As Variant
|
|
4
4
|
Sub Worksheet_SelectionChange(ByVal Target As Range)
|