回答編集履歴
2
誤記修正
test
CHANGED
|
@@ -18,13 +18,13 @@
|
|
|
18
18
|
|
|
19
19
|
Cells(3, 2).NumberFormatLocal = "G/標準"
|
|
20
20
|
|
|
21
|
-
Cells(3, 3).Value = CDbl(Cells(
|
|
21
|
+
Cells(3, 3).Value = CDbl(Cells(3, 1).Value)
|
|
22
22
|
|
|
23
23
|
Cells(4, 2).Value = DateValue(Cells(4, 1).Value)
|
|
24
24
|
|
|
25
25
|
Cells(4, 2).NumberFormatLocal = "G/標準"
|
|
26
26
|
|
|
27
|
-
Cells(4, 3).Value = CDbl(Cells(
|
|
27
|
+
Cells(4, 3).Value = CDbl(Cells(4, 1).Value)
|
|
28
28
|
|
|
29
29
|
End Sub
|
|
30
30
|
|
1
CDbl関数を追記
test
CHANGED
|
@@ -1,4 +1,8 @@
|
|
|
1
1
|
セルの表示形式を標準にしてみました。
|
|
2
|
+
|
|
3
|
+
＜追記＞
|
|
4
|
+
|
|
5
|
+
Excel関数とVBA関数は異なる場合があり、VBAでシリアル値へ変換する場合、CDbl関数を用います。
|
|
2
6
|
|
|
3
7
|
```VBA
|
|
4
8
|
|
|
@@ -8,14 +12,20 @@
|
|
|
8
12
|
|
|
9
13
|
Cells(2, 2).NumberFormatLocal = "G/標準"
|
|
10
14
|
|
|
15
|
+
Cells(2, 3).Value = CDbl(Cells(2, 1).Value)
|
|
16
|
+
|
|
11
17
|
Cells(3, 2).Value = DateValue(Cells(3, 1).Value)
|
|
12
18
|
|
|
13
19
|
Cells(3, 2).NumberFormatLocal = "G/標準"
|
|
20
|
+
|
|
21
|
+
Cells(3, 3).Value = CDbl(Cells(2, 1).Value)
|
|
14
22
|
|
|
15
23
|
Cells(4, 2).Value = DateValue(Cells(4, 1).Value)
|
|
16
24
|
|
|
17
25
|
Cells(4, 2).NumberFormatLocal = "G/標準"
|
|
18
26
|
|
|
27
|
+
Cells(4, 3).Value = CDbl(Cells(2, 1).Value)
|
|
28
|
+
|
|
19
29
|
End Sub
|
|
20
30
|
|
|
21
31
|
```
|