ベストアンサー

ＥＸＣＥＬのマクロの質問です

2005/04/09 21:50

処理するデータ（行数）が２万件を超えたら、”データを別な媒体に保存してください”というメッセージを表示させたいのですがそれもあわせてご教示ください。

tabtab9
お礼率74% (1999/2682)

Windows NT・2000
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

shkwta
ベストアンサー率52% (966/1825)

2005/04/09 22:01 回答No.1

If ActiveSheet.UsedRange.Rows.Count > 20000 Then 　　MsgBox "データを別な媒体に保存してください" End IF でどうですか。

質問者

お礼 2005/04/09 23:55

shkwtaさん、みなさん、こんばんは。ありがとうございました。使わせていただきます。

関連するQ&A

エクセルマクロ列同一文字の個数をカウントして・・

sheet1 C1：見出し、C2以降にデーター（表示形式：文字列）が入っているのですが処理データーは毎回違い、特定ではありません。C2以降の同じ文字をカウントして、その数をメッセージボックスに表示させたいのですが・・・色々調べて試してみたのですが、上手くいきません。メッセージボックスの表示イメージ　　　　1111　50件　　　　2111　25件　　　　　　　3111　10件　　　　 C1　見出し C2　1111 C3　1111 C4　2111 C5　3111 C6　3111 ｜　｜ C*　1111　以上、ご教示よろしくお願いいたします。
エクセルのマクロについて

エクセルのマクロについてご教示ください。共有サーバにあるパスワードで保護されたブックを、別のブックのシートからマクロボタンで開くと、当然にパスワードを要求されますが、ここでメッセージボックスのキャンセルボタンを押すと、 Openメソッドは失敗しました。Workbooksオブジェクトという実行時エラーが表示されます。　このエラー表示を回避できる方法をご教示ください。　If文で処理しようと試みましたがだめでした。　よろしくお願いいたします。　
エクセルのマクロで

下記のような表において（行数は500ほど）別シートに　担当者名「　」検索　、　処理年月「　　」検索　というアイコンを作成し、たとえば　処理年月「2007/06」検索　と入力し、アイコンをクリックすると 2007/06のデータ抽出されてが別シート（またはアイコンの下）に作成されるといったしくみをつくりたいと思っています。Ａ列　番号　（例；Ａ-001，Ｂ-002）Ｂ列　タイトルＣ列　担当Ｄ列　処理年月マクロについては初心者に近いので、上記のようなしくみをやさしく紹介しているサイトがありましたら、お教えください。よろしくお願いいたします。
エクセル　マクロ Msgbox

どなたかご教示頂ければ幸いです。 Advancedfilterを使って抽出したデータを、どこかのセルに表示するのではなく、メッセージボックスに表示したいと思っております。 copytorange以降に手を加えることが可能なのかさっぱりわかません。何卒よろしくお願い申し上げます。
Excelマクロについて

今とあるデータをマクロ処理でレイアウトを見やすくしようとしています。そこで質問なのですが、例えばA1～F2000までデータがあった場合それらを選択するのは Range("A1:F2000").Select で大丈夫なのですが列数がわかっていて行数が分かっていない場合の選択方法を教えてもらえないでしょうか？ログの編集をしているのですがいつも選択してからマクロ起動しているのでもう少し手間を省きたいのです宜しくお願いします。
エクセルのマクロで

エクセルに楽天RSSから現在値や出来高等を表示させているんですがセルに表示した時刻、現在値、出来高を別のセルに自動で保存していく方法を探しています。楽天RSSだとエクセルに取り込んだデータが更新毎に新しいデータに切り替わってしまうので・・申し訳ありませんが詳しい方いらっしゃいましたら宜しくお願いいたします。
エクセルマクロで教えてください。

エクセルのマクロで、自動処理で、「Ｓｈｅｅｔ1」を削除しようとしました。しかし、削除しようとしたマクロを実行すると下記のメッセージが毎回出てしまいます。メッセージを出さない方法はありますでしょうか？メッセージ：選択したシートに、データが存在する可能性があります。データを完全削除するには、・・・・・」
EXCEL　マクロ　もし、最終行が１００００件を超えたなら。。

こんにちは。 CurrentRegion.Rows.Count などを使って、『もし、最終行が１００００件を超えたなら、メッセージ”データが１万件を超えました』と表示させるにはどうしたらよいでしょうか？
とほほのエクセルマクロ

以下の文の[-1899]の部分を可変型にしたいのですが。どなたかご存知有りませんか？ ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")" ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝マクロの説明です。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝エクセルマクロでsheet1にデータを入力していって、 sheet1のD列内に同一のコードがないかをチェックするために sheet1のコピーを作成してD列でソートしてから D列の1行目=2行目ならK列に”いっしょだよ”というメッセージを出すようにIF文を書きこんでいきます。最後にこの”いっしょだよ”というメッセージが何件あったかを見たいので、一番下の行＋１行目に ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")" という文を入れたのですがこれだと自分が居る一つ上のセルから 1899上までしか行かないのですが、毎回データを入力して行数は増えていってしまいます。どのような、文にしたらよいのか教えてください。お願いいたします。
エクセルのマクロでwindowsのメッセージを表示させない方法

マクロである範囲をコピーして、別の所に貼り付ける処理をしているのですが下記メッセージがでるため一時処理が中断してしまいます。処理が中断しないようにこのメッセージを表示させたくないのですがどうすればよいのでしょうか。クリップボードに大きな情報があります。この情報をほかのプログラムに貼り付けられるようにしますか？・後で貼り付けるためにクリップボードに保存する場合は、［はい］をクリックします。・クリップボードにある情報を削除する場合は、［いいえ］をクリックします。このメッセージが出るたびに［いいえ］をクリックしているのですが、マクロを使用してメッセージを確認しないで［いいえ］をクリックしたことにする方法を教えてください。
エクセルの行数が限界です。

200万件くらいのデータ処理をしたいんですけど、エクセルだと行数の限界があってできません。重複削除とソートができればいいんですけど、何か良い方法はありませんか？うまく説明ができないんですけど、わかる人いらっしゃいましたら教えてください！！
Excelについて2点質問です。

〇セルのコピーについてセルの右下をクリックして、下の行へ向かってドラッグするやり方でコピーするとき、何百行もあるデータだと、勢いあまって物凄い下の方までいってしまうんですが、これって何かやり方はないでしょうか？例えばセル選択のとき、Ctrl＋Shift＋↓ってやると全選択できるようなイメージで。。。みなさんは、行き過ぎたー戻り過ぎたーまた行き過ぎたーって、もどかしい思いをすることってないですか？私が不器用なだけなのかな？〇オートフィルタについて以前Excel98を使っていたときは、オートフィルタでデータを抽出すると、「何件中何件を表示しました（？）」みたいな件数のメッセージが出ていたんですが、2000ではメッセージが出てきません。その機能は無くなってしまったんでしょうか？オートフィルタで抽出したデータの件数をぱっと確認する手段はありますか？以上、初心者の質問で申し訳ないですが、よろしくご教示ください。お願いしまーす。
エクセルVBAで作成できますか。

1分毎のデータが1時間分、項目別にあります。10分毎に各項目の合計を求めたい（Sheet2に合計を表示希望）のですが、どのように作成したらよいのか困っています。行数、列数はかなり増えるためVBAで作成したいです。どなたか教示よろしくお願いします。
エクセルマクロの質問です。

こんばんわ！別のファイルを開いた再に出る「このブックには、ほかのデータソースへのリンクが含まれています」という警告をエクセルマクロを用いて表示しないようにすることは可能でしょうか？（別のPCで使用することが多いため、ツール→オプションからの設定をいちいちしたくありません）アドバイスの程よろしくお願いいたします。
エクセルマクロで教えていただきたいです。

ある処理プログラムをつくりました。同じ処理を数千行にわたって繰り返すのですが、一瞬では到底終わらないため「進捗状況」を表示させたいと思うのですが、何かよい方法はございませんでしょうか。「現在○○行を処理しています」なんていうメッセージが出せればいいかななんて考えてます。 Msgboxを使用することも思いついたのですが、これだと何かしらボタンを押さないと次へ進まない（と思っていますが違います？）ので自分の意図することと違うなぁという感じです。よい方法教えてください。よろしくお願いします。 Windows98SE、EXCEL2000を使用しています。
関数　ｏｒ　マクロ（エクセル）

行の項目と列の項目を検索して重なる部分のデータを拾いたいのですがどうもうまくいきません。初歩的なことかもしれませんが、VLOOKUPとHLOOKUP関数をあわせたようなもの。LOOKUPウィザードでもやってみるのですがうまくいかないのでよろしくお願いします。（最終的にVBAでやりたいです）元のデータは、（Sheet3）にあって（Sheet2）で項目を並べ縦と横の項目に一致するデータを持ってきたいです。 Sheet3にあるデータは、別のブックよりVBAで検索したデータを持ってきています。また、Sheet1、2ともその都度行数（検索項目数）が変わるので、できればデータシートの行数にあわせて行きたいのですが・・・こうなるとVBAになると思い挑戦しているのですがこれがまたうまくいきません。で、データの行数にあわせて拾い出し、A列で最終行を検索して、Ｌ列～Ｗ列の各列の3行目に、5行目～最終行までの合計を取ろうと思っています。説明が下手ですみませんが、よろしくお願いします。環境：Win2000、98　Office2000です。
Excelマクロが重いときと重くないときがある

ボタンをクリックすると、 1、新しいブックを作成して、 2、ボタンのあるブック(元ブック)のデータの必要なものだけをコピペして、 3、オフセットを使用して、一定間隔で罫線を引く。というマクロが組んであります。その、元ブックのみが開いているときは瞬間で終わる処理が、別ブックが開いていると、処理がとても遅くなります。しかもその別ブックというのが、特に元ブックとは関係のないもので、マクロも組んでないものなんです。また、その別ブック以外のブックは、開いていても問題なく、早く処理してくれるのですが、その別ブックが開いているときだけ処理が遅くなります。マクロを実行しているファイルとまったく関係のないブックでも開いていると、マクロの実行速度が遅くなることがあるのでしょうか。ご存知のかた、みえましたら、ご教授願います。
エクセルマクロで大量データ作成の件

エクセルマクロで大量のデータを作ろうとしています。100MBを超えたら、別ファイルに移して名前をつけて保存し、リソースを解放しながらプログラムを動かし続けてみていますが、それでも処理が進むと徐々に処理速度が遅くなってしまいます。処理速度が遅くならないようにするコツを教えて頂きたく、宜しくお願いします。
Excel97で作成したマクロをExcel2000で使えず・・・

よ～く探せば同内容の質問が過去にあるかもしれないのですが、多すぎて探せなかったので、質問します。すいませんが宜しくお願いします。会社のPC（OSはWin95）のエクセル97でマクロを作成して、共有データエリアに保存し、別のPC（OSはWin98）のエクセル2000で実行しようとしたら、***はマクロを含んでいますとメッセージが出て、マクロを有効にすると、オブジェクトライブラリは登録されていませんというメッセージが出てきたので、OKにし、もう一度マクロを有効にしたら、「***の修復　　　***にエラーが検出されましたがMicrosoftExcelは次の修復を行うことによってファイルを開くことができました。修復を保持するにはこのファイルを保存してください。　　VisualBasicプロジェクトが失われました。　ActiveXコントロールが失われました。」というエラーメッセージが出てきて、マクロがなくなってしまい、また新しくマクロを記録しようとしても、記録できません、というエラーメッセージが出てきてマクロが作れなくなってしまいました。尚、セキュリティは中にしてありますが、低でもマクロの記録ができないです。なぜでしょう？
エクセルのマクロの質問です。

オートフィルタを使ってデータを検索しているのですが、ファイルを閉じる時には自動的に「全て表示」にして閉じたいと思います。試しに下記のマクロで実行してみたのですが、 Sub Auto_Close() ActiveSheet.ShowAllData End Sub フィルタで検索していれば自動的に「全て表示」になって問題なく閉じる事ができるのですが、最初から「全て表示」になっていると失敗し（当然ですよね）下記のエラーメッセージが出ます。実行時エラー'1004': worksheetクラスのshowAllDataメソッドが失敗しました。そこで、「全て表示」になっている時はそのまま閉じるを追加してマクロを完成させたいのですが、どうすればいいのでしょうか？教えて下さい。お願いします。

ＥＸＣＥＬのマクロの質問です

質問者が選んだベストアンサー

お礼 2005/04/09 23:55

関連するQ&A

エクセルマクロ列同一文字の個数をカウントして・・

エクセルのマクロについて

エクセルのマクロで

エクセル　マクロ Msgbox

Excelマクロについて

エクセルのマクロで

エクセルマクロで教えてください。

EXCEL　マクロ　もし、最終行が１００００件を超えたなら。。

とほほのエクセルマクロ

エクセルのマクロでwindowsのメッセージを表示させない方法

エクセルの行数が限界です。

Excelについて2点質問です。

エクセルVBAで作成できますか。

エクセルマクロの質問です。

エクセルマクロで教えていただきたいです。

関数　ｏｒ　マクロ（エクセル）

Excelマクロが重いときと重くないときがある

エクセルマクロで大量データ作成の件

Excel97で作成したマクロをExcel2000で使えず・・・

エクセルのマクロの質問です。

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

ＥＸＣＥＬのマクロの質問です

質問者が選んだベストアンサー

お礼 2005/04/09 23:55

関連するQ&A

エクセルマクロ 列同一文字の個数をカウントして・・

エクセルのマクロについて

エクセルのマクロで

エクセル マクロ Msgbox

Excelマクロについて

エクセルのマクロで

エクセルマクロで教えてください。

EXCEL マクロ もし、最終行が１００００件を超えたなら。。

とほほのエクセルマクロ

エクセルのマクロでwindowsのメッセージを表示させない方法

エクセルの行数が限界です。

Excelについて2点質問です。

エクセルVBAで作成できますか。

エクセルマクロの質問です。

エクセルマクロで教えていただきたいです。

関数 ｏｒ マクロ（エクセル）

Excelマクロ が重いときと重くないときがある

エクセルマクロで大量データ作成の件

Excel97で作成したマクロをExcel2000で使えず・・・

エクセルのマクロの質問です。

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセルマクロ列同一文字の個数をカウントして・・

エクセル　マクロ Msgbox

EXCEL　マクロ　もし、最終行が１００００件を超えたなら。。

関数　ｏｒ　マクロ（エクセル）

Excelマクロが重いときと重くないときがある

カテゴリ
一覧

専門家に質問してみよう
専門家登録