- 締切済み
VBA Excel 特定の記号を含んだ行
Excel VBAにて、質問します。お手数ですが宜しくお願いします。 画像の様に、E列に特定の記号"●"や"▲"含んだ行以外、抽出し 印刷のシート名に貼り付けしたいと思います。 ですが、条件がありまして、その条件とは、InputBoxを使って 抽出したい日付を入力し、入力した日付、時刻までの記号"●"や"▲"以外 を抽出できる様にしたいです。 例えば実行時の日付が8/21日ならば InputBoxに、8/28 20：00と入力したら、入力した日付、時刻までの 記号"●"や"▲"以外を抽出となります。 画像の様に、1行目の見出し名も貼り付けできる様に、VBAを使って できませんでしょうか？ ※ 画像ではSheet1のみ載せましたが、 Sheet2とSheet3とSheet4とSheet5とSheet6まで似た内容のデータがあるので シート名を指定して動作できると良いです。 Array("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5","Sheet6")見たいな 感じでできますでしょうか？ 御面倒お掛けしますが宜しくお願いします。
- awmori
- お礼率64% (68/106)
- Visual Basic
- 回答数1
- ありがとう数5
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- kkkkkm
- ベストアンサー率65% (1606/2443)
あなたがやりたいことはできますので 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
- VBA Excel 特定の記号を含む行で
Excel VBAにて、質問します。お手数ですが宜しくお願いします。 画像の様に、E列に特定の記号"●"や"▲"含んだ行以外、抽出し 印刷のシート名に貼り付けしたいと思います。 ですが、条件がありまして、その条件とは、InputBoxを使って 抽出したい日付を入力し、入力した日付、時刻までの記号"●"や"▲"以外 を抽出できる様にしたいです。 例えば実行時の日付が8/21日ならば InputBoxに、8/28 20：00と入力したら、入力した日付、時刻までの 記号"●"や"▲"以外を抽出となります。 画像の様に、1行目の見出し名も貼り付けできる様に、VBAを使って できませんでしょうか？ ※ 画像ではSheet1のみ載せましたが、 Sheet2とSheet3とSheet4とSheet5とSheet6まで似た内容のデータがあるので シート名を指定して動作できると良いです。 Array("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5","Sheet6")見たいな 感じでできますでしょうか？ どの様なコードを書けば良いでしょうか？ 御面倒お掛けしますが宜しくお願いします。
- ベストアンサー
- Visual Basic
- データ抽出
VBA初心者です。 エクセルで2枚のシートを練習用で作成しました。 画像上段がシート1で元データです。 下段が転記先の表で、シート2です。 シート2は、今はデータが参考に貼りつけてありますが 普段はマクロで作業後は消去して、空白にしています。 今したい処理が 元データをINPUTBOX関数を使って抽出し、 NO,購入日付、分類、感想、備考のデータを下段画像シート2のように 転記したいのです。 抽出条件のキーになるのは、主に「購入日付」と「分類」です。 どこかのセルに、日付を範囲指定で入力すれば、条件に当てはまる データをシート2に表示させたいです。 四半期ごとのデータを検索したいためです。 INPUTBOX関数でなくても、どこかの特定のセルに範囲指定する日付を入力 して、抽出してもかまわないです。 あと、分類は割と「飲料水」を抽出して、印刷する頻度が多いのですが 今後の参考に、全部の分類を抽出できるスタイルが望ましいです。 現在は、一行一行日付と分類を目視で確認しながら シート2にコピペ作業しているので 時間がかかります。 エクセルの機能でフィルタ等をしてみたのですが、 関数やVBAで素早くしたいのですが、なかなかコードが思いつきません。 お願いします。
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】重複行の削除
はじめまして。 IDの重複を削除し、日付データを横1列にまとめるVBAについてご教示いただけますと幸いです。 ------------------------------------------------------- ▼シート1（データ入力がされているシート） A B C D E F 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 3 1234 2/3 2/20 4 1234 3/2 5 7777 1/10 1/15 1/20 6 7777 2/2 2/12 2/22 7 9876 2/3 ⇓ マクロ起動後 ▼シート2（重複行を削除しまとめたシート） A B C D E F G H 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 2/3 2/20 3/2 3 7777 1/10 1/15 1/20 2/2 2/12 2/22 4 9876 2/3 【補足】 列情報 ・A列…ID ・B-F列…日付（左詰め） ※日付はIDごと月毎に行が変わるため、IDによって複数行存在する場合があります。 ※A列のIDは重複しない場合もあれば、4行以上ある場合があります。 ※シート１のデータはおおよそ1000-5000行です。 ※IDに対して、日付は５つあれば問題ありません。そのためG列以降の日付を削除しても支障はございません。 ------------------------------------------------------ VBAの知識があまりなく、調べて出てきたものをコピペ使用も試みたのですが、 上手く動かす事ができませんでした…。 お力添え頂けますと幸いです…。 Windows10でエクセル2016を使用しております。 何卒宜しくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- 【EXCEL VBA】データの並べ替えの方法
元データが左から右へ氏名コード、日付(2011/5/1)、出社時刻、退社時刻、日付(2011/5/2)、出社時刻、退社時刻、・・・・・日付(2011/5/31)、出社時刻、退社時刻、と順に1ヶ月分入力されています。（画像上） このデータを一番左端に氏名コード、上から日付(2011/5/1)、出社時刻、退社時刻、行を変えて日付(2011/5/2)、出社時刻、退社時刻、・・・・・日付(2011/5/31)、出社時刻、退社時刻。（画像下）と言う形に行・列の並べ替えをしたいと考えています。 EXCELの機能である、「コピー→編集→形式を選択して貼り付け→行列を入れ替える」では対応できず、VBAマクロ又は関数で試みようとしましたが、こちらも対応方法が見つかりません。 何かいい方法がございましたら、ご指導のほど宜しくお願い致します。 尚、作業環境はWindows7、MS office2010です。
- ベストアンサー
- その他MS Office製品
- Excel2007 VBA 最終行の特定セルの取得
●質問の主旨 A列の入力を欠いた最終行の特定セルの取得及び転記について ご教示ください。 ●質問の詳細 下記の要領で現金出納帳を作成しています。 １． 項目は以下の通りです。 A B C D E F 日付 摘要１ 摘要２ 収入金額 支出金額 残高金額 ２． 下の行に向かって１．の具体的内容を入力していきます。 ３． 同じ日に複数の項目がある場合、その日の先頭項目のみA列に 日付を入力し、２番目の項目には、日付を入力しない。 ４． 当月の一番最後に入力されている項目のF列の残高金額をもって、 次月の残高（繰越残高）とする ５． 当月の残高（繰越残高）は、雛型シートを用意し、 そのシートのF3セルに入力する。 ※ 一日に必ず複数の項目を入力するため、最終行には 日付の入力を欠いていることがほとんどです。私案のコードでは 「最終日」の１番目の残高は拾えても、「最終日」の最終行を 拾うことができません。コードをどのように書き換えたらよろしい でしょうか？ ●私案のコード Sub 繰越_Click() Dim i As Integer '既存のシート数を取得 i = ThisWorkbook.Worksheets.Count '最終シートをコピーして後ろに挿入 Worksheets(i).Copy after:=Worksheets(i) '月リストからシート名を取得してシート名変更 Worksheets(i + 1).Name = Sheets("月リスト").Cells(i + 1, 1).Value '新しく作成したワークシートについて以下の処理を行う With ActiveWorksheets '当月の残高を次月に繰り越す （残高が記入されている最終行,F列の値を次月シートのF3セルに代入する） Range("F3") = Worksheets(i).Range("A1045876").End(xlUp).Offset(0, 5).Value End With End Sub 使用機種はWindouws Vista Excel2007です。当方はVBA初心者です。
- ベストアンサー
- Visual Basic
- Excel2010 VBAでスペース区切り
はじめて質問させて頂きます。 VBA初心者ですが、宜しくお願いします。 CSVデータをエクセルにコピペしてから処理することを考えています。 CSVのデータはエクセルで開くと以下の様に入力されています。 ｜ A列 ｜ B列 ｜ C列 ｜ １行目｜ 日付 時刻 ｜データ１｜データ２｜ ２行目｜2014/5/14 13：00：01｜ ○ ｜ △ ｜ ３行目｜2014/5/14 13：00：14｜ ○ ｜ △ ｜ 時刻は24h制で入力されています。 A列の日付と時刻の間にはスペースがあり、これをVBAでスペース区切りをしたいのです。 B列に列を追加し、スペース区切りの処理をしようと思い、自動記録すると以下のようになりました。 Sub Macro1() Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon _ :=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array( _ Array(1, 5), Array(2, 1)), TrailingMinusNumbers:=True End Sub ところが、このマクロを実行すると「コピーまたは移動先のセルの内容を置き換えますか？」のメッセージが表示されます。(記録する際には表示されませんでした。) 原因を探ったところ、自動記録のマクロを実行すると時刻が12時間制に変更されB列に、 C列にAM/PMが書き込まれます。(A列の日付は問題なく処理されます。) B列に24時間制の時刻が書き込まれるようにしたいのですが、 何か不足してるとことがあるのでしょうか？ 方法を教えて下さい。 お手数ですが、宜しくお願いします。
- ベストアンサー
- Visual Basic
- VBA 特定の行を別シートへコピー・削除
下記のように、VBAで特定の行を抽出して別シートへコピーし、コピーした行については元リストデータを削除したいです。 具体的には、【出荷sheet】（C列注文番号は、出荷があった時に入力済）へ、注文番号に対応する行を【リストsheet】から抜き出してコピーし、コピー後は、【リストsheet】から該当行を削除したいです。 検索により調べてもうまく合致する回答が見当たらず困っています。 VBAの理解度は未熟ですが、何卒ご教授いただけると幸いです。 【リストsheet】 A列 B列 C列 D列 ・ ・ ・ Ｊ列 No. 日付 注文番号 品名 ・ ・ ・ ・ 1 1/1 A111 鉛筆 ・ ・ ・ ・ ←コピー後、削除 2 1/2 B222 ペン ・ ・ ・ ・ 3 1/5 C555 消しゴム・ ・ ・ ・ ←コピー後、削除 ・ ・ ⇓ 【出荷Sheet】 A列 B列 C列 D列 ・ ・ ・ Ｊ列 No. 日付 注文番号 品名 ・ ・ ・ ・ 1 1/1 A111 鉛筆 ・ ・ ・ ・ 3 1/5 C555 消しゴム・ ・ ・ ・
- ベストアンサー
- Excel（エクセル）
- 複数シートから文字が入力されてる行を一覧化したい
複数のシートから指定したセルで日付及び文字が記入されてる場所の行だけを 作成済みの集計用シートへ自動で書き出し、文字・セルを縮小したいのですが中々できず難儀しています。 マクロも試してみましたが枚数が多すぎ、日によって入力されてる行が違うため断念しました。 可能であればVBAでお願いできればと思います。 仕事で使うデータで、これがあると非常に助かります。 【 準備しているデータ 】 ・参照したいデータシートは約31枚（月ごとで枚数が異なります。） ・それぞれ、同じフォーマットで内容が異なる16行弱の文字データ （画像参照ください。このようなデータシートが約31枚あります） ・シート名はyyyy-mm-ddですべて分かれています。例：2014-06-31 【 やりたいこと 】 ・日付の抽出・コピー（画像で言うとA1） ・約31枚にも渡るシートの内容のなかから、 文字が入っている行（画像でいうと、A58～CJ88までの行）だけをコマンドボタンを押したら自動で 抽出・コピーして集計用のシートに日付ごとにまとめて一覧化し、文字・セルを縮小したい。 （可能であればA3用紙に収まるサイズ） ・集計用シートは作成済み。 ※画像では一部ボカシをいれてます。 【 環境 】 会社はExcel 2003・2010 当方はExcel 2007 面倒かとは思いますが、 お優しいエクセルマスター様がいらっしゃると信じております。 どうかよろしくお願い申し上げます。
- 締切済み
- Excel（エクセル）
- 【EXCEL】特定の範囲内の最大値が知りたいです。
EXCEL2013を使用しています。 画像内の対象日ごとの開始時間の最小値、終了時刻の最大値を抽出したいのですが。 VBAを使って簡単にできないでしょうか。 今までは手作業で最大値最小値求めていました。 データの行が増えてきたため簡単にできたらなと思い投稿しました。 よろしくお願いします。
- ベストアンサー
- 財務・会計・経理
- エクセル（EXCEL)VBAで行自動分割
エクセル（EXCEL)VBAの質問です。数万行にわたって入力されているデータがありますが、これを1000行づつに分割して、別々の新規BOOK（またはSHEET)へコピーしていきたいのですが、これを実現するVBAを教えていただけ ないでしょうか？ VBAマスターの諸兄方、どうぞ宜しくお願い致します。
- 締切済み
- その他MS Office製品
