[[20090616132216]]　『リスト初期値に戻す』（ryo）　ページの最後に飛ぶ

 『リスト初期値に戻す』（ryo）
 いつも大変お世話になっています。
 入力規則のリストを「初期値(空白）」に戻すのをマクロで出来ないでしょうか？

 できますよ。(ROUGE)

 入力規則のあるセルでDeleteキーを押す
 を、マクロの記録すればよいのでは？
 (seiya)

 (ROUGE)さん　(seiya)さん　私もマクロの記録で試したのですがそのときは何故か出来
 なかったのですが？無事出来ました。有難うございます。
 もう一つ教えてください。初期値が空白でなく「選択してください」だった場合はどの
 ようにすればいいのでしょうか？
 (ryo)

 Range("xx").Value = "「選択してください」"
 ですか？
 (seiya)

 (seiya)さん　いつも有難うございます。今回もバッチリできました。
 (ryo)

 教えて頂いたようにコードを組みました。少し長くなりますが・・・
 実行すると少し時間がかかるようですが改良出来るところはないでしょうか？
 Sub リスト初期値に戻す()
    With Worksheets("sheet1")
        .Range("AT31") = "（□有・□無）"
        .Range("AW16") = "□瓦葺・□スレート葺・□亜鉛メッキ鋼板葺・□陸屋根・"
        .Range("BL16") = "□"
        .Range("BD22") = "（平成　年"
        .Range("BH22") = "　月"
        .Range("BJ22") = "　日現在"
        .Range("AZ28") = "□差押登記"
        .Range("AZ29") = "□仮差押"
        .Range("AZ30") = "□仮処分"
        .Range("AZ31") = "□所有権移転仮処分"
        .Range("AZ32") = "□(             ) "
        .Range("AT36") = "（□有・□無）"
        .Range("AZ33") = "□抵当権"
        .Range("AZ34") = "□根抵当権"
        .Range("AZ35") = "□賃借権"
        .Range("AZ36") = "□(              )"
        .Range("AY38") = "□同じ・□異なる→理由：□転貸借・□相続・□"
        .Range("AV51") = "□一般借家契約"
        .Range("BB51") = "□定期借家契約"
        .Range("BH51") = "□取壊し予定期限付き借家契約"
        .Range("BR51") = "□一時使用の賃貸借"
        .Range("AV53") = "□高齢者の居住の安全確保に関する法律による終身建物賃貸
 借契約"
        .Range("BO53") = "□使用貸借"
        .Range("AV56") = "平成　年"
        .Range("AZ56") = "　月"
        .Range("BB56") = "　日"
        .Range("BF56") = "平成　年"
        .Range("BJ56") = "　月"
        .Range("BL56") = "　日"
        .Range("BP56") = ""
        .Range("BR56") = "□年間･□月間）"
        .Range("AV60") = "□"
        .Range("AV61") = "□"
        .Range("AV62") = "□"
        .Range("AW62") = "□"
        .Range("AV64") = "平成　年"
        .Range("AZ64") = "　月"
        .Range("BB64") = "　日"
 End With
 With Worksheets("sheet2")
        .Range("K7") = "（□居住用・□事業用)"
        .Range("O9") = "（□しません・□します)"
        .Range("R11") = "（□貸主・□借主・□折半)"
        .Range("K14") = "□"
        .Range("K17") = "□"
        .Range("K23") = "□"
        .Range("K27") = "□"
        .Range("AD44") = ""
        .Range("G50") = ""
        .Range("P50") = ""
        .Range("V50") = ""
        .Range("Y50") = ""
        .Range("AE50") = ""
        .Range("AH50") = ""
        .Range("G53:AM62") = ""
        .Range("L66") = ""
        .Range("S66") = ""
        .Range("L67") = ""
        .Range("S67") = ""
        .Range("L68") = ""
        .Range("S68") = ""
        .Range("L69") = ""
        .Range("S69") = ""
        .Range("L72") = ""
        .Range("S72") = ""
        .Range("L73") = ""
        .Range("S73") = ""
        .Range("L74") = ""
        .Range("S74") = ""
        .Range("BA7") = "□新住宅市街地開発法"
        .Range("BI17") = "□新都市基盤整備法"
        .Range("BA8") = "□流通業務市街地整備法"
        .Range("BI8") = "□農地法"
        .Range("AZ9：CA12") = ""
        .Range("AZ13") = ""
        .Range("AZ15") = "土砂災害警戒区域：（□外・□内）"
        .Range("AR73") = "本物件は未完成物件に□該当します。（_※資料18にて完成
 時の形状を説明）・□該当しません。）"
 End With
 With Worksheets("sheet3")
        .Range("P7") = "（□有)"
        .Range("AB7") = "（□無)"
        .Range("P19") = "（□有)"
        .Range("AB19") = "（□無)"
        .Range("D32") = "（□)"
        .Range("I32") = ""
        .Range("W32") = ""
        .Range("D33") = "□"
        .Range("P33") = ""
        .Range("D34") = ""
        .Range("F34") = ""
        .Range("D39") = "定め□無・□有"
        .Range("N42") = "□無・□有"
        .Range("L49") = "□講じません・□講じます"
        .Range("N52") = "（該当□する・□しない）"
        .Range("G56") = "（□事業用・□旧法）"
        .Range("U54") = "（平成　年）"
        .Range("X54") = "（　　月）"
        .Range("X54") = "（　　日迄）"
        .Range("AT7") = ""
        .Range("AT9") = ""
        .Range("AT11") = ""
        .Range("AT11") = "管理規約　　　　　　　　　　　　　　　　　　"
        .Range("BL7") = ""
        .Range("BL9") = ""
        .Range("BL11") = ""
        .Range("BL13") = ""
        .Range("AU52") = "（平成　年）"
        .Range("AZ52") = "（　　月）"
        .Range("BC52") = "（　　日）"
        .Range("BC57") = ""
        .Range("BC60") = ""
 End With
 With Worksheets("sheet4")
        .Range("H8") = ""
        .Range("X8") = ""
        .Range("S24") = ""
        .Range("S24") = "普通"
        .Range("AI24:BZ67") = ""
 End With
 With Worksheets("sheet5")
        .Range("M6") = ""
        .Range("Q9") = ""
        .Range("Q12") = ""
        .Range("AF12") = ""
        .Range("Q15") = ""
        .Range("Q18") = ""
        .Range("AF18") = ""
        .Range("Q21") = ""
        .Range("Q24") = ""
        .Range("AF24") = ""
        .Range("Q27") = ""
        .Range("Y27") = ""
        .Range("AB27") = ""
        .Range("Q30") = ""
        .Range("Q33") = ""
        .Range("Q36") = ""
        .Range("AF36") = ""
        .Range("AD39") = ""
        .Range("Q42") = ""
        .Range("AF42") = ""
 End With
 End Sub
 (ryo)

 = ""
 のセルは纏めることができます。

 例えば、最後の部分

 Worksheets("sheet5").Range("M6,Q9,Q12,AF12,Q15,Q18,AF18,Q21, _
        Q24,AF24,Q27,Y27,AB27,Q30,Q33,Q36,AF36,AD39,Q42,AF42").ClearContents

 (seiya)

 一つシートを作っておいて
 そこからコピー＆ペースト　なんてのは？
 作ったシートは非表示にする事にして。

 (HANA)

 > そこからコピー＆ペースト

 入力規則が消えるので×

 シートそのものをコピーして使用するなら別ですが...
 (seiya)

 (seiya)さん　そうでしたね　有難うございます。時間の短縮は出来ないみたいですね 
 (HANA)さん　有難うございます。
 (ryo)

 ん？
 どこにどんな入力規則が設定してあるのか分からないですが
 必要ならそれも一緒にコピーすれば良いのでは？

 若しくは貼り付けた後設定とか。

 (HANA)

 今回操作しているセル全てに
 入力規則が設定されているのですね。

 でも、
 その様に成っている範囲
 （入力規則＆初期値が入力されているセル）をコピーして
 上から貼り付ければ良さそうに思いますが・・・。

 入力規則を設定していないセルが上書きされるのがイヤ
 って事かな・・・？

 でしたら、空白を無視して貼り付けた後
 初期値が無いセルは別途「""」

 う～ん。。。ナニカガチガウ？

 (HANA)

 入力規則と定数しかないなら
 貼り付ける時に「値貼り付け」でも
 良さそうですね。
 （コピー元のセルに　入力規則の設定が不要）

 RANGE(○○).VALUE = RANGE(××).VALUE
 でも。

 数式が有る場合は値に成ってしまうので
 値貼り付けでは駄目ですが。

 いずれにしてもセルの値を書き換えるので
 どれだけ早くなるかは疑問ですが。
 （今の段階でも　一寸引っかかる
 　程度だと思いますし。）

 (HANA)

 初期状態のファイルをテンプレートファイルとして保存しておき、
 初期化は要らないシートを削除して、テンプレートシートを読み込んでは？

 もしくはファイル自体をテンプレートから、起こすとか。

 素人目にですが、初期化をするより対象ごとにファイルを保存したほうが良い
 情報のようにも見えますが。
 (Mook)

コメント返信：

[ 一覧(最新更新順) ]

[[20090616132216]] 『リスト初期値に戻す』（ryo） ページの最後に飛ぶ

[[20090616132216]]　『リスト初期値に戻す』（ryo）　ページの最後に飛ぶ