| |
ＶＢＡをなんとか理解できるが、自分で記述するまではまだ力がたりない初心者で、もし以下のことをＶＢＡで自動化できないものかと思っておりまして、アドバイスいただけると幸いです。エクセル２００２を使っています。
やりたいことは以下の２点です。
１．以下のような表があります。
Ｎｏ ｜ 氏名 ｜８／１｜ 〜 ｜８／３１｜←列見出し
−−−−−−−−−−−−−−−−−−−−−−−
１５４｜ 山田 ｜ １ ｜ 〜 ｜ １ ｜
１８７｜ 横山 ｜ １ ｜ 〜 ｜ ｜
この表は各個人（約３００名）の毎月のある実績について、実績があればその該当日（列見出し）のセルに｢１｣を入力して、各個人の実績を列方向に管理を行っており、月ごとに私がその提出を受けているものです。
この表でまず、「１」を実際の日付に置き換えたいのです。１行ごとに行を挿入し、ｉｆ関数をつかい、数式をコピーして、あとで行を削除するなどとできないことはないのですが、手作業ということで、ミスが発生しやすくなるため、ＶＢＡで自動化できないものだろうかというのが１つめの質問です。
２．なぜ１のようにしたいのかといいますと。１で整理した表を最終的に以下のような表に整理して、アクセスにインポートしたいからなのです。整理したいという表は
個人氏名 ｜ 日付 ｜ ←列見出し
−−−−−−−−−−−−−−−−−−
山田 ｜８／１ ｜
山田 ｜８／３１ ｜
横山 ｜８／１ ｜
横山 ｜８／２５ ｜
ような表です。
非常に長く手前勝手な質問で申し訳ございませんが、どなたかアドバイスいただけると幸いです
|
|
よしまん
- 04/9/7(火) 20:29 -
