[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『見積マクロの印刷シートの作成』（シュン）
いつもお世話になっております。 見積のマクロを作成途中で、行き詰ってしまいました。 データ入力用のシートとその出力のシートとがあります。 （他にもデータベースシートもありますが無視です） ファイルをUPしましたので、見ていただくのが一番早いです。 原紙ファイルと理想の結果を示したファイルをUPしています。
原紙ファイル http://firestorage.jp/download/79c0652deb47add83ee3e67fcfaa130f3445557d
理想の結果を示したファイル http://firestorage.jp/download/d05c668a02aec6362687a02adf673dda6578ea52
何をしたいかですが、入力シートで必要項目を入力し コマンドボタンを押下すると、dataシートに蓄積していく予定です。 このマクロは自分で考えます。
教えて頂きたいのは ①出力シートの『1.部品代』という項目を上から詰めていきたいのです。 ②『2.人工』の半ページはそのままスライドしたいです。
説明不備が多々あると思いますが、本当にどうかよろしくお願いします。
シュンです。 ややこしい内容で申し訳ありません・・。 レスがつかないのも納得しています。 もう少し自分で考えてみようと思います。 どうしたら良いかアイデアだけでもいただけないでしょうか？ 現状のレイアウトにこだわりはありません。
よろしくお願いします。 (シュン)
こんにちは。かみちゃん です。
> ファイルをUPしましたので、見ていただくのが一番早いです。
恐る恐るダウンロードして、拝見しました。
> (1) 出力シートの『1.部品代』という項目を上から詰めていきたいのです。
「出力シート」とは「印刷シート」のことですか？ 上から詰めたいとのことですが、 「Sheet1」の「項番１」というセル範囲の値を「品目１」というセル範囲の値の数だけ、出力するという ことですか？ つまり、「Sheet1」の「項番１」が "AAAAAAAAAAAAAA" で、「品目１」が "2" であれば、 「印刷シート」のAO3セルとAO7セルは "AAAAAAAAAAAAAA" となり、 「印刷シート」のAW4セルは、「Sheet1」の「部品名1」というComboBoxの値、 「印刷シート」のAW8セルは、「Sheet1」の「部品名2」というComboBoxの値 ということですか？
> (2)『2.人工』の半ページはそのままスライドしたいです。
半ページというのは、「印刷シート」のAG42:BK65のセル範囲のことをおっしゃっているのですか？ スライドというのは、「Sheet1」の415行目～477行目の値を「印刷シート」のAG42:BK65のセル範囲 の該当のセル位置に転記したいのですか？ 見積(理想の結果）.xls を見た限り、全然合っていないように思うのですが、どういう転記をしたい のでしょうか？
(かみちゃん) 2009-05-29 20:01
かみちゃんさん
レス大変ありがたいです。 ややこしい内容で恐縮です。。
(1)についての内容はおっしゃる通りです。
(2)についてですが 半ページというのは原紙ファイルでいうB122：AF161のセル範囲 理想の結果でいうAG42：BK81のセル範囲 のことです。 つまりこの範囲は、上から詰めたいといっても 丸ごと半ページに収まっておきたいということです。
あと、data～data5（以降データベース）にSheet1の各値を格納後、データベースから 印刷シートに値を持ってこようと考えています。 今、それを作成中なので、完成後の方が二度手間にならないかもしれません。 とりあえず、データベースに値を格納するところまで急いで作ります！ (しん）
こんにちは。かみちゃん です。
> 半ページというのは
右半分ということですね。確認不足でした。
> data～data5（以降データベース）にSheet1の各値を格納後、データベースから > 印刷シートに値を持ってこようと考えています。
実のところ、私は、そのほうがいいのでは？と考えています。
その方法をとった場合でも、
> 現状のレイアウトにこだわりはありません。
であるならば、「Sheet1」シートに配置しているLabelやComboBoxなどのコントロール類は使わないほう が、コードが楽になるのではないでしょうか？ これを使っている特別な理由が何かあるのでしょうか？ ComboBoxであれば、入力規則で十分ですし、入力しては困るセル以外は、セルの保護をしておけばいいような感じがします。
そういう点からすると、「Sheet1」は、ComboBoxなどのコントロールではなく、入力規則や、セルの保護による シートに作り変えたほうがいいと思います。
サンプルシートを作って提示してもいいのですが、1日程度お時間をいただくことになるかもしれません。
(かみちゃん) 2009-05-29 21:29
かみちゃんさん
いろいろとお世話になっております。 入力規則、セルの保護という機能を調べましたが、コントロールと何の遜色も無いないですね！ もっと早く知りたかったくらいです(><)
度重なるお願いで大変恐縮なのですが、サンプルシートの提示をお願いできますか？ お時間はいつまでかかっても良いです！ かみちゃんさんのお時間があるときに、お願いします。 そのコードを見て勉強になればと思っています。 よろしくお願いします。
(シュン)
こんにちは。かみちゃん です。
> 入力規則、セルの保護という機能を調べましたが、コントロールと何の遜色も無いないですね！ > サンプルシートの提示をお願いできますか？
それであれば、時間があれば、ご自身でも作り直してみてください。 たぶん、私より早くできるような気がしますので・・・
作り直すことで、
> データベースに値を格納するところまで急いで作ります！
も、楽にできると思います。
(かみちゃん) 2009-05-29 22:44
こんにちは。かみちゃん です。
そういえば、
>> スライドというのは、「Sheet1」の415行目～477行目の値を「印刷シート」のAG42:BK65のセル範囲 >> の該当のセル位置に転記したいのですか？
「Sheet1」シートの415行目～513行目を 「印刷シート」シートのAG42～BK81のセル範囲に転記するのは、わかりましたが、
>> 見積(理想の結果）.xls を見た限り、全然合っていないように思うのですが、どういう転記をしたい >> のでしょうか？
これについて、教えていただけないでしょうか？ どのようにしたいのかよくわかりません。もしかして、単純に合わせていないだけですか？ それであれば、再度、合わした形で提示していただきたいです。
あと、
> 『1.部品代』という項目を上から詰めていきたい
とのことですが、「印刷シート」シートのAG2～BK41セルまで転記し終わったあと、まだデータがある 場合は、 B42～AF81セルに転記していきたいのでしょうか？
また、今、気づきましたが、「印刷シート」シートのAG2～BK41、B42～AF81だけですと、20個の設備名 しか転記できないのですが、それ以上あった場合は、どうするのでしょうか？ 「Sheet1」シートの31行目～39行目の項番作成が5個あって、1個あたり「品目」は、最大10を入力 できるわけですから、最大50個の設備名ができるということになると思うのですが、私の考えが違います でしょうか？
(かみちゃん) 2009-05-29 23:31
こんにちは。かみちゃん です。
> サンプルシートの提示をお願いできますか？
「Sheet1」シートのコントロールをすべて廃止し、入力規則等に修正したサンプルを以下にアップしました。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
なお、コントロールを廃止したことによるコードの修正は、まだ対応していません。 取り急ぎ、シートを修正するとともに、
> データベースに値を格納するところまで急いで作ります！
の検討材料にしていただければと思います。
(かみちゃん) 2009-05-30 2:18
かみちゃんさん 夜遅くまでありがとうございます。 サンプル拝見しましたが、すごくいいです。
>> 見積(理想の結果）.xls を見た限り、全然合っていないように思うのですが、どういう転記をしたい >> のでしょうか？
このマクロの使い方の手順なのですが、まず設備が何箇所あって、その設備に必要な部品が 何種類あってということを決めるために、sheet1の項番作成を行います。 UPした原紙は最大設備数、最大品目数（以下フルスケール）となっています。 UPした理想の結果は、例題で 設備が4箇所あって、設備1には部品が1種類、設備2には部品が2種類・・となっているかと思います。 ですので、それに応じてフルスケールから上に詰めていくイメージです。
>>全然合っていないように思うのですが >>印刷シート」シートのAG42～BK81のセル範囲に転記するのは、わかりましたが、 なので、設備数がもっと多ければB82～AF121にもなるし、少なければB42～AF81にもなり得ます。
>>印刷シート」シートのAG2～BK41セルまで転記し終わったあと、まだデータがある >>場合は、 B42～AF81セルに転記していきたいのでしょうか？ はい、その通りです。設備数や品目数によって多くなったり、少なくなったりデータ数は可変するので データがあれば AG2～BK41セル →B42～AF81セル →AG42～BK81 →B82～AF121 →AG82～BK121までとなります。
>>最大50個の設備名ができるということになると思うのですが おそらくフルスケールの話だと思います。 最大はおっしゃる通りで、そこから削っていく？という考え方で作った方がいいのでしょうか。。そこが分からなく難しいんです。
それと、追加なんですが UPした理想の結果では印刷シートで(2)設備名の場合だと、品目が①、②とありますが ②にも(2)設備名となっているセルを消してください。
(2)設備名
①・・・・・・
(2)設備名
②・・・・・・
を
(2)設備名
①・・・・・・
②・・・・・・
以下全ての設備でそうしようと思います。申し訳ないです・・。
（シュン）
こんにちは。かみちゃん です。
>>> 見積(理想の結果）.xls を見た限り、全然合っていないように思うのですが、どういう転記をしたい >>> のでしょうか？ > > このマクロの使い方の手順なのですが、まず設備が何箇所あって、その設備に必要な部品が > 何種類あってということを決めるために、sheet1の項番作成を行います。 > UPした原紙は最大設備数、最大品目数（以下フルスケール）となっています。 > UPした理想の結果は、例題で
であれば、例題がまずいです。 データ数の考え方はわかりますが、 「Sheet1」シートと「印刷シート」シートのデータの関係が全然わかりません。 特に、「人工」以下の部分です。 「Sheet1」シートのN415セルは「5000」なのに、「印刷シート」シートのAK44セルは「1000」となっています。 これを「スライド」という表現をされているので、 データがそのまま転記されていないので、「スライド」とはどういう意味？ ということでわかりません。単純な間違いなのす？ならば、修正してほしいなぁということです。
>>> 印刷シート」シートのAG2～BK41セルまで転記し終わったあと、まだデータがある >>> 場合は、 B42～AF81セルに転記していきたいのでしょうか？ > > はい、その通りです。設備数や品目数によって多くなったり、少なくなったりデータ数は可変するので > データがあれば > AG2～BK41セル →B42～AF81セル →AG42～BK81 →B82～AF121 →AG82～BK121までとなります。 > >>> 最大50個の設備名ができるということになると思うのですが > > おそらくフルスケールの話だと思います。 > 最大はおっしゃる通り
フルスケールという表現と、出力方法は概ね理解できました。 つまり、部品代の項目をすべて出力したあと、左半ページ（B列～AF列）もしくは、右半ページ（AG列～BK列） に出力するということですね。
> UPした理想の結果では印刷シートで(2)設備名の場合だと、品目が①、②とありますが > ②にも(2)設備名となっているセルを消してください。
これは、ご自身で修正していただいて、必要であれば、再提示をしていただきたいと思います。 なお、その際は、上記でも書きました、「Sheet1」シートと「印刷シート」シートの「人工」以下の部分 のデータの転記関係も整理していただきたいと思います。
(かみちゃん) 2009-05-30 9:30
こんにちは。かみちゃん です。
シュンさんが「理想の結果」を再提示していただくのを待っているのですが、
> コントロールを廃止したことによるコードの修正は、まだ対応していません。
これの修正対応が完了しました。 コントロールを廃止したことにより、 「Sheet1」シートの「品目シート作成」ボタンのコードを大幅に見直ししています。
サンプルを以下にアップしなおしましたので、SampleSyun0530_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
また、ついでに、 > 「Sheet1」シートと「印刷シート」シートの「人工」以下の部分のデータの転記関係 も私なりに整合させています。
ただし、「Sheet1」シートの各品目の「単価」をどこから取得してくるのかがよくわかりませんでした。
あとは、「Sheet1」シートから「印刷シート」への転記ですが、 やはり、一旦「data」シート～「data5」シートにデータベースとして転記してから、「印刷シート」 シートに転記したほうがいいのではないかと思いますが、そのあたりは運用上の問題がありますでしょうか？
あと、 > データベースに値を格納するところまで急いで作ります！ とのことですが、少し「data」シート～「data5」シートを見たところ、データベースの考え方が 難しくないでしょうか？ このあたりは、何か制約があるのでしょうか？
(かみちゃん) 2009-05-30 13:08
こんにちは。かみちゃん です。
>> データベースに値を格納するところまで急いで作ります！ >とのことですが、少し「data」シート～「data5」シートを見たところ、データベースの考え方が >難しくないでしょうか？
私だったら、このようにするというものを考えてみました。
サンプルを以下にアップしなおしましたので、SampleSyun0530_2.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
「Sheet1」シートの「データ転記実行」ボタンをクリックすると、「data01」～「data04」シートにデータが転記されます。 「data01」～「data04」の項目名については、大幅に見直ししています。 制約がないならば、このようにしたほうがいいのでは？と思います。
なお、元のdata各シートの中に「人工」と「雑費」部分がないのはなぜなのでしょうか？
あとは、最初のご質問にありました、
>>>印刷シート」シートのAG2～BK41セルまで転記し終わったあと、まだデータがある >>>場合は、 B42～AF81セルに転記していきたいのでしょうか？ > > 設備数や品目数によって多くなったり、少なくなったりデータ数は可変するので > データがあれば > AG2～BK41セル →B42～AF81セル →AG42～BK81 →B82～AF121 →AG82～BK121までとなります。
の対応が残っているのですが、
> 印刷シートで(2)設備名の場合だと、品目が①、②とありますが > ②にも(2)設備名となっているセルを消してください。
とのことと、結合セルを使う必要があるようなので、少し検討に時間がかかるかもしれません。
(かみちゃん) 2009-05-30 15:55
現在、ネットに繋げない状況で携帯から送っています。いろいろ私情があり、こちらが気になっているのですが申し訳ありません。後日改めて回答させて下さい。
・人工場以下の値デタラメですね...。すみません。
・単価は機種名(野菜)を選んだら、部品(野菜)のリストが出て来て、トマトだったらトマト単価を表示するようにしようと考えてましたが、まだ後回しにしてました。
・データベースへ一旦格納した後、印刷シートで運用上問題ありません。
・データベースの考え方が難しいですか？シートを分けたくは無かったのですが、列が256までなので足りなかったというだけなんです。もっといい案ありますか？あるなら教えてもらいたいぐらいです。
・人工と雑費ありませんね...抜けてました。
・最後の設備名を消す話ですが、結合する必要は別にないです。特に制約はありません。全てにありません。
こんにちは。かみちゃん です。
> 単価は機種名(野菜)を選んだら、部品(野菜)のリストが出て来て、トマトだったらトマト単価を表示するようにしようと考えてました
これは、「単価表」を別に作っておいて、VLOOKUP関数で設定するのがいいかと思います。
> データベースの考え方が難しいですか？シートを分けたくは無かったのですが、列が256までなので足 > りなかったというだけなんです。もっといい案ありますか？あるなら教えてもらいたいぐらいです
2009-05-30 15:55 で提案済みです。 「シート」を「テーブル」に見立てて、データベースの正規化という考え方に基づいて整理しています。 正規化についての説明は、私も詳しくないので、割愛しますが、興味があれば、ネット等で調べてみてください。
> いろいろ私情があり、こちらが気になっているのですが
それでは、お時間ができるまで、お待ちすることにします。 ただし、私も、平日は、ほとんど書き込みできませんので、あらかじめご了解ください。
(かみちゃん) 2009-05-30 22:56
かみちゃんさん
長らくお待たせして申し訳ありません。引越ししたばかりで、ネットにつながらず 当面、会社でひっそりと作成することになると思います。。 ご迷惑おかけします。 かみちゃんさんのサンプルを拝見しました。コードの難易度が高くなっており、 理解に時間がかかりそうです。中身は私と同じ結果なになるのに、非常にすっきりしていました。 かみちゃんさんのサンプルSampleSyun0530_2.xlsをベースにしていきたいですが よろしいでしょうか？
>> 単価は機種名(野菜)を選んだら、部品(野菜)のリストが出て来て、 >>トマトだったらトマト単価を表示するようにしようと考えてました >これは、「単価表」を別に作っておいて、VLOOKUP関数で設定するのがいいかと思います。 かみちゃんさんの提案で、VLOOKUPを勉強し、下記のファイルが単価表のイメージです。
http://firestorage.jp/download/03d10d42b17f3f2f0929cfebb879cda2db64252c
SampleSyun0530_2.xlsのsheet1では入力規則なので、VLOOKUP関数と入力規則の併用はどうしたら 良いでしょうか？ もっと良い単価表のアイデアはありますか？ 宜しくお願いします。 (シュン)
こんにちは。かみちゃん です。
> SampleSyun0530_2.xlsをベースにしていきたい
それは構いませんが、
>> データベースに値を格納するところまで急いで作ります！ >とのことですが、少し「data」シート～「data5」シートを見たところ、データベースの考え方が >難しくないでしょうか？
について、勝手ながら、提案させていただいていますので、お時間があるときにでもご確認いただければと思います。 (今回のご質問とは、直接関係はないのかもしれませんが、データベースに転記してから、「印刷シート」シートに転記したほうがいいのでは？ と考えています)
> VLOOKUP関数と入力規則の併用はどうしたら良いでしょうか？ > もっと良い単価表のアイデアはありますか？
「部品名」が重複することはあるのでしょうか？ 重複がないのであれば、アップしていただいた、VLOOKUP勉強.xls の「単価表」シートのA列は必要ありません。 重複があるのであれば、機種名と部品名で重複がない場合は、少し工夫をすることになると思います。 機種名と部品名でも重複がある場合は、どのような状況なのかを教えてください。
また、単価表は、途中で改定するということはないのでしょうか？ そうなると、VLOOKUP関数は、なじまないのかもしれません。
(かみちゃん) 2009-06-06 14:31
かみちゃんさん こんにちは、シュンです。お世話になっております。
>> データベースに値を格納するところまで急いで作ります！ >>とのことですが、少し「data」シート～「data5」シートを見たところ、データベースの考え方が >>難しくないでしょうか？ >について、勝手ながら、提案させていただいていますので、お時間があるときにでもご >確認いただければと思 います。 >(今回のご質問とは、直接関係はないのかもしれませんが、データベースに転記してから、 >「印刷シート」シートに転記したほうがいいのでは？ >と考えています)
データベースの正規化ですね！調べてみましたが、ちょっと難しかったです。 かみちゃんさんのdata01～data04を拝見し、データベースの考え方の勉強になりました。 将来的には、見積№からの検索も考えているので 僕もデータベースに転記してから、「印刷シート」シートに転記が良いと思います。
>「部品名」が重複することはあるのでしょうか？ あります。。 例えば、機種名が「スクーター」で部品名が「タイヤ」 機種名が「車」で部品名が「タイヤ」 と、こういうことでしょうか？これはありえます。
>単価表は、途中で改定するということはないのでしょうか？ ありえます。単価の改定、部品、機種の増減があります。 そうなるとVLOOKUP関数は適さないのですか？
（シュン）
こんにちは。かみちゃん です。
> 例えば、機種名が「スクーター」で部品名が「タイヤ」 > 機種名が「車」で部品名が「タイヤ」 > と、こういうことでしょうか？
そうです。それであれば、理解しました。
> 単価の改定、部品、機種の増減があります。 > そうなるとVLOOKUP関数は適さないのですか？
部品、機種の増減は構わないのですが、単価の改定があるならば、Sheet1の単価は、その時点の単価に なり、「印刷シート」シートの単価は、見積時点の単価になりますが、それでいいのでしょうか？
なお、単価表ですが、機種ごとに部品名一覧を設けて、部品名の横に単価を設定したほうがいいのではないでしょうか？
(かみちゃん) 2009-06-06 15:13
かみちゃんさん
>部品、機種の増減は構わないのですが、単価の改定があるならば、Sheet1の単価は、その時点の単価に >なり、「印刷シート」シートの単価は、見積時点の単価になりますが、それでいいのでしょうか？ 良いです。そこまでこだわる必要もありませんので(^^)
>単価表ですが、機種ごとに部品名一覧を設けて、部品名の横に単価を設定したほうがいいのではないでしょうか？ その方が良いのでしょうか・・いまいちピンときません・・(><)
例えばsheet1の機種名「魚」を選択すると、sheet1の部品名で魚一覧が表示・・・① その魚一覧の中で鮭を選択すると、VLOOKUPで単価表の鮭の横の単価がsheet1の単価に表示される・・・② ①＋②の数式をsheet1の単価に入れておけば良いのでしょうか？ VLOOKUPに慣れてないのでよくわかりません。。
（シュン）
こんにちは。かみちゃん です。
> 機種ごとに部品名一覧を設けて、
というところについては、現在のシートが
> Sheet1の機種名「魚」を選択すると、sheet1の部品名で魚一覧が表示
になっていないので、お尋ねしています。 機種名で「魚」を選択しても、部品名で「豚」を選択できるようにしているのですが、ご確認いただけていますか？
(かみちゃん) 2009-06-06 15:44
かみちゃんさん なかなか理解するまで難しいです・・。 http://www.kenzo30.com/ex_kisopoint/onepoint_sonota3.htm#Q4 上記を参考に動的にリストが変化するというのを勉強しましたが、うまくいきません。
http://firestorage.jp/download/fe0025e8e5c2cf5095a3d867206cbe0bc9f560e7 上記HPを参考に作ってみたのがVLOOKUP勉強2.xlsとなります。
肉を選択すれば、肉類一覧が表示されるはずなんですが・・。 （シュン）
こんにちは。かみちゃん です。
とりあえず、
> 肉を選択すれば、肉類一覧が表示されるはず
入力規則で指定している「名前定義」の範囲が違います。 まず、「単価表2」シートのA列とB列を列挿入します。 A1セルに"機種名"、A2セルに"肉"、A3セルに"魚"、A4セルに"野菜" とします。 さらに、C1セルに=A1、E1セルに=A2、G1セルに=A3 という数式を設定します。
定義「機種名」は、=単価表2!$A$2:$A$4 定義「肉」は、=単価表2!$C$2:$C$7 定義「魚」は、=単価表2!$E$2:$E$7 定義「肉」は、=単価表2!$G$2:$G$7 とします。 これで、肉を選択すれば、肉類一覧が表示されると思います。
なお、単価ですが、VLOOKUP関数等の関数で表示を考えてみましたが、以下のようなシートレイアウト であれば、関数での処理になると、処理も重たくなりそうなので、私ならVBAで処理してしまいますが いかがいたしましょうか？
A B C D E F G H
1 機種名 肉 魚 野菜
2 肉 豚 100 サケ 1000 キャベツ 10
3 魚 牛 200 サンマ 2000 白菜 20
4 野菜 鶏 300 イワシ 3000 人参 30
5 猪 400 アジ 4000 ゴボウ 40
6 馬 500 タイ 5000 きゅうり 50
7 羊 600 マクロ 6000 レンコン 60
(かみちゃん) 2009-06-06 18:49
かみちゃんさん
ご指摘ありがとうございました。リストの方法を理解できました。
>単価ですが、VLOOKUP関数等の関数で表示を考えてみましたが、以下のようなシートレイアウト >であれば、関数での処理になると、処理も重たくなりそうなので、私ならVBAで処理してしまいますが >いかがいたしましょうか？ VBAで処理が軽くできるのであれば、ぜひよろしくお願いします。 申し訳ありませんが、本日はここまでしかネットにつなげそうにありません。 また日があくかもしれませんが、ご了承くださいm(__)m （シュン）
こんにちは。かみちゃん です。
>> 単価ですが、VLOOKUP関数等の関数で表示を考えてみましたが、以下のようなシートレイアウト >> であれば、関数での処理になると、処理も重たくなりそうなので、私ならVBAで処理してしまいますが >> いかがいたしましょうか？ > > VBAで処理が軽くできるのであれば、ぜひよろしくお願いします。
VBAで処理する一例を以下にアップしましたので、SampleSyun0606_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
> また日があくかもしれませんが、ご了承ください
了解しました。 お時間があくまでお待ちしますが、私は、平日の場合は、対応が遅くなることをご了承ください。
(かみちゃん) 2009-06-06 22:20
かみちゃんさん
お世話になっておりおります。 SampleSyun0606_1.zipを拝見しました。 コードを理解しようとmsgboxで1行1行確認しようとしましたが、困難でした・・。 できれば、注釈を入れていただけないでしょうか？
下記はSampleSyun0606_1.zipをsampleSyun0530_2.xls用に応用しようとしています。 http://firestorage.jp/download/a97d20ccbdb3d7e9131fa1098702971aa5f6ff67
アドバイス宜しくお願いします。 （シュン）
こんにちは。かみちゃん です。
> 下記はSampleSyun0606_1.zipをsampleSyun0530_2.xls用に応用しようとしています。
SampleSyun0530_2.xls に 入力された値に連動した単価表の参照を反映させたファイルをアップしました。 SampleSyun0530_3.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
> できれば、注釈を入れていただけないでしょうか？
申し訳ありませんが、最初からすべてにわかりやすい注釈を入れることは日本語のセンスもないので、できません。 まずは、シュンさんご自身でヘルプ等を調べて、注釈を付けてみてください。
なお、単価を取得している Function FindTanka(strFind As String) As Long
End Function は、Sheet1の機種名と部品名を"-"で繋げた、たとえば、肉-牛 が単価表（入力規則シートのC1セルを 含む空白行と空白列で囲まれた範囲（CurrentRegion このシートの場合C1:H7））の値を配列変数に 取得して、配列の1行目は、機種名、奇数列は、部品名になるので、その組み合わせの中から、 肉-牛 に一致している場所をFor ～ Next で総あたりで検索しています。 見つかったら、隣の配列要素が、単価になるという仕組みです。
(かみちゃん) 2009-06-08 22:50
かみちゃんさん
いつもお世話になっております。 SampleSyun0530_3.zipに注釈を付けてみました。 自分で調べることで少しずつ理解できてきました。
それと、品目数を変更し、機種名・部品名を選ぼうとすると セルの保護がかかっているため、正常に動きませんでした。 現状はセル全体を選択しシートの保護の解除をしています。 http://firestorage.jp/download/9c44a31fb5583d9b324263bdb5e85068c1d145c7 当初の目的である >①出力シートの『1.部品代』という項目を上から詰めていきたいのです。 >②『2.人工』の半ページはそのままスライドしたいです。 について教えていただけないでしょうか？ 宜しくお願いします。 （シュン）
こんにちは。かみちゃん です。
> それと、品目数を変更し、機種名・部品名を選ぼうとすると > セルの保護がかかっているため、正常に動きませんでした。
こちらでは、そのような事象は確認できていないのですが、確認してみます。
>当初の目的である >>①出力シートの『1.部品代』という項目を上から詰めていきたいのです。 >>②『2.人工』の半ページはそのままスライドしたいです。 >について教えていただけないでしょうか？
その前に、 >> SampleSyun0530_2.xls に 入力された値に連動した単価表の参照を反映させた は、あのような形でよかったのでしょうか？
そこが、クリアされれば、やっと本題なのですが・・・ 実は、結合セルをつかっていることと、 > 印刷シートで(2)設備名の場合だと、品目が①、②とありますが > ②にも(2)設備名となっているセルを消してください。 の対応と、それに伴う > 半ページはそのままスライド が、難航しています。
ちょっと、平日は時間がとりにくいので、13日くらいまで時間をいただければありがたいのですが・・・
(かみちゃん) 2009-06-11 12:48
かみちゃんさん
>その前に、 >> SampleSyun0530_2.xls に 入力された値に連動した単価表の参照を反映させた >は、あのような形でよかったのでしょうか？ 十分過ぎます！ありがとうございます。
>ちょっと、平日は時間がとりにくいので、13日くらいまで時間をいただければありがたいのですが・・・ 本当に申し訳なく思います。 13日と言わず、こちらは急いでおりませんので、時間の空いたときに手を貸していただければ 幸いです。 宜しくお願いします。 （シュン）
こんにちは。かみちゃん です。
>①出力シートの『1.部品代』という項目を上から詰めていきたいのです。 >②『2.人工』の半ページはそのままスライドしたいです。
遅くなりましたが、これらの点について対応したファイルをアップしました。 SampleSyun0613_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
検証不足のところがあり、まだまだ不具合や改良の余地があったり、コード自体もあまりスマートではないのですが、 とりあえず、ご要望の部分は動作すると思います。
データベースに転記後に 「印刷シート」のY2セルに見積No.を入力すると、それに一致する見積データ が抽出され、転記されます。
不具合がないか、いろいろテストしてみてください。
(かみちゃん) 2009-06-14 2:08
かみちゃんさん 現在SampleSyun0613_1.xlsを確認中です。 すばらしい大作ができました！ありがとうございました。 いろいろ試してみます。
本当にどうもありがとうございました。 （シュン）
こんにちは。かみちゃん です。
> 現在SampleSyun0613_1.xlsを確認中です。
不具合があれば、ご連絡いただければと思います。 実は、不安な要素が結構ありますが、一度にたくさんのことをお聞きするわけにもいきませんので、 十分な検証をしていただければと思います。
(かみちゃん) 2009-06-15 20:36
かみちゃんさん
こんにちは、シュンです。
いろいろまだ検証中なのですが、Range("部品名" & i).Validationを使っていらっしゃらないので
入力規則リストをsheet1のプルダウンへどうやって引っ張ってきているのかが
よく分かりません。
ご教授願えませんか？
用は肉や魚を実際のものに置き換えて試してみたいんです。
(シュン)
こんにちは。かみちゃん です。
> 入力規則リストをsheet1のプルダウンへどうやって引っ張ってきている
今のところは、あらかじめ、一般操作で「挿入」－「名前」－「定義」で設定しています。 つまり、VBAで再定義などはしていませんので、現時点では、一般操作で定義のセル範囲を指定してみてください。 今、出先からの書き込みで、ファイルを見ることができませんので、具体的内容は今夜、示させていただきます。
(かみちゃん) 2009-06-17 12:38
こんにちは。かみちゃん です。
> 入力規則リストをsheet1のプルダウンへどうやって引っ張ってきている
「入力規則」シートのA列が機種名のリストになっています。 そこには、「肉」「魚」「野菜」となっています。 それに対して、C列の範囲が「リスト肉」、E列の範囲が「リスト魚」、G列の範囲が「リスト野菜」 という定義になっています。 そのため、A5セルが「果物」となれば、I列に2列挿入して、I列の範囲を「リスト果物」として 名前の定義をする必要があります。 このことから、必ず、「リスト○○」（○○はA列の値）という定義を作っていく必要があります。
「入力規則の再設定」という処理のVBAを作っておいたほうがいいでしょうか？ A列に入力した分だけ、単価表の範囲設定をして、他のリストの部分も、最終行を判断して再定義 するといったものです。
このような内容は、必要かもしれません。 ただ、ちょっと時間がないので、20日の夜くらいまでお待ちいただけるとありがたいです。
(かみちゃん) 2009-06-17 23:55
かみちゃんさん
お世話になっております。 ちょっと教えて下さい。 例えば入力規則リストのA2の機種名の肉を果物としたら部品名が選べなくなってしまいました。
それとリスト肉、リスト魚、リスト野菜がというのがあるのに リスト部品名というのが何に使っているのかが分かりません。
>「入力規則の再設定」という処理のVBAを作っておいたほうがいいでしょうか？ 便利だと思いますのでぜひお願いします。
お忙しい中恐縮ですが教えてください。 (シュン)
かみちゃんさん
>例えば入力規則リストのA2の機種名の肉を果物としたら部品名が選べなくなってしまいました。
名前の定義をしなおし、リスト肉を削除し、リスト果物と定義しなおすことで解決しました・・が、 名前の定義は「」や[]（）とかスペースも使えないんですね・・。 名前を区切る良い方法はありませんか？ 自分でも調べてみます。 （シュン）
出先からなので、簡単に。 名前の定義を区切る必要性があるのでしょいか？ 今回の場合では、「リスト」で始めるとう制約だけです
かみちゃんさん
名前の定義で区切れたら見やすいと思っただけで、特に問題ありません。
別件でエラーになったので報告します。 sheet1の機種名、部品名等に空欄があった状態でデータ転記し その見積№を印刷シートに呼び出すと モジュール6の下記でエラーになりました。 .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名
宜しくお願いします。
あと、部品名の文字数が長くなり、印刷シートの部品名セルに収まりません・・。 そのセルを結合しても問題ありませんか？ (シュン)
こんにちは。かみちゃん です。
>>「入力規則の再設定」という処理のVBAを作っておいたほうがいいでしょうか？ > 便利だと思いますのでぜひお願いします。
検討してみますので、20日の夜くらいまでお待ちいただけるとありがたいです。
> sheet1の機種名、部品名等に空欄があった状態でデータ転記し > その見積№を印刷シートに呼び出すと > モジュール6の下記でエラーになりました。 > .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名
確認してみますが、エラーが出るブックをアップしていただけると助かります。 こちらも20日の夜くらいまでお待ちいただけるとありがたいです。
> 部品名の文字数が長くなり、印刷シートの部品名セルに収まりません・・。 > そのセルを結合しても問題ありませんか？
どのように結合なのかはわかりませんが、 印刷シートのAW4:BF4を横方向に拡張していただく分には、問題ないかと思います。
(かみちゃん) 2009-06-20 2:00
こんにちは。かみちゃん です。
>>「入力規則の再設定」という処理のVBAを作っておいたほうがいいでしょうか？ > 便利だと思いますのでぜひお願いします。
遅くなりましたが、対応したファイルをアップしました。 SampleSyun0621_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
Sheet1にある、「入力規則設定」というボタンで入力規則の再設定がされます。 なお、「入力規則」シートについては、A列に、機種名を設定します。 B列は空白 C列には、A2セルの機種の部品名、ただし、C1セルはA2セルの値 D列には、C列の単価 E列には、A3セルの機種の部品名、ただし、E1セルはA3セルの値 F列には、E列の単価 G列には、A4セルの機種の部品名、ただし、G1セルはA4セルの値 H列には、G列の単価 I列、J列は空白列 とします。 A5セルに機種名を設定したならば、I列とJ列に列挿入して、 I列には、A5セルの機種の部品名、ただし、I1セルはA5セルの値 J列には、I列の単価 K列、L列は空白列 とします。
>> sheet1の機種名、部品名等に空欄があった状態でデータ転記し >> その見積№を印刷シートに呼び出すと >> モジュール6の下記でエラーになりました。 >> .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名 > > 確認してみます
こちらについては、エラーは確認されませんでした。 SampleSyun0621_1.zip のSheet1 の ピンクの網掛けした部分で動作確認してみました。
(かみちゃん) 2009-06-21 16:33
かみちゃんさん お世話になっております。 まだSampleSyun0621_1.xlsを拝見しました。 まだ入力規則設定については未確認なのですが、SampleSyun0621_1.xlsで >> sheet1の機種名、部品名等に空欄があった状態でデータ転記し >> その見積№を印刷シートに呼び出すと >> モジュール6の下記でエラーになりました。 >> .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名 > > 確認してみます 上記でエラーが出ました。 極端なやり方でフルスケールで空欄がたくさんある状態でやってみてください。 errになります。
もうひとつ報告します。 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと その点線が移動してしまいます。 印刷プレビューで確認したらお分かりになるかと思います。
恐縮ですが、宜しくお願いします。 (シュン)
こんにちは。かみちゃん です。
> 上記でエラーが出ました。 > 極端なやり方でフルスケールで空欄がたくさんある状態でやってみてください。 > errになります。
SampleSyun0621_1.zip のSheet1 の ピンクの網掛けした部分を空白になつていると思いますが、この場合でもエラーになるか 教えていただけませんか？
そのうえで、シュンさんのほうで、エラーになっているブックをアップしていただくことはできませんか？ そのファイルを見て、再現できないとどうしようもないです。
> 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと > その点線が移動してしまいます。
確認してみますが、出先なので、夜になります。
(かみちゃん) 2009-06-22 12:40
かみちゃんさん
いつもお世話になっております。
>SampleSyun0621_1.zip のSheet1 の ピンクの網掛けした部分を空白になつていると思いますが、 >この場合で もエラーになるか 教えていただけませんか？ 実行したところエラーにはなりませんでした。
>そのうえで、シュンさんのほうで、エラーになっているブックをアップしていただくことはできませんか？ >そのファイルを見て、再現できないとどうしようもないです。 以下にUPしました。 err前というのは、品目をALL5品目にしただけのファイルです。 これをデータ転記し、印刷シートに呼び出すとerr後のファイルになりました。 検証宜しくお願いします。
err前 http://firestorage.jp/download/9852025def1fb61c1eb52ed29353e94558552962
err後 http://firestorage.jp/download/de60dcd8efd3576936c4519f6b77ca992967708e
それと遅れましたが「入力規則の再設定」すごく便利でした。 ありがとうございました。 (シュン)
かみちゃんさん
立て続けに恐縮です。 下記のファイルはsheet1の各入力セル全てにローマ字を入力しました。 A・・B・・C・・AA・・BB・・AAA・・BBB・・・MMMまで それをデータ転記し、印刷シートに取得できているか確認したところ 下記の項目が反映されていませんでした。 ・題目 H ・人工 FF～XX（小計も） ・雑費 YY～MMM（小計も） ・合計
http://firestorage.jp/download/6589a64cf2c24f66dd170fb85b83d61222e852af
部品代までということですよね？ 催促しているようで申し訳ないです。宜しくお願いします。 (シュン)
こんにちは。かみちゃん です。
>> 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと >> その点線が移動してしまいます。 > > 確認してみますが、出先なので、夜になります。
遅くなりましたが、こちらからUPしたファイルでは、そのような事象は確認できません でした。 本日、ファイルをUPしていただいたようですので、出先から戻り次第、再度、今夜 確認させていただきます。
>>そのうえで、シュンさんのほうで、エラーになっているブックをアップしていただくことはできませんか？ >>そのファイルを見て、再現できないとどうしようもないです。 > 以下にUPしました。
ようやく、ファイルをUPしていただいたようですので、出先から戻り次第、今夜 確認させていただきます。
> 下記の項目が反映されていませんでした。 > ・題目 H > ・人工 FF～XX（小計も） > ・雑費 YY～MMM（小計も） > ・合計
対応していません。 最初からそのようなデータベースの要件になっていなかったと思います。 おかしいなぁとは思っていましたが、
> 教えて頂きたいのは > ①出力シートの『1.部品代』という項目を上から詰めていきたいのです。 > ②『2.人工』の半ページはそのままスライドしたいです。 > > とりあえず、データベースに値を格納するところまで急いで作ります！
とのことでしたので、あえて、触れていません。
> 部品代までということですよね？
そういうことです。
> 催促しているようで申し訳ないです。
もう一ヶ月近く掲示板で対応しているので、私は構いませんが、 私も、本業の傍らで対応していますので、特に平日の日中は対応が遅くなることは、 ご了解いただければと思います。
(かみちゃん) 2009-06-23 11:48
かみちゃんさん
最初にですが、ここまで対応して下さいまして本当に感謝しています。 いろいろ最初に説明不足でした。。 できれば下記の所も対応していただけないでしょうか？
>> 下記の項目が反映されていませんでした。 >> ・題目 H >> ・人工 FF～XX（小計も） >> ・雑費 YY～MMM（小計も） >> ・合計 >対応していません。 >最初からそのようなデータベースの要件になっていなかったと思います。 >おかしいなぁとは思っていましたが、
お時間はいつでも構いません。 よろしくお願いします。 (シュン)
こんにちは。かみちゃん です。
> できれば下記の所も対応していただけないでしょうか？
わかりました。とりあえず、今夜考えさせてください。
(かみちゃん) 2009-06-23 12:52
こんにちは。かみちゃん です。
遅くなりましたが、添付ファイル拝見しました。 Sheet1のこのような入力のされ方は、ありえるのでしょうか？ 想定していませんでした。
>> sheet1の機種名、部品名等に空欄があった状態でデータ転記し >> その見積№を印刷シートに呼び出すと >> モジュール6の下記でエラーになりました。 >> .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名
Module4 の
'機種名～単位の転記
With Sheets("data04")
'転記済み最終行を取得
lngMaxRow = .Range("A" & .Rows.Count).End(xlUp).Row
'データ転記
lngRow = lngMaxRow + 1
For i = 1 To 50
If Range("機種名" & i).Value <> "" Or Range("部品名" & i).Value <> "" Or _
Range("単価" & i).Value <> "" Or Range("個数" & i).Value <> "" Or Range("単位" & i).Value <> "" Then
の部分を
'機種名～単位の転記
With Sheets("data04")
'転記済み最終行を取得
lngMaxRow = .Range("A" & .Rows.Count).End(xlUp).Row
'データ転記
lngRow = lngMaxRow + 1
For i = 1 To 50
If Not Range("機種名" & i).EntireRow.Hidden Then
としてみてください。
>> 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと >> その点線が移動してしまいます。
Sheet1の品目数の入力値によっては、そのような事象、さらには、部品代の最終ページの位置がおかしいことがわかりました。 原因調査中ですので、しばらくお時間をいただきたいと思います。
> できれば下記の所も対応していただけないでしょうか？ > >> 下記の項目が反映されていませんでした。 >> ・題目 H >> ・人工 FF～XX（小計も） >> ・雑費 YY～MMM（小計も） >> ・合計
この点については、データベースの設計から考えないといけませんので、27日土曜日くらいまで時間を いただければと思います。
(かみちゃん) 2009-06-24 6:12
かみちゃんさん いつもお世話になっています。 >データベースの設計から考えないといけませんので 最初に説明が足りなかったばかりに、お手数おかけ致します。 申し訳ありませんが宜しくお願いします。
(シュン)
こんにちは。かみちゃん です。
>>データベースの設計から考えないといけませんので > 最初に説明が足りなかったばかりに、お手数おかけ致します。
それは構わないのですが、
>> sheet1の機種名、部品名等に空欄があった状態でデータ転記し >> その見積№を印刷シートに呼び出すと >> モジュール6の下記でエラーになりました。 >> .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名
の対応はしていただいたのでしょうか？
>> 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと >> その点線が移動してしまいます。
こちらは原因がわかったものの、別の不具合を発見しましたので、現在対処中です。 本日は、少し時間がありそうなので、午前中を目処にファイルをUPできると思います。
(かみちゃん) 2009-06-25 8:33
かみちゃんさん
おはようございます。 こんなに早くレス頂けると思ってなかったので、今ファイルのUPを準備していました。 >> sheet1の機種名、部品名等に空欄があった状態でデータ転記し >> その見積№を印刷シートに呼び出すと >> モジュール6の下記でエラーになりました。 >> .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名
上記の件で、設備5、品目5で実行したものをUPしました。 モジュール6の下記でエラーはでなくなりましたが、印刷シートで 人工以下が印刷範囲外になるのと、人工の後ろに部品代が入っていました。
http://firestorage.jp/download/beb8052cf933c953c90b661616ecd3ce89bc3a1b
別件ですがもうひとつみつけました。 例えばsheet1に品目1,2,3,5,5と入力し品目シートの作成ボタンを押下せず データ転記をし、印刷シートに呼び出すと下記でerrになりました。 module6 .Cells(1, 6).Value = vntData(dic(strKey), 2) '機種名 err
http://firestorage.jp/download/b0ce2f7fb1c15cdaeb36f7e27db3196cc05a4d0b
なるべく早くレスをするように心がけます。 よろしくお願い致します。
（シュン)
こんにちは。かみちゃん です。
> 人工以下が印刷範囲外になるのと、人工の後ろに部品代が入っていました。
これが、私のほうでも、新たに見つけた不具合です。 本日、午前中を目処に対処する予定です。
> 例えばsheet1に品目1,2,3,5,5と入力し品目シートの作成ボタンを押下せず > データ転記をし、印刷シートに呼び出すと下記でerrになりました。
確認してみます。
(かみちゃん) 2009-06-25 9:20
こんにちは。かみちゃん です。
遅くなりましたが、ファイルをUPしました。 SampleSyun0625_2.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
対応した不具合な点は以下のとおりです。
>> 印刷シートにはセンターに点線があると思いますが、データベースから呼び出すと >> その点線が移動してしまいます。 > >> 人工以下が印刷範囲外になるのと、人工の後ろに部品代が入っていました。 > >> 例えばsheet1に品目1,2,3,5,5と入力し品目シートの作成ボタンを押下せず >> データ転記をし、印刷シートに呼び出すと下記でerrになりました。
3点目の使い方については、「品目データ作成」をしていなければ（想定外の操作ですが）、 不具合が発生する場合がありましたので、不具合が起こるようなデータの場合は、データ転記の際に チェックをして、処理を中止し、転記できないようにしています。 このため、UPしていただいた 見積20090625_1err後2.xls のファイルにある不具合が発生するデータ、見積No.5と6を削除しています。
なお、こちらで別件で不安定なところを見つけていますので、もう少し検証してみますが、とりあえず、 UPしてみたファイルで確認してみてください。
現在検証中、取組中の内容をお知らせしておきます。 ・上記不安定箇所の検証 ・印刷シートで、存在しない見積Noを入力した場合、エラーになる ・題目、人工、雑費、合計のデータベース作成
その他認識違いのところがあれば、お知らせください。
(かみちゃん) 2009-06-25 11:25
かみちゃんさん
SampleSyun0625_2.xlsを実行しました。 2009-06-25 11:25(かみちゃん) で1点目ですが設備5、品目5で実行したところ、まだ点線が変な位置にありました。
http://firestorage.jp/download/9bc18f122d1fca38ae88110c6aaec1224f08d238
その他認識違いはもうありません。 大丈夫です。宜しくお願いします。
(シュン)
こんにちは。かみちゃん です。
> SampleSyun0625_2.xlsを実行しました。
で、いかがでしたか？ お知らせいただいていた不具合は直っているかと思うのですが、まず、そこから、教えていただけませんか？
> 1点目ですが設備5、品目5で実行したところ、まだ点線が変な位置にありました。
変な位置とはどこですか？ 人工が左半ページにある場合に、左端にも点線が引かれるということですか？ 次回のファイルをアップロードする際に、修正しますが、とりあえず、ページの真ん中の縦の点線を一度消して、 引きなおしていただけると、変な位置には、現れないと思います。
(かみちゃん) 2009-06-25 14:59
こんにちは。かみちゃん です。
>> ・不安定箇所の検証 >> ・印刷シートで、存在しない見積Noを入力した場合、エラーになる > > 設備5、品目5で実行したところ、まだ点線が変な位置にありました。
以上3点の改修をしましたので、以下にファイルをファイルをUPしました。 SampleSyun0625_3.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
あとは、 >・題目、人工、雑費、合計のデータベース作成 だとは思いますが、検討していましたら、題目だけではなく、印刷シートの1ページ目の左半ページの 情報が反映されていません。 印刷シートの1ページ目の左半ページの情報を「題目」とおっしゃっていますか？ それとも、印刷シートの1ページ目の左半ページの情報は反映されなくてもいいということはにないですよね？
(かみちゃん) 2009-06-25 19:15
>題目だけではなく、印刷シートの1ページ目の左半ページの >情報が反映されていません。 こちらの情報の反映もでした...よろしくお願いします。
(シュン)
こんにちは。かみちゃん です。
>>題目だけではなく、印刷シートの1ページ目の左半ページの >>情報が反映されていません。 >こちらの情報の反映もでした...よろしくお願いします。
わかりましたが、
>>> SampleSyun0625_2.xlsを実行しました。 >> >> で、いかがでしたか？ >> お知らせいただいていた不具合は直っているかと思うのですが、まず、そこから、教えていただけませんか？
と
>>> ・不安定箇所の検証 >>> ・印刷シートで、存在しない見積Noを入力した場合、エラーになる >> >> 設備5、品目5で実行したところ、まだ点線が変な位置にありました。 > > 以上3点の改修をしましたので、以下にファイルをファイルをUPしました。
は、ご確認いただけたのでしょうか？
このご確認をいただけないのなら、次の改修の着手は控えさせていただきたいのですが・・・
(かみちゃん) 2009-06-27 18:37
すみません。家にネットがつながっていないため、確認したくてもできないんです。
SampleSyun0625_3.zipはまだ見てないんです。ごめんなさい。
>>> SampleSyun0625_2.xlsを実行しました。 >> >> で、いかがでしたか？ >> お知らせいただいていた不具合は直っているかと思うのですが、まず、そこから、教えていただけませんか？
については、
大丈夫ですだけじゃ言葉が足りませんでした。
エラー処理されていたので完璧でした。ありがとうございました。
>変な位置とはどこですか？ >人工が左半ページにある場合に、左端にも点線が引かれるということですか？ はいその通りです。
>次回のファイルをアップロードする際に、修正しますが、とりあえず、ページの真ん中の縦の点線を一度消して、 >引きなおしていただけると、変な位置には、現れないと思います。
すみません、これもまだ自分で試していません。
月曜日にSampleSyun0625_3.zipをすぐ確認しますので、お待ち頂けないでしょうか？
(シュン)
こんにちは。かみちゃん です。
> 家にネットがつながっていないため、確認したくてもできないんです。
この書き込みをしている環境では、確認できないのでしょうか？ まだ、そういう事象がおありだったりなら、早めに、「○○まで待ってほしい」とお知らせしていただきたいと思います。
> 大丈夫ですだけじゃ言葉が足りませんでした
「大丈夫です」とは初めてお聞きしました。
> SampleSyun0625_2.xlsを実行しました。
としか、伺っていないので、それで「どうだったのですか？」とお聞きしました。
> これもまだ自分で試していません。 > 月曜日にSampleSyun0625_3.zipをすぐ確認しますので、お待ち頂けないでしょうか？
いろいろ事情もおありのようですから、私のほうはお待ちしますが、 2009-06-25 19:15 には、提供していますので、お待ちしています。
なお、月曜日まで待ってほしいということでしたら、
>>・題目、人工、雑費、合計のデータベース作成 > だとは思いますが、検討していましたら、題目だけではなく、印刷シートの1ページ目の左半ページの > 情報が反映されていません。
について、
>> データベースの設計から考えないといけませんので、27日土曜日くらいまで時間をいただければと思います。
と、申し上げましたが、勝手ながら、ご確認いただいてから提案させていただくことにしたいと思います。
(かみちゃん) 2009-06-27 23:12
はい、携帯でやりしています。おっしゃる通り～日まで待って欲しいと告げるべきでした。 月曜日に確認後すぐに回答します。その後引き続き対応よろしくお願いしますm(__)m
(シュン)
こんにちは。かみちゃん です。
> 月曜日に確認後すぐに回答します。その後引き続き対応よろしくお願いします
了解しました。お待ちしています。 なお、平日日中の書き込みは、基本的には難しいことをご了承ください。
(かみちゃん) 2009-06-27 23:43
かみちゃんさん おはようございます。お待たせして申し訳ありません。 SampleSyun0625_3.zipを確認しました。 >>> ・不安定箇所の検証 >>> ・印刷シートで、存在しない見積Noを入力した場合、エラーになる >> >> 設備5、品目5で実行したところ、まだ点線が変な位置にありました。 > > 以上3点の改修をしましたので、以下にファイルをファイルをUPしました。
不安定箇所及び見積№が存在しない場合のエラー処理と 点線が変な位置は修正されていました。 ありがとうございました。 （シュン）
こんにちは。かみちゃん です。
> 不安定箇所及び見積№が存在しない場合のエラー処理と > 点線が変な位置は修正されていました。
ご確認ありがとうございます。
>>・題目、人工、雑費、合計のデータベース作成 > だとは思いますが、検討していましたら、題目だけではなく、印刷シートの1ページ目の左半ページの > 情報が反映されていません。
について、検証中ですが、現在うまく動作していません。 本日、夜にはUPするつもりでいますので、お待ちいただきたいと思います。
それまでに、 SampleSyun0625_3.zip で、他に不具合な箇所がないかの検証をしていただければ、助かります。
(かみちゃん) 2009-06-30 6:16
かみちゃんさん
SampleSyun0625_3.xlsを検証中です。 1,2時間いろいろ試してますが、不具合は今のところありません。
宜しくお願いします。 (シュン)
こんにちは。かみちゃん です。
遅くなりましたが、
>>題目だけではなく、印刷シートの1ページ目の左半ページの >>情報が反映されていません。
については、まだ対応できていないのですが、
>・題目、人工、雑費、合計のデータベース作成
について、データベースへの転記、印刷シートへの転記ができるようになり、 以下にファイルをファイルをUPしましたので、ご確認していただけますでしょうか？ SampleSyun0701_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
(かみちゃん) 2009/07/01 6:20
こんばんは、お世話になっています。 SampleSyun0701_1.zipを拝見しました。題目、人工、雑費、合計のデータベース作成を確認しました。ありがとうございました。 引き続きこちらでも不具合がないかいろいろ試してみます。
(シュン)
こんにちは。かみちゃん です。
遅くなりましたが、
>>題目だけではなく、印刷シートの1ページ目の左半ページの >>情報が反映されていません。
こちらに対応しました。 以下にファイルをファイルをUPしましたので、ご確認していただけますでしょうか？ SampleSyun0702_1.zip をダウンロードして見てみてください。 http://kamicha1.web.fc2.com/Excel/Syun20090529.html
なお、これですべての要件には対応したものと認識しています。
相当作りこんでしまったので、少しのフォーマット変更でもあった場合は、VBAコードの内容が理解できないと対応が難しいかもしれません。 そのときは、また聞いていただいても構わないのですが、ここの掲示板は、今までは時間のある限りコメントを書いてきましたが、 諸般の事情により、今後あまり見ないかもしれませんので、あらかじめご了承ください。 （ただ、上記ページには、連絡先は記載しておきました。）
(かみちゃん) 2009-07-02 21:51
かみちゃんさん 長期に亘り、対応してくださいましてありがとうございました。
コードを拝見しましたが、私にはレベルが高すぎて理解するまで時間がかかりそうです。 勉強し、応用ができるようにがんばりたいと思います。
本当に感謝しています。 (シュン)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.