エクセル2010 リストボックス初期値

質問

エクセルに詳しい方よろしくお願い致します。

エクセル2010または2013で
データー　→　データー入力規則　→　データーの入力規則（リスト）
でリストボックスを各行（64行）に作りました。

このリストボックスを一括（全ての行）で初期値（全ての行が同じリストの値の位置）に
戻す方法はありますか？

マクロの記録では何も記録されませんでした。

どうかご教授よろしくお願い致します。

回答No.3

keithin · ベストアンサー

入力規則(のリスト)は「セルに値を記入する入力支援」でしかありません。

＞一括（全ての行）で初期値（全ての行が同じリストの値の位置）に戻す

とは、全部のセルに同じ値（例えば初期値）を記入し直すだけの事になります。

手順：
対象の全てのセルを選ぶ
初期値を記入し、コントロールキーを押しながらＥｎｔｅｒで一括入力する

＃一般に考えられる「初期値」はセルが空っぽの状態の事ですが、その場合はセルをまとめて選んで単にＤｅｌｅｔｅキーで削除するだけです。

お礼

回答有り難うございます。
そうですね同じ値に記入し直すしか方法はないようですね。
同じ値に書き直す手順（又はクリア）をマクロに記録して
ボタンに割り当てましたら、その動きになりました。
ご回答大変ヒントになりました。
本当に有り難うございました。
また何かありましたら是非よろしくお願い致します。

回答No.2

MackyNo1

>このリストボックスを一括（全ての行）で初期値（全ての行が同じリストの値の位置）に戻す方法はありますか？

ご質問の意味が、特定のリストボックスのセルに統一したいということなら、統一したい基準セルを選択して右クリック「コピー」、対象範囲を選択して右クリック「貼り付け」してください。

お礼

回答有り難うございます。
同じ値に書き直す手順（又はクリア）をマクロに記録して
ボタンに割り当てましたら、その動きになりました。
ご回答大変ヒントになりました。
本当に有り難うございました。
また何かありましたら是非よろしくお願い致します。

回答No.1

KURUMITO

シート見出しを右クリックして「コードの表示」で表示の場面に次のマクロを入力します。
例えばA1セルからA64セルまでのデータをA1セルのデータで同じにするのでしたら次のコードにします。

Sub 初期値への変更()

For i = 1 To 64
Range("A" & i) = Range("A1")
Next

End Sub

マクロの実行は「開発」タブの「マクロ」から「実行」を選択すればよいでしょう。

お礼

回答有り難うございます。
同じ値に書き直す手順（又はクリア）をマクロに記録して
ボタンに割り当てましたら、その動きになりました。
マクロを書いて頂いて大変参考になりました。

本当に有り難うございました。
また何かありましたら是非よろしくお願い致します。