回答編集履歴
1
123
test
CHANGED
|
@@ -6,13 +6,13 @@
|
|
|
6
6
|
|
|
7
7
|
```VBA
|
|
8
8
|
|
|
9
|
-
If sh2.Cells(
|
|
9
|
+
If sh2.Cells(2,71) = "出席 " Then
|
|
10
10
|
|
|
11
|
-
sh1.Cells(
|
|
11
|
+
sh1.Cells(3,72) = "1"
|
|
12
12
|
|
|
13
13
|
Else
|
|
14
14
|
|
|
15
|
-
sh1.Cells(
|
|
15
|
+
sh1.Cells(3,72) = "2"
|
|
16
16
|
|
|
17
17
|
End If
|
|
18
18
|
|