ファイルの構成
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PageBreak プロパティを設定で...
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
Word2016でExcelデータを差込し...
-
エクセル、ページをまたがった...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
PDFファイルの罫線を消す方法
-
ワードの表の行が広がってしまう
-
表と票の違いは?
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
ワードの表を図にして、ワード...
-
ワードの表の列幅を文字ぎりぎ...
-
【Excel VBA】CSV取込時、数字...
-
用紙の真ん中に縦線を入れる方法
-
PowerPointの表の罫線を二重罫...
-
WORDで表の行を2行に分けたい
-
ワードの表の罫線が見えるけど...
-
ワードで勝手に点線ラインがでる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 図形の選択法は?
-
PageBreak プロパティを設定で...
-
顧客ごとに違う点検案内を作成...
-
(VBA)指定したセルがアクティブ...
-
TextBoxにExcelの背景色を取得
-
VBA 選択したセルが空白であっ...
-
VBAでセルの選択範囲を指定する...
-
セル入力文字が、「右のセルに...
-
エクセル、ページをまたがった...
-
パワポの複数ページにまたがる...
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
エクセルで知らない間に行がず...
-
ワードの文章囲み枠(?)を消...
-
パワーポイントの表
-
ワードの表の行が広がってしまう
-
エクセルでセルの中の文字が削...
-
あるセルに色を付けた時、別の...
-
Wordで、表のセルが変なところ...
-
PDFファイルの罫線を消す方法
おすすめ情報
tatsumaru77様よりご質問いただきました。
1.sheet2およびsheet3の画像を添付してみます(計算式が入っているセルに式を表示しました。)
2.A3の鈴木一郎、A4の田中太郎のファイルシート名まで頭が回りませんでした。どちらもsheet1
でお願いできますでしょうか。
3. 9月作成した「点検」フォルダ内の各人のファイルは別フォルダに移して管理します(9月点検分)
ので点検フォルダは空にします。
Sheet3を添付します。