Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22411 / 76738 ←次へ | 前へ→

【59709】Re:「アプリケーション定義またはオブジェクト定義のエラー」について
発言  かみちゃん E-MAIL  - 09/1/3(土) 9:51 -

引用なし
パスワード
   こんにちは。かみちゃん です。

解決されたようですが、

>>提示されたコードが記述されているモジュールの先頭行に
>>Option Explicit
>>を記述して、変数の宣言を強制するようにして、コンパイルチェックすると、
>>変数ks、b、g、i、j、h、kpが宣言されていません。
>>ここは、宣言するクセをつけたほうがいいです。
>
>上記の変数を宣言して実行してみましたがやはり同じ場所で同じエラーが出ました。

いえいえ、これは、エラーの原因の対処を説明したわけではなく、
VBAの基本である変数の宣言をきちんとすることをお勧めしただけです。
これで、エラーが回避されるというわけではありません。

本題とは関係ない部分をコメントして、混乱するようであれば、すみません。

でも、変数の宣言はなくても動きますが、しておいたほうが不具合の発生を少なく
することができるので、ぜひお勧めします。
時間があるときに、以下の読み物をご覧になってみてください。
http://pc.nikkeibp.co.jp/article/NPC/20070802/278891/

>>あと、Sheet1のサンプルデータを提示していただけませんか?
>すみません。sheet1で使ったデータは以下になります。

サンプルデータの提示ありがとうございます。

変数jの値に問題があることに気づいていただいてよかったです。

 Dim n As Integer 'NCブロック数

は、

 Do While Selection.Cells(n, 1) <> ""
  n = n + 1
 Loop

という使い方をするならば、
nが32767を超えると、「オーバーフロー」のエラーになります。

でも、[59708]で
> 行と列を逆にして出力したら、解決しました!
とのことですが、それであれば、今度は、
nが256を超えないようにしないといけないと思いますので、むしろ、そちらのほうの
エラー対策を考えたほうがよさそうですね。

0 hits

【59698】「アプリケーション定義またはオブジェクト定義のエラー」について monyo 09/1/2(金) 23:17 質問
【59700】Re:「アプリケーション定義またはオブジェ... question 09/1/3(土) 0:25 回答
【59703】Re:「アプリケーション定義またはオブジェ... monyo 09/1/3(土) 8:18 質問
【59705】Re:「アプリケーション定義またはオブジェ... かみちゃん 09/1/3(土) 8:35 発言
【59706】Re:「アプリケーション定義またはオブジェ... かみちゃん 09/1/3(土) 8:54 発言
【59708】Re:「アプリケーション定義またはオブジェ... monyo 09/1/3(土) 9:44 お礼
【59707】Re:「アプリケーション定義またはオブジェ... monyo 09/1/3(土) 9:28 お礼
【59709】Re:「アプリケーション定義またはオブジェ... かみちゃん 09/1/3(土) 9:51 発言
【59710】Re:「アプリケーション定義またはオブジェ... monyo 09/1/3(土) 11:35 お礼
【59702】Re:「アプリケーション定義またはオブジェ... かみちゃん 09/1/3(土) 7:25 発言
【59704】Re:「アプリケーション定義またはオブジェ... monyo 09/1/3(土) 8:23 お礼

22411 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free