質問編集履歴

2

コード欄の追加

2019/10/02 04:16

投稿

k_t_ayana
k_t_ayana

スコア5

test CHANGED
File without changes
test CHANGED
@@ -16,6 +16,16 @@
16
16
 
17
17
 
18
18
 
19
+ 自分でも調べた結果、OffsetにFind、For Each文等を組み合わせて使うのかな?とは思いましたが、全くの初心者のためお力を貸していただきたく投稿しました。
20
+
21
+
22
+
23
+ 宜しくお願いいたします。
24
+
25
+
26
+
27
+ ### コード
28
+
19
29
  Private Sub Worksheet_Change(ByVal Target As Range)
20
30
 
21
31
  If (Target.Row >= xx And Target.Row <= xx) And (Target.Column >= xx And _
@@ -27,11 +37,3 @@
27
37
  End If
28
38
 
29
39
  End Sub
30
-
31
-
32
-
33
- 自分でも調べた結果、OffsetにFind、For Each文等を組み合わせて使うのかな?とは思いましたが、全くの初心者のためお力を貸していただきたく投稿しました。
34
-
35
-
36
-
37
- 宜しくお願いいたします。

1

初心者マーク追加

2019/10/02 04:16

投稿

k_t_ayana
k_t_ayana

スコア5

test CHANGED
File without changes
test CHANGED
@@ -9,8 +9,6 @@
9
9
 
10
10
 
11
11
  現在、背景色が白の空白セルには文字を入力しますが、背景色がグレーの空白セルには文字を入力しないため、上記のような事を実現したいです。
12
-
13
-
14
12
 
15
13
 
16
14