Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63537 / 76732 ←次へ | 前へ→

【17790】表の整理
質問  よしまん  - 04/9/7(火) 20:29 -

引用なし
パスワード
   VBAをなんとか理解できるが、自分で記述するまではまだ力がたりない初心者で、もし以下のことをVBAで自動化できないものかと思っておりまして、アドバイスいただけると幸いです。エクセル2002を使っています。

やりたいことは以下の2点です。

1.以下のような表があります。

  No | 氏名 |8/1| 〜 |8/31|←列見出し
  −−−−−−−−−−−−−−−−−−−−−−−
  154| 山田 | 1  | 〜 | 1  |
  187| 横山 | 1  | 〜 |    |

この表は各個人(約300名)の毎月のある実績について、実績があればその該当日(列見出し)のセルに「1」を入力して、各個人の実績を列方向に管理を行っており、月ごとに私がその提出を受けているものです。

この表でまず、「1」を実際の日付に置き換えたいのです。1行ごとに行を挿入し、if関数をつかい、数式をコピーして、あとで行を削除するなどとできないことはないのですが、手作業ということで、ミスが発生しやすくなるため、VBAで自動化できないものだろうかというのが1つめの質問です。

2.なぜ1のようにしたいのかといいますと。1で整理した表を最終的に以下のような表に整理して、アクセスにインポートしたいからなのです。整理したいという表は

 個人氏名 | 日付  | ←列見出し
−−−−−−−−−−−−−−−−−−
  山田 |8/1  |
  山田 |8/31 |
  横山 |8/1  |
  横山 |8/25 |
ような表です。

非常に長く手前勝手な質問で申し訳ございませんが、どなたかアドバイスいただけると幸いです
0 hits

【17790】表の整理 よしまん 04/9/7(火) 20:29 質問
【17800】Re:表の整理 ichinose 04/9/8(水) 7:38 回答
【17857】Re:表の整理 よしまん 04/9/8(水) 20:54 お礼

63537 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free