回答編集履歴
1
コード追記
test
CHANGED
|
@@ -10,6 +10,8 @@
|
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
13
|
+
確認用コード
|
|
14
|
+
|
|
13
15
|
```vba
|
|
14
16
|
|
|
15
17
|
Dim s As String
|
|
@@ -21,3 +23,17 @@
|
|
|
21
23
|
MsgBox s
|
|
22
24
|
|
|
23
25
|
```
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
セル更新コード例
|
|
30
|
+
|
|
31
|
+
```vba
|
|
32
|
+
|
|
33
|
+
For j = 2 To ws_list.Range("A" & Rows.Count).End(xlUp).Row
|
|
34
|
+
|
|
35
|
+
ws_list.Cells(j, 1).Value = Split(ws_list.Cells(j, 1).Value, "日")(0)
|
|
36
|
+
|
|
37
|
+
Next
|
|
38
|
+
|
|
39
|
+
```
|