Excel VBA質問箱 IV

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

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


45864 / 76732 ←次へ | 前へ→

【35853】隣のセルの値によって決まった値を入れたいのです。
質問  pochiman  - 06/3/14(火) 17:47 -

引用なし
パスワード
   よろしくお願いいたします。
下記のようなワークシートで、(A列に自動で数値を入力したい)
A列は空欄です。
B列には8桁の日付があらかじめ入力されています。

A列   B列
61    20060202
61    20050701
62    20060602
63    20070601

条件は B列の数値で決まります。

20050401 から 20060331 までなら A列に 61
20060401 から 20070331 までなら A列に 62
20070401 から 20080331 までなら A列に 63
20080401 から 20090331 までなら A列に 64

A列の最初にセルを置いて、

Do Until ActiveCell.Offset(1,1).Value = ""
  With
   ここに、条件分岐の記述をして自動で入力しようと思ったのですが、
   記述がよくわかりません。

  .Offset(1,0).select
  End Wth
Loop

考え方は、Do Loopで順番に下へ移動しながら数値を入力すれば
よいかと思いますが、他によい方法があればあわせて教えてください。
よろしくお願いいたします。
0 hits

【35853】隣のセルの値によって決まった値を入れたいのです。 pochiman 06/3/14(火) 17:47 質問
【35857】Re:日付から年度を取得して、それに対応し... かみちゃん 06/3/14(火) 18:17 回答
【35867】Re:日付から年度を取得して、それに対応し... pochiman 06/3/14(火) 23:59 お礼
【35858】Re:隣のセルの値によって決まった値を入れ... ゆと 06/3/14(火) 18:17 発言
【35868】Re:隣のセルの値によって決まった値を入れ... pochiman 06/3/15(水) 0:04 お礼

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