Excel VBA質問箱 IV

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

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


1531 / 13644 ツリー ←次へ | 前へ→

【73757】ユーザー設定の並び替えについて とし 13/2/9(土) 10:12 質問[未読]
【73764】Re:ユーザー設定の並び替えについて UO3 13/2/10(日) 20:45 発言[未読]
【73765】Re:ユーザー設定の並び替えについて UO3 13/2/10(日) 21:02 発言[未読]
【73809】Re:ユーザー設定の並び替えについて とし 13/2/17(日) 10:03 質問[未読]
【73812】Re:ユーザー設定の並び替えについて UO3 13/2/17(日) 11:55 発言[未読]
【73822】Re:ユーザー設定の並び替えについて とし 13/2/17(日) 17:19 お礼[未読]

【73757】ユーザー設定の並び替えについて
質問  とし  - 13/2/9(土) 10:12 -

引用なし
パスワード
   こんにちは。
いつも参考にさせて貰っています。

質問させて下さい。
社内ネットワーク上のサーバーに保存してあるブックに
マクロでピポットテーブルを作成して
最後に項目を「ユーザー設定の並び替え」をしているのですが
違うパソコンで処理をするとうまく並び替えができません。
この場合マクロ上に並び替え配列を記入することは可能なのでしょうか?

D1
D2
W1
W2
T
のように並び替えたいのですが
D1
D2
T
W1
W2
ユーザーオプション設定をしていないPCだとこうなってしまいます
どなたかお教えください。

【73764】Re:ユーザー設定の並び替えについて
発言  UO3  - 13/2/10(日) 20:45 -

引用なし
パスワード
   ▼とし さん:

以下のような操作を行い、マクロ記録をとって、それをベースにチューニングされては
いかがでしょう。

1.ユーザー設定リストを登録
2.そのリストを使って並び替え
3.登録したユーザ設定リストを削除

【73765】Re:ユーザー設定の並び替えについて
発言  UO3  - 13/2/10(日) 21:02 -

引用なし
パスワード
   ▼とし さん:

追加で。

もし、バージョンが2007以降であれば、ユーザー設定リストを登録しなくても
直接、並び替えのパラメータで、任意のリストイメージを配列で指定できます。

【73809】Re:ユーザー設定の並び替えについて
質問  とし  - 13/2/17(日) 10:03 -

引用なし
パスワード
   U03さん
回答有難うございます。
私の会社で使っているバージョンは2003です。
やっぱりユーザー設定リストの登録番号が
変わってしまい違うPCで実行するとうまくいきませんでした。
やりかたが違っているのでしょうか?


▼UO3 さん:
>▼とし さん:
>
>追加で。
>
>もし、バージョンが2007以降であれば、ユーザー設定リストを登録しなくても
>直接、並び替えのパラメータで、任意のリストイメージを配列で指定できます。

【73812】Re:ユーザー設定の並び替えについて
発言  UO3  - 13/2/17(日) 11:55 -

引用なし
パスワード
   ▼とし さん:

こんにちは

マクロ記録をしますと設定リストの番号が固定になりますね。
そこを動的に取得するようなチューニングは必要です。

つい最近、以下のトピに、私の存じ寄りの人間が投稿したコードを参考に。
ht p://www.excel.studio-kazu.jp/kw/20130217002615.html

A列にデータがあると想定したコードです。

Sub Sample()

  Application.AddCustomList ListArray:=Array("D1", "D2", "W1", "W2", "T")
  Columns("A").Sort Key1:=Columns("A"), Order1:=xlAscending, OrderCustom:=Application.CustomListCount + 1, Header:=xlNo
  Application.DeleteCustomList ListNum:=Application.CustomListCount

End Sub

【73822】Re:ユーザー設定の並び替えについて
お礼  とし  - 13/2/17(日) 17:19 -

引用なし
パスワード
   U03さん
早々の回答有難うございます。
これなら上手く動きそうです。

あす会社のPCで試してみます。
助かりました。

>
>A列にデータがあると想定したコードです。
>
>Sub Sample()
>
>  Application.AddCustomList ListArray:=Array("D1", "D2", "W1", "W2", "T")
>  Columns("A").Sort Key1:=Columns("A"), Order1:=xlAscending, OrderCustom:=Application.CustomListCount + 1, Header:=xlNo
>  Application.DeleteCustomList ListNum:=Application.CustomListCount
>
>End Sub

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