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

編集履歴

質問編集履歴

6

誤字

2019/08/15 06:49

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -15,7 +15,7 @@
15
15
 
16
16
  ```
17
17
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
18
- For k = 13 To Worksheets("Sheet1").UsedRange.Rows.Count
18
+ For k = 12 To Worksheets("Sheet1").UsedRange.Rows.Count
19
19
 
20
20
  If WorksheetFunction.CountIf(Cells(k, 12), Cells(i, 1)) > 0 Then
21
21
  Cells(i, 2).Value = "〇"

5

改善

2019/08/15 06:49

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -9,6 +9,10 @@
9
9
 
10
10
  下記のように作成しましたが、うまくいきません。
11
11
  どこを直せば良いかご教授頂けますと幸いです。
12
+
13
+ Cells(k, 12)：黄色の枠内を指定
14
+ Cells(i, 1)：A列の指定
15
+
12
16
  ```
13
17
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
14
18
  For k = 13 To Worksheets("Sheet1").UsedRange.Rows.Count

4

誤字

2019/08/15 06:47

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -13,7 +13,7 @@
13
13
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
14
14
  For k = 13 To Worksheets("Sheet1").UsedRange.Rows.Count
15
15
 
16
- If WorksheetFunction.CountIf(Cells(k, 13), Cells(i, 1)) > 0 Then
16
+ If WorksheetFunction.CountIf(Cells(k, 12), Cells(i, 1)) > 0 Then
17
17
  Cells(i, 2).Value = "〇"
18
18
  Else
19
19
  Cells(i, 2).Value = "×"

3

書籍の改善

2019/08/15 06:46

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -22,4 +22,6 @@
22
22
  Next
23
23
  Next
24
24
 
25
- ```
25
+ ```
26
+
27
+ ![イメージ説明](6797ce97174fb0fe4e4a53bc703d6118.jpeg)

2

誤字

2019/08/15 06:44

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -22,7 +22,4 @@
22
22
  Next
23
23
  Next
24
24
 
25
- ```
25
+ ```
26
-
27
-
28
- ![イメージ説明](85915724a300ebf1bf01e4d73e3eaf7d.jpeg)

1

誤字

2019/08/15 06:43

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -24,4 +24,5 @@
24
24
 
25
25
  ```
26
26
 
27
+
27
28
  ![イメージ説明](85915724a300ebf1bf01e4d73e3eaf7d.jpeg)