http://w.atwiki.jp/excelvba/ excelvba @ ウィキ ja 2011-04-18T17:42:40+09:00 1303116160 https://w.atwiki.jp/excelvba/pages/18.html 10 ：デフォルトの名無しさん：2011/02/23(水) 17:45:59.06 ttp://www.excellenceweb.net/vba/class/class_method.html このページの下の方の例文(足し算を行い、合計と平均を返すクラスの運用 その２)で SATOU、SUZUKI、TAKAHASHI等の変数が20個も200個もある場合 整理されて、後で改造もしやすくするにはどうすればいいですか Dim humans As Variant humans = Array(, "SATOU", "SUZUKI", "TAKAHASHI", ・・・・・・・・ とかしてループして各メソッドを呼ぶんですかね 11 ：デフォルトの名無しさん：2011/02/23(水) 18:21:24.52 >>10 俺だったら配列で引き渡すわ それが個人的には1番楽だし改修も引数だけでいいしね あと、Variantは関係ない 12 ：デフォルトの名無しさん：2011/02/23(水) 20:53:31.46 WinXP sp3 Excel 2003 1024列×768行の数値が書かれたCSVファイルをラインモードで読み込み、平均した後、 256列768行にして数値を入力するような命令を実行しています。 この数値の中で、ある値以下の平均を取っていき、その変動が最小になる値を求めたいです。 （10以下平均-9以下平均）、（11以下平均-10以下平均),,,,(30以下平均-29以下平均) Averageifがないので、SUMIF()/COUNTIF()のように計算させ、Do loop等で 順番に計算させようとしたところフリーズしてまともに計算できません。 そこであらかじめシートの方に、A列にSUMIF/COUNTIFを入力し、 B列にA3-A2のように入力し、B列が最小になる行のA列の値を取得しようと思います。 どのようにしたらよいでしょうか。またほかに何かよい方法はないでしょうか。 13 ：デフォルトの名無しさん：2011/02/23(水) 21:18:54.63 >12 パフォーマンスを求めるならExcel/VBAじゃなくて.NETなり 数学 2011-04-18T17:42:40+09:00 1303116160 https://w.atwiki.jp/excelvba/pages/17.html 27 ：デフォルトの名無しさん：2011/02/24(木) 15:27:19.57 【コラム】あまりに便利すぎた・・・Excel VBAの「行き詰まり」問題〔07/02〕 http://pc11.2ch.net/test/read.cgi/pcnews/1246498806/ 検索してたらこんな切ないｽﾚがあったんだけど、今からExcelマクロ勉強するのって無駄？ まあ、ちょっと頑張って正規表現と両方憶えれば万能なんだけれども・・・ 28 ：デフォルトの名無しさん：2011/02/24(木) 17:07:59.98 無駄ってことも無いとは思うが、昔納品した客から Excelのバージョンアップしたら色々問題が出て VBA使うPCのExcelを前のバージョンにしたと聞いた 29 ：デフォルトの名無しさん：2011/02/24(木) 18:28:27.62 >>27 このスレを見てればわかるとおり、VBAのエキスパートになる必要はないけど Excelを使うならVBAは知ってた方が捗る 30 ：デフォルトの名無しさん：2011/02/24(木) 18:37:52.75 このスレを見てればわかるんですか？ 31 ：デフォルトの名無しさん：2011/02/24(木) 19:41:43.64 VBAのエキスパートにならなくても ここで質問すれば解決って意味でしょ 71 ：デフォルトの名無しさん：2011/03/01(火) 10:29:40.84 問題で月別売上集計のマクロを作成しないといけないのですがわからないのでどなたかおしえてください！ 例えばセルB2からセルB299までに１年分の日付がランダムで入力されてるとします。 で、セルK２からセルK299に金額がランダムで入力されています。 マクロを使って月別の売上を出すにはどのようにしたらよろしいですか？ 説明が下手で申し訳ないです 72 ：デフォルトの名無しさん：2011/03/01(火) 10:56:03.69 VBA使わずDSumでいけるという話だが あえてなおVBAならWorksheetfunction.DSum 73 ：デフォルトの名無しさん：2011/03/ 2011-04-18T17:40:13+09:00 1303116013 https://w.atwiki.jp/excelvba/pages/16.html 4 ：デフォルトの名無しさん：2011/02/21(月) 20:01:09.42 2つユーザーフォームについて質問です 一つはユーザーフォームを多重で起動することは可能でしょうか？ userform1.show userform2.show 二つ続けても消さないと次が出てきません。 二つ目はユーザーフォームの番号を変数で表示することは可能でしょうか？ UserForm(i).Show　こんな感じに、でもこれだとエラーでてしまいます。 5 ：デフォルトの名無しさん：2011/02/22(火) 10:35:10.58 >>4 まず最初の質問は userform1.show False とすると多重で表示できます。 これをすると、シートのデータがいじれるので 場合によっては危険です。 2番目の質問は、下のコードを見て色々試してみてください。 （UserFormsとUserFormの違いに注意） Load UserForm1 MsgBox ("UserForm1 を読み込みました。表示はまだです。") Load UserForm2 MsgBox ("UserForm2 を読み込みました。表示はまだです。") UserForms(0).Show False MsgBox ("最初に読み込んだUserFormオブジェクトを表示しました") UserForms(1).Show False MsgBox ("2番目に読み込んだUserFormオブジェクトを表示しました") 7 ：デフォルトの名無しさん：2011/02/22(火) 17:13:53.07 >>5 できました。 丁寧にありがとうございました。 114 ：デフォルトの名無しさん：2011/03/03(木) 22:58:30.23 グラフに誤差範囲をVBAでつける事って可能ですか？ ユーザー設定でマスを指定したいです。 可能ならばやり方をお教えください。 windows7 SP1でExcel2007です。 115 ：デフォルトの名無しさん：2011/03/04(金) 00:59:02.91 http://detail. 2011-04-18T17:39:46+09:00 1303115986 https://w.atwiki.jp/excelvba/pages/15.html 6 ：デフォルトの名無しさん：2011/02/22(火) 10:40:12.18 表示形式が、文字列（Ａ）、数値（Ｂ）、日付（Ｃ）の値のみを消去する場合 １）Range("A1:C50").value = "" ２）Range("A1:C50").ClearContents 　 上記１，２、どちらでもＯＫか？ 　 8 ：デフォルトの名無しさん：2011/02/23(水) 07:14:27.98 >>6 jsk駄目だろ？ 例えば後ろにデータがないときMsgBox Range("A1000").End(xlUp).Addressってやってみなよ。 9 ：6：2011/02/23(水) 13:40:24.46 >>8 確認した。ありがと。 　 220 ：デフォルトの名無しさん：2011/03/19(土) 12:20:02.65 VBAでADOを使ってデータをCSVから読み込む時、 金額列が一行目に5000、100行目に99999999999 という感じであるとRecordSetがintegerとして型を扱うのか、 100行目のデータがnullになってしまいます。 RecordSetの型認識を明示的に行う方法ってあるでしょうか。 order by 金額　descとすればいけるかと思いましたが、 金額列が複数あるので、その方法では解決しなさそうです。 221 ：デフォルトの名無しさん：2011/03/19(土) 12:41:47.61 いっそのこと、Getstringメソッドで文字列として読み込んで後で数値に変換するとか 222 ：デフォルトの名無しさん：2011/03/19(土) 13:18:54.47 2147483647 99999999999 vbaのlong型だと、何があっても不思議じゃない数字だね。 223 ：デフォルトの名無しさん：2011/03/19(土) 14:10:12.68 >>220 せめてプロパイダ何使ったかぐらい書け Jetならschema.ini書けば行けるんじゃなかろうか 225 ：デフォルトの名無しさん：2011/03/19(土) 23:58:51.18 私はV 2011-04-18T17:38:59+09:00 1303115939 https://w.atwiki.jp/excelvba/pages/14.html 48 ：デフォルトの名無しさん：2011/02/26(土) 14:43:42.65 GetAsyncKeyStateで何かボタンが押された処理はどうするのでしょうか Cでいうwaitkeyです Do If GetAsyncKeyState Then Exit Do Loop したいのはこういう感じです 49 ：デフォルトの名無しさん：2011/02/26(土) 15:01:05.26 >>48 ここに書くより検索した方が早い気がする vba GetAsyncKeyState　で検索 キーボードからの入力を判定する ttp://www.happy2-island.com/excelsmile/smile04/capter00301.shtml 50 ：デフォルトの名無しさん：2011/02/26(土) 15:19:28.38 言い忘れていました 引数を指定せずに何でもいいのです 51 ：デフォルトの名無しさん：2011/02/26(土) 17:45:12.39 >>50 >>49を参考に出来ると思うのだが？ GetAsyncKeyState　は、256 とおりの仮想キーコードのいずれかを指定することで そのキーが押されたかどうか調べるわけだから、マウスボタン等の不要なキー以外の いずれかが押されれば、Loopを抜ければいいんじゃないの？ まあ、Escキーを押されたらというのは工夫がいるかもだけど 52 ：デフォルトの名無しさん：2011/02/26(土) 19:12:23.20 まあ、最終的に何をやりたいかが判らないけど UserFormのKeyDownイベントで拾うという方法も考慮してもよいかもね 2011-04-18T17:38:33+09:00 1303115913 https://w.atwiki.jp/excelvba/pages/13.html ・Excel VBA 質問スレ Part18　のログまとめ 適当にまとめた。 [[コーディング]]は質疑とtipsに分けるべきかも試練 [[コーディング]] - コード全般 [[ブック操作]]　 - ブックの操作 [[オブジェクト]] - オブジェクトの操作 [[イベント]]　　 - イベントとか [[その他]]　　　 - 雑談馴れ合い罵り合いとvba以外 ---- カウンター 今日　&counter(today) 昨日　&counter(yesterday) 合計　&counter() ---- #comment(below) ---- 2011-04-18T17:37:24+09:00 1303115844 https://w.atwiki.jp/excelvba/pages/12.html * 人気商品一覧 @wikiのwikiモードでは #price_list(カテゴリ名) と入力することで、あるカテゴリの売れ筋商品のリストを表示することができます。 カテゴリには以下のキーワードがご利用できます。 |キーワード|表示される内容| |ps3|PlayStation3| |ps2|PlayStation3| |psp|PSP| |wii|Wii| |xbox|XBOX| |nds|Nintendo DS| |desctop-pc|デスクトップパソコン| |note-pc|ノートパソコン| |mp3player|デジタルオーディオプレイヤー| |kaden|家電| |aircon|エアコン| |camera|カメラ| |game-toy|ゲーム・おもちゃ全般| |all|指定無し| 空白の場合はランダムな商品が表示されます。 ※このプラグインは[[価格比較サイト@PRICE>>http://atprice.jp]]のデータを利用しています。 ----- たとえば、 #price_list(game-toy) と入力すると以下のように表示されます。 ゲーム・おもちゃ全般の売れ筋商品 #price_list(game-toy) ノートパソコンの売れ筋商品 #price_list(game-toy) 人気商品リスト #price_list() 2011-04-18T17:21:32+09:00 1303114892 https://w.atwiki.jp/excelvba/pages/11.html * コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。 詳しくはこちらをご覧ください。 ＝＞http://atwiki.jp/guide/17_60_ja.html ----- たとえば、#comment() と入力すると以下のように表示されます。 #comment 2011-04-18T17:21:32+09:00 1303114892 https://w.atwiki.jp/excelvba/pages/10.html * 関連ブログ @wikiのwikiモードでは #bf(興味のある単語) と入力することで、あるキーワードに関連するブログ一覧を表示することができます 詳しくはこちらをご覧ください。 ＝＞http://atwiki.jp/guide/17_161_ja.html ----- たとえば、#bf(ゲーム)と入力すると以下のように表示されます。 #bf(ゲーム) 2011-04-18T17:21:32+09:00 1303114892 https://w.atwiki.jp/excelvba/pages/9.html @wikiにはいくつかの便利なプラグインがあります。 ----- #ls ----- これ以外のプラグインについては@wikiガイドをご覧ください =>http://atwiki.jp/guide/ 2011-04-18T17:21:32+09:00 1303114892