Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8080 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   お初です。初めまして。
これが出来れば残業が３０分は減るだろう
と思い投稿させて頂きました。

件数がまちまちのものをアクセスから抽出し、
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件　　　　　　　　　:　　　　などが入っています。
１つの日付に通しNO振りたいのです。
3/1だと４５番までです。

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

どなたかご親切な方宜しくお願い致します。
【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

ぐらいで出来ます。もちろん数式を手入力し、コピー・値のみ貼り付け、をやれば
マクロは不要になりますが。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8080 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free