Excel VBA質問箱 IV

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

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


51635 / 76732 ←次へ | 前へ→

【29960】Re:繰り返し処理
発言  ichinose  - 05/10/17(月) 15:41 -

引用なし
パスワード
   ▼超初心者 さん:
こんにちは。

>  A    B     C    D     E
>1 受付日 受付番号  No.    担当  製品型式
>2 10/15  1     1    山田   A-3
>3           2        B-4
>4           3        A-8
>5           4        C-11
>6 10/17  2          鈴木  A-3
>                   D5
>
>受付処理を自動化しています。1つの受付番号に複数の製品型式があります。
>受付する時にC列の最終行からE列の最終行までC列に1から連番を振りたいのです。
>今かいているコードでは全部に1を入力してしまいます。よろしくご教授ください。
このご質問の解法は、色々な方法があると思います。
データの配置まで記述していただいたのですが、

マクロ実行前のデータの配置
 
マクロの実行(コード記述)

マクロ実行後のデータの配置

つまり、実行前又は、実行後のデータの構成が抜けています。

そして、これが問題をわかりづらくしています。

>  〜略〜
>上 = Range("c65536").End(xlUp).Row + 1
>   下 = Range("e65536").End(xlUp).Row
>   For RowNo = 上 To 下
> 
     If rowno = 上 Then
      Range("c" & rowno).Value = 1
     Else
      Range("c" & rowno).Value = Range("c" & rowno - 1).Value + 1
      End If
>    Next
>
>  〜以下略〜

シートの構成表がマクロ実行前だとすると、こんな↑方法も考えられますが・・。

0 hits

【29953】繰り返し処理 超初心者 05/10/17(月) 14:51 質問
【29959】Re:繰り返し処理 とまと 05/10/17(月) 15:29 回答
【29960】Re:繰り返し処理 ichinose 05/10/17(月) 15:41 発言
【29961】Re:繰り返し処理 超初心者 05/10/17(月) 15:57 発言
【29962】Re:繰り返し処理 とまと 05/10/17(月) 16:03 発言
【29971】Re:繰り返し処理 kobasan 05/10/17(月) 16:53 回答
【30009】Re:繰り返し処理 超初心者 05/10/18(火) 11:10 お礼

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