VBAで自動処理できないでしょうか?どなたかお知恵をお貸しください。(1)A、B、C列からなるリストがあります。A,B列にはそれぞれオートフィルタが設定してあり、C列は空白です。A列、B列にそれぞれ条件を設定し、抽出したデータのC列(空白)に特定のデータを入力します。A列、B列2つの条件の組み合わせが100通りくらいあり、現在手動でオートフィルタを設定し、C列にデータを入力しております。A,B列の条件の組み合わせと、それに対応するC列に入力するデータを表にしたテーブルを別に作り、A,B列の条件を自動に設定して、抽出し、C列にデータを自動に入力することを、テーブルの一番上の行から最後の行まで繰り返す、というようなことをVBAでExcelにしてもらいたいのです。自分でちゃんと勉強し、調べて、それでも分からなかったらお聞きするというのが筋だと思うのですが、今この仕事に追われて、時間がありません。(ほとんど毎日午前様です。)この仕事が片付いたら、じっくりVBAを勉強したいと思っております。通報する回答数8気になる0質問をブックマークします。マイページでまとめて確認できます。67%(55/82)april21さん、本当に毎回ありがとうございます。実は今日他のリストでも試してみました。(2,8)というように変えてみました。うまくいかなくて5回くらい試行錯誤してしまいました。なんとこれでうまくいきました!!しかし私の修正では不安なので、早速april21さんが書いてくださったように直してみます。実行してみてびっくりしました。今まで手動でやっていたときには30分位かかっていたことが、何と1分です。april21さんのコードがシンプルでとても軽いのでしょうね。社員一同本当に感激しております。ありがとうございました。今回のことでapril21さんにはたくさんの貴重なお時間を私どもの為に使っていただき、言葉に出来ないほど感謝しております。何かありましたらどうぞご教授くださいませ。私もなるべく人に頼らなくてもVBAが使えるようにがんばります。VBAで自動処理できな...QVBAでセルが空白かどうかを調べたい(Excel)エクセル2000関連でVBAを勉強し始めました。■「条件1」「条件2」のセルは""にしないようにしてください。スペース1コでもいいので入れてください。■↓の2行要りません。■「条件1」「条件2」のセルは""にしないようにしてください。スペース1コでもいいので入れてください。■↓の2行要りません。For■>3は>3です(半角になってなかったです。説明するのは作るより難しい(ーー;)まだあるかも・・。ARCさんのもあるし・・動かなかったらゴミにだしてやってください。42%(91/216)>条件が100個というのはE列の条件データが10個、F列の条件データが10個で、100通りほどの組み合わせがあるということなのです。会社で試してみますね。お忙しい中本当にありがとうございました。...続きを読む>条件が100個というのはE列の条件データが10個、F列の条件データが10個で、100通りほどの組み合わせがあるということなのです。会社で試してみますね。お忙しい中本当にありがとうございました。それでは、各10個のデータから100通りの組み合わせを得るところから始めなくてはならないのでは?↓のでは手動で設定してしていた100通りの組み合わせを事前にE列とF列に入れて処理させる時に使いまわすだけで良いのかと思ってましたので各10個のデータを入れても10通りしか処理出来ません。100通りの組み合わせが何なのかも分かりませんし・・・。何らかの規則性があれば自動で生成する事も出来ると思いますが今の段階では分からないの出きません。それに100通りに対応するC列に入力させるデータも分かりませんし・・・。67%(55/82)april21さん、私の質問の書き方が悪くて申し訳ありません。補足させていただきます。具体的に申し上げますと、この処理は、我社で製造しているある製品に対して2つの別の会社にテストを依頼しているのです。A社には10通りの様々な条件でテストをしてもらっています。同様にB社にも別の10通りの条件でテストをしてもらっています。我社の製品はこの二つの条件がどのように組み合わさっても、状態維持をクリアできなくては販売できません。このテスト結果を表にまとめるための処理なのです。データは条件データもC列に入力させるデータも数値ではなく文字データです。A、B社2つの条件の組み合わせは100通りすべてあるわけではなく、こちらで必要な組み合わせだけですので、april21さんが最初に考えてくださったように、事前に用意しておくことが出来ます。こんな状況なのですが、どうでしょうか?貴重なお時間をお取りしてしまって恐縮です。お時間があるとき、又木が向いたときなどにでもご返答くだされば感激ですが、どうぞ負担の感じず無視されても結構です。ここまで考えてくださっただけでも本当に感謝しております。ありがとうございました。お礼と補足まで・・・。エディタが開くので「挿入」-「標準モジュール」クリック。VBAをコピーして貼り付けます。エディタを閉じてエクセル画面に戻ります。ポイントし「マクロ」をクリック。エディタが開くので「挿入」-「標準モジュール」クリック。VBAをコピーして貼り付けます。エディタを閉じてエクセル画面に戻ります。ポイントし「マクロ」をクリック。「データー処理1」と表示されてるはずなので選択して「実行」(注意:実行する前にオートフィルタはオフにしておいてください)■実行するには↓の通りABC列の表とEFG列の表が必要なのでAB列に抽出するデータとC列に条件合致時に入力されるデータ領域。EF列は条件のデータとG列に条件合致時に入力するデータ。(条件に比較演算子などを用いる場合は左に付けて下さい。3より小さいは<3という風に。フィルタオプションで設定できるものは設定できるはずです)2つの条件に合致するデータが何もない場合にコピー先が変わるのを防ぐ為にC1を利用しているのでデータ領域以外に一行必要です。(タイトルは何でも構いませんのでタイトル行をつけてください)C列の領域に名前を定義して下さい。「挿入」-「名前」-「定義」で名前を分類に、参照範囲はC列のデータ領域選択。(タイトル行を含むデータの最後までを選択、100個あるなら100まで)ここまで出来たら↑の手順で「データ処理1」を実行してみてください。確認するにはC列をキーにして並べ替えを行ってみると確認しやすいかも?毎日、手作業でされてるのはC列が出来上がってるでしょうからテストしてみて下さい。データが文字なのか数字だけなのか両方なのかまったく分からなかったし・・。条件が100個って・・想像できません。67%(55/82)April21さん、度々の補足、またVBAの登録、実行の仕方まで丁寧に教えてくださり本当にありがとうございます。条件が100個というのはE列の条件データが10個、F列の条件データが10個で、100通りほどの組み合わせがあるということなのです。会社で試してみますね。お忙しい中本当にありがとうございました。↑のどのような組み合わせでもというのに反してますね?それで最初のご質問をもう一度読んでみたのですが・・・。↑のどのような組み合わせでもというのに反してますね?それで最初のご質問をもう一度読んでみたのですが・・・。オートフィルタのA列の▼をクリックすると重複データを除いたデータが表示されますね?仮に「goo」というデータを1つ選択すると「goo」を含む行だけ抽出されます。67%(55/82)april21さん、早々にご返答いただきありがとうございます。当方の説明があやふやで、april21さんを悩ませてしまったようで、申し訳ありません。A列がgooで、かつ、B列がexcelならばC列に「あ」と自動で入力したいという事なのでしょうか?⇒⇒⇒ということです。いう組み合わせの表は、april21さんが最初に考えてくださったプログラムのように、あらかじめ手動入力で用意しておいて、この組合せが満たされているものだけC列に"あ"と書き込みをするという事が出来ればいいのです。april21さんが最初に作ってくださったプログラムを実行してみました。これで大満足でございます。私の至らぬ説明で大変ご迷惑をおかけしました。このプログラムをほかのリスト処理にも使用したいのですが、他のリストでは、条件が1つになり、条件の列がD列で、「あ」と入力したい列がG列になり、組合せの表もK列から始まるという風に、場合によって変わってしまいます。その際、april21さんが作ってくださったプログラムを適宜変更すればいろいろなリストで実行することが出来ると思うのですが、修正するのは難しいでしょうか?もしそれほど難しくないのであれば、どの部分を修正すればいいのかご指導いただけますでしょうか?もし難しいのであれば結構です。本当に無理ばかり申し上げてすみませんが、どうぞよろしくお願いいたします。46%(643/1383)DGet関数を使っても何とかなりそうな気はしますが、VBAで書くとすれば以下のような感じになります。[,[条件2]]...)です。...続きを読むDGet関数を使っても何とかなりそうな気はしますが、VBAで書くとすれば以下のような感じになります。[,[条件2]]...)です。G列に価格が入力されているとすると、=DataSearch(E:G,3,"Tomato","Aomori")で、青森産トマトの価格を返します。=DataSearch($E$2:$G$100,1,,,1200)で、1200円の野菜の名前を返します。67%(55/82)ARCさん早速のご回答本当にありがとうございます。会社の同僚と一緒にがんばってみます。VBAを使えば自在にコンピュータを動かせるのですね。今回のことで真剣にVBAを勉強してみようと言う思いが強くなりました。会社の仲間たちはここ最近ゴールの見えない大量のデータ処理に終われて目が死んでいましたが、ARCさんのおかげで瞳に輝きが戻ってきました。社員一同お礼申し上げます。私個人としてもこのようなプログラムをこんな短時間で作ってしまわれるARCさんにご尊敬申し上げます。ARCさんのようなプロフェッショナルな技術を得るには相当勉強しなくてはならないでしょうが少しでも近づけるようがんばりたいと思います。何かありましたらよろしくお願いいたします。1C列に名前を定義して下さい。「挿入」-「名前」-「定義」で名前を分類、参照範囲はC列のデータ領域選択。1C列に名前を定義して下さい。「挿入」-「名前」-「定義」で名前を分類、参照範囲はC列のデータ領域選択。感じに(3は使う行数によって変わります)C1セルのタイトルはマクロ処理すると条件に当てはまらなかったデータが入力されるので変わってしまいます。(必要な場合は処理後つけてください。)オートフィルタにはオプションで「等しい」だけでなく「より大きい」とか比較もあるので一応出来るようにしてあります。3より大きいと条件をつけたい場合は「>3」に(比較演算子は左に)あで終わるものは「*あ」にあで始まるものは「あ*」にオートフィルタはオフにしておいてください。Sub---------------------ここの↑まで-------------------------------------とりあえず、確かめましたのでちゃんと動くはずですが・・動かなかったら説明が抜けてたるのかもしれないのでどうなったかお知らせください。100通りも条件つけては確かめてないのでバグがあったらm(__)m文字が一致するだけでいいのであればもっと簡単に出来るので処理は速くできます。67%(55/82)April21さん、ご回答本当にありがとうございます。プログラムの動作まで確認くださったなんて本当に感激です。ゴミにするなんてとんでもない!!私は今回のことでプログラミングに大変関心を持つようになりました。先のARC産の回答と同様にApril21さんのプログラムも是非使わさせていただきます。処理の速さを要求するなど私には恐れ多いことです。今手動でやっていることから開放されるだけでも天にも昇る気分です。私を含めた社員一同に希望を下さり本当にありがとうございます。我社にはVBAの経験者がおりませんので、April21さんのプログラムはきちんとしているのにうまくいかないかもしれませんが、みんなでがんばってみます。分類用のシートにすれば修正しなくても結果は得られると思います。他のリストからこのシートに必要な個所だけコピーして分類が出来たら他のシートに分類の列をコピーして貼り付けます。分類用のシートにすれば修正しなくても結果は得られると思います。他のリストからこのシートに必要な個所だけコピーして分類が出来たら他のシートに分類の列をコピーして貼り付けます。D列をコピーしてA列に、B列をタイトルのみで(データは空)F列を「=」にします。結果が出たらリストに貼り付け、分類用のシートはそのまま閉じれば再使用の時セルをクリアしたりしなくて済みます。関連するQ&AQAccessのVBAでExcel同様の計測データ処理できますか?これまでExcelのVBAで計測データの処理を行っていました。VBAについてお教え下さい。オートフィルターの処理いつもお世話になります。オートフィルターの処理をマクロでやれという指令がきました。具体的に言うと、...QExcelで最小フォントサイズを取得したい会社でExcel2000、自宅でExcel2003を使用しております。列の値を調べてフラグ立て図のようなリストのB列に商品番号が入っています。絞込みExcelのVBAです。Excelにデータ出力できないパソコンがありますACCESS2000のVBAでExcel2002の環境でプログラムを作成しています。VBAで教えてください。VBAで教えてください。Excelを使ってデータ処理をしています。Edit...-PR--PR-このやり方知ってる!同じこと困ったことある。このQ&Aにはまだコメントがありません。あなたの思ったこと、知っていることをここにコメントしてみましょう。みんなが気になるQ&AQW不倫相手が離婚し違う女性と一緒に?動揺していますこんにちは。不倫の話なので否定的な方はコメントご遠慮ください。1年ほど前、同級生の彼からの熱烈なプッシュで、W不倫を始めました。付き合っている最中、彼は「離婚したいんだ」と何度か言っていました。「次は、子供を作らない方が夫婦仲良くやれるかな」など。私とのことを言ってるのではなく、漠然とした希望に見えました。私の家庭はレスではありますが離婚する気はないし、彼とは割りきってつきあっているつもりでいました。同級生なので共通の話題もあり、とても楽しい日々でした。した諍いをするようになり、彼にやっぱり別れよう、友達に戻ろう。私は別れたくなかったですが、友達に戻ってもたまに同級生として皆と飲みに行けるし、ということで受け入れました。すると、ここ数ヶ月で彼が急に離婚へ向けて動き出しました。彼は自営なのですが、それも全て売って、新しい仕事を始めるのでしばらくゆっくりするらしく、奥さん子供には充分すぎるくらいのお金を渡し、円満離婚だったそうです。奥さん側も、円満離婚と言っていたようです。急なことで心配してメールした私には「離婚は自分から言い出した。考えて、今がタイミングだと思って」「お前は自分の家族、仕事のことだけを考えていろ。」「しばらく会わない」と突き放すような返事が。そんな時、噂で「彼には女がいる説もある」と聞きました。気になっていたのですが、彼には以前付き合っていた女性がいたらしく、彼女は子なしバツイチで、またいつか結婚したいと言ってた、という話を彼から聞いたことがありました。その時一度奥さんに、別れてくれ。言ったが、その時は別れてくれなかったと。実は彼女とは切れてなかったのでは?と。付き合っている時、なぜか決まった曜日に連絡がとれない時間帯がよくありました。家族と過ごしていたのではないようで、色んな言い訳をしていたけど、その時彼女と会っていたのでは、と。今回背中を押したのは、彼女の存在ではないかと。いろんな辻褄が合った気がしました。彼に、他に彼女がいたのかと聞くと、いるともいないとも言いません。隣町に引っ越し新しい仕事を始めるようで、頭がいっぱいだと言います。その前に、ゆっくりしに沖縄に行ってくる。沖縄、一人で行かないですよね...。彼に他に女性がいると思いたくない自分がいます。沖縄も一人で行っている、新しい開業に向けて頭がいっぱいなだけだと思いたい。不倫なので誰にも相談できず、自分のことも客観視できていないです。変に生まれてしまったつらい未練を断ち切り、自分の家族ときちんと向き合いたい。こんな私ですが、前に進むためにアドバイスをお願いします。Q脈なしでしょうか?諦めた方がいいですか?現在、社内に好きな人がいます。同じ会社ですが、業種が違うため社内では一言も話しません。好きな人は私の2歳年上です。夏の会社のイベント事で私から話しかけ、連絡先を交換しご飯に誘いました。彼とは趣味も同じ、好きな本のジャンルや好きな季節、好きな場所ほかにもたくさん好きなものが一緒で、とにかく気が合います。これまで3回、二人で飲みに行ってます。頻度は月に1度の間隔です。彼はメールを頻繁にする人ではなく、これまでのメールのやり取りもご飯の場所や日時を決めるとかそういうやり取りしかしませんでした。2回目の食事の時、告白とはまた違った感じで私が彼に好意がある事を伝えました。彼は「ありがとう」と言ってくれました。その後、今まであまりメールが好きじゃないと言っていたのに、彼の方から「急に寒くなったけど体調崩してない?」や「明日もいい1日になるといいね。おやすみ」など優しいメールを3~5日に一度くれるようになりました。先週、飲みに行くのが3回目でした。今回も私から誘ったのに、彼がお店を探してくれて予約もしてくれました。いつもと変わらず趣味の話をし、今度一緒に出かけませんか?と誘ったら、彼はいいよと言ってくれました。以前、夏に彼と初めて話した時、彼は年上が好みだと言ってました。二人で飲みに行ったとき、その事に触れたら「それは冗談だよ」と言っていたのですが、先週飲みに行ったときもその事に触れたら、ちょっと半ギレに「年上としか付き合えないわけではないけど、年下でない事は確か!!」と言われました。私がしつこく触れたから怒ったのかはわかりませんが、断言されたのがすごくショックでした。ここ1ヶ月、すごく優しいメールをくれたり、食事のときは「私の好きなものを食べに行こう」と言ってくれて予約してくれたり、すごく期待してしまいそうなくらい優しかったのに、ただ自分が思い上がって勘違いしてただけなのかなって思いました。彼はとても内気な性格で、自分から女性に声をかけるタイプの人ではないし、交際経験も殆ど無いと思ってます。年上が好きと言う彼の発言も納得できるぐらい、自分がリードするような人ではなく、引っ張ってもらいたいタイプの男性です。30歳なのでそろそろ彼女も欲しいし、いずれ結婚したいとも話してました。年下でない事は確か!と言われたら、もう諦めた方がいいのでしょうか。本当に年下は恋愛対象じゃなかったとしたら、あの優しいメールや行動は一体なんだと思いますか?文章書くのがとても下手で読みづらくてごめんなさい。Q不倫、好きってなんですか?26歳、2ヶ月になる子どもの母親です。母親でありながらこんな質問も何なのですが...昔ながらの1番の友人が不倫していて、「好きって何なんだろう?」と思ったので、質問させてください。私自身は、旦那と7年間付き合って1年前に結婚して、トキメキみたいなものは久しく忘れてしまいました。今では、と言うよりも何年も前からなのですが、安心と信頼で大切な存在に思っています。ような「好き」は、うーん...何だっけ...というくらいです。友人は、3年ほど前に半年の付き合いの人と妊娠して、結婚しました。待ち合わせに旦那が遅刻をしてもそれを彼女のせいにしたり、喧嘩すると全て彼女の責任にするので、別れたいと言っていた矢先の妊娠でした。それ以前に彼女が長く付き合っていた元彼と、復縁するつもりの時でした。その後、その彼氏と結婚して子どもを産み育ててきましたが、モラハラだけでなく手を上げられたりもし、半年で彼女は実家へ帰りました。離婚自体は旦那が拒否し、別居が続いています。2年くらいは彼女も子育てに真っしぐら、恋愛の余裕もない、という感じでしたが...半年前に、既婚男性が彼女に声を掛けてきました。彼女も寂しかったのだと思いますが、優しく話を聞いてくれる人、また身体の関係も持てる人...ということで、不倫関係になりました。最初は割り切ると言っていたのですが、どんどんハマっているようです。私自身、不倫はいけない!と100%言い切れるとは思っていないんです。彼女のように、自分がどんなに努力しても相手と上手くやっていけなくて、結婚生活をやり直したい...と思っている人も中にはいると思います。綺麗事では済まない人の気持ちもあるとは思うんです。彼女の不倫相手の場合、明らかにその人のせいで家庭が上手く行っていないんです。結婚後、家計を家庭にごまかして入れていて奥さんにバレ、それから信頼関係が崩れて行ったそうで...彼女の前にも、不倫をしていました。性経験の人数を数十人単位で彼女に自慢してきます。不倫相手にも子どもが2人いて、子どもが可愛いから離婚は考えていない。妻とはもう、愛情はない。妻も俺には関心がなく、子どもの為に離婚しない。友人には言っているそうです。友人も状況が状況なだけに、離婚して欲しいとは思っていないそうなのですが。毎日連絡も来るそうで、月に2回程度はホテルで会うそうです。彼女は不倫相手を「好き」だと言うようになりました。友人は他の人から、結婚を前提にちゃんと付き合いたいと言われたのですが、それを断って、不倫相手を選びました。その時、不倫相手と「ばれた時どうするのか」を真面目に話し合い、ばれた時に彼女だけが全てを失うのは不公平だ。不倫相手もその時は慰謝料なり、家族を失うリスクなりを持って付き合ってくれないなら、別れると話し合った結果、不倫相手もそれなりに覚悟を持って付き合ってくれてるみたいだ、と言っていました。その後も続いていて、最近では「表には出せない関係だけど、大切にしてもらっててすごく幸せだ」と言っていました。それを聞いて、好きって何だろう...と思いました。私からすると、自分の家庭を大切に出来ず、1番身近な存在の奥さんから大切に思われない人の、何が魅力なのかわかりません。友人自身も、本当に付き合って喧嘩や相手の嫌なところを見て、一緒に暮らしたら、「好き」って言えなくなるんじゃないかな?と思います。嫌なところは見せない不倫って、ものすごく上っ面な気がするのですが...それも「好き」のうちなのでしょうか?普通に付き合っていたら、どんどん深い付き合いをしていって、喧嘩したり嫌なところを見たり、とありますが、不倫は結局、相手の本質とかあまり関係ない気がして...相手をよく知ったら「好き」じゃなくなる。そんな場合も、その時は「好き」なのでしょうか?友人とは長く深い付き合いで、これからママ友として仲良くしたいと思うのですが...どうも、友人の「不倫相手が好き」「今、すごく幸せだよ」発言を聞いてからイライラしてしまいます。子どもがファミレスで歩き回っていても注意しなかったり、ソファーの上に靴で立っても何も言わなかったり、そうした面でもちょくちょく疑問を感じていたので...今後、今まで通り付き合いたいけど、何か違和感がある。いった感じになってしまいました。好きって、もちろん人が決めることですし、私にとやかく言われることじゃないと思いますが...この違和感、どしたらいいのでしょう。漠然とした質問ですが、ご回答頂けたらと思います。VBAで自動処理できな...QVBAでセルが空白かどうかを調べたい(Excel)エクセル2000関連でVBAを勉強し始めました。Excelのデータの任意の列のデータをAccessの既存テーブルの...QAccessのVBAでExcel同様の計測データ処理できますか?これまでExcelのVBAで計測データの処理を行っていました。VBAについてお教え下さい。オートフィルターの処理いつもお世話になります。オートフィルターの処理をマクロでやれという指令がきました。具体的に言うと、...QExcelで最小フォントサイズを取得したい会社でExcel2000、自宅でExcel2003を使用しております。列の値を調べてフラグ立て図のようなリストのB列に商品番号が入っています。絞込みExcelのVBAです。Excelにデータ出力できないパソコンがありますACCESS2000のVBAでExcel2002の環境でプログラムを作成しています。出来上がり、後で見に来たたくさんの人の悩みの解決に役立てられています。