質問編集履歴
2
コード欄の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,13 +7,14 @@
|
|
|
7
7
|
|
|
8
8
|
今までは、以下の簡単なコードを使って背景色に関係なく右隣のセルに移動してたのですが、もし実現できたら改善に繋がるという思いです。
|
|
9
9
|
|
|
10
|
+
自分でも調べた結果、OffsetにFind、For Each文等を組み合わせて使うのかな？とは思いましたが、全くの初心者のためお力を貸していただきたく投稿しました。
|
|
11
|
+
|
|
12
|
+
宜しくお願いいたします。
|
|
13
|
+
|
|
14
|
+
### コード
|
|
10
15
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
11
16
|
If (Target.Row >= xx And Target.Row <= xx) And (Target.Column >= xx And _
|
|
12
17
|
Target.Column <= xx) Then
|
|
13
18
|
ActiveCell.Offset(0, 1).Select
|
|
14
19
|
End If
|
|
15
|
-
End Sub
|
|
20
|
+
End Sub
|
|
16
|
-
|
|
17
|
-
自分でも調べた結果、OffsetにFind、For Each文等を組み合わせて使うのかな？とは思いましたが、全くの初心者のためお力を貸していただきたく投稿しました。
|
|
18
|
-
|
|
19
|
-
宜しくお願いいたします。
|
1
初心者マーク追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,6 @@
|
|
|
5
5
|
|
|
6
6
|
現在、背景色が白の空白セルには文字を入力しますが、背景色がグレーの空白セルには文字を入力しないため、上記のような事を実現したいです。
|
|
7
7
|
|
|
8
|
-
|
|
9
8
|
今までは、以下の簡単なコードを使って背景色に関係なく右隣のセルに移動してたのですが、もし実現できたら改善に繋がるという思いです。
|
|
10
9
|
|
|
11
10
|
Private Sub Worksheet_Change(ByVal Target As Range)
|