
実行時エラー '1004' RangeクラスのSortメソッドが失敗しました。 と出ます。
With Worksheets("データ")
.Range("A2:N" & .Cells(.Rows.Count, 1).End(xlUp).Row).sort _
Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range("C3"), _
Order2:=xlAscending, Key3:=Range("A3"), Order3:=xlAscending
End With
E列、C列、A列で昇順で並び替えしようと思っております。
前まで使えていたのですが、ソートできなくなり、何が原因かわからないため、質問しました。
また、もう一つエラーがあります。
実行時エラー'-2147417848(80010108)'
オートメーションエラーです。
起動されたオブジェクトはクライアントから切断されました。
と表示されます。
http://okwave.jp/qa/q8452163.html
range("A1").resize(ubound(a),1) = application.transpose(a)
上記部分でエラーがでます。
上記内容で、どういった原因が考えられますか?
どちらか片方でも分かる方いらっしゃいましたら、回答よろしくお願い致します。
No.3ベストアンサー
- 回答日時:
こんにちは。
>セルに書き込んで、結果を読み込むようにすれば上手くいきますか?
10+32,767(字) * 2(byte) / 1,024 だから、約64kb 文字列はすべて2バイト扱いされます。
それに反して、String型の変数は、2Gまでです。
もちろん、Variant型でも、量的には減りますが、それでも、扱うことができると思います。
ところで、TextBoxの容量はいくつだったか、調べてみると、以下のような話が見つかりました。
まず、間違いないと思います。
---
http://www5b.biglobe.ne.jp/~yone-ken/VB/TextBox. …
TextBoxにまつわるFAQ
[テキストボックスって容量の制限はあるんですか? ]
[64Kbyteです。それ以上のテキストを扱う場合はRichTextBoxを使います。ちなみに、文字列変数は固定長でも可変長でも最大約2Gbyteまでです。]
-----
私は、RichTextBox という手があることをすっかり忘れていました。
もちろん、Excel2003では、フルインストールしていれば、VB6Runtimeに入っているはずです。
なければ、MSからダウンロードすればよいです。試してみる価値は十分にあると思います。
No.4
- 回答日時:
ところで、SPLITに関しての質問というのは、何だったのでしょうか?
削除されてしまっていたのですが、これとは関係あるのでしょうか?
もし、うまく行かないというなら、なかなか厄介な問題があるような気がします。
なぜなら、SPLITで分けられる配列は、おそらく、Variant で受けなくてはならないからです。
もし、明示的なデータ型なら、もう少し余裕が取れるからです。
No.2
- 回答日時:
こんばんは。
>With Worksheets("データ")
> .Range("A2:N" & .Cells(.Rows.Count, 1).End(xlUp).Row).sort _
> Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range("C3"), _
> Order2:=xlAscending, Key3:=Range("A3"), Order3:=xlAscending
>End With
上記マクロに関しては、他人が書いたもののようですから、それは、今のところ触れないことにしますが、Key1:=Range("E3")などのKeyは、アクティブシートという意味ですから、シートを限定した使い方だと思います。
本題はこちらになります。
>実行時エラー'-2147417848(80010108)'
>オートメーションエラーです。
>起動されたオブジェクトはクライアントから切断されました。
>と表示されます
[ マクロ ] エラーになったりならなかったりする
http://oshiete.goo.ne.jp/qa/8484198.html
こちらに書きましたが、未だ、解決する見通しは立っておりません。
確か、ご質問者さんは、Excel2003ですから、今、何に対して、オートメーション・エラーを起こしているのか分かりません。
エラーの意味は、オブジェクトが生成されていたものが死んでしまって、そのオートメーションの残骸にアクセスしようとしているということなのですから、今、その範囲は限られるはずです。
VBA上のエラーですが、その戻り値は、Cのエラーです。
>フォーム上のテキストボックスにデータが記入されています。
これは、文章として、ユーザーフォームのことでしょうか。
もし、そうですと、実務上は、意外に気をつけなくてはならない部分があります。
もしかして、1つのTextBoxに対して、取得したテキスト・データが大きすぎるのかもしれません。
それで、TextBoxが死んでしまうかもしれません。
もし、そうなら、設計の根本から変えたほうがよいでしょう。
Range("A1").Resize(Ubound(a),1) = Application.Transpose(a)
として、セルに張り付けすること自体は、エラーが発生する要素はありませんが、Excel 2003の配列のデータ量は、公開はされていないのですが、およそ5~6,000個(セル数)の間ぐらいだったと思います。
回答ありがとうございます。
ご指摘通り、Textboxが死んでいるのかもしれません。
データは多いときに数十万という文字列が記入されます。
http://okwave.jp/qa/q8452163.html
VBA フォーム上textbox指定範囲の抜き出し
上記方法を採用しております。
しかし、テキストボックス上には全ての文字データが入っておらず、途中で終わっているような状態でした。
セルに書き込んで、結果を読み込むようにすれば
上手くいきますか?
回答ありがとうございました^^
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAがブレークモードになっ...
-
【マクロ】エラー【#DIV/0!】が...
-
ExcelVBAで、ユーザー定義型は...
-
VBAで実行時エラー'424' オブジ...
-
【Excel VBA】マクロをボタンに...
-
エラー:インデックスが配列の...
-
【VBA-AC2000】カレントプロシ...
-
”オブジェクト参照がオブジェク...
-
エクセルエラー13型が一致しま...
-
'Speak'メソッドは失敗しました
-
ExcelVBA Range クラスの Page...
-
ASPでメール送信時エラーが出る
-
'Cells'メソッドは失敗しました...
-
あとこれさえ出来ればよいので...
-
複数のバージョンの Office 対...
-
ADODB.Streamを使用してUTF-8を...
-
※初心者です マクロVBAについて
-
excel vbaでvlooupの変数がわか...
-
Do While中のVBAアプリケーショ...
-
VBAのこの実行時エラーは何故起...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBAがブレークモードになっ...
-
実行時エラー -'-2147417848
-
【マクロ】エラー【#DIV/0!】が...
-
なぜこんな初歩的なVBAのIf文で...
-
マクロについて教えてください...
-
VBAでのエラー
-
ExcelVBA Range クラスの Page...
-
実行時エラー48発生時のDLL特定...
-
実行時エラー3001「引数が間違...
-
VBAで、定数式が必要ですのエラ...
-
Outlook.ApplicationをCreateOb...
-
あとこれさえ出来ればよいので...
-
VB6+SQL サーバー 2000 で 実行...
-
VBS実行時エラー オブジェクト...
-
EXCEL/VBAで、自分のPCだけエラ...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBAのエラー発生場所をメッセー...
-
なぜエラーになるのでしょうか...
-
Invalid procedure call or arg...
おすすめ情報