Excel VBA質問スレ Part6

1 名前：デフォルトの名無しさん mailto:sage [2008/03/11(火) 19:31:39 ] ExcelのVBAに関する質問スレです 質問前に　【 >>2-3 】　あたりを良く読むこと 前スレ pc11.2ch.net/test/read.cgi/tech/1197448064/ ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　　　 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 830 名前：826 mailto:sage [2008/05/21(水) 07:43:54 ] >>827 そりゃ確かにそうだね。 冗長な記述を避けるためにもMeとか書かんからね。 >>821のコードに関してはということ。 831 名前：826 mailto:sage [2008/05/21(水) 07:46:16 ] Me.を書かんことはちょっと違うか。 まどうでもよい。 832 名前：デフォルトの名無しさん [2008/05/21(水) 07:59:09 ] 書式設定指定したら？ 833 名前：デフォルトの名無しさん [2008/05/21(水) 17:42:10 ] XP、EXCEL2003です。 特定のディレクトリの直下にあるファイル（複数）のファイル名を 全て取得する方法を教えて下さい。 よろしくお願いします。 834 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 17:49:26 ] >>833 ちょこちょこ質問掲示板見てると週に1回は遭遇する質問 ググれば腐るほどコードがある 個人的にはfilesystemobjectを使うのが一番効率いいと思う 835 名前：833 [2008/05/21(水) 19:20:12 ] >>834 レスありがとうございます。 失礼いたしました。 836 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 21:22:28 ] fsoはネットワークドライブ相手だったりするとテキメンに 速度が落ちたりするから困る。 　あと、ワイルドカードが無いのはどーゆーことだ。 837 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 23:21:02 ] >>836 独り言はチラシの裏に書け 838 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 06:44:14 ] �確かfsoは、クエリとってからのファイル追加や削除、内容変更に 伴う更新もかなりの直近まで自動的に更新してくれる中々の 優れモンだったという記憶が.... Kernel32.DLL のAPIを使って自分でクエリした場合は、 ファイル数が多く、激しく更新されるような場合は、取得情報と 実態の間に食い違いが発生してユーザーはパニくるのがオチなんだが （これもチラ裏に書くべきだったか) 839 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 18:21:06 ] わざわざfsoやapi使わんでもDir()関数使えばよい 840 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 21:25:32 ] Dirだとパスの長さが255以上になると確かエラーになる。 841 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 13:23:12 ] sage 842 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 23:07:41 ] OS:win xp excel:2007 初めて質問します。お願いします。 　・データ用のシート 　・処理用シート の二つを用意します。 データ用シート 　　　　店舗→　Ａ　　　Ｂ　　　Ｃ 　商品↓ 　りんご　　　100　　200　　300 　みかん　　　10　　20　　　30 　めろん　　　　1　　　2　　　　3 処理用シートのＡ１，Ｂ１のセルに店舗と商品を書き込むと、データ用のシートを参照して、 そのシートに書かれた数値（例えば、上記の表の「Ａ店（＝Ａ１）」の「みかん＝Ｂ１」だと「100」）が、 処理用シートのＣ１（「＝100」が）に入るようにしたいです。 店舗、商品は任意で追加していきたいので、データ用シートの列、行を検索していくようなやり方がいいのでは、 と考えています。 調べて、VLOOKUP関数を使えば…、というところまで来たのですが、二点のセルの値を見て、 表から一つの値を出力する、というところがわかりません。 何卒、ご指導の方、お願いします。 843 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 00:01:34 ] >>842 VBAに関係ないと思うのだが。 vlookup以外にもlookupやmatchもあるんだから何とかなるだろそれくらい。 844 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 00:16:49 ] なんとかするのがお前たちの仕事だろ。 あのな、上から目線もいいけどここはVBAに詳しくない奴らが 何をどうやったらいいかを聞きにきてるスレなわけ。 その手ほどきをしてやった上でそういうこと言うならいいけど、 回答も示さずにそういうこと言うのは荒らしとかわんねーんだよ。 こたえる気が無いなら質問スレから消えろよカスが。 ↓じゃ、模範的回答を頼む 845 名前：釣られてみる mailto:sage [2008/05/24(土) 00:26:30 ] いや、それだけの情報でVBAでどうしろと。 846 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 03:07:26 ] スレタイ読め。ここは質問スレであって回答スレではない。 847 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 03:09:22 ] >>846 こいつ頭悪そうだな（ゲラゲラ 848 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 07:33:50 ] >>842 いろんなやり方があると思うけど、私がスマートだと思うのを提案します。 データ用シートをこんなふうにする。 ID 店舗 商品 値段 Aりんご A りんご 100 Aみかん A みかん 10 Aめろん A めろん 1 Bりんご B りんご 200 Bみかん B みかん 20 Bめろん B めろん 2 Cりんご C りんご 300 Cみかん C みかん 30 Cめろん C めろん 3 IDの列は数式で作る。Aりんごのところに =B2&C2 としてオートフィルで。 849 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 07:53:02 ] つづき 処理用シートで C1には =A1&B1 D1には データ用シートはSheet1にあるなら =VLOOKUP(C1,Sheet1!A:D,4,FALSE) としてできあがり。 850 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 08:12:05 ] >>842 C1に =index(「データの範囲」,match(B1,「商品名の範囲」),match(A1,「店舗名の範囲」)) と入れる これVBAじゃないから、次からはEXCEL総合相談スレの方へ行ってくれ 851 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 10:55:08 ] VBA初心者ですが質問させて下さい。 Module1で宣言したパブリック変数をThisWorkbookで参照する事はできないのでしょうか。 状況を説明しますと、nullpo.xlsというマスターファイルがあります。 その中のModule1で処理を実行すると、public変数をインクリメントします。 "名前を付けて保存時"の保存ダイアログで、あらかじめ表示されるファイル名に そのpublic変数を出したいのですがうまくいきませんでした… 852 名前：851 [2008/05/24(土) 13:22:46 ] ｸｽﾝ…終わらないと帰れないんです みなさんの力を貸して下さい。 言い忘れましたがわたしは女です。 853 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 13:26:25 ] >852 俺が何でも答えますよ もうちょっとしたら家に着くから待っててね ところで今日は帰ったらどうするの？ 汗かいちゃったってシャワーでも浴びるのかな？かな？ 854 名前：851 [2008/05/24(土) 13:34:41 ] >>853 ありがとうございます。 彼氏と待ち合わせしてるんです。 855 名前：デフォルトの名無しさん [2008/05/24(土) 13:39:32 ] ＶＢＡを自由自在に扱うために、ＶＢの勉強をしようかと思うのですが ＶＢの種類が多すぎてどれを勉強したらいいのかわかりませんでした。 ＶＢＡのためにＶＢを勉強するには、どのＶＢを勉強すればいいのでしょうか？ 856 名前：853 mailto:sage [2008/05/24(土) 13:41:43 ] 死ね。お前に教えることは何もない 自分でどうにかするんだな 857 名前：853 mailto:sage [2008/05/24(土) 13:42:33 ] 856は>854宛てな 858 名前：851 [2008/05/24(土) 13:59:41 ] そんな… 他スレで質問することにします。 すみませんでした。 859 名前：側近中の側近 ◆0351148456 [2008/05/24(土) 15:22:18 ] >>853 (っ´▽｀)っ 独身の女の子には優しいのね。最低☆ 860 名前：側近中の側近 ◆0351148456 [2008/05/24(土) 15:23:00 ] >>855 (っ´▽｀)っ VBAならVB6.0だね。 861 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 15:25:38 ] >>856 手のひら返しワロス 862 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 15:29:18 ] >>851 そのpublic変数値を返す、public関数でも作れば？ つか、ダイアログに値をいれて有効にする処理が出来てないだけの気がするが… 863 名前：855 [2008/05/24(土) 15:29:35 ] >>860 ありがとうございます。 864 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 15:39:20 ] >>860 VB6.0やVB.NETをVBAを使えない人に勧めちゃらめどちらも超ベテラン向けだよ VBScript位しか残らないけど、VBAとはちょっと合わないかも知れないね。 やっぱしVBAはVBAで覚えるしかないのかな（鬱 865 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 16:18:52 ] VBAを覚えたいのにVBAを利用しない意味がわからない 866 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 21:16:49 ] >>842 商品と店舗の組み合わせが疎であるなら>>848の方法 組み合わせが密であるなら>>850の方法がいいだろうね。 ところで解決したのかどうか反応がほしいもんだね。 コミュニケーションしようや。 867 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 21:25:26 ] >>865 これほんとにその通り。 なんでVBAを覚えるためにVBを覚えたいなんて言うのかな。 VBを覚えたいんだって素直に言えばいいのに。 868 名前：デフォルトの名無しさん [2008/05/24(土) 21:29:23 ] VBってMSDNライブラリ使えるの？ 869 名前：デフォルトの名無しさん [2008/05/24(土) 21:38:17 ] VBAを体系的に勉強するのにいい本とかありますか？ 870 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 21:46:29 ] 実戦力UP! Excel VBAドリル式問題集 871 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 21:47:13 ] ＶＢＡとはマクロの記録で泥縄式に覚えていくもんだ 872 名前：デフォルトの名無しさん [2008/05/24(土) 22:46:45 ] エクセル２００３で上の行から数字が入ったセルだけをｍ個 選んで加えるＶＢＡをうちたいんですが、上手くいきません。 for a = 1 to 100 m = cells(3 , 3) b = cells(1 + k + a , 1 ) k = 1 s=1 do while s =< m if b <>"#na n/a" then b = b + cells(1 + k + a + s , 1) k = k + 1 s = s + 1 else k = k + 1 loop next いまこんな感じで打ってるのですが、 if b <>"#na n/a" then のところで止まってしまいます。 どこがおかしいのでしょうか？ また、もっといい方法はありますか？ 873 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:21:29 ] >>872 「数字が入ってるセル」なら条件をb≧0にすれば？ 874 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:33:33 ] 負の数は数字ではないと？ 875 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:38:47 ] kとsを+1しているがループするたびに初期値が1に戻るぞw あと、b = cells(1 + k + a , 1 )の部分、1回目の処理でkの値が判らない。 876 名前：デフォルトの名無しさん [2008/05/24(土) 23:39:42 ] application.run "abc" msgbox "zzz" abcマクロの完了の後に、ダイヤログボックスにzzzを表示したいのに、 即行でzzzが表示されてしまう。 同期をするようにするには引数か何かを入れるのでしょうか？ 877 名前：デフォルトの名無しさん [2008/05/24(土) 23:40:54 ] >>873 なるほど。そういう方法がありましたか。 ありがとうございます。 >>874 負の数は存在しないデータなので、大丈夫だと思います。 エラーがでた原因がわかる方はいらっしゃりましたら、お答えいただきたいです。 878 名前：875 mailto:sage [2008/05/24(土) 23:42:23 ] ごめん入れ子になってたんだな。最初のforしか見てなかった。 879 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:43:21 ] end ifが無いな 880 名前：872 [2008/05/24(土) 23:43:44 ] >>875 すいません初心者なもので、いまいち意味不明です。 勉強して理解したいとおもうのですが、参考までにどういった 勉強をすればいいか教えてください。 オススメの本、サイト等等・・・ 881 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:46:56 ] >>877 <>"#na n/a" エラー値でなければ って条件と思っているのであれば間違い。 エラー値かどうかを調べたいのならiserrorを使う 882 名前：872 [2008/05/24(土) 23:47:24 ] for a = 1 to 100 　 m = cells(3 , 3) 　b = cells(1 + k + a , 1 ) 　 k = 1 　s=1 　 　do while s =< m 　 　 if b > 0 then 　 　 　b = b + cells(1 + k + a + s , 1) 　 　 　k = k + 1 　 　 　 s = s + 1 　 　 else 　 　 　k = k + 1 　 　 end if 　 　 loop next これで大丈夫でしょうか？ 883 名前：デフォルトの名無しさん [2008/05/24(土) 23:48:51 ] >>881 そういうことでしたか。 iserrorという存在を知りませんでした。 勉強不足でした。 ありがとうございます。 884 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 23:53:46 ] > if b <>"#na n/a" then これエラーなんか出ないよ 意図したとおりには動かないかもしれないけど 885 名前：デフォルトの名無しさん [2008/05/24(土) 23:57:29 ] 根本的な間違いがあった for a = 1 to 100 　 m = cells(3 , 3) 　b = cells(1 + k + a , 1 ) 　 k = 1 　s=1 　 　do while s =< m 　 　 if cells(1+k+a+s-1 > 0 then 　 　 　b = b + cells(1 + k + a + s , 1) 　 　 　k = k + 1 　 　 　 s = s + 1 　 　 else 　 　 　k = k + 1 　 　 end if 　 　 loop next すいませんでした。 886 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 00:18:54 ] まあなんだ ちょっと落ち着け 887 名前：デフォルトの名無しさん [2008/05/25(日) 12:04:28 ] シートコピーで悩み事があるので打開策を見つけられたらと思い書きこまさせていただきました。 どなたかお助けいただけたらうれしいです。 VBAにてシートコピーに要する時間が長くて（１０分以上）悩んでおります。 Bookの構成といたしまして標準モジュールに数式文字列を評価するものを かいてあります。 Function Eval(ByVal expr As String) Eval = Evaluate(expr) End Function ・Sheet1には、様々な経理データを入れるようにしてあります。 そこに入れた値などを元にセル名を作るように書いてあります。 例）A1に”1”という値でB1に”2”という値が入っていればA2のセル名を”12” とします。 ・Sheet2には予めセルに=eval(12)の様な数式をいれ評価をしております。 これが１枚のシートに2000くらい数式が入っています。 Sheet1、2ともに特定条件のとき複製を何枚か作ります。 このときすごく時間がかかります。 原因は数式が大量にあるものをコピーすること及びセルに名前をふっているのが原因なのは分かりますが コピー以外の動作が非常に快調なので変えたくないということとたぶんeval以外での解決策を模索するのはかなり時間を要しそうなのでコピーを何とかする方を選びたいです。 もちろん再計算の停止などはしてあります。 事前に特定条件を作りだしシートを非表示にしておき特定条件のときに表示させるのも 一つの手ではありますが何百枚もシートを隠しておくとファイルサイズがばかでかくなるという 難点もあって躊躇しています。 例えば=eval(@@@@@@)を多く入れたのが原因であれば標準モジュールを何らかの形でいったん無効にすれば早くなるのかとかスクリプトなどを使って別のブックからシートを移動させるなど・・・・他の代替案はありえないでしょうか？ 何分わかりづらい質問で申し訳ありませんが、ご回答いただければ幸いです。 よろしくお願いします。 888 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 12:11:58 ] まず計測しろよ。んで、遅い原因を特定してから、もっとわかりやすい文章で再質問な。 889 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 12:58:21 ] 自動計算やめてシートコピー 890 名前：876 mailto:sage [2008/05/25(日) 13:03:06 ] >>887 質問する方のレベルのものが下手なレスをつけるのもどうかと思うが、 設問説明に既に回答があるような･･･ 経理処理なのでシート数が大量となるのはある程度やむを得ないでしょうが、 それにしても、１０分というのはかかりすぎというか、長いですね。 １　object.enablecalculation=falseを設定されていると言うことですが、 必要なシート全てにされているかどうか ２　通常、速度を速める常套手段の application.screenupdating=false application.visible=false application.enableevents=false で、どうなるか試してみたらいかがでしょう 私の質問は解決しました。 直列処理のはずが、並行処理になったのかとの疑問からでしたので。 891 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 16:55:25 ] >>887 どこかで見たような質問だな 何でそんなおかしなことするの？ 892 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 16:59:47 ] >>887に回答する人は次を見てからにしてね www.moug.net/faq/viewtopic.php?t=27321 893 名前：釣られてみる mailto:sage [2008/05/25(日) 17:02:02 ] >>887 別にここはブック提示禁止じゃないから晒してみたら? 894 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 17:05:09 ] ' ただの荒らしのコピペじゃないかと疑い始めた 895 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 17:27:39 ] なんだ、二週間前の話じゃねーか。 第三者によるコピペの疑い濃厚だな。 しかし、誰もプロファイリングしろというアドバイスしないって、mougってどんだけ素人集団なんだよ 896 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 17:30:54 ] あー、ひょっとして、シートを一枚sheet.copyで10分かかるってことか？ だったら、プロファイリングも糞も無いな 897 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 18:13:57 ] プロファイリングっていうの初めて聞いたorz 898 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 22:50:47 ] マルチなら放置 荒らしのコピペなら放置 どっちにしても放置だな 899 名前：デフォルトの名無しさん [2008/05/25(日) 23:12:29 ] セルに記載されている文字列を変数名として認識させる方法はありますでしょうか？もしくは無理ですか？ (1,1) に hoge って文字列が入っていて、VBAの記述内に、 cells(1,1).value = 100 　'←これは当然上書きされますが・・・。 のように、変数名として取得して代入が出来たら良いな。と考えております。 なにとぞよろしくお願いします。 900 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 23:16:16 ] aaa(1,2,3) bbb(1,2,3) 2個の同一の配列があるのですが、この二つが同一であるかの判定について質問させてください。 今は配列長を取得して、forで繰り返してaaa(i) = bbb(i) と1要素ずつ判定しているのですが、 もっとシンプルに、行数を少なく判定する方法はありますでしょうか。アドバイスお願いしま！！！ 901 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 23:21:29 ] >>899 hogeをどこにも使ってないじゃないか。 >>900 原理的に全要素を比較するしか判定のしようがないから、今の方法でいいんじゃない？ 902 名前：VBAの初心者 [2008/05/26(月) 01:57:42 ] VBAで配列によって書き込む練習をしているのですが想像力が無くどうやってうまくやればいいのか悩んでます。 どなたかヒントをいただけないでしょうか。 この表のような規則と二つの数式を入れたいのですがどうやったらいいでしょうか？ よろしくおねがいします。 briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcUvZBbBSBm6GmJ2&.dir=/&.dnm=Book1.xls&.src=bc 903 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 02:31:24 ] >>899は>>887のような気がするのは俺だけ？ 馬鹿さ加減が似てるんだが。 904 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 02:38:50 ] 言葉遣いは似てるね、無駄に敬語とか 905 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 06:21:48 ] >>899 Common Language Runtime Library を参照設定して Dim ht As Hashtable Set ht = New Hashtable 詳しい使い方は ttp://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard28.htm 別にScripting.Dictionaryでもいいんだけどね。 文字列と添え字のどちらでも変数にアクセスしたいなら SortedListを使えば可能。 906 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 06:37:27 ] >>900 joinして比較 907 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 07:19:32 ] それやるならデリミタを変数中に絶対出てこない文字にしておけよ 908 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 10:41:35 ] 一応ExcelVBAの質問です プログラム実行中に、ユーザーフォーム上のimageの表示・非表示や、 ラベルのキャプションの変更することは出来ないのでしょうか？ 実行中に内容が変更できるオブジェクトはprogressbarのみですか？ 909 名前：デフォルトの名無しさん [2008/05/26(月) 18:21:24 ] 連投、誠にスマンです VBAで、作業用シートを作成して、ソートとか 色々やった後、用が済んだらシートを削除するようなプログラムを作って いるのですが、 sheets(hoge).delete の後、必ず「データあるけど削除してOK？」っていうダイアログが出てしまいます。 このダイアログに自動的にYesで答えて、プログラムを中断しないように 出来ないでしょうか。 910 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 19:21:36 ] なんちゃらAlear = false 911 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 19:30:16 ] tが抜けてたorz DisplayAlertsでヘルプ嫁 912 名前：デフォルトの名無しさん [2008/05/26(月) 20:19:11 ] >>908 UserForm1.Label1.Caption = "testtest" 表示・非表示なら多分　〜.visible = true とか false とかで逝けるんじゃね？ 913 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 21:08:10 ] >>910 ありがとうございます！ できました。 >>912 プログラムが走っている最中は、フォームの画面更新が 行われないようで、それらが効かんです(T-T 914 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 21:36:25 ] Screenupdating=falseが入っていたら画面の更新はされないが、そういうオチか。 915 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 22:32:05 ] >>913 ループにDoEvents 916 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 22:38:57 ] ちなみに、DisplayAlertsもScreenupdatingもマクロの最後でちゃんとTrueに戻すのが基本だからな 917 名前：デフォルトの名無しさん [2008/05/26(月) 23:43:01 ] 質問失礼します。 新しいシートを作成→そのシートにスクリプトやイベントを埋め込む を自動でやるにはどうしたらよいですか？ もちろん埋め込みたいスクリプト等は事前に作成しておくものとします。 どうすれば、それを新しいシートに埋め込む操作ができますか？ お手数をおかけします。よろしくお願いいたします。 918 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 00:04:19 ] 1. そのシートにスクリプトやイベントを埋め込まなくてもいいような設計にする 　Workbookオブジェクトにどんなイベントがあるか調べてそれをググれ 2. 今は亡き、石井勝氏のありがたいページを熟読する（合掌） 　ttp://www.morijp.com/masarl/homepage3.nifty.com/masarl/article/excel-decorator.html 3. ここまでで大抵の問題は解決するはずだが、それでも足りない場合は、動的にコードを追加しろ 　vbcomponetでググれ 919 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 00:08:53 ] ちなみに3を推奨しないのは、それを実行するPCグローバルなExcelの設定を変更する必要があるから。 マクロの信頼性とは別に、「Visual Basicプロジェクトへのアクセスを信頼する」という設定をしなければならない。 920 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 00:37:37 ] >>917 ・Class1を作って、Public WithEvents sh As WorkSheetを追加 ・ThisWorkBookのモジュールに、Dim o As Class1を追加 ・ThisWorkBookのWorkbook_SheetActivateで、 　・Set o = New Class1 　・Set o.sh = sh ・Class1のsh_SelectionChangeで、 　・MsgBox Target.Parent.Name & "!" & Target.Address 似たような感じで、各シートのモジュールにコードを追加することなく、イベントハンドらを 実装できる。あとは、Class1のo.shやら、ActiveSheetやらで、各シートのモジュール外に コードを実装しろ。シートごとに違う処理をする場合は、sh.Nameとかで振り分けろ。 921 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 00:59:11 ] >>917 新規に埋め込まなくても、雛形シートをコピーした新しいブックを作って解決 922 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 01:23:29 ] チンコが大きくなるマクロを作ったはいいんですが、どうやって呼び出したらいいんですか？ 923 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 01:26:59 ] >>922 ああ、それさっきコンパイルしたら「オブジェクトが小さすぎます」ってコンパイルエラー出たよ 924 名前：デフォルトの名無しさん [2008/05/27(火) 08:15:42 ] 連続質問になってすんません…セル名が変わらんくて困っとります。原因がさっぱりどす…If Worksheet("Sheet1").Range("A1").value = 1 Then For i =1 to 20 Worksheet("Sheet1").cells(1,i).name = "mid"&cells("B",i).value Next i End if Next 925 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 09:05:37 ] 何をやってるのかさっぱりどす Worksheet("Sheet1").cells(1,i).Name.Name 926 名前：913 [2008/05/27(火) 09:18:33 ] >>914-916 ありがとうございます。 Do Events を試して見ます！ 927 名前：デフォルトの名無しさん [2008/05/27(火) 10:09:15 ] A1の"セル名"を変えるには、range("A1").value = "ほげ" どすえ。 928 名前：デフォルトの名無しさん [2008/05/27(火) 11:04:14 ] Excel一般の質問ではないのですが、ExcelVBAのリストボックスの 中身の上下スクロールをマウスのホイールに連動させることは 出来ないのでしょうか？ ググってみたのですが、分かりませんでした。 929 名前：917 [2008/05/27(火) 15:59:44 ] >>918-921 ありがとうございます！勉強になりました。 とりあえず一番簡単な921さんの方法を試してみますね。 930 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 16:02:04 ] ネタでも「変わらんくて」と言う奴が死ぬほど嫌いだから絶対教えない。 ら抜き言葉でもブチ切れそうなのにさぁ、どうしてわざわざ”な”を”ん”に 置き換えるんだよ最近のゆとりどもは。書いてて違和感ねーのか糞が。

---

---

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

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