ワークシートの消去・・・
無駄にマウスを使ってや範囲設定に
いらない無意味なルーチンワークに時間を割いていませんか?
ボタンひとつで、あのいやな同じ操作をしないですみます。シートごとに消去する部分や方法が異なる場合
そこに無駄なルーチンワークの時間を割いていないですか?
これも工夫すると・・ボタン一つで、面倒臭いのがカットできます。主な消去の方法として・・・
①全部を消去する
②計算式(ワークシート関数)が入っている部分を除いて消去する
②タイトル部分を除いて、消去する。
１．シートの消去をするコマンドボタンを作成
ダブルクリックすると・・
２．BVのコマンドボタンのイベントが開く
この場合はSheet2で実行させています。
３．ここに消去のコマンドをイロイロと書き込んでおきます。
‘コマンドの内容は・・・
コメントの部分の ( ‘ ) をとるとその部分が実行されます。
‘———————————-
‘Sheetの消去(簡単な消去の方法)
Private Sub CommandButton1_Click()
‘——————————————————————–
‘消去する部分を選択する
‘——————————————————————–
‘全消去をする場合は全選択 ‘下の行のコメントを外す
‘Cells.Select
‘表計算関数を残して定数を消去する場合は ‘下の行のコメントを外す
‘ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).Select
‘消去する部分を変更する場合は・・・’下の行のコメントを外す
‘Range(Cells(2, 1), Cells(10, 10)).Select
‘消去するのが2行目以降全行全列分を消去する場合は’下の行のコメントを外す
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Select
‘という風にSelect する部分を変更する
‘——————————————————————–
‘消去する内容を分けて消去する
‘——————————————————————–
‘選択された部分を全部消去場合は、’下の行のコメントを外す
Selection.Clear
‘定数の部分のみ(表計算関数を除いて)を消去する場合’下の行のコメントを外す
‘Selection.ClearContents ‘シート内のデータをクリア’
‘書式のクリア”下の行のコメントを外す
‘Selection.ClearFormats
‘コメントのクリア”下の行のコメントを外す
‘Selection.ClearComments
‘アウトライン（グループ化）のクリア”下の行のコメントを外す
‘Selection.ClearOutline
‘——————————————————————–
‘セルを選択する
Cells(1, 1).Select
End Sub
‘———————————-
それを張り付けておきます。
４．最初は全セルの消去の場合
５．実施してみます。
６．消去する内容は全部なのでCells.Selectで範囲を全部選択するようにセットすると
７．シート全部が選択されます。
８．選択した部分をClearかけると
９．全部が消去される。
１０．選択している部分をCells(1,1)すなわちRange(A1)にします。
１１．Range(A1)が選択されます。
１２．次は選択する部分は定数を書き込んでいる部分のみ
すなわち、表計算関数をいれている部分は除くいた選択の方法にして
１３．一応確認の意味でRange(B2)に数式をいれておきます。
１４．Range(B2)にはRange(C2)とRange(D2)をくっつけた計算式の表記にしておきます。
表計算関数も同じです。
１５．これで数式がはいりました。
１６．Range(B2)に数式が入っています。
１７．Selectの部分を変えてみます。(コメントの部分を削除します。) ‘(カンマ)をとります。
それで実行させブレークポイントで止めて確認
１８．定数(数式以外)の部分が選択されます。
１９．Selection.Clear をかけると
２０．数式の入っている部分を除いて消去されています。
２１．Range(B2)に入っている数式を確認すると残っていますね
２２．さて次は、タイトル行を除いて消去する方法で、1行目にはタイトルが入っているとします
２３．選択する部分を2行目からにすると・・・。
２４．2行目以降が選択され
２５．クリアのコマンドが実行されたら
２６．タイトル行を除いて消去されています。
２７．タイトル行だけがのこりました。
消去の方法もさまざまできますね。
ルーチンなワークで・・
複雑な消去に時間がかかっていたのも・・・
こういう組み合わせをしていくと・・・
ボタン一つで
消去ができます。
あとは工夫しだいです。