Excel VBA質問スレ Part9

1 名前：デフォルトの名無しさん mailto:sage [2008/12/04(木) 15:42:51 ] ExcelのVBAに関する質問スレです 前スレ pc11.2ch.net/test/read.cgi/tech/1219673793/ ★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 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 403 名前：デフォルトの名無しさん mailto:sage [2009/01/06(火) 10:59:47 ] 相変わらずの人がいるなｗ 404 名前：デフォルトの名無しさん mailto:sage [2009/01/06(火) 11:20:39 ] >>402 ループのお勉強なら基本的には配列の勉強かな？ データ範囲を２次元配列に取得して回すとか、AddItemは遅いから1次元配列にため込んでListプロパティで設定するとか。 WorksheetFunction.FindじゃなくInStr使うとか。 たしかExcel2000以降ならFilter関数が簡単。 WorksheetFunction.Transpose(範囲)で1次元配列を取得して、Filter関数にかけてからListプロパティで設定。 405 名前：デフォルトの名無しさん mailto:sage [2009/01/06(火) 16:29:31 ] イベント処理だし元の質問からも判断してわざわざExitで抜けるようなコードは必要ないと思う。 条件に「合う」場合だけ判定して処理するように書くのが普通だね。 定番はIfだけど質問者のレベルから考えてコンマ何秒の速度差を考える必要はないと思うし 見た目のわかりやすさと保守のしやすさからCaseをすすめとく。 条件が増えたときに簡単に数字が追加できるから。 406 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 01:50:36 ] 2008年1月2日を08.01.02と表記してるセルを計算に使う方法ってありますか？ 08.01.02と表記されたセルから08.01.01と表記されたセルを引くと1という答えが算出される処理を作りたいです。 407 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 03:34:54 ] >>406 セルの表示形式で「yy.mm.dd」 408 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 05:57:34 ] >>405 俺は誰かみたいに「何、今更？」なんて言わんが、そのような条件が三つ以上でIfステートメントでOr判定するくらいなら Select Caseステートメントの方が速いし分かりやすいし定番だと思うよ。 あと知らなくていいことだが、Select CaseステートメントでCase Elseとか、If ThenステートメントでElseとかは 何もそこで処理しなくても書いた方が速くなるね。 まぁ俺は書かないけど。 409 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 06:18:38 ] >>406 数式でよけれべ普通に=A1-B1なんてやりゃできる。 もし表示形式が日付形式になるようなら、G/標準とか0にすりゃいい。 2007では計算元の表示形式が日付でも普通に1になるが、たしか2003では数式セルは日付にならなかったっけ？ 計算元の表示形式が文字列で、VBAでやりたいのなら MsgBox CDate(Cells(1,1).Value)-CDate(Cells(1,2).Value) MsgBox DateValue(Cells(1,1).Value)-DateValue(Cells(1,2).Value) などとやりゃできないか？ 410 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 07:26:12 ] if not hoge is nothing then って構文が気持ち悪いんですけど、何か代替えはありませんか？ 411 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 07:53:25 ] そんなこといったらVBAなんて気持ち悪い構文だらけですが何か？ 412 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 08:23:23 ] 「代替え」なんて変な言葉を使う人に言われたくありません。 もしかして、「代替」を「だいがえ」って読んじゃう頭の弱い人やそれらに無意識に迎合しちゃう人ですか? 413 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 08:34:53 ] >>410 If ObjPtr(hoge) <> 0 thenでよくね？ 俺はこんなことしないけどね。 414 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 10:38:45 ] それならもっとシンプルにできる If ObjPtr(hoge) Then こういう書き方を知らないと意味がわからなくなるけど 415 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 12:12:25 ] >>412 ttp://dictionary.goo.ne.jp/search.php?kind=jn&MT=%C2%E5%C2%D8%A4%A8 416 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 12:25:38 ] not 〜 nothingは俺も気持ち悪いと思う 直訳すると「ないアルよ」みたいな回りくどい二重否定の表現って 英語だと普通に出てくるから設計者は何の疑問も持たなかったんだろうなあ 俺もまだVBAを勉強中だから知らないだけかもしれないけど、 インスタンス化されてることを、いちいち論理を反転しなくても直接判定できるような 構文か関数ってないの？自分で作るしかない？ 417 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 16:19:22 ] 別にこの仕様でおかしくもないと思うけどねぇ そもそもがNothingのときに何かをするってことの方が多いんだからさ 有ることと無いこと、両方とも否定文を使わずに判定出来るのが一番かもしれないが どちらかのみと言うなら、無いことを判定する方法を用意すべきだろ 418 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 17:08:30 ] if hoge is not nothingと書けるのが一番良い 419 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 17:21:50 ] 余計変だw 420 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 18:39:23 ] >>415 変な言葉が定着しつつあることはその引用で判るが、それで何が言いたいの? # 頭使うことを知らない人は、自分で考えることを放棄するから困る。 421 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 18:42:58 ] いっそのこと If hoge = Nothing If hoge <> Nothing でいいじゃん。 なんだよ突然Isって。わざわざ演算子を使い分ける妙なこだわりが理解できん。桂正和マニアかよ。 422 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:10:25 ] 代替〜(ダイタイ〜) の同音異義語が有る場合などに 代替え〜(ダイガエ〜) と重箱読み使うのは昔からあること 変な言葉でもなければ、最近になって定着しつつあるのではなく以前からあったもの 件の場合は重箱読み使うのが適切と言える状況ではないが、誤用や間違いではない "代替"の意味で"代変え"を使っているなら完全な誤用だけどね そもそも、言葉というのは変化していくもの 最近になって定着しつつあるのだとしても、それを頭ごなしに否定するのは愚かしい 頭使うことを知らない人は、誤用と変化の違いを見極めることなく 自分の中の古い知識だけで物事を断定しがちだが、もっと柔軟な頭と広い視野を持たないと困るよ 423 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:32:33 ] AndAlsoやOrElseってVBAには無いんだったっけ？ 424 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:50:59 ] >>412 いや、”だいがえ”が正しいんじゃないかな。 もしかして”だいがい”って呼んでるの？ 425 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:54:09 ] CやJavaが長年培ってきた洗練された構文をかなぐり捨ててVBはいったいなにがしたかったのだろう。 なぜ}のかわりにEndと入力しないといけないのか理解に苦しむ。 見やすくない上に３文字も打たないといけない。ばっかじゃないか？ 426 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:55:49 ] 馬鹿発見。「だいたい」と読むのだよ。つーか、>422に書いてあるだろ。 427 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:56:12 ] いやいや、オリジナルのBASICはCより古いぞ。 その古臭い構文をVBも引きずっているというだけ。 だからこそBasicを名乗っているわけだが。 428 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 19:56:28 ] >>425 CやJavaとbasicはどっちが古いと思っているのかね。 429 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:00:04 ] オリジナルのベーシックと今のVBはかなり違うじゃん。 古いベーシックから新しいVBになるにあたって CやJavaで解決されている構文を見習えばよかったのだ。 430 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:00:56 ] C#でも使ってろ。 431 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:05:32 ] >>430 エクセルのマクロでC#って使えるの？ 432 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:06:30 ] それよりなんでキーワードの先頭は大文字なんだろう 目がチカチカする 小文字ならまだメリハリが出て読みやすいと思う 433 名前：デフォルトの名無しさん [2009/01/07(水) 20:12:55 ] エクセルのセルに入っている文字列の特定の文字の上にオートシェイプを置きたいって質問した人です。 質問させてください。 エクセルの現在のフォントでの文字列の幅を取得するには、 １．HWNDをNULLでデバイスコンテキストを取得する。 ２．コンパチブルなDCをつくり、フォントをエクセルのフォントと同じものをセレクト。 ３．GetTextExtentPoint32を呼び出して論理単位で文字列幅を得る。 ４．（モードがMM_TEXTだと仮定して）ピクセルなので、ポイントに変換する。 　　（DPIはGetDeviceCapで取得） ５．エクセルのシートのズームが80%なら0.8をかける であっていますか？ 434 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:22:18 ] >>429 VBが登場した頃は、まだパソコン用の高級言語の人気が CとPascal（これはBegin〜Endって書く言語）で2分していて、 C系の構文が良いという評価が固まっていなかったのだと思う。 >>432 VB登場の少し時代は全部大文字だったから、そこからは進歩したと言えると思う。 435 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:27:07 ] 変わったと言うより大幅に拡張されてるね。 根っこの部分はN-BASICの時代から変わってないから 昔覚えた変なテクニックが意外とそのまま使えたりするんだよな。 このあたりN-BASICやN88-BASICの記憶がないとなかなか同意してもらえないと思う。 例えばこんなNextの書き方、VBから始めた人は知らないんじゃないかな。 For i = 1 To 10 For j = 1 To 10 　　(処理) Next j, i 436 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:31:28 ] >>435 あったなぁ・・ そうだ、For文みて思い出したけど、VBは１からカウントするのが好きくね？ 配列とか。あれキモイ。 まともな人間なら数字は０からカウントするものだ。 という言葉を思い出した。 437 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:36:44 ] fortranなんかは1からだろ 数学も1から C系で0ベースなのはメモリの配置とか低レベルな理由 438 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:38:03 ] >>436 配列はN-BASICもVBも0からだろ。 439 名前：433 mailto:sage [2009/01/07(水) 20:39:17 ] あのー。少しは私のことも思い出してあげてください。。(^^;) 440 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:40:30 ] >>439 修飾(ボールドとかイタリックとか)も考慮しないとずれるよ 441 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 20:43:21 ] >>440 嗚呼〜。ほんとだ。そうですよね。。 あ、433のやり方で大筋はOKで、かつ、ボールドも考慮みたいな感じでしょうか？ 442 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:25:06 ] >>407>>409 表示形式色々変えたんですけど、 Msgboxで表示しても0だし、EXCELのセル上に表記しても＃VALUEになります。 なんでなのでしょう。 EXCELのバージョンは2000です。 443 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:27:33 ] >>441 細かいことを言えば、Excelは同じセル内でも1文字ごとにフォントを変更できる。 すべてに対応するのはけっこうめんどくさそう。 444 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:28:40 ] >>442 元の日付けデータがシリアル値になってないんでねーの？ 445 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:31:48 ] >>443 そういやそうですね。ちょっとそこらへんも含めて作ってみます。 446 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:50:11 ] VBAっていつ無くなるんだっけ？次のバージョンから？ 447 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 21:55:32 ] >>444 そもそも08.02.01のような表記をシリアル値にする方法がわからないのですが。 =DATEVALUE("08.02.01") みたいに表記してもVALUEになるだけですし。 448 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 22:01:53 ] >>447 VBA関係ないよな =DATEVALUE(SUBSTITUTE("08.02.01",".","/")) 次に何かわからないことがあったら総合相談所行ったら？ 449 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 22:03:37 ] >>446 Mac版の2008ではなくなったけど、その次でまた復活する予定。 Win版はなくならない。 450 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 22:18:53 ] >>449 サンクス 本職はＣ＋＋だけどＶＢＡ使えると経理の女の子から結構重宝されるので助かる 451 名前：デフォルトの名無しさん mailto:sage [2009/01/07(水) 23:29:12 ] てか、事務職でVBAって何に使うんだよｗ 452 名前：デフォルトの名無しさん [2009/01/07(水) 23:49:34 ] １行目が項目名で、２行目から２０１行目までデータが入っています。 オートフィルター後のＡ列のデータを取得したい。 どんなマクロになりますか？ 453 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:20:50 ] うぇー　Workbook.Save False すると Wrokbook_Before_Close動かん 454 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:29:40 ] >>452 オートフィルタの実行はAutoFilterメソッド 結果を配列として取り出すのはCurrentRegion.SpecialCellsメソッド >>451 単純作業をVBAで自動化してやるとけっこう喜ばれるよ 毎日在庫を確認して発注伝票を印刷してFaxで送信するとか 中小だとアバウトな部分が多くて完全な自動化は難しいから できるところだけやる 455 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:35:23 ] >>451 どんだけ想像力ねぇの？ 456 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:35:29 ] 下記のような感じで、セルに他のセルを参照した値を入力したいのですが、 下記の入力方法だと、絶対参照になってしまいます。 相対参照にする指定方法をご存じないでしょうか？ Cells(i + 1, 9).Value = "=" & Cells(i, 9).Address & "+" & Cells(i + 1, 6).Address 457 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:43:52 ] >>451 Officeって言うくらいだから・・・ 458 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 00:53:51 ] >>456 Cells(i, 9).Address(False, False) 459 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 01:14:30 ] OS:WinXP Ver:Office2000 以下のマクロが意図したとおりに動きません。 aの値によってaddstに入力した値に異なる係数をかけた値を作りたいのですが、 係数をかけたはずのaddをセルに入力してみるとゼロになっています。 参考文献にはCaseの後はコンマで区切って複数条件を入れれるとありますが、 それはできないのでしょうか。。 なおプログラム自体は上記係数を無視する他は問題なく動いています。 Dim a As Integer （中略：aはFor構文で1から18まで増える) Dim addstd As Double Dim add As Double addstd = 0.3 Select Case a Case 3, 4, 8, 11, 13, 18 add = addstd Range("A5").Value = add Case 2, 6, 7, 10, 15, 17 add = addstd / 2 Range("A5").Value = add Case 1, 5, 9, 12, 14, 16 add = addstd / 3 Range("A5").Value = add End Select 460 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 01:22:28 ] >>458 ありがとう 461 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 01:49:40 ] >>459 表示形式 462 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 02:57:09 ] ウォッチやDebug.Printで値を見るくらいは自分でやれよ ほんと、VBA使いって問題起こるとそこで思考停止してしまい 試行錯誤することが出来ない奴が多いよな エラー出たらそこで終わりってなら機械と同じだぜ 処理速度では機械に敵わないんだから機械以下とも言える 463 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 06:24:19 ] 多いって何人だよ 464 名前：459 mailto:sage [2009/01/08(木) 08:48:02 ] ありがとうございます。ググってみました。 もしかすると、これに近い問題でしょうか。 questionbox.jp.msn.com/qa2390763.html また、デバッグ方法もありがとうございました。 VBAというか、プログラミング的なものを初めて2日目なもので、まだよく使い方がわかっていませんでした。 今から会社に行っていろいろ試してみようと思います！ 465 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 09:05:06 ] >>459 計算自体はできてるようなので 書式設定の少数点以下の桁数が0になってるんじゃ？ 466 名前：デフォルトの名無しさん [2009/01/08(木) 09:52:07 ] 非アクティブシートの選択セルを操作する事は可能ですか？ 467 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 10:48:21 ] 無理 468 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 15:28:00 ] VBAを作成してもらいたいのですが もし作成していただけるようでしたらメールをお願いします。 1つの縦列から文字や数字を抽出し、横行書き出す作業を繰り返すマクロの作成をお願いしたいです。 469 名前：468 mailto:s.rika1990@gmail.com [2009/01/08(木) 15:30:04 ] メール入力し忘れてました(´Ａ｀) 470 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 19:05:09 ] 幾ら出すの？ 471 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 19:42:27 ] カラダで良かったら... 472 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 20:41:14 ] >>468 形式を選択して貼り付け→行列を入れ換える 473 名前：デフォルトの名無しさん mailto:sage [2009/01/08(木) 23:45:40 ] EXCELのWebブラウザでプレビューの機能を使って作ったブラウザをVBAで閉じるにはどうしたらいいんですか？ 474 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 00:43:19 ] Webbrowser.Fuck 475 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 00:44:26 ] OS：XP Version：2003 取得したデータをセルに表示させる処理を作ったのですが 少し処理速度が遅いので、配列を使って処理しようと思っています。 その際、特定データに対してセルの色付けを行っているのですが 配列を使って最後にRangeオブジェクトで貼り付ける場合、どのタイミングで セルに色付けするのがいいんでしょうか？ 配列に入れる処理中に色付けをするぐらいしか思い浮かばないのですが どなたか知恵を貸して下さい 476 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 00:50:04 ] > 配列に入れる処理中に色付けをする それでいいじゃん、何か問題有るの？ 477 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 03:10:36 ] >>473 穴だらけのコードだけど、とりあえず… 環境依存かもしれない Option Explicit Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Const GW_HWNDLAST = 1 Public Const GW_HWNDNEXT = 2 Public Const WM_CLOSE = &H10 Public Const ml = 255 Dim wh1 As Long ' コールバック関数 Public Function EnumWindowsProc(ByVal Handle As Long, ByVal lParam As Object) As Long 　　Dim strClassName As String * ml 　　Dim strCaption As String * ml 　　GetClassName Handle, strClassName, ml　　' クラス名取得 　　GetWindowText Handle, strCaption, ml　　　 ' キャプション取得 　　If Left(strClassName, 7) = "IEFrame" And Mid(strCaption, 4, 22) = "Documents and Settings" Then wh1 = Handle 　　EnumWindowsProc = True End Function Private Sub test1()　'「ブラウザでプレビュー」を閉じる 　　wh1 = 0 　　Dim Ret As Long 　　Ret = EnumWindows(AddressOf EnumWindowsProc, ByVal 0&) 　　If wh1 <> 0 Then Call PostMessage(wh1, WM_CLOSE, 0, 0) End Sub 478 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 09:28:53 ] >>475 とりあえず大雑把なアドバイスをしておく できる限りセルへのアクセスを減らす 決まった色の取得にRGBを何度も呼ばない 定数を使うか初期化の段階でLong型の変数に入れておいてそれを使う 的外れなアドバイスだったらスマソ 具体的にどんな処理をしてるのか分かればもう少し細かく何か言えるかも知れん 479 名前：デフォルトの名無しさん [2009/01/09(金) 16:28:17 ] 名前の定義のリストをシートに作成し、それを変更して一気に登録しています。 そこで困った事が発生しました。 シート名がS1とかだと名前の前後にシングルコーテーションが付きますね。 セルから取り出した値は先頭の1文字が外されます。 仕様だとは思いますが、シングルコーテーションも一緒に取り出す方法等が あるのでしょうか？ 480 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 16:45:36 ] >>479 リストを作る時に先頭にシングルコーテーションをもう1つ入れておく もしくはシート名と名前で列を分ける(使う時に編集する) この程度しか思いつかないな・・・ 481 名前：452 [2009/01/09(金) 23:15:14 ] 452 ：デフォルトの名無しさん：2009/01/07(水) 23:49:34 １行目が項目名で、２行目から２０１行目までデータが入っています。 オートフィルター後のＡ列のデータを取得したい。 どんなマクロになりますか？ >454 ：デフォルトの名無しさん：2009/01/08(木) 00:29:40 > >>452 > オートフィルタの実行はAutoFilterメソッド > 結果を配列として取り出すのはCurrentRegion.SpecialCellsメソッド との答えをいただき、 いろいろとやってみるのですが、全くのお手上げ状態です。 フィルター後の上２件分の例示マクロをお願いします。 482 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 23:25:47 ] >>481 もうちょっと質問を具体的に。 (1)フィルターの条件は？ (2)フィルターかけたあとどうしたい？ 483 名前：452 [2009/01/10(土) 00:31:08 ] (1) フィルターの条件はデータが1又は0となっているので、1を該当データとしてかけています。 (2) フィルターをかけた後は可視セルを対象に、「A列の各コード（３桁）を取得したい。」 おおよそ、20〜50件程が該当データになります。 取得した後の配列から、その各要素を取り出すことは自分でできると思います。 随分以前ですがやったことはありますので。 484 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 01:11:17 ] >>483 1か0か判定するだけなら、わざわざオートフィルタ使わなくてもForループで順に見てけばいいんでない？ 要素数も大して多くないんだし。とりあえず… B列が1の物だけをオートフィルタで抽出 Range("A1").AutoFilter Field:=2, Criteria1:="=1" A列の可視セルの内容をすべて書き出す For Each c In Range("A1").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible).Cells 　　Debug.Print c.Value Next 485 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 08:15:13 ] VBAを用いてプリンタに印刷させようと考えています。 それ自体はPrintOutメソッドを使えばできると思っているのですが、その際、プリンタのトレイまで指定することは可能でしょうか。 例えば、このシートを印刷する時はA4のトレイ、このシートを印刷する時は手差しのトレイから、という感じで。 486 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 09:20:27 ] >>485 出来るよ 手動でトレイの選択などが出来る状態なら その辺の制御をするドライバやAPIは入ってるわけだから それをプログラムから叩けば良いだけ でもそれはVBAではなくVBの分野(>>1参照) 印刷対象がExcelのシートだろうと、プリンタのハード的制御はExcel関係ないのでスレ違い 487 名前：452 mailto:sage [2009/01/10(土) 10:10:00 ] >>484 おかげで、所期目的が達成できました。サンクス。 488 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 11:09:59 ] >>485 >それ自体はPrintOutメソッドを使えばできると思っているのですが、・・・ 484氏の回答を得て、機嫌がいいので　(~_~); そうゆう設定は、PrintOutメソッドでは出来ない。 それで、vbaとしての回答は、印刷ダイアログボックスを呼び出して、選択することになる。 Application.Dialogs(xlDialogPrint).Show 但し、excel4マクロ（vbaではない扱いをされている）の世界だとどうだか知らない。 (xpでは見ていないが、97(たぶん?)と)2007ではマクロの記録で、また、 excel4マクロが記述されている。が、これは、触らない方が無難。 489 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 11:17:02 ] xp は2003 の誤記です。 490 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 16:30:56 ] ↓のようなWindowオブジェクトの用途がよくわかりません。 Dim window1 As Window workbookでもなくworksheetでもないんですよね？？ どなたかご教授お願いします。 491 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 16:53:34 ] 用途が判らなければ、使わなければいいのでは? 492 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 17:04:46 ] >>490 大雑把に説明すると、Windowsというのは画面上に表示された状態の物。 ブックやシートは画面に表示されてなくても、例えばHDDに保存されたファイルの中にも存在する。 ブックを開いたらWindowが作られる、みたいに考えておけばいい。 493 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 17:44:48 ] >>492 ありがとう。 自分が作るプログラムには特に必要はなさそうです。 自分のPCでは Set window1 = Workbooks(1)　 でwindow1には”PERSONAL.XLS”が入ります。 勉強になりました。 494 名前：デフォルトの名無しさん [2009/01/11(日) 20:05:41 ] A（伝票番号）B（日付）C（店名）D（金額） となっていて、C列の店名ごとに並べ替えてあります。 C列の店名が変わるごとに列A〜Dに太線を入れたいので以下のようにしました。 Sub test() With Range("C1", Range("B65536").End(xlUp)).Offset(, 250) .Formula = "=IF(C2="""","""",IF(C1<>C2,1,""""))" .Value = .Value On Error Resume Next With Intersect(.SpecialCells(xlCellTypeConstants) _ .EntireRow, Range("A:D")).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThick End With On Error GoTo 0 .ClearContents End With End Sub これだとデータが１件（１行分）しかない場合線が引けません。 データが１件でも区切り線が引かれるようにするには どのようにすれば良いですか？ 495 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 20:24:15 ] >>494 努力だけは認めるが、無駄が多すぎる。 店名が同じかどうか判定するのに、わざわざワークシート関数なんか使わなくてもVBAだけでやればいいだろうに。 Sub test() 　　r = 2 　　While Cells(r, 3) <> "" 　　　　If Cells(r, 3) <> Cells(r - 1, 3) Then 　　　　　　With Range(Cells(r, 1), Cells(r, 4)).Borders(xlEdgeTop) 　　　　　　　　.LineStyle = xlContinuous 　　　　　　　　.Weight = xlThick 　　　　　　End With 　　　　End If 　　　　r = r + 1 　　Wend End Sub 496 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 20:37:40 ] >>495 考えすぎたみたいです。解決しました。 ありがとうございましたm(_ _)m 497 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 20:43:27 ] >>494 オレの知らないテクニック満載で何やってんのか理解できねえ 498 名前：デフォルトの名無しさん mailto:sage [2009/01/11(日) 20:46:09 ] すみませんｗ 499 名前：デフォルトの名無しさん [2009/01/12(月) 07:19:54 ] 2007の質問ですー 図形の操作がらみが「マクロの記録」に残らないんですが 以前のバージョンのように記録させる方法ないでしょうか？ 500 名前：デフォルトの名無しさん mailto:sage [2009/01/12(月) 08:23:04 ] >>499 ない 501 名前：デフォルトの名無しさん [2009/01/12(月) 17:55:50 ] 初歩的な質問で申し訳ありません。教えていただけますでしょうか。 下図�@のように、クラスと番号と氏名が入力されているファイルがあります。 下図�Aのように、クラスと番号のみが入力されているファイルがあります。 クラスと番号の２つをキーに、図�@から�Aに氏名をとってきたいのですが、 どのようにしたら良いでしょうか。 キーが１つであれば、VLOOKUPで出来るのですが、２つになって困っています。 宜しくお願いします。 図�@　　　　　　　　　　　　図�A クラス　番号　氏名　　　　　クラス　番号 １　　　１　　相沢　　　　　　１　　　１ １　　　２　　加藤　　　　　　１　　　２ １　　　３　　佐藤　　　　　　２　　　１ １　　　４　　館山　　　　　　２　　　２ ２　　　１　　安西　　　　　　２　　　３ ２　　　２　　木村　　　　　　 ２　　　３　　工藤 502 名前：デフォルトの名無しさん mailto:sage [2009/01/12(月) 17:57:54 ] Excel総合相談所 76 pc11.2ch.net/test/read.cgi/bsoft/1228655230/942 942 名前：名無しさん＠そうだ選挙にいこう[] 投稿日：2009/01/12(月) 17:51:11 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 VLOOKUP　値の取り出し 下図�@のように、クラスと番号と氏名が入力されているファイルがあります。 下図�Aのように、クラスと番号のみが入力されているファイルがあります。 クラスと番号の２つをキーに、図�@から�Aに氏名をとってきたいのですが、 どのようにしたら良いでしょうか。 キーが１つであれば、VLOOKUPで出来るのですが、２つになって困っています。 宜しくお願いします。 図�@　　　　　　　　　　　　図�A クラス　番号　氏名　　　　　クラス　番号 １　　　１　　相沢　　　　　１　　　１ １　　　２　　加藤　　　　　１　　　２ １　　　３　　佐藤　　　　　２　　　１ １　　　４　　館山　　　　　２　　　２ ２　　　１　　安西　　　　　２　　　３ ２　　　２　　木村　　　　　　 ２　　　３　　工藤 503 名前：デフォルトの名無しさん mailto:sage [2009/01/12(月) 21:11:53 ] こんなスレにホイホイ質問して良かったのか？ 俺はマルチポストでも構わず答えちまう男なんだぜ。 俺なら、どっかのセルにクラスと番号を結合させた物を作る。 cells(i,1).value & "-" & cells(i,2).value をforでまわしてどっかに作る。 図1と図2に同じ処理。 後はfindでsetするなり、好きに料理しろ。

---

---

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

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