tom04 さんが回答して頂いた、回答日時:2019/05/20 21:20
Sub Sample3()から始まるプログラムを実行すると
添付のようなエラーがでます。
エラーについてお分かりになられる方、ご教授ください。
(リンク https://oshiete.goo.ne.jp/mypage/history/questio …)
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
読みにくいので全部は読んでいません。
「Mod my.Dic(myStr)」で「0で除算しました」ということですので、「my.Dic(myStr)」が0なのでしょう。
追伸
参考リンクは質問そのもののURLをはってくれないと、自分(回答者)の質問履歴に飛んでしまします。
例 -----//oshiete.goo.ne.jp/qa/11546037.html
この質問の番号ですが、自動リンクを避けるために最初は変更しています。
No.2
- 回答日時:
こんばんは!
解答した者です。
その質問を探すのに相当時間を要しました。
↓のサイトの件ですね。
https://oshiete.goo.ne.jp/qa/11129323.html
お示しの画像を拝見するとNo.1さんがおっしゃっているように
「0」で割り算をしているエラーと思われます。
もしかして、Sheet1のE列に「0」もしくは空白セルが存在していませんか?
考えられる原因としてはそのくらいしか思いつきません。
*ただ、エラーになるのであれば、お示しの画像の行ではなく、それより前の
>myCnt = Int(wS2.Cells(i, "E") / myDic(myStr))
の行で止まってしまうはずなのですが・・・
この程度しか考えられないので、
ごめんなさい。m(_ _)m
tom04さん
ご回答頂き有難く存じます。
何度も確認しましたがSheet1のE列に「0」もしくは空白セルはありませんでした。
新たにデーターを追加していく事で起きたエラーですが、
Sheet1のデーターと照合確認はとれております。
また、↓
>myCnt = Int(wS2.Cells(i, "E") / myDic(myStr))は
何を確認したら宜しいでしょうか?
お手数かけますが宜しくお願いします。
No.3
- 回答日時:
良く見えないですが。
If myDic.Exists(myStr) Then ~ End If
を大外として該当するIf文は上記の中に入れてしまえば宜しいのでは?
中に入れていないためキーが存在しなくても計算を実行してしまいますから。
No.4
- 回答日時:
No.3です。
リンク先を見てみたら随分と前の物なのですね。
その時に回答しているよう『データ入力のポカミス(品番など)』が原因で本来必要とはされないキーで登録されているからでは?
No.5
- 回答日時:
続けてお邪魔します。
今、こちらでサンプルを作りもう一度以前のマクロを実行してみました。
これ!といったエラーは出なかったのですが・・・
もしかして、Sheet2のデータ(A列~D列文字列を「_」で連結したもの)がSheet1に存在しないのでは?
すなわちSheet2にデータは必ずSheet1に存在する!コトが前提のコードなので
前回のコードの
>If wS2.Cells(i, "E") Mod myDic(myStr) > 0 Then
の前に
>If myDic.exists(myStr) Then
の1行を追加、そして
>cnt = 0
の次にもう一行
>End If
を追加したらどうなりますか?
※ これで万一Sheet2のデータがSheet1にない場合は無視されます。
当然のコトですが、Sheet1に存在しないデータはSheet3にも表示されません。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- スピーカー・コンポ・ステレオ ワード。オブジェクトの上に半円を描くには。 2 2022/10/06 13:02
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) Excelマクロでセルに値が入力されたら実行する 5 2023/08/06 11:03
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Visual Basic(VBA) パーソナルXLSBのfuctionを呼び出すと「Functionが定義されていません」のエラーになる 2 2022/08/22 22:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル関数を教えてください
-
UserForm1.Showでエラーになり...
-
エクセルVBA 「On Error GoTo...
-
ACCESS VBAのSplit()関数の使用...
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
ステートメントが見つかりません
-
実行時エラー 438 の解決策をお...
-
VBScriptのエラー処理について
-
「実行時エラー '3167' レコー...
-
JAVA Jasper Report でのQRコー...
-
VBでSQL文のUPDATE構文を使った...
-
マクロで"#N/A"のエラー行を削...
-
お助けください!VBAのファイル...
-
Unityのエラー「Rigidbody.AddF...
-
エクセルVBAで埋め込みグラフ(C...
-
VBスクリプトでIEの404 not fou...
-
ある1人の友達のLINEで、少しの...
-
EXCELのVBAの中でMOD関数を使う...
-
エクセルVBAで#N/Aのようなエ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報