質問編集履歴

3

試したことに再度補足しました

2021/10/15 04:34

投稿

rainbow0707
rainbow0707

スコア2

test CHANGED
File without changes
test CHANGED
@@ -188,9 +188,11 @@
188
188
 
189
189
  型が一致しません について色々調べましたが、有力な解決方法が見つかっていません。
190
190
 
191
- 通貨(¥)表示のCPC等では表示自体に小数点が含まれていませんが、関数の答え自体には小数点以下が含まれているので、LongからCurrencyやSingleやDoubleに変えてみましたが上手くいきませんでした。
191
+ 通貨(¥)表示のCPC等では表示自体に小数点が含まれていませんが、関数の答え自体には小数点以下が含まれているので、
192
+
192
-
193
+ LongからCurrencyやSingleやDoubleに変えてみましたが上手くいきませんでした。
194
+
193
- 小数点が最高で15桁程あるのでDoubleを用いてエラーになっているので、
195
+ パーセンテージ(%)表示のCTR等では小数点が最高で15桁程あるのでDoubleを用いてエラーになっているので、
194
196
 
195
197
  Decimal を使うのかも考えましたが、宣言ができないとのことで記述の仕方がわからずまだ試せていません。
196
198
 

2

試したことに補足しました

2021/10/15 04:34

投稿

rainbow0707
rainbow0707

スコア2

test CHANGED
File without changes
test CHANGED
@@ -188,7 +188,7 @@
188
188
 
189
189
  型が一致しません について色々調べましたが、有力な解決方法が見つかっていません。
190
190
 
191
- 通貨(¥)表示のCPC等ではLongからCurrencyやSingleやDoubleに変えて上手くいきませんでした。
191
+ 通貨(¥)表示のCPC等では表示自体に小数点が含まれていませんが、関数の答え自体には小数点以下が含まれているので、LongからCurrencyやSingleやDoubleに変えてみましたが上手くいきませんでした。
192
192
 
193
193
  小数点が最高で15桁程あるのでDoubleを用いてエラーになっているので、
194
194
 

1

コードの修正

2021/10/15 04:33

投稿

rainbow0707
rainbow0707

スコア2

test CHANGED
File without changes
test CHANGED
@@ -136,27 +136,27 @@
136
136
 
137
137
  '週次レポートの日別シートのC列~M列に出力
138
138
 
139
- datasheet.Range("C" & i).Value = DAP_COST
139
+ datasheet.Range("C" & i).Value = AP_COST
140
-
140
+
141
- datasheet.Range("D" & i).Value = DAP_IMP
141
+ datasheet.Range("D" & i).Value = AP_IMP
142
-
142
+
143
- datasheet.Range("E" & i).Value = DAP_CLICK
143
+ datasheet.Range("E" & i).Value = AP_CLICK
144
-
144
+
145
- datasheet.Range("F" & i).Value = DAP_CTR
145
+ datasheet.Range("F" & i).Value = AP_CTR
146
-
146
+
147
- datasheet.Range("G" & i).Value = DAP_CPC
147
+ datasheet.Range("G" & i).Value = AP_CPC
148
-
148
+
149
- datasheet.Range("H" & i).Value = DAP_CV
149
+ datasheet.Range("H" & i).Value = AP_CV
150
-
150
+
151
- datasheet.Range("I" & i).Value = DAP_CVR
151
+ datasheet.Range("I" & i).Value = AP_CVR
152
-
152
+
153
- datasheet.Range("J" & i).Value = DAP_CPA
153
+ datasheet.Range("J" & i).Value = AP_CPA
154
-
154
+
155
- datasheet.Range("K" & i).Value = DAP_完了CV
155
+ datasheet.Range("K" & i).Value = AP_完了CV
156
-
156
+
157
- datasheet.Range("L" & i).Value = DAP_完了CVR
157
+ datasheet.Range("L" & i).Value = AP_完了CVR
158
-
158
+
159
- datasheet.Range("M" & i).Value = DAP_完了CPA
159
+ datasheet.Range("M" & i).Value = AP_完了CPA
160
160
 
161
161
  Next
162
162