Excel VBA質問箱 IV

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

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


8061 / 13646 ツリー ←次へ | 前へ→

【35333】データの件数分だけ通しNOを振るには?? 超初心者です。 06/2/27(月) 2:50 質問[未読]
【35336】Re:データの件数分だけ通しNOを振るには?? inoue 06/2/27(月) 8:56 発言[未読]
【35341】Re:データの件数分だけ通しNOを振るには... 超初心者です。 06/3/1(水) 0:27 発言[未読]
【35342】Re:データの件数分だけ通しNOを振るには... Kein 06/3/1(水) 1:29 回答[未読]

【35333】データの件数分だけ通しNOを振るには??
質問  超初心者です。  - 06/2/27(月) 2:50 -

引用なし
パスワード
   お初です。初めまして。
これが出来れば残業が30分は減るだろう
と思い投稿させて頂きました。

件数がまちまちのものをアクセスから抽出し、
CSVをエクセルに加工しているのですが
通しNOを振る事が出来ません。

DO WHILE文ですかねぇ???
心優しい方、、、救いの手を宜しくです。
ちなみにこんな感じの表  ↓↓

NO ID 氏名 住所

  2-4 花子 東京都・・
  3-5 裕子 大阪府・・

↑ ここに上からNo.を振りたいです。

【35336】Re:データの件数分だけ通しNOを振るには...
発言  inoue E-MAILWEB  - 06/2/27(月) 8:56 -

引用なし
パスワード
   こんにちは。

>CSVをエクセルに加工しているのですが
>通しNOを振る事が出来ません。
どのようなタイミングと操作でやろうとしているのかわかりませんので
とりあえず、
[一覧表に「連番」を表示したい。]
http://www.asahi-net.or.jp/~ef2o-inue/kihon/sub01_05_23.html

【35341】Re:データの件数分だけ通しNOを振るには...
発言  超初心者です。  - 06/3/1(水) 0:27 -

引用なし
パスワード
   お返事が遅くなり申し訳ございません。
inoueさん早速のご返答有難うでした。

私の説明不足で恐縮ですが、私がやりたいと
思っているのは多量にアクセスで管理されいる
情報を日付をキーにしてcsvに落とし、それを
エクセルに加工(罫線や幅の指定など・・・)
するのですが、それはマクロの自動登録で行って
います。

そこでキーの日付毎のの件数がまちまちで
例 3/1 45件    ID 氏名 住所 詳細情報
  3/2 75件         :    
  3/3 21件         :    などが入っています。
1つの日付に通しNO振りたいのです。
3/1だと45番までです。

多分DO WHILE分を使ってIDのセルが空白でないとき
に始めに1を設定した変数を足しあげていくみたいなのを
想像しているのですが、形にずる事が出来ません。

どなたかご親切な方宜しくお願い致します。

【35342】Re:データの件数分だけ通しNOを振るには...
回答  Kein  - 06/3/1(水) 1:29 -

引用なし
パスワード
   例えば 1行目が項目で A1:F1 は「No, 日付, ID, 氏名, 住所, 詳細情報」などと入力
されていて、表全体はすでにB列の日付で昇順ソートされているものとすれば、

With Range("B2", Range("B65536").End(xlUp)).Offset(, -1)
  .Formula = "=COUNTIF($B$2:$B2,$B2)"
  .Copy
  .PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

ぐらいで出来ます。もちろん数式を手入力し、コピー・値のみ貼り付け、をやれば
マクロは不要になりますが。

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