- 締切済み
エクセルVBA初心者です。マクロを組んでください。
エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。
- K1111OKI
- お礼率0% (0/2)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- pipin1975a
- ベストアンサー率50% (1/2)
お困りの様子なので、誰かに助けてもらいたい気持ちは分かりますが、 やはり質問する場所なので、不明点を解決するような内容を投稿された方が良いと思います。 別の回答者からもExcelマクロのサイトが紹介されているようなので、 頑張ってください。 ただ、一つ助言として、面白いサービスがありますのでリンクを貼っておきます。 <http://coconala.com/services/3811> 500円で色々な依頼を受けてくれるようです。
- kkkkkm
- ベストアンサー率65% (1618/2457)
ここは質問をするところであってマクロ作成依頼をするところじゃないんですよ。 Office TANAKA http://officetanaka.net/excel/vba/tips/ Excelでお仕事 http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_010.html OfficePro http://www.officepro.jp/excelvba/ Excel VBA(エクセルマクロ)のTipsとサンプル - エクセルスマイル http://www.happy2-island.com/excelsmile/ このあたりでご自身で模索して、わからないことを質問しましょうね。
関連するQ&A
- ExcelのVBAで作りたいんです
Excelのマクロで以下のようなものを作りたいのですが、調べても適当なものが見つからず、どのようなコードを書いたらいいのか分からないので有識者の方のお力をお貸しください。 Sheet1に検索ワードが入力された表を作成しておきます。（表自体は数十行程度で1列だけ） Sheet2にSheet1に書かれている検索ワードがあるかどうかを調べて、該当した場合にはその行を削除する。 もしくは別シートに移動する。 この作業をSheet1の検索ワード行数分自動で処理する。 Sheet2は数百行程度で複数列ありますが、検索ワードが該当さえすれば削除（移動）してしまって構いません。 また、話は変わりますがこのようなものも作りたいのです・・・。 CSVからの整形用マクロがあるのですが、整形処理が終了したら整形済みのシート（例としてSheet2～5）から1つのシートにまとめたい（Sheet1へ）と思っているのですが、データがどこまで入力されているか（Sheet2～5に）の判断と、Sheet1へのコピーでSheet1にどの行までデータが入っていてどの行から追加すればいいのかをお教えください。
- 締切済み
- オフィス系ソフト
- エクセル【マクロ】について
初心者です。 エクセルでシート１のA1からA10まで決めた文字（abc）という文字を検索して、検索文字があるセルの１行をコピーしてシート２のA1から下へ貼り付けるというマクロ（VBA）を作成したいと考えています。 詳しい方、よろしくお願いします。
- 締切済み
- その他([技術者向] コンピューター)
- エクセルのＶＢＡマクロで検索と結果表示（抽出）
エクセルのＶＢＡマクロで検索と結果表示（抽出）を行いたいです。 業務で使用している膨大なリストデータから、特定のキーワードで情報の絞り込みを行いたいのですが、上手くマクロが組めません。 機能としては、シート１で特定のキーワード（テキストボックスに）を入力し検索ボタンを押下すると、 シート２のリストデータから検索に引っかかったセルの"行"を、シート１にリストアップ（貼り付け）していくようなマクロを作りたいのです。 シート２にはB列～AH列ｘｎ行のリストデータがあり、シート２のＫ列のセル内から「シート１のテキストボックスで入力したキーワードを含む」検索を行い、 HITした行をシート１のA9の行から結果として表示を行いたいんです。 簡単に言えばオートフィルタ機能の部分一致版を作りたいのですが・・・。 （オートフィルタでは完全一致でしか抽出が出来ないので） そして、検索ボタンを押下すると前回結果はクリアしたいです。 ネット上のサンプル等も参考にしながらやってみたのですが上手く行きません。。。 どなたか上記のマクロ文をご教授願えないでしょうか。 必要な情報（シート２の特定の列）のみ表示させたいとも思いましたが、むずかしくて断念・・・。 もし可能でしたらこちらもお願い致します。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロ・VBA初心者です。
マクロ・VBAについて下記のような処理を簡素化できるかどうかお伺いさせて頂きたいです。 Excelシート前提条件 定期的に3社から入金(同じタイミングで受けております)を受けており、その入金を管理しているシートとなります。 A列には第何回目の入金か、B列には入金日を、C,D,E列には3社ごとの入金額が他のシートからとんでくるようになっており、F列には3社からの入金額をsum(C○:E○)で計算しております。 ※A２には「第一回目」、A3には「第二回目」のように入力されています。 ※○には、最新回文の行番号が入力されています。 このような設定とはなっていますが、新たに入金を受けると、前回分の1つ下の行に、前回分の数式をコピペし、また前回分のは前回分の行に値貼り貼り付けをしなおし、数式ではなく手打ちの入力と同じ形にしております。 つまり、数式が入力されているのは最新回の行のみで、過年度分は全て値貼りされ直されている状況です。 説明がへたっぴでごめんなさい（ ｉ _ ｉ ） 前提条件は上記のようになっておりますが、 (1)最新回の行に、1つ上の行の数式をコピペする (2)コピペ後、前回分の行に前回分のを値貼りしなおす この(1)、(2)の動作をマクロ・VBAでできますでしょうか。 マクロ・VBAは初心者であるためなかなかうまくいかずに困っております。 ご指導のほど、宜しくお願い致します。
- 締切済み
- Microsoft ASP
- エクセルでのVBA（マクロ）が出来ますか？
帳票の整理で困っています。 以下のようなデータがシート１に入力されています。 A B C D E F １名前 住所 請求書 納品書 領収書 到着確認書 ２山田 東京 ○ ○ ３井上 千葉 ○ ○ ○ ４植田 大阪 ○ ○ ５境 秋田 ○ ○ ６大田 沖縄 ○ ○ ○ ○ ７野原 埼玉 ○ データの”○”は書類が確認済で、空白は未確認あるいは未到着です。 "C"列から"F"列の中で１つ以上空白のあるデータを検索して別シート２へそのままコピー出来るマクロ、そしてシート２に表示されたデータで空白となっている"C"列から"F"列の項目名（請求書等）をシート３に用意してあるあいさつ文の書類名入力セル（ここではE１０としておきます）に記入できるマクロがさっぱり分かりません。 データ件数は１０００件以上になるかと思います。 どなたかお助けください。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで別のシートに追加する方法
入力するためのシート1からデータをためるためのシート2に入力するものをマクロのボタンでできるようにしたいのですがどのようにマクロのVBA打てばいいのか分からないので教えて下さい。 したいことは、データ４列でシート1の1行目は項目の行にして、 2行目にデータを入力する。 入力したデータを切り取って、シート２の２行目に張り付けて 次のデータをシート１の２行目に入力して 同じように切り取って次は３行目、４行目…というマクロ作りたいんです。 どなたかお願いします
- ベストアンサー
- その他(データベース)
- エクセルでのVBA（マクロ）
以前Wendy02さまに 以下のようなデータがシート１に入力されているもので A B C D E F １名前 住所 請求書 納品書 領収書 到着確認書 ２山田 東京 ○ ○ ３井上 千葉 ○ ○ ○ ４植田 大阪 ○ ○ ５境 秋田 ○ ○ ６大田 沖縄 ○ ○ ○ ○ ７野原 埼玉 ○ データの”○”は書類が確認済で、空白は未確認あるいは未到着です。 "C"列から"F"列の中で１つ以上空白のあるデータを検索して別シート２へそのままコピー出来るマクロを教えていただいたのですが、 Ａ列に受付番号（５００件）を先に入力しておいて（一応自分でマクロを組んで）同じ処理をするとデータ（Ｂ列：名前）が入力されていないものまで検索結果としてカウントされます。 Sub FindBlank1() Dim Rng As Range Dim i As Long 'Sheet2のフィールド行(名前,住所..）は、１行目にあるとします。 With Sheet1 .Activate i = 2 '2行目から Set Rng = .Range("A1", .Range("A65536").End(xlUp)) For Each c In Rng If Application.CountA(c.Offset(, 2).Resize(, 4)) <> 4 Then 'A列から、A列を含めて６列取得し、Sheet2にコピー c.Resize(, 6).Copy Sheet2.Cells(i, 1).Resize(, 6) i = i + 1 End If Next End With End Sub ＞i = 2 '2行目から の前に組めば出来る筈だと思うのですが？ お助けください。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA マクロについて
初めまして。 以下のようなマクロを組みたいんですが可能でしょうか？ A B C D E F 東京 足立区 みかん 10 5 50 葛飾区 みかん 20 3 60 港区 りんご 30 1 30 小計 140 ( 空白行 ） 愛知 名古屋市 みかん 10 5 50 東海市 もも 10 5 50 小計 100 上記のようなデーターシートがあります。 Ｄには数字が入ってるんですが、 ここに係数をかけたいんです。 たとえば、=10*1.07 とか (1)元の値に係数かける式をセルに入れるマクロはあるんでしょうか？ (2)この係数を別シートのセルで入力したいんですが セルを参照できますか？ (3)みかん、もも、りんごの列を検索して、 それに対応した係数かけるマクロはあるんでしょうか？ 処理速度は、とくにはこだわりません。 ご指導おねがいいたします。
- 締切済み
- オフィス系ソフト
- エクセルのマクロは超初心者のため、難しいことは全く分かりません。
エクセルのマクロは超初心者のため、難しいことは全く分かりません。 よろしくお願いいたします。 m(_ _)m 同じbook内に複数のsheetがあります。 そのsheetは同じ型式のデータベースなのですが、sheetによって行が違います。 そのsheetのデータを一つのシートにコピー（一番上の先頭行はデータベースの名称でコピーしたくありません） をして一覧でまとめたいのですが、方法がわかりません。 sheet数が多いので、一つずつコピー→ペーストをするのが大変なので…どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
