回答編集履歴
3
コード追記
test
CHANGED
@@ -65,3 +65,17 @@
|
|
65
65
|
End Sub
|
66
66
|
|
67
67
|
```
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
If文の部分は下記でもよさそうです。
|
72
|
+
|
73
|
+
```vba
|
74
|
+
|
75
|
+
If s Like "*@*" Then
|
76
|
+
|
77
|
+
c.Formula = "=" & c.Precedents.Address(False, False)
|
78
|
+
|
79
|
+
End If
|
80
|
+
|
81
|
+
```
|
2
コード修正
test
CHANGED
@@ -46,7 +46,7 @@
|
|
46
46
|
|
47
47
|
s = Split(s, ":")(0) ':より前を取得
|
48
48
|
|
49
|
-
s = Repla
|
49
|
+
s = Replace(Replace(s, "$", ""), "@", "") '@と$を削除
|
50
50
|
|
51
51
|
c.Formula2 = s
|
52
52
|
|
1
説明の改善
test
CHANGED
@@ -18,7 +18,7 @@
|
|
18
18
|
|
19
19
|
|
20
20
|
|
21
|
-
とりあえず、O列の数式
|
21
|
+
とりあえず、O列の数式を修正するコード例です。
|
22
22
|
|
23
23
|
|
24
24
|
|