質問編集履歴
3
セルの削除・番号を削除＝セルに入力されている値を削除したい という意味です。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
特定の値を検索して、該当するセル
|
|
1
|
+
特定の値を検索して、該当する全てのセルに入力されている値を削除したい
|
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
-
↓×を入れたら（×が入っている箇所以外の）黄色のセル全部が消えてほしいのですが…２カ所しか消えません。
|
|
33
|
+
↓×を入れたら（×が入っている箇所以外の）黄色のセル全部（に入力されている値）が消えてほしいのですが…２カ所しか消えません。
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
|
|
45
45
|
0. その瞬間に「○○番は終了しました！○○番の予定をカレンダーから削除してよろしいですか？」とYesNoのmsgboxを表示
|
|
46
46
|
|
|
47
|
-
0. 「はい」を押したら、他の日付に入っている番号をカレンダー上から削除する（×を入れたところは除く）
|
|
47
|
+
0. 「はい」を押したら、他の日付に入っている番号をカレンダーのセル上から削除する（×を入れたところは除く）
|
|
48
48
|
|
|
49
49
|
といった流れです。
|
|
50
50
|
|
2
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -55,6 +55,18 @@
|
|
|
55
55
|
お力添えいただければ大変助かります。
|
|
56
56
|
|
|
57
57
|
よろしくお願いいたします。
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
追記：
|
|
62
|
+
|
|
63
|
+
試しに番号をずらっと並べてみたらこんな感じで削除されます。
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
↓
|
|
68
|
+
|
|
69
|
+
|
|
58
70
|
|
|
59
71
|
|
|
60
72
|
|
1
軽微な修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -78,9 +78,7 @@
|
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|
|
81
|
-
'以下、カレンダーに入れた×をSheet2に転記するコード
|
|
81
|
+
'以下、カレンダーに入れた×をSheet2に転記するコード。×を入れたら動く
|
|
82
|
-
|
|
83
|
-
'×を入れたら動く
|
|
84
82
|
|
|
85
83
|
If Intersect(Target, Range("CT5:WO103")) Is Nothing Or Target.Count > 1 Then Exit Sub
|
|
86
84
|
|
|
@@ -94,7 +92,7 @@
|
|
|
94
92
|
|
|
95
93
|
|
|
96
94
|
|
|
97
|
-
Set ws = Worksheets("
|
|
95
|
+
Set ws = Worksheets("Sheet2")
|
|
98
96
|
|
|
99
97
|
Set c = ws.Cells.Find(What:=.Offset(, -3), LookIn:=xlValues, lookat:=xlWhole)
|
|
100
98
|
|