teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問範囲内に特定の値があるかを調べて〇×を付ける機能を付けたいです。

編集履歴

質問編集履歴

6

誤字

2019/08/15 06:49

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -32,7 +32,7 @@
32
32
 
33
33
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
34
34
 
35
- For k = 13 To Worksheets("Sheet1").UsedRange.Rows.Count
35
+ For k = 12 To Worksheets("Sheet1").UsedRange.Rows.Count
36
36
 
37
37
 
38
38
 

5

改善

2019/08/15 06:49

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -19,6 +19,14 @@
19
19
  下記のように作成しましたが、うまくいきません。
20
20
 
21
21
  どこを直せば良いかご教授頂けますと幸いです。
22
+
23
+
24
+
25
+ Cells(k, 12)：黄色の枠内を指定
26
+
27
+ Cells(i, 1)：A列の指定
28
+
29
+
22
30
 
23
31
  ```
24
32
 

4

誤字

2019/08/15 06:47

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
 
30
30
 
31
- If WorksheetFunction.CountIf(Cells(k, 13), Cells(i, 1)) > 0 Then
31
+ If WorksheetFunction.CountIf(Cells(k, 12), Cells(i, 1)) > 0 Then
32
32
 
33
33
  Cells(i, 2).Value = "〇"
34
34
 

3

書籍の改善

2019/08/15 06:46

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -47,3 +47,7 @@
47
47
 
48
48
 
49
49
  ```
50
+
51
+
52
+
53
+ ![イメージ説明](6797ce97174fb0fe4e4a53bc703d6118.jpeg)

2

誤字

2019/08/15 06:44

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -47,9 +47,3 @@
47
47
 
48
48
 
49
49
  ```
50
-
51
-
52
-
53
-
54
-
55
- ![イメージ説明](85915724a300ebf1bf01e4d73e3eaf7d.jpeg)

1

誤字

2019/08/15 06:43

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -50,4 +50,6 @@
50
50
 
51
51
 
52
52
 
53
+
54
+
53
55
  ![イメージ説明](85915724a300ebf1bf01e4d73e3eaf7d.jpeg)