GETSTREETのプロフィール
- ベストアンサー数
- 14
- ベストアンサー率
- 18%
- お礼率
- 55%
- 登録日2001/08/23
- VBAでの値のコピーのエラーについて
VBAマクロを使用してのエクセル上での あるシートから別のシートへのコピー&ペーストが うまくいきません。その時のエラー表示が 「実行時エラー '1004’ アプリケーション定義またはオブジェクト定義のエラーです。」 と表示されます。 Dim NaiyoSta As Long Set WS1 = Worksheets("Sheet1") Set WS2 = Worksheets("Sheet2") Set WSNaiyo = Worksheets("内容書") NaiyoSta = 1 と定義しておいて '保存 WS2.Range("CA11:CQ37").Select Selection.Copy WSNaiyo.Select WSNaiyo.Range(Cells(NaiyoSta, 1)).Select (ここでエラー表示され、処理がストップします。) ActiveSheet.Paste WS2.Range("CA11:CQ37").Select Application.CutCopyMode = False '印刷 Selection.PrintOut '印刷プレビュー表示後,印刷 要は Sheet2の "CA11:CQ37" の範囲を "内容書"というシートのA1から貼り付けたいのですが 前記のようにうまくいきません ! (NaiyoStaは27行おきに貼り付けたいのでインデックスとして 使用しています)。 どうか、宜しく御教示下さいますようお願い致します。
- ベストアンサー
- その他(プログラミング・開発)
- tomiohba
- 回答数2
- アドレスをクリックするだけで、そのホームページにリンクさすには
教えて下さい。パソコン初心者です。オークションの出品をしているのですが、送料などの質問が多く、アドレスをクリックするだけでそのホームページにリンクするように設定するにはどのようにすればよいでしょうか?WINDOWS XPです。よろしくお願い致します。
- ベストアンサー
- オークション
- koubei0213
- 回答数3
- ファイルシステム関数関係
ファイルディレクトリにファイルを作成し、 フォームタグより送信されてきた内容を書き込みをしたいのですがどうすればいいでしょうか? あと、ディレクトリの中のファイル数を取得して(取得方法も教えてください)、 8つの数字にして表示したいのですがどうすればいいでしょうか (例:500ファイルあれば・・ 00000500にする)
- Excelで複数セルからの文字の結合
A1~A20までのセルにそれぞれ文字が入っています。 =A1&A2&A3&…&A20 で、A1~A20までの内容を結合できると思います。 これ以外で、もっと簡単な式で同じ結果を出す方法は無いでしょうか?
- 万博-トヨタ館を見たい
万博に行って、トヨタ館を絶対に見たいんですが、1月前の事前予約はすぐに満員となってしまいました。最近、万博に行ってきた方で、どうやったら事前予約無しでもトヨタ館を見れるか、裏技みたいなノウハウがあれば教えてくれるとうれしいんですが。
- ベストアンサー
- 遊園地・テーマパーク
- ten-white2
- 回答数4