- ベストアンサー
Access連番(VBA)の連番振り方についてのアドバイス
- Access連番(VBA)の連番振り方について教えてください。
- 環境はOSはXP、ACCESS2003で、ID(オートナンバー)と社名を持つテーブルがあります。連番の振り方についてアドバイスをお願いします。
- VBAを使ってCMDボタンイベントで求める結果を実現したいです。連番のルールについて具体的な考え方を教えてください。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- データ処理に関する質問(Access VBAーDAO)
AccessVBA初心者です。いつもお世話なっております。 環境 OSーXPsp2 office2003 テーブル1とテーブル2あって、テーブル1にデータはいってます。テーブル2は空です。 ACCESS VBA DAOで テーブル1のデータの[店名]、[氏名]を テーブル2に横に追加していきたいです。 テーブル2 構造 ID(オートナンバー) [店名]1 [氏名]1 [店名]2 [氏名]2 --------------------------------------------------------- テーブル1のデータ ID(オートナンバー) [店名] [氏名] 1 A Aさん 2 B Bさん 3 C Cさん 4 D Dさん ----------------------------------------------------- 結果 テーブル2 ID(オートナンバー) [店名]1 [氏名]1 [店名]2 [氏名]2 1 A Aさん B Bさん 2 C Cさん D Dさん ACCESS VBAでの書く方 教えてください。宜しくお願い足します。
- ベストアンサー
- オフィス系ソフト
- マクロVBAで連番を作成するには?
Excel2003です。 VBAを使って、(L,2)から連番を作成し、一列目の値が変化したら(Aの次がBになる)また(L,2)から10からの連番をふりなおす方法を教えてください。 また、オートフィルで列を増やしても同じ動作が起こるようにする方法も、わかったら教えていただけると助かります。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- MSアクセスクエリにて連番でIDを振りたい
お世話になります。 MSアクセスのクエリにて、IDを連番で振りたいと考えています。 たとえば、 項目1 項目2 項目3 A B C A B A A B B A B A A B C というクエリがあったら、 項目1 項目2 項目3 ID A B C 1 A B A 2 A B B 3 A B A 4 A B C 5 というように新規でIDを連番でカウントアップしていくことが 要望です。できる限りVBAは使いたくなく、クエリの 演算フィールドにて関数などはありますでしょうか? 以上、お願い致します。
- 締切済み
- その他(ITシステム運用・管理)
- Accessで条件が2つのグループに連番をふる
Accessでの連番処理はよくある質問のようですが、今回質問させていただきます内容につきまして過去分から検索することができませんでした。何卒よろしくお願いいたします。 ・クエリーかSQLを用いて、 ・支店名と区分が同じグループで連番をふる。 という処理を行いたいのですが、どなたかご教授願えませんでしょうか。 <完成イメージ> 通番 支店名 区分 連番 1 東京 A 1 2 東京 B 1 3 大阪 B 1 4 東京 B 2 5 大阪 A 1 6 東京 A 2 7 大阪 A 2 8 大阪 A 3 9 東京 B 3 10 大阪 B 2 通番はオートナンバー型、支店名と区分はテキスト型です。
- ベストアンサー
- オフィス系ソフト
- Access2000で抽出したデータに連番をふるには
下表のようにIDが1から10まであるテーブルからID3、6を抽出しました。これにID3には連番1、ID6には2と抽出したデータに連番をふりたいです。どうしたら良いですか。教えてください。 ID 会社名 連番 3 A社 6 B社
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAで連番を振る。
A列が空白で、B列に1行目から***行目(毎回変わる)までデータが入力されている時、 A列に、1から***まで(B列のデータが終わるまで、連番を振るにはどんなVBAを かいたらいいのでしょうか? お願いします。
- 締切済み
- オフィス系ソフト
- Access VBA を利用 連番(+1)方法
お世話になります。 アクセスを利用したテーブルのデータに連番をつける 方法を教えてください。 質問カテゴリが違っていましたらご容赦ください。 バージョンは、アクセスは2003を利用しています。 質問の内容として、データをインポートした下記のようなテーブルがあります。 列A 列B 列C 列4D 列E ・・・・・・・ 1 品名 10,000 500 2 品名 20,000 1,000 3 品名 50,000 2000 4 AAA 5 品名 20,000 500 6 品名 80,000 1,000 7 BBB 8 品名 50,000 500 9 品名 30,000 1,000 上記のようなデータが数万件あります。 これを 列B・列Cに連番(+1)をつけたいとおもってます。 列A 列B 列C 列4D 列E ・・・・・・・ 1 品名 1 1 10,000 500 2 品名 2 2 20,000 1,000 3 品名 3 3 50,000 2000 4 品名 4 1 20,000 500 5 品名 4 2 80,000 1,000 6 品名 5 1 50,000 500 7 品名 5 2 30,000 1,000 自分なりに調べたりもしたのですが、うまくできませんでした。 あまり、VBAに詳しくないこともあり、ご面倒かけ申し訳ありませんが、 方法を教えていただけますでしょうか ご面倒かけますが、よろしくお願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- エクセルで自動連番
いろいろ調べてもわからなかったので、教えてください。 複数行コピー&自動連番の操作についてです。 sheet1に以下の表を作成しました。 A B C D 1|【グループID】 【品名】 【個別ID】 【数量】 2| 001 Aセット 10001 5 3| 002 Bセット 20001 2 マクロで複数行コピーを行い、sheet2に A B C D 1|【グループID】 【品名】 【個別ID】 【数量】 2| 001 Aセット 10001 5 3| 001 Aセット 10001 5 4| 001 Aセット 10001 5 5| 001 Aセット 10001 5 6| 001 Aセット 10001 5 7| 002 Bセット 20001 2 8| 002 Bセット 20001 2 の表を作成することはできたのですが、できれば【個別ID】を A B C D 1|【グループID】 【品名】 【個別ID】 【数量】 2| 001 Aセット 10001 5 3| 001 Aセット 10002 5 4| 001 Aセット 10003 5 5| 001 Aセット 10004 5 6| 001 Aセット 10005 5 7| 002 Bセット 20001 2 8| 002 Bセット 20002 2 という形でマクロで複数行コピーと組み合わせて自動で採番まで行いたいと思っています。 ちなみコードは、完全に自分で組む事はできないですが、コードの内容を理解して改造できる程度です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで2つのリストボックスの連動表示に関して
VBAで2つのリストボックスの連動表示に関して、 ご教授、お願い致します。 VBAで色々、試行錯誤しております初心者です。 今回の質問ですけど、参考にWebで調べたのですが 分からなく、どのようにしたらいいのか 教えて頂けないでしょうか。 (例 リスト表) Sheet1(取引名簿) (No.) (取引番号) (取引社名) A列 B列 C列 ・・・ 1 1 A-0001 A社 ・・・ 2 2 B-0001 B社 ・・・ 3 3 A-0002 C社 ・・・ 4 4 A-0003 D社 ・・・ 5 5 B-0002 E社 ・・・ ・ ・ ・ Sheet2(顧客名簿) (No.) (取引社名) (顧客名) A列 B列 C列 ・・・ 1 1 A社 顧客1 ・・・ 2 2 B社 顧客2 ・・・ 3 3 A社 顧客3 ・・・ 4 4 C社 顧客4 ・・・ 5 5 A社 顧客5 ・・・ ・ ・ ・ 上記、例題 2つのシートリストを条件に合わせ、2つ目のリストボックスに 連動表示させたいのですが処理できるように教えて頂けないでしょうか。 ※ ListBox1 に Sheet1 の B列(取引番号) と C列(取引社名) を表示し、 ListBox2 には、 Sheet1 で選択した取引会社に連動し、 C列の顧客(条件一致者)全員を ListBox2に表示したいのです。 (例) ListBox1でSheet1の中からA社を選択したとします。 連動でListBox2には、A社の顧客1、顧客3、顧客5が表示するように出来ないでしょうか。 説明下手で申し訳ありませんが宜しくお願い致します。
- ベストアンサー
- Visual Basic
- オートフィルタで絞った後の連番
添付の画像のように、オートフィルタでA列の「※」で絞ったあと、B列のNo.に連番(1、2、3、4)をドラッグで一気にふりたいのですが、できません(1、1、1、1 となります)。 つたない説明で申し訳ありませんが、裏技等あれば教えていただけないでしょうか?
- 締切済み
- その他MS Office製品
お礼
http://oshiete1.goo.ne.jp/qa4859369.html ↑大変参考になりました。どうもありがとうございます。VBA勉強がんばっていきます。
補足
アドバイスありがとうございます。エラーがよくでます。 自分で解釈できない部分が多いので、引き続き参考し、色々調べてみます。