teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

追記

2019/04/02 10:42

投稿

mattuwan
mattuwan

スコア2167

answer CHANGED
@@ -1,3 +1,7 @@
1
+ セルは基本「ロックされている状態」が基本です。
2
+ なので一旦、シート上の全てのセルを初期化して、
3
+ 改めて入力していいセルだけ解除するように考えてはいかがでしょうか?
4
+
1
5
  Sheet1のモジュールに以下のコードをコピペ
2
6
 
3
7
  ```VBA

1

追記

2019/04/02 10:42

投稿

mattuwan
mattuwan

スコア2167

answer CHANGED
@@ -23,4 +23,14 @@
23
23
 
24
24
  [Excel(エクセル) VBA入門:ワークシートのイベント](http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html)
25
25
 
26
- [第124回.Workbookのイベントプロシージャー](https://excel-ubara.com/excelvba1/EXCELVBA424.html)
26
+ [第124回.Workbookのイベントプロシージャー](https://excel-ubara.com/excelvba1/EXCELVBA424.html)
27
+
28
+ > 'E最大セル「E65536」から↑で行番号を取得
29
+ > maxrow = Range("E65536").End(xlUp).Row
30
+
31
+ それから、エクセルのシートの最大行数は、65536行目ではありません。
32
+ それは、2003以前の行数です。
33
+
34
+ Worksheets(1).rows.count
35
+
36
+ というようにして、行の数を数えましょう。