●EXCEL・VBA質問スレ Part2●

1 名前：デフォルトの名無しさん [2007/05/27(日) 00:06:58 ] ・まじめにExcelの機能を追及してみようと思う奇特なひと ・スキルがないのに無理やりVBAの仕事を押し付けられた普通のひと ・VBAなんていまさらやりたくないのに業務で仕方なく使っているひと ・とにかく漏れにこんな仕事まわすなと怒っているひと そんなM$大好きなひとからアンチM$なひとたちまで幅広くカバーするスレです 前スレ pc11.2ch.net/test/read.cgi/tech/1168308855/ 266 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 20:28:14 ] >>256,264 > これってなに？VBAから、WSHのオブジェクトを呼び出しているわけ？ 正確には違う Microsoft Scripting RuntimeはWSHのインストーラーパッケージに含まれてはいるが Scripting.DictionaryはWSHのオブジェクトではなく､ActiveXの汎用コンポーネントに含まれるオブジェクト WSHのオブジェクトじゃないから､WSHから使う場合もWSHのオブジェクトであるWScriptオブジェクトみたいに いきなり使うことは出来ず､CreateObjectなどで外部参照してやる必要がある 267 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 23:03:58 ] ShowしたUserFormってどうやって閉じていますか？ UserForm1.Close こんなのないよね？ Unload Meってのはいまいち分からない。不便。 268 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 23:08:07 ] Unload UserForm1 269 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 23:24:03 ] >>268 ｻﾝｸｽ 270 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 23:25:06 ] >>265 どこが思ったように動作しないのか説明がないけど 抽出したあとCopy使えばいいよ >>267 UserForm1.Hide 271 名前：デフォルトの名無しさん mailto:sage [2007/06/30(土) 00:04:38 ] >>270 Hideは見えなくなるだけ 272 名前：デフォルトの名無しさん mailto:sage [2007/06/30(土) 00:46:27 ] >>271 うん、でも>>268の人がもう答えてたから他のを書いた あと一応はShowとHide、LoadとUnloadが対応になってるかなと思ってるし 273 名前：デフォルトの名無しさん mailto:sage [2007/06/30(土) 01:35:58 ] Accessではclose使えるのに どうしてExcelではだめなのでしょう？ 274 名前：262 [2007/06/30(土) 01:50:26 ] 263 ありがとうございます。 ワークシート関数ってオーバーフローするイメージがあるので、あんまり好きじゃないのです。 275 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 00:50:52 ] >>92 Application.FileSearchは削除されたよ。 以前から挙動不信だったんで、存在そのものを抹消したのだと思われ。 276 名前：デフォルトの名無しさん [2007/07/01(日) 03:23:57 ] 5人で３０回じゃんけんをして、出した手をB〜Fに書き込み、勝敗をG〜Kに 書き込むマクロを短めで作りたいのですが、勝敗パターンを作る以外の方法が思いつきません。 よろしくお願いします。 277 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 04:25:41 ] >>276 >>16 さようなら 278 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 08:47:13 ] >>275 あー確かに挙動不振だな 279 名前：デフォルトの名無しさん [2007/07/01(日) 09:19:11 ] 置換について質問です。 以下の様にすると、"さんま"という文字列を"魚"に置換できるのですが、 "さんま"、"タイ"、"いわし"のいずれかの場合に"魚"に置換する場合はどうやって指定しますか？ Selection.Replace What:="さんま", Replacement:="魚" 280 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 09:31:10 ] >>279 with Selection .Replace What:="さんま", Replacement:="魚" .Replace What:="タイ", Replacement:="魚" .Replace What:="いわし", Replacement:="魚" end with 281 名前：デフォルトの名無しさん [2007/07/01(日) 09:38:53 ] >280 ありがとうございます！ 282 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 10:13:19 ] >>276 総合で訊いてる奴だよな？ 283 名前：280 mailto:sage [2007/07/01(日) 10:20:13 ] >>281 ぉぃ! まさか、こんなこと訊いてるんじゃないよなぁ...と思いながら、 答えてみたんだが、解決かよ(-_-#); 284 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 10:57:24 ] 釣りだろ 285 名前：デフォルトの名無しさん [2007/07/01(日) 11:57:26 ] シートAに以下のマクロ実行するボタンがあります。 シートBを選択した状態だと問題なく動作するが、 シートAから実行するとエラーがでます。 最終的にシートA以外は不可視にしたいので、 Worksheets("シートB").select をしたくないです。 何か良い方法有りますか？ Worksheets("シートB").Range(Cells(1, 1), Cells(100, 100)).Sort Key1:=Range("a1"), Key2:=Range("d1"), Header:=xlYes 286 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 14:11:49 ] Set ws = Worksheets("シートＢ") With ws .Range(.Cells(1, 1), .Cells(100, 100)).Sort Key1:=.Range("A1"), Key2:=.Range("D1"), Header:=xlYes End With 287 名前：デフォルトの名無しさん [2007/07/01(日) 15:26:32 ] >286 有難うございます。 試してみましたところ、シートＢが選択された状態では動作しました。 シートＡが表示された状態で実行すると、 「アプリケーション定義またはオブジェクト定義のエラーです」となります。 288 名前：デフォルトの名無しさん [2007/07/01(日) 19:25:16 ] Σ(ﾟ∀ﾟ；) ? 289 名前：デフォルトの名無しさん [2007/07/01(日) 19:45:48 ] 285です。 解決しました。 Worksheets("シートB").Range(Worksheets("シートB").Cells(1, 1), Worksheets("シートB").Cells(100, 100)) _ .Sort Key1:=Worksheets("シートB").Range("a1"), Key2:=Worksheets("シートB").Range("d1"), Header:=xlYes 290 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 20:52:21 ] >>289 これって>>286と何が違うん？ 291 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 22:42:36 ] Excel2003なのですが、 VBエディターで編集したマクロをリロードするための ファンクションキーってありますでしょうか？ 292 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 23:01:44 ] エクセルの2つのシートを比較するマクロを作っているのですが、 行と列のサイズが大きくなると処理が重くなります。 1000*256ぐらいで処理が重くなります。 これは、仕様なんでしょうか。 For　i=0　To 65536　　 　　For　j=0 To 256 　　　　比較 　　Next Next 使われているシートの範囲を読み取るとか 範囲を設定するとかすればいいと思っています。 指摘などありましたらよろしくお願いします。 293 名前：デフォルトの名無しさん mailto:sage [2007/07/01(日) 23:19:53 ] >>292 Dim s As Range Set s = ActiveCell.SpecialCells(xlLastCell) MsgBox s.Column & " " & s.Row 294 名前：デフォルトの名無しさん [2007/07/02(月) 20:40:46 ] arry(あ,い,う,え,お) を、 ExcelのセルA1〜E1に 一気に貼り付ける方法てないですかね。 For文で順番に セルA1に「あ」を入れて セルB1に「い」を入れて… というのは分かるんですが。 なんかもっとこう効率良いやり方ないかな。 295 名前：デフォルトの名無しさん mailto:sage [2007/07/02(月) 21:05:35 ] >>294 おしい、そこまでいけて何故できないw Range("A1:E1") = Array("あ","い","う","え","お") 是非感想を。 296 名前：デフォルトの名無しさん [2007/07/02(月) 21:14:58 ] >>295 で、できたー！！ ありがとう。これでよかったのか… Pasteにばっか気をとられてたわ。 297 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 00:16:07 ] VBAのコードを含んだブックを余所にあげたりするとき、デジタル署名とか どうしてますか？ 律儀にベリサインから買ったりしてるんでしょうか？ 298 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 06:33:52 ] SelfCert 外に出すときは、署名壊れたとき用に対応策(向こうで再署名)を書いておく # ソースは見られるが管理者だけなら問題なかろう 2000ならこれでOK それ以降なら我慢して使ってもらうしか。 一応、毎回署名を確認してもらう事に… 既に署名を持っているならともかく、予算的にExcelの為に申請なんて出せないし。 299 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 09:15:58 ] 売る場合はともかく､あげる場合は向こうで勝手に対応してもらう 300 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 11:31:57 ] Set objIE = CreateObject("InternetExplorer.application") で、IEを起動しています。 なんらかの操作で、IEのウインドウが最小化された場合に備えて、それを「元のサイズに戻す」の 処理を行いたいのです。 検索してみたところ、VBでは、SW_SHOWNA　の利用で良いみたいですが、 同様の処理をVBAで行いたいのです。 ojbIEに対して処理を加える方法は無いでしょうか？ 他に考えたのは、API32を参照しobjIEとは関係なく処理を行うですが、そうした方が良いのでしょうか？ よろしく御願いします。 301 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 12:10:35 ] >>300 >>16 302 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 12:41:01 ] 厳しいなあｗ 303 名前：300 mailto:sage [2007/07/03(火) 16:21:57 ] Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long If objIE.Top < 0 Then ShowWindow objIE.hWnd, 9 'SW_RESTORE　アクティブにもなる。 End If で解決しました。objIE.Top < 0 は怪しいですが、良しとします。 304 名前：デフォルトの名無しさん [2007/07/03(火) 18:42:33 ] >>295 それ、A1:E1ならできるけど A1:A5だとうまくいかない。なんでだろ？ 305 名前：デフォルトの名無しさん mailto:sage [2007/07/03(火) 20:17:56 ] >>302 × スレ違い指摘が厳しい ○ 質問者がVBAの範疇を理解してない 306 名前：デフォルトの名無しさん [2007/07/04(水) 17:34:35 ] VBAというか、プログラミングの初心者です。 変数のスコープ（有効範囲？）のことでハマッっています。 UserForm1のなかの冒頭でPublicとして宣言した変数aの値を （この値は同じくUserForm1内にPublicとして記述されたプロシージャによって代入される） UserForm2のなかのプロシージャ内でmsgbox(a)として表示しようとするのですが、 値が空白になってなにも表示されません。 UserForm1 UserForm2のすべてのプロシージャをPublicにしても同じです。 こんなボケに対する、どなたかツッコミをお願いします。 307 名前：デフォルトの名無しさん mailto:sage [2007/07/04(水) 17:47:03 ] Msgbox(UserForm1.a) 理由：ユーザフォームはモジュールではなくクラスだから 308 名前：304 [2007/07/04(水) 19:03:53 ] 自己解決。 これでいけた。 Range("A1:A5") = Application.Transpose(Array("あ", "い", "う", "え", "お")) 309 名前：306 mailto:sage [2007/07/04(水) 22:42:37 ] >>307 助言くださったとおり、うまくいきました。理由を書いてくださったのがヒントになり、 Public変数をUserFormではなく標準モジュールのほうで宣言すればいいことに 気がつきました。どうも有難うございました。 310 名前：デフォルトの名無しさん mailto:sage [2007/07/05(木) 12:37:25 ] ＞Public変数をUserFormではなく標準モジュールのほうで宣言すればいい 死ね 311 名前：デフォルトの名無しさん [2007/07/05(木) 21:18:05 ] あの子ったら、また私のパンティを……。 　 息子の康彦を学校へ送りだし、洗濯にかかろうとした美沙緒は、 洗濯機のなかに無造作に放りこまれた自分のパンティを見て、大きく溜め息をついた。 困ったわ。どうすればいいのかしら？…… 　パンティを手に持ったまま、美沙緒は考えこんでしまった。 　 康彦は十四歳の中学二年生。七つ年上のいまの夫と大恋愛に落ちた美沙緒が、 周囲の猛反対を押しきって、十八歳のときに産んだ子だ。 　 その康彦の不可解な行動に美沙緒が最初に気づいたのは、もう一年近くも前のことになる。 312 名前：デフォルトの名無しさん [2007/07/05(木) 21:23:27 ] 小学生の頃､同じｸﾗｽのﾔｼんちに行った｡ｿｲﾂの姉ちゃんは高校生でｷﾚｲだった｡ 化粧してるのをﾎﾞｹｰと見てた｡ ｢何で見てるの?｣ やさｰしく微笑んでくれた｡ ｢ち､ちゅｰしたい!｣ おいら､とっさに言った｡ 姉ちゃん､頭なぜなぜして､ｵﾃﾞｺにちゅｰしてくれた｡ ｢口紅ついちゃったわね｣ ｺｯﾄﾝでｷﾚｲにしてくれた｡ おいら､ｺｯﾄﾝを奪って逃げた｡ 次の日､姉ちゃんに告った｡ ｢お姉ちゃん､彼氏いるの｣ おいら｢ならば､貴様を殺して永遠に我と共に｣ 姉ちゃん｢よかろう｡来るが良い｣ 虚空を突き破る轟音｡空気を切り裂く甲高い音｡ おいらの口から鮮血があふれ出す｡ おいらの拳は僅かに届かず､逆に手刀が胸に突き刺さっている｡崩れ落ちるおいら｡ おいら｢･･･これで､貴様は俺を忘れないだろう｡ぐ･･｣ 姉ちゃん｢忘れはせぬ｡貴様の魂我が心と共に｡悲しき男よ｡誰よりも愛深く､拳でしか愛を語れぬゆえに｣ 死してなおその男の顔に浮かぶ表情は喜びであったか悲しみであったか｡ その時､一陣の風が吹いた｡ 愛に死んだ修羅の魂を運び去るように｡ 313 名前：： [2007/07/06(金) 22:24:01 ] 　　　　　００年　　０１年　０２年　０３年 　　　　　売上高　 キャベツ　５００　　４００　３００　　２００ ニンジン　６００　　３００　４００　　５００ トマト　　４００　　４００　５００　　４００ レタス　　３００　　５００　６００　　３００ 年代別に最も多い売上高の野菜を調べるためのアルゴリズムってどうすればいいんですか？ 上の例で言うと００年の売上高がもっとも高いのはニンジンなのでマクロをつかって００年 ニンジン、０１年レタスというようにセルに順番に出していきたいんですがどうすればいいんで しょうか？ 314 名前：デフォルトの名無しさん mailto:sage [2007/07/06(金) 23:04:40 ] >>313 VBAを使うまでもない。よってスレ違い。 315 名前：デフォルトの名無しさん mailto:sage [2007/07/06(金) 23:18:00 ] >>310 ＞死ね って、どういう意味ですか？ 316 名前：デフォルトの名無しさん mailto:sage [2007/07/06(金) 23:24:52 ] >>315 つ[辞書] つ[goo.ne.jp] 317 名前：： [2007/07/07(土) 01:04:04 ] >>314 課題でどうしてもＶＢＡを使ってやらないとだめなんです。 まだはじめたばかりで普通にやったほうが早いんですけど。 せめてどのような文法を使ったらいいのかだけでも教えてもらえませんか？ 318 名前：デフォルトの名無しさん [2007/07/07(土) 01:54:03 ] >>317 ここは宿題スレじゃない 319 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 11:55:37 ] 　　　　　００年　　０１年　０２年　０３年 　　　　　売上高　 キャベツ　５００　　４００　３００　　２００ ニンジン　６００　　３００　４００　　５００ トマト　　　４００　　４００　５００　　４００ レタス　　　３００　　５００　６００　　３００ 　　　　　　ニンジン　レタス　レタス　ニンジン 320 名前：>314 [2007/07/07(土) 14:28:49 ] Sub CHEATFROM2CH() For c = 2 To 5 val1 = 0 val2 = "" For r = 2 To 5 If Cells(r, c) > val1 Then val1 = Cells(r, c) val2 = Cells(r, 1) ElseIf Cells(r, c) = val1 Then val1 = val1 val2 = val2 & "と" & Cells(r, 1) ElseIf Cells(r, c) < val1 Then val1 = val1 val2 = val2 End If Next r Cells(12, c) = val1 & "円の" & val2 Next c End Sub もっと削れるけど、このままの方がわかり易くていいだろ… 321 名前：デフォルトの名無しさん [2007/07/07(土) 16:26:12 ] シート2に顧客番号と名前のリストを置いて、 シート1のA1に、例えば「10」と入力した時にそれに対応するシート2の 顧客番号10番の名前を、シート1のA2に表示させたいんですが。 初心者の俺でもできるかなと思いましたが分かりませんでした。　orz よろしくお願いいたします。 322 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 16:56:22 ] >>321 それを何故VBAでやりたい? シートだけでできるっしょ。 323 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 17:06:56 ] Ｂ列にhh:mm:ss形式で入っている時刻をまず文字列（’シングルクォーテーションをいれるみたいなイメージなんですが）にして、 次にＡ列の文字列と連結してＣ列に表示していきたいのですが、 Ｂ列のhh:mm:ss形式をそのままの形で文字列にするにはどうすればよいのでしょうか？ 324 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 17:28:31 ] しょうがねぇなぁ…… 手元にOpenOfficeしかないから適当に読み替えて試してくれ。 >>321 顧客番号がA列、名前がB列として、 A2 =vlookup(a1;シート2.a1:b9999;2) >>323 C5 =a5&text(b5;"hh:mm:ss") 325 名前：321 mailto:sage [2007/07/07(土) 17:59:42 ] >>324 早速のレスありがとうございました！ 試してみてエラーが出たので悩みましたが、 =VLOOKUP(A1,Sheet2!A1:B9999,2,TRUE) でうまくできました！ 2人でやっているお店で店長が入院してしまい、自分１人ですべてこなすために 手書きでやっていた部分の仕事をどうしても合理化しなくてはいけなかったので とても助かりました。ありがとうございました。 326 名前：321 mailto:sage [2007/07/07(土) 18:56:36 ] すみません、追加で質問させてください。 顧客が9999人だった時に、10000以上の数字を誤入力してしまうと 9999番目の人が表示されてしまいます。データの入力規則で縛ろうにも、 毎日顧客は増えていきますのでその度に手直しできません。 良い知恵がありましたらよろしくお願いいたします。 327 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 18:57:55 ] 数式を穴があくまで見つづけろボケ 328 名前：： [2007/07/07(土) 22:05:29 ] >>320 まじでありがとうございます。 自分もこんなふうにできるようになりたいです 329 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 22:09:53 ] >>328 1週間くらい勉強すれば､このくらい出来るようになるよ 330 名前：： mailto:sage [2007/07/07(土) 22:29:29 ] お世辞だよ 331 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 22:44:56 ] 初心者なのですが、質問させて下さい。 環境はWinXP＋Excel2003です。 VBAでFor文を使ったネスト構造を作っています。 3階層のネスト構造の場合、 各変数x,y,zとして以下のロジックを作ってみました。 For i = 1 to 3 For j = 1 to 3 　　　　if i = j then exit for 　　　　For k = 1 to 3 if j =k then exit for if k=i then exit for 　　　　　　<処理> Next k Next j Next i 期待としては、同じ数が出たときだけスルーするロジックになって欲しかったのですが。 実際には、そうはならず、9パターン中、1-2-3と1-3-2と2-1-3と2-3-1と3-1-2と3-2-1の 6パターン処理されるつもりだったのに、2-3-1と3-2-1の2パターンしか処理されませんでした。 ロジックのどこがおかしいのでしょうか。 おそらく、exit for の設定を私が判っていないせいの様な気がするのですが… 332 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 23:03:30 ] そりゃぁ、exitでforから抜けちゃってるからねぇ。 333 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 23:06:37 ] うすうす気付いてるようだけど､ループのスキップではなく､ループの終了(Exit For)をしてるから 1=1でExit Forすると､以後の2〜3は処理されない For i = 1 To 3 　　If i = 1 Then Exit For 　　Debug.Print i Next i で､2と3が出力されませんと言ってるようなもの 一致条件でExitではなく､不一致条件内に内部ループや処理を置けばいい 334 名前：デフォルトの名無しさん mailto:sage [2007/07/07(土) 23:32:36 ] >>332 >>333 迅速なレスをありがとうございました。 やはり、Exit Forが悪いと言うことで、 当該部分を削除し、以下のように変更したところ、期待通りの結果が出来ました。 if i = j then elseif j = k then elseif i = k then else <処理> endif 適切なヒントを下さり、本当にありがとうございました。 335 名前：>326 mailto:sage [2007/07/08(日) 01:15:38 ] 引数に"TRUE"を使うからそうなる。 "TRUE"だと完全一致しなくてもデータを読んでしまうので "FALSE"（完全一致必須）にするのが一般的 蛇足すると、Sheet2がデータ専用なら行数を限定する必要は無い VLOOKUPのデータ元参照式には、参照範囲のズレを防ぐため普通$を付ける。 てことでこんなんが妥当かな。 =VLOOKUP(A1,Sheet2!$A:$B,2,FALSE) ところでここVBAスレなんだけど… 336 名前：321 mailto:sage [2007/07/08(日) 02:56:27 ] >>335 詳しく解説していただき本当に感謝です。 正直、TRUEやFALSEの意味もろくに分かっていなかった自分です。 スレタイだけ見てここで質問してしまい、大変お邪魔しました。 337 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 07:08:08 ] >>335 ExcelとVBAの質問スレらしいよ 338 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 07:55:16 ] ×ExcelとVBAの質問スレ ○ExcelのVBAの質問スレ 例えスレ立て主の意図が前者だろうと､2chの規則的には プログラム技術板でExcelのVBA以外の話は板違いになるからね 339 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 11:08:17 ] すこしスレ違いだが、皆さん大丈夫？ ttp://itpro.nikkeibp.co.jp/article/COLUMN/20070620/275328/ Excelレガシー問題 340 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 12:02:44 ] SOXで大変なのは全体最適を考えてこなかった その記事で言う情報システム部門の方なんじゃね？ 未だ運用もはっきりしないのにあと半年少々でどうするんだろ。 341 名前：デフォルトの名無しさん [2007/07/08(日) 15:40:12 ] ８０以下なら赤 ９０以下なら黄色 １００以下なら緑 といったようにセルに入力された値によって 背景色が変わるという列を作りたいのですが どうすればいいのでしょうか？ 342 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 16:35:29 ] それをVBAでしたいの？ そうでなければスレ違い。条件付き書式ググれ。 343 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 16:57:28 ] 現在、Excelファイルが60,000ファイルほどあります。 その全ファイルから、一部分(一番上の5行ほど)だけ別のエクセルファイルにコピーするロジックを作りました。 ロジックの概要は以下の通りです。 処理の内容としては、すでに開いているブックから他のブックを開いて、必要な部分をコピー後にクローズさせています。 Set wb2 = Workbooks.Open(Filename:="aaa.xls") Set ws2 = wb2.Worksheets("Sheet1") 　　　　　　＜処理＞ ActiveWorkbook.Close saveChanges:=False Set newbook = Nothing 上のロジックでコピーを行っていると、最初の1,000ファイルぐらいはサクサクオープン/クローズの処理が出来るのですが、 段々オープン/クローズの時間が遅くなってきて、最期は「xxx.xlsはファイルが読み取り専用か、読み取り専用フォルダにあります(略)」 と表示され、ファイルオープンが出来なくなります。 なお、エラーが出るファイルも、一回Excelを閉じると、正常に表示できるので、ファイルが壊れているわけではなさそうです。 この場合、問題の原因がVbaなのか、ハードウェアなのか、OSなのかよく分かりません。 もし何かご存じのことがありましたら、教えていただけませんでしょうか。 344 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 19:15:00 ] 問題の原因はおまえのプログラム 345 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 21:04:23 ] >>343 お望みのことでなくて、恐縮ですけど、 60,000個のファイルから、それぞれ5行を別のエクセルファイルに コピーしていくと、300,000行になりますよ。 エクセルって、65,536行までないですけど... それに、何万行もあるファイルの操作は、それだけで、 処理がのろのろ...になるのは、避けようが無いと思ふ... 346 名前：デフォルトの名無しさん mailto:sage [2007/07/08(日) 21:41:41 ] 大丈夫、今のExcelはもっと長い。 それはさておき、5行ずつ選択して選択範囲だけcsvで保存して、後でまとめてマージってのはどうだろう。 347 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 00:32:33 ] >>344 その可能性が高いとは思うのですが、どうも納得できない部分もあります。 具体的な原因をお教えいただけますか？ >>345 私の説明が悪くて申し訳ないです。 実際には、5行分の内容を配列でまとめて、1行に流し込んでいます。 そのため、実際には1ファイル1行のサイズでコピーをしています。 ご指摘のあったとおり、確かに全てをコピーすると行が足りなくなる可能性が有ります。 私が欲しいデータは、全データ中の一番上と一番下の部分だけなので、 レスを頂いた後で、if文で一番上と一番下だけコピーするようにしたら、コピー行はほとんど無くなりました。 けれど、やはり1000ファイルを超えた当たりから、読み込みが遅くなり、 最期に読み込みエラーが出てきてしまいます。 >>346 おっしゃられるとおり、CSVにした方が良いのかも知れません。 とはいうものの、気になる問題が二つあります。 一つは、範囲指定をした上でCSV形式で保存する方法を私が知らないことと、 もう一つは、VBAでCSVファイルを大量に読み込んで加工できるかどうか、 また、数千ファイルを読み込んだ時点でエラーが発生するかも知れないという不安です。 難易度はどれくらいでしょうか？ 348 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 01:23:02 ] >>347 ひとつのsheetにまとめるかわりにcsv形式でまとめる openとwrite使えばOK エラーの原因はリソースを食いつぶすからだろ おそらくこれでだいぶリソースの使用が減ると思うが 全部処理できるかはわからない 349 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 07:11:07 ] > 一つは、範囲指定をした上でCSV形式で保存する方法を私が知らないことと、 知らなければ勉強すればいいだけ。生まれたときからこの世の全てを知ってる人間なんて居ない。 > もう一つは、VBAでCSVファイルを大量に読み込んで加工できるかどうか、 問題ない。 以前約　6'140'000　個のcsvを扱ったことがある。(時間は掛かったけど､放置して置いたらエラーも出ずに無事完了) キミが扱う　60,000　個程度ならなんてことないはず。 当然csvはExcelにブックとして開かせるんじゃなくて､348も言ってるように直接ファイルにアクセスすること。 それについても解らなければ勉強しよう。 難易度は｢入門者→初心者｣の移行レベルくらい これが出来たら､VBA入門者(門を潜っただけ)ではなくVBA初心者(初歩的なことなら出来る)を名乗っても良い 350 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 10:13:29 ] >>343 newbookは開放してるけど、wb2やws2は開放しないのか？ 351 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 19:34:56 ] Excel2003でユーザフォームをもちいて抽出フォームを作成しているのですが コマンドボタンを押すと 配列(多次元)のデータをユーザフォーム上に表示させるには どのパーツを使えばいいのでしょうか？ 352 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 20:59:27 ] >>351 Grid系 353 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 21:42:18 ] >>352 Webで検索してもあまり情報が出てこないのですが オススメな参考書とかありますか？ 354 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 22:01:16 ] >>351 listbox 355 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 23:21:22 ] >>348 >>349 レスをありがとうございました。 今日、超巨大書店でVBAの辞典を買って来て、OPENとかCSV形式での保存方法を勉強しました。 おかげさまで、今バックグラウンドでエクセルファイルをCSVファイルに変換するマクロ流してます。 23:15の時点で5,000ファイルほど変換できました。 変換スピードはあまり落ちていないので、余計なリソースを食うアプリを立ち上げないようにしておけば、 何とか最期まで行けるかも知れないと思い始めました。 で、今気がついたんだけど、エクセルのファイル数が実は600,000ファイルだったw ぶっ続けで処理を流しても4日位、電源OFFの時間を考えれば1週間位かかりそうです。 CSVファイルを読み込むのも出来ましたので、まだ問題はいくつか残ってますが、 何とか頑張れば出来そうな光明が見えてきました。 プライベートPC上でやっていると（今はホットゾヌ上から書いていますが）あちこちのアプリも重くなるので、 折を見て、変換＆計算処理専用のマシンを購入した方が良いのかも知れないと思い始めました。 色々とヒントを下さって、ありがとうございました。 356 名前：デフォルトの名無しさん mailto:sage [2007/07/09(月) 23:45:14 ] VBAはvariant使わずにきちんと宣言するのとしないのでは実行時間がかなり違ってくるよね。 膨大な処理をするときは1ファイルあたりの処理時間をきちんと計ってコードを組むとかなり早くなったよ。 10倍ぐらいは変わった。 357 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:06:57 ] Sub JoinTime() Cells(2, 3) = Cells(2, 1) & Text(Cells(2, 2), "hh:mm:ss") End Sub これを実行すると、 「コンパイルエラー：：Ｓub またはFunctionが定義されていません。」 とエラーが出てしまいます。 どう対処すればよろしいでしょうか？ 358 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:17:06 ] >>357 ↓を付け足す Function Text(a, b) 　Text = Format(a, b) End Function 359 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:25:40 ] >>358 できました。 すばやい、レスありがとうございました。 360 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:34:50 ] 超初心者の質問で申し訳ないです。。 VBAを使って、画面に表示された方向キー（↑↓←→）を押して、1分間にどれだけ成功できるか・・・ のような感じのゲームを作ることはできないものでしょうか？ 頭の中でふと浮かんだのですが、プログラムを組もうとすると進めなくて困っています。 もしわかる方おりましたら、可能か不可能かだけでも結構ですので教えてくださいm(_ _)m 361 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:42:30 ] >>360 cgi30.plala.or.jp/chikada/vba/acd.shtml 362 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 01:48:41 ] >>361 誘導ありがとうございます。 スレ違いでした。失礼しました。 363 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 11:57:18 ] >>361 スレチだが、そこのCell雀の完成度の高さにびっくりした。 364 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 22:35:57 ] ExcelとVBAでマインスイーパー作ったりできますか 365 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 22:39:42 ] やる気と根気があればできるはず がんばれ 366 名前：デフォルトの名無しさん mailto:sage [2007/07/10(火) 23:20:05 ] 暇で作った事あるけど同等のゲームならすぐ出来るよ。 UIまでコピーしようと思うとそれなりに大変だろうけど。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef