質問編集履歴
3
ｔｄ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -48,4 +48,9 @@
|
|
|
48
48
|
私のコードはまちがっているのでしょうか？
|
|
49
49
|
この機能が載っているサイトなどを教えて頂けても嬉しいです。
|
|
50
50
|
|
|
51
|
-
どうかご教授お願い致します。
|
|
51
|
+
どうかご教授お願い致します。
|
|
52
|
+
|
|
53
|
+
※コードを全てsheet1に書きました。
|
|
54
|
+
|
|
55
|
+
そのあと触っていると、下記状態になりました。
|
|
56
|
+
|
2
；
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -41,8 +41,11 @@
|
|
|
41
41
|
|
|
42
42
|
End Sub
|
|
43
43
|
```
|
|
44
|
+
上記コードを標準モジュールで書き込み実行してみたのですが、
|
|
45
|
+
|
|
44
|
-
コード
|
|
46
|
+
このようにコードが実行されず変なウィンドウだけが表示されます。
|
|
45
47
|
|
|
48
|
+
私のコードはまちがっているのでしょうか？
|
|
46
49
|
この機能が載っているサイトなどを教えて頂けても嬉しいです。
|
|
47
50
|
|
|
48
51
|
どうかご教授お願い致します。
|
1
ｆｆ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,9 @@
|
|
|
5
5
|
私はVBAを触ったことが一度もないのですが、上司の無茶ぶりによりやらされるはめになりました。
|
|
6
6
|
|
|
7
7
|
今回実装したい機能が三つあるらしく「D列に何か入力されたらH列に今日の日付を載せる」と「E列が変更されたらC列の次の行に移動する」と「エンターキーを押したらカーソルを右に移動」です。エンターキーを押したらカーソルを右に移動ってコードかかなくてもエクセルの元からの機能で右にいきませか？ちゃんとコードを書いた方がよろしいのでしょうか？
|
|
8
|
+
|
|
8
|
-
|
|
9
|
+
D列に何か入力されたらH列に今日の日付を載せる
|
|
10
|
+
```
|
|
9
11
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
10
12
|
With Target
|
|
11
13
|
If Application.Intersect(Range("D4:D10000"), Target) Is Nothing Then Exit Sub
|
|
@@ -18,7 +20,9 @@
|
|
|
18
20
|
End With
|
|
19
21
|
End Sub
|
|
20
22
|
```
|
|
23
|
+
|
|
21
|
-
|
|
24
|
+
E列が変更されたらC列の次の行に移動する
|
|
25
|
+
```
|
|
22
26
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
23
27
|
Select Case Target.Column
|
|
24
28
|
Case 5 'E列が変更されたら---(3)
|
|
@@ -27,7 +31,9 @@
|
|
|
27
31
|
End Select
|
|
28
32
|
End Sub
|
|
29
33
|
```
|
|
34
|
+
|
|
30
|
-
|
|
35
|
+
エンターキーを押したらカーソルを右に移動
|
|
36
|
+
```
|
|
31
37
|
Private Sub Workbook_Activate()
|
|
32
38
|
|
|
33
39
|
Application.MoveAfterReturn = True
|