End (xlUp) (Cells(LastRow + 1, 1), Cells(LastRow2, 1)) = bkName End With Next i Next f End Sub 上記のうち、この部分だと思います。ここを外すとエラーメッセージは出ません。 試したこと 1つのセルに記入できることを確認 →Rangeの使い方に問題がありそうということで、 ネットに記載されていたものをコピペしてみたが、 それでも上手くいかない。 補足情報(FW/ツールのバージョンなど) Excel 2016
>「アプリケーション定義またはオブジェクト定義のエラーです」 >現在のコードは以下になります >Worksheets("Sheet2")(n, j + 1) = u >Worksheets("Sheet2")(n + 1, j + 1) = z 当然ながらコードはこの2行だけではないですよね。(^^;;; n, n+1, j+1の値が0以下またはシート最大行超でないなら エラーはここではなく別のところにあるはずです。 それは、 >計算された数値(正しい数値でした)が入力されていました この文言からも推察できます。 で、以下のことをしてください。 このエラーダイアログに「デバッグ」ボタンがあると思いますが それをクリックするとエラーコードの箇所に色が付きますので その部分に変数があったらその上にマウス持っていくと、 その変数の値が表示されますのでそれが正しい値か確認してください。 また、そのコードを提示してください。 >エラー表示されるのに正しい数値が出力される場合、放置しておいてもいいのでしょうか? いくらなんでもこれは拙いでしょう。(^^;;;; 以上。
お世話になります。 現在、ACCESS2003形式で作成したシステムをACCESS2010でも問題なく使用可能か検証作業を行っております。 その際、ACCESS側からEXCELファイルを展開し、内容を編集/保存する処理の検証を行った所、 ACCESS2003では発生しなかったエラーが発生しました。 原因箇所を特定しようとデバッグモードのステップ実行を行ったのですが、 ステップ実行を行うと問題なく処理が通ってしまい原因究明に至れませんでした。 いろいろと試行錯誤して検証したところ、 下記のようにADODBを使用して取得したレコードセットの値を直接セルに設定しようとすると発生するようです。 ちなみにエクセル側には、保護設定等は一切かけていません。 対策としては、CSTR関数等で型変換をかけることでとりあえず動作するようです。 同様の現象が起きている方はいらっしゃいますでしょうか? デバッグモードでは通過するので、どうも腑に落ちません。 よろしくお願い致します。 (追記) 投稿後にさらに検証を行っていたのですが、 下記コードに該当する場合でも、エラーになる場合とならない場合があるようです。 セル側の書式設定等が影響しているのかと思い、書式設定をコピーしてみても結果が一致しません… --------------------------------------------- < コード(簡略化してあります) > ------------------------ Dim WS As sheet Dim RS As New cordset Dim Mycn As New nnection Set Mycn = nnection SQL文, Mycn, adOpenStatic, adLockReadOnly (行番号, 列番号) = RS! 取得した列名 ←ココで発生 ------------------------------------------------------------------------------------------------------------- --------------------------------------------- < エラー番号/エラー名 > ------------------------------- エラー番号 : 1004 エラー内容 : アプリケーション定義またはオブジェクト定義のエラーです。 編集済み 2013年12月9日 23:54
テンプレートシートを初めて実行するときに新しいシートにコピーするExcelドキュメントがあります。このテンプレートに続くシートは、新しく作成されたシートに追加されます。 コードのこのセクションのタイトルでエラーが発生しています: _ If Worksheets("User Configuration")(9, 15) = 1 Then Worksheets("Cable Cards Template")("A1:J33") With Worksheets("Cable Cards") **(Cells(RangeStartRow, RangeStartColumn), Cells(RangeEndRow, RangeEndColumn)). PasteSpecial xlValues** (Cells(RangeStartRow, RangeStartColumn), Cells(RangeEndRow, RangeEndColumn)).
07/20/2015 この記事の内容 アプリケーション定義またはユーザー定義のエラーが発生しました。 エラーを確認します。 このエラーを解決するには エラーを参照して、エラーの定義場所および対処方法を確認します。 関連項目 エラーの種類 このページはお役に立ちましたか? 追加のフィードバックはありますか? フィードバックが Microsoft に送信されます。[送信] ボタンを押すと、お客様からのフィードバックが Microsoft 製品とサービスの品質向上のために使用されます。 プライバシー ポリシー。 ありがとうございます。 この記事の内容
不動産で住まいを探そう! 関連する物件をYahoo! 不動産で探す
エコキュートや電気温水器の貯湯式は、長期間使用しているとタンクの側面(水垢)や底面(ヘドロ)が発生しやすくなります。 上記でエコキュートのタンクを電気ポットと例えましたが、普段使っている電気ポットも、掃除を忘れた時に側面が汚れていた経験をお持ちの方も多いと思います。しかし電気ポットはフタを開けて掃除する事ができますが、 エコキュートや電気温水器の中は構造上開ける事ができません 。 ですのでエコキュートや電気温水器のタンクの中は5年・10年と掃除される事もなく、上記の写真のような状態になってしまうのです。 ガスもエコウィルやエネファームといった最新の貯湯式のガス製品がございますが、当店のお客様には瞬間湯沸し式のエコジョーズを推奨しております。
教えて!住まいの先生とは Q エコキュートで貯めたお湯について お世話になります。 エコキュートを導入するつもりなのですが、お湯をためておくというのは 不潔なのではないかと妻がいうのです。 もちろん飲み水に適してないのは存じておりますが、それはガス給湯器でも 同じだと思います(実際にそのまま飲むのはためらいますし) ガスは水道水をその場で温めて出すので、貯めたお湯ではありませんよね。 エコキュートは1日で使い切るとはいえ、少しは残ってしまうのではないのでしょうか?