ファイルの構成
3シートの構成
sheet1:データ用シート A1セルは氏名を入力、2行目は項目行でA2:氏名 B2:点検数 C2:A作業点検日 D2:A作業点検時間 E2:B作業点検日 F2:A作業点検時間です。
sheet2 A.B両方の点検を行う場合の点検案内用シート
sheet3 Aの点検のみ行う場合の点検案内用シート
sheet2,sheet3はともにsheet1のA1セルを検索値としてVLOOKUP関数で点検日時を引っ張ってきています。sheet1のA1セルに氏名(A3以降)を順番に入力(またはコピペ)し、点検数が2個の人の場合はsheet2の案内分(sheet2のみ)を計算式を消して新規保存し(ファイル名はsheet1のA1セル値)点検数が1個の場合は同様にsheet3を新規人数分全部保存します。保存先フォルダはC:\Users\PCuser\Desktop\点検で氏名数は31ですが今後増える予定です。日程が月ごとにに変わり、そのたびに全員分当該フォルダに格納しているため一度に格納するマクロ記述を教えてください。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
下記にアップしました。
https://ideone.com/Dwievj
Const Folder = "D:\goo\data8\点検"
は、こちらで試験した書き込み先のフォルダです。
C:\Users\PCuser\Desktop\点検に変えて使用してください。
マクロはNo3の添付図の黄色いセルのみを設定します。
No.3
- 回答日時:
補足ありがとうございました。
追加の補足要求です。
1.Sheet1の点検数ですが、B列の点検数の件
①1個、2個と書かれてますが、記入されているのは数字のみで"個"は書式設定で表示していますか、
それとも"1個"と入力していますか。
②1個、2個の1,2は半角で、間違いないですか。
③1個、2個以外のケースはないと考えて良いでしょうか。
(例 3個、空白等)
④1個の場合は、A点検のみと考えて良いですか。
(1個でB点検のケースはない)
2.Sheet1のシート名は"データ"ですか、それとも"Sheet1"ですか。どちらでしょうか。
3.Sheet2,Sheet3に関数式が埋め込まれていますが、
マクロを使用すると、この関数式が破壊されてしまいます。
(直接、添付図の黄色のセル部分に値を設定します。
マクロが設定するのは黄色のセルの部分のみです。罫線とか見出しとかは予め設定しておいてください)
もし、関数式が破壊されるのがまずければ、
Sheet4,Sheet5をSheet2,Sheet3の代わりに用意し、そちらに値を設定します。
Sheet4,Sheet5を使うか、Sheet2,Sheet3を使うかを決めていただけませんでしょうか。
Sheet2,Sheet3を使うと関数式はなくなります。
補足要求にご回答申し上げます。
1.Sheet1の点検数 記入されているのは数字のみで"個"は書式設定で表示 します。
②1個、2個の1,2は半角です。
③1個、2個以外のケースはありません。
④1個の場合は、A点検のみと考えて結構です(1個でB点検のケースはない)。
2.Sheet1のシート名は"データ"です。
3.最終はSheet2,Sheet3を値のみにして新規保存したいので計算式がないのがありがたいです。「Sheet2,Sheet3を使う」でお願いします。
No.2
- 回答日時:
補足要求です。
1.Sheet2,Sheet3のサンプルも提示していただけませんでしょうか。
(レイアウトが全く同じならSheet2のみで結構です)
2.A3の人(鈴木一郎?)のファイルのシート名は、Sheet2でしょうか。
(点検数が2個のため)
そして、A4の人(田中太郎?)のファイルのシート名は、Sheet3でしょうか。
各ファイルに出力時は、同じシート名にしているような気がしたので念のための確認です。
3.今月マクロを実行し(9月分)、来月になると、10月分のマクロを実行しますが、その時、各個人のファイルが存在します。このファイルに上書きするという理解で良いでしょうか。(実際には、書き込み対象のファイルがあれば削除し、その後新規作成ということになります)
どうもありがとうございます。やり方が慣れておらず元の質問の方に補足要求のご回答を書かせていただきました。よろしくお願い申し上げます。
No.1
- 回答日時:
こんにちは
図がよく見えないのではっきりとはしませんけれど、8割方は「マクロの記録」でも作成できると思います。
リストの範囲で以下をループすれば可能でしょう。
・セル値をA1セルに転記
・B列に日数がありそうなので、その値でコピーするシートを分岐
(数値なのか文字列なのか不明ですが、質問者様にはわかっているはず)
・対象シート.Copy
で新規ブックにそのシートだけコピーできます
・セル範囲.Value = セル範囲.Value
とすることで、固定値化できます。
・お好みの保存先に「名前を付けて保存」
リスト範囲を取得するのと、保存ファイル名を作成する部分だけは、記録ではできませんけれど・・
範囲の取得は、A列なら定石の
Cells(Rows.Count, 1).End(xlUp)
で、できるでしょう。
ファイル名は質問文に記載がないので、こちらではわかりかねますが、顧客名から作成するのかな?・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- その他(IT・Webサービス) VBAを使って表を作成したいです 1 2022/06/08 21:20
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PageBreak プロパティを設定で...
-
エクセルVBA 図形の選択法は?
-
VBAでセルの選択範囲を指定する...
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
エクセル、ページをまたがった...
-
エクセルで知らない間に行がず...
-
ワードの文章囲み枠(?)を消...
-
【Excel VBA】CSV取込時、数字...
-
wordで罫線が引けない・・・
-
Wordで、表のセルが変なところ...
-
表と票の違いは?
-
パワーポイントの表
-
PDFファイルの罫線を消す方法
-
ワードの表の行が広がってしまう
-
エクセルでセルの中の文字が削...
-
用紙の真ん中に縦線を入れる方法
-
あるセルに色を付けた時、別の...
-
ワードの表を図にして、ワード...
-
Word2016でExcelデータを差込し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 図形の選択法は?
-
PageBreak プロパティを設定で...
-
VBA 選択したセルが空白であっ...
-
日別の時間割を週別に分割して...
-
顧客ごとに違う点検案内を作成...
-
【Excel VBA】Caseマクロを簡潔...
-
TextBoxにExcelの背景色を取得
-
マクロについて教えてください
-
VBAでセルの選択範囲を指定する...
-
(VBA)指定したセルがアクティブ...
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
エクセル、ページをまたがった...
-
ワードの文章囲み枠(?)を消...
-
Word2016でExcelデータを差込し...
-
PowerPointの表の罫線を二重罫...
-
パワーポイントの表
-
【Excel VBA】CSV取込時、数字...
-
ワードの表の罫線が見えるけど...
-
表と票の違いは?
おすすめ情報
tatsumaru77様よりご質問いただきました。
1.sheet2およびsheet3の画像を添付してみます(計算式が入っているセルに式を表示しました。)
2.A3の鈴木一郎、A4の田中太郎のファイルシート名まで頭が回りませんでした。どちらもsheet1
でお願いできますでしょうか。
3. 9月作成した「点検」フォルダ内の各人のファイルは別フォルダに移して管理します(9月点検分)
ので点検フォルダは空にします。
Sheet3を添付します。