質問編集履歴
2
文章
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,8 +1,12 @@
|
|
1
|
-
セルに入力した日
|
1
|
+
セルに何かを入力した場合、その入力日を隣のセルに表示させたいのですが、
|
2
2
|
|
3
3
|
いろいろ調べ、O列にに入力した場合、日付を隣のセルに表示させたいのですが、
|
4
4
|
|
5
|
+
これで動くのは動くのですが、
|
6
|
+
|
7
|
+
私の知識ではこれが限界で。。。。
|
8
|
+
|
5
|
-
|
9
|
+
もっと良い方法があれば教えていただけると幸いです。
|
6
10
|
|
7
11
|
|
8
12
|
|
1
コード内容変更
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,16 +1,12 @@
|
|
1
1
|
セルに入力した日付を隣のセルに表示させたいのですが、
|
2
2
|
|
3
|
-
いろいろ調べ、
|
3
|
+
いろいろ調べ、O列にに入力した場合、日付を隣のセルに表示させたいのですが、
|
4
|
+
|
5
|
+
これで動くのは動くのですが、もっと良い方法があれば教えていただけると幸いです。
|
4
6
|
|
5
7
|
|
6
8
|
|
7
|
-
次にA列にに入力した日付を隣のセルに表示させたいのですが、
|
8
|
-
|
9
|
-
(A1→B1、A2→B2へ表示させたい)
|
10
|
-
|
11
|
-
|
12
|
-
|
13
|
-
|
9
|
+
よろしくお願いします。
|
14
10
|
|
15
11
|
|
16
12
|
|
@@ -18,24 +14,24 @@
|
|
18
14
|
|
19
15
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
20
16
|
|
21
|
-
|
22
|
-
|
23
17
|
With Target
|
24
18
|
|
25
|
-
If .R
|
19
|
+
If Application.Intersect(Range("O4:O10000"), Target) Is Nothing Then Exit Sub
|
26
20
|
|
21
|
+
If .Count > 1 Then Exit Sub
|
22
|
+
|
23
|
+
If IsEmpty(.Value) Then
|
24
|
+
|
27
|
-
|
25
|
+
.Offset(, 1).ClearContents
|
28
26
|
|
29
27
|
Else
|
30
28
|
|
31
|
-
|
29
|
+
.Offset(, 1).Value = Date
|
32
30
|
|
33
31
|
End If
|
34
32
|
|
35
33
|
End With
|
36
34
|
|
37
|
-
|
38
|
-
|
39
35
|
End Sub
|
40
36
|
|
41
37
|
```
|