![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
追加
Cellsの指定ミス:Cells(0, 1)→Cells(x, 1)
Rangeの範囲指定ミス:Range(Cells(1, 1), Cells(2, 2))→Range(ws.Cells(1, 1), ws.Cells(2, 2))・・・
No.1
- 回答日時:
見えません!
セルの行列の数値を正しくセットしていないのでは?
2013の場合、行の値の範囲は、1~1048577、列の値の範囲は1~16384の制限あり。
(VBAで変数を使って行列をセットしている場合は要注意)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- オープンソース Excelファイルをデバッグしたい 4 2022/09/15 10:16
- Visual Basic(VBA) パーソナルXLSBのfuctionを呼び出すと「Functionが定義されていません」のエラーになる 2 2022/08/22 22:51
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Excel(エクセル) エクセル VBAの構文について 2 2023/02/10 18:26
- Visual Basic(VBA) エラー処理 3 2022/04/11 14:58
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2019 非表示モジュール内...
-
VBA+VBSによる別インスタンスB...
-
Linux再起動後のエラーメッセー...
-
イベントプロパティに指定した...
-
名前を一括削除するマクロ
-
[ マクロ ] エラーになったり...
-
iDVDのエンコード中のエラーメ...
-
ステートメントの末尾が不正です
-
ACCESS モジュールで自作した...
-
Word終了時のエラーメッセージ
-
「パラメータが無効のため、処...
-
ペイントで取り込んだ画像のサ...
-
困っています
-
(Windows7)VB6でODBC接続エラー
-
遠隔地にあるパソコンのオフィ...
-
LinuxのFedora31のdnfdragoraに...
-
Apache2.4の起動でエラー
-
VBA オートメーションエラー(...
-
一点一葉とはどんな意味ですか?
-
ワードかエクセルで、KOKU...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2019 非表示モジュール内...
-
ステートメントの末尾が不正です
-
VBA+VBSによる別インスタンスB...
-
"echo off"の動きをLinuxのシェ...
-
Linux再起動後のエラーメッセー...
-
Apache2.4の起動でエラー
-
エクセルに埋め込んだPDFの実行...
-
「パラメータが無効のため、処...
-
[ マクロ ] エラーになったり...
-
Workbook_openでマクロが実行さ...
-
イベントプロパティに指定した...
-
VBA オートメーションエラー(...
-
UNIX(Solaris)でのtarファイル...
-
RからX11がうまく呼び出せてい...
-
OUTLOOKが起動しない
-
名前を一括削除するマクロ
-
(Windows7)VB6でODBC接続エラー
-
ペイントで取り込んだ画像のサ...
-
Linux上のコンパイルについて
-
インストールできません。
おすすめ情報
すみません、休暇で間延びしてしまい。ペイント貼り付け画像が読めず失礼しました。
テキストを以下貼り付けます。⇒行のコードに黄色セルなっています(テキストなので無色)
ページ分割します。
Sub auto_open()
'自動で見積りデータ画面を開く
'Application.CommandBars("Standard").Visible = False
'Application.CommandBars("Formatting").Visible = False
'Application.DisplayFormulaBar = False
'Application.CommandBars("Chart").Visible = False
Worksheets("見積りデータ").Select
Worksheets("見積りデータ").OnDoubleClick = "受注"
続く
続く
Range("a6").End(xlDown).Select
⇒ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "=r[-1]c[0]+1"
Range("j6:j8").Select
Selection.Copy
Range("B6").End(xlDown).Select
ActiveCell.Offset(1, 8).Activate
Selection.PasteSpecial Paste:=xlFormulas, operation:=xlNone, skipblanks:=False, Transpos
続く
e:=False
Application.CutCopyMode = False
Range("m6:m8").Select
Selection.Copy
Range("B6").End(xlDown).Select
ActiveCell.Offset(1, 11).Activate
Selection.PasteSpecial Paste:=xlFormulas, operation:=xlNone, skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B5").End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
End Sub
以上