質問編集履歴
3
ｔｄ
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -99,3 +99,13 @@
|
|
|
99
99
|
|
|
100
100
|
|
|
101
101
|
どうかご教授お願い致します。
|
|
102
|
+
|
|
103
|
+
|
|
104
|
+
|
|
105
|
+
※コードを全てsheet1に書きました。
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
そのあと触っていると、下記状態になりました。
|
|
110
|
+
|
|
111
|
+
|
2
；
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -84,9 +84,15 @@
|
|
|
84
84
|
|
|
85
85
|
```
|
|
86
86
|
|
|
87
|
+
上記コードを標準モジュールで書き込み実行してみたのですが、
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
87
|
-
コード
|
|
91
|
+
このようにコードが実行されず変なウィンドウだけが表示されます。
|
|
88
92
|
|
|
89
93
|
|
|
94
|
+
|
|
95
|
+
私のコードはまちがっているのでしょうか？
|
|
90
96
|
|
|
91
97
|
この機能が載っているサイトなどを教えて頂けても嬉しいです。
|
|
92
98
|
|
1
ｆｆ
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,11 @@
|
|
|
12
12
|
|
|
13
13
|
今回実装したい機能が三つあるらしく「D列に何か入力されたらH列に今日の日付を載せる」と「E列が変更されたらC列の次の行に移動する」と「エンターキーを押したらカーソルを右に移動」です。エンターキーを押したらカーソルを右に移動ってコードかかなくてもエクセルの元からの機能で右にいきませか？ちゃんとコードを書いた方がよろしいのでしょうか？
|
|
14
14
|
|
|
15
|
+
|
|
16
|
+
|
|
15
|
-
|
|
17
|
+
D列に何か入力されたらH列に今日の日付を載せる
|
|
18
|
+
|
|
19
|
+
```
|
|
16
20
|
|
|
17
21
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
18
22
|
|
|
@@ -38,7 +42,11 @@
|
|
|
38
42
|
|
|
39
43
|
```
|
|
40
44
|
|
|
45
|
+
|
|
46
|
+
|
|
41
|
-
|
|
47
|
+
E列が変更されたらC列の次の行に移動する
|
|
48
|
+
|
|
49
|
+
```
|
|
42
50
|
|
|
43
51
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
44
52
|
|
|
@@ -56,7 +64,11 @@
|
|
|
56
64
|
|
|
57
65
|
```
|
|
58
66
|
|
|
67
|
+
|
|
68
|
+
|
|
59
|
-
|
|
69
|
+
エンターキーを押したらカーソルを右に移動
|
|
70
|
+
|
|
71
|
+
```
|
|
60
72
|
|
|
61
73
|
Private Sub Workbook_Activate()
|
|
62
74
|
|