回答編集履歴

3

コード追記

2021/01/14 07:12

投稿

hatena19
hatena19

スコア34073

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

コード修正

2021/01/14 07:12

投稿

hatena19
hatena19

スコア34073

test CHANGED
@@ -46,7 +46,7 @@
46
46
 
47
47
  s = Split(s, ":")(0) ':より前を取得
48
48
 
49
- s = Replase(Replase(s, "$", ""), "@", "") '@と$を削除
49
+ s = Replace(Replace(s, "$", ""), "@", "") '@と$を削除
50
50
 
51
51
  c.Formula2 = s
52
52
 

1

説明の改善

2021/01/14 06:57

投稿

hatena19
hatena19

スコア34073

test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
 
20
20
 
21
- とりあえず、O列の数式のは修正するコード例です。
21
+ とりあえず、O列の数式修正するコード例です。
22
22
 
23
23
 
24
24