Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
122 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81955】テーブル名を変数にして繰り返し処理をしたいです。 ウォル 22/2/4(金) 20:56 質問[未読]
【81956】Re:テーブル名を変数にして繰り返し処理を... マナ 22/2/4(金) 21:57 発言[未読]
【81957】Re:テーブル名を変数にして繰り返し処理を... ウォル 22/2/5(土) 0:27 お礼[未読]
【81955】テーブル名を変数にして繰り返し処理をし...
質問  ウォル  - 22/2/4(金) 20:56 -
引用なし
パスワード
   こんにちは。よろしくお願いいたします。
タイトルの件ですが、特定の項目(所持数)に対して昇順ソートをかけるという処理で、

With ActiveSheet.ListObjects("テーブル1")
　　　　.Range.Sort key1:=.ListColumns("所持数").Range, order1:=xlAscending, Header:=xlYes
　　End With

これでテーブル1つの処理はできるのですが、同じようなテーブルが1〜8まであるので、FORループを使って一度に処理出来ればと思っています。
ループ時にテーブル名を1,2,3…としていくにはどのように書けば良いでしょうか。

以上、よろしくお願いいたします。
【81956】Re:テーブル名を変数にして繰り返し処理...
発言  マナ  - 22/2/4(金) 21:57 -
引用なし
パスワード
   ▼ウォル さん：

Sub test()
　　Dim tbl As ListObject
　　
　　For Each tbl In ActiveSheet.ListObjects
　　　　MsgBox tbl.Name
　　Next
　　
　　Dim k As Long
　　
　　For k = 1 To ActiveSheet.ListObjects.Count
　　　　MsgBox ActiveSheet.ListObjects(k).Name
　　Next
　　
　　For k = 1 To 8
　　　　MsgBox ActiveSheet.ListObjects("テーブル" & k).Name
　　Next
　　
End Sub
【81957】Re:テーブル名を変数にして繰り返し処理...
お礼  ウォル  - 22/2/5(土) 0:27 -
引用なし
パスワード
   ▼マナ さん：

ご返信いただきありがとうございます。
無事組むことができました！
本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
122 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free