エクセルのツール－オプションのユーザ設定リストの保存方法？

Question

教えてください。
Ｅｘｃｅｌのユーザ設定リストに独自のリストをかなりの数、設定しています。また、頻繁にＯＳ（WinMe）を再インストールします。そのとき、ユーザ設定リストに追加した内容が消えてしまいます。これをどこか(Ｄドライブまたは他のメディア)に保存しておいて、簡単な操作で再設定する方法はないでしょうか？
ご存知のかた、お教えください。お願いします。
Excel2002です。

nishi6 · Accepted Answer

Excelのバージョンによって色々な方法があるみたいですね。
私もレジストリはいじらないようにしているので単純な方法を考えてみました。
バージョンも関係ないと思います。Excel97と2000で確認しました。ユーザー組み込みリスト数は250個強まで大丈夫？（未確認です）

（１）追加したユーザー設定リストをシートに出力するマクロ→PrintMyCustumList
（２）シートに書き出したユーザー設定リストを自動的に追加するマクロ→SetMyCustumList
組み込まれているリストは変更しないようにしてあります。Excel2002の組み込みリストが11個ならExcel97と2000と同じです。

（１）でシートに退避して（２）で復元する要領です。
ただし、（１）を実行する前に、『ツール→オプション』でオプションダイアログを１回表示させて下さい。表示したら閉じます。（これがうまく組み込めなかった）

２つのマクロを登録したシートに（１）を書き出しておけば復元や他のＰＣも同じにできるはずです。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。出てきたコードウインドウに下記マクロを貼り付けます。


↓ここから
Dim cstmListNum As Integer   'ユーザー設定リストの個数
Dim lstArray As Variant      '設定リストを配列化
Dim L As Integer             'ユーザー設定リストカウンタ
Dim elm As Integer           'ユーザー設定リスト要素

'ユーザー設定リストをSheet1に書き出す(組み込み以外)
Sub PrintMyCustumList()
　　With Worksheets("Sheet1")
　　　　.Cells.ClearContents
　　　　cstmListNum = Application.CustomListCount
　　　　For L = 12 To cstmListNum
　　　　　　lstArray = Application.GetCustomListContents(L)
　　　　　　For elm = LBound(lstArray) To UBound(lstArray)
　　　　　　　　.Cells(elm, L - 12 + 1) = lstArray(elm)
　　　　　　Next
　　　　Next
　　End With
End Sub

'Sheet1に表示されたユーザー設定リストを書き込む
Sub SetMyCustumList()
　　With Worksheets("Sheet1")
　　　　If .Range("A1") = "" Then Exit Sub
　　　　'組み込み以外を削除
　　　　cstmListNum = Application.CustomListCount
　　　　For L = 12 To cstmListNum
　　　　　　Application.DeleteCustomList L
　　　　Next
　　　　'組み込み以外を追加
　　　　cstmListNum = .Range("IV1").End(xlToLeft).Column
　　　　For L = 1 To cstmListNum
　　　　　　elm = Cells(65536, L).End(xlUp).Row
　　　　　　lstArray = .Range(Cells(1, L), Cells(elm, L))
　　　　　　Application.AddCustomList ListArray:=lstArray
　　　　Next
　　End With
End Sub

a999a999 · Answer

2000以降はレジストリに記録するように
なったようですね。すいませんでした。
#4さんのＵＲＬ見ました。
これ以外に方法はないと思います。
勉強になりました。
ありがとうございました。


レジストリ
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options 
"SmartList" 
該当キーをすべて退避
"SmartList"のみ残して削除
該当キーを退避("SmartList"のみ版)
すべて退避したものを戻す(復旧)。

a999a999 · Answer

下を見つけましたが

http://support.microsoft.com/default.aspx?scid=http%3a%2f%2fwww.microsoft.com%2fJAPAN%2fsupport%2fkb%2farticles%2fj023%2f4%2f17.asp

もう終わっているようですね・・

kbonb · Answer

こんにちは

　以下のページがご参考になるのでは？

[XL2000] ユーザー設定リストを共有する方法 
http://www.microsoft.com/JAPAN/support/kb/articles/JP212/2/45.asp

参考URL：http://www.microsoft.com/JAPAN/support/kb/articles/JP212/2/45.asp

a999a999 · Answer

下を参照下さい。
http://www.keep-on.com/~excelyou/2000lng5/200002/00020090.txt


Windowsフォルダ直下の、ユーザ名8.xlb
というファイルが関係しているという
話が書かれていました。

ファイルの日付を確認してから
新しいものを登録してみる。
日付が更新されるかを確認・・。

まだ調査中です。

k_eba · Answer

再登場
ユーザー設定リスト項目が正しく保持されない場合
http://www.microsoft.com/japan/support/kb/articles/J051/5/35.asp
これはトラブル回避にユーザー設定リスト項目をインポートして設定する方法
ですが
流用出来ますので紹介します。
ちなみに
http://support.microsoft.com/default.aspx?ln=JA&pr=kbinfo&
で
ＥＸＣＥＬ　ＦＯＲ　ＷＩＮＤＯＷＳ　ＯＲ・・・
ユーザー設定
で調べました
参考になれば幸いです

参考URL：http://support.microsoft.com/default.aspx?ln=JA&pr=kbinfo&

k_eba · Answer

ツールバーのカスタマイズ 
http://www.mars.dti.ne.jp/~hiroyuki/excel/toolbar.html
を紹介します
参考になれば幸いです

ポイントはツールバーをブックに登録するです

エクセルのツール－オプションのユーザ設定リストの保存方法？

Excelのバージョンによって色々な方法があるみたいですね。

2000以降はレジストリに記録するように

下を見つけましたが

こんにちは

下を参照下さい。

再登場

ツールバーのカスタマイズ

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング