FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/09«│ 2018/10| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2018/11
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
22:37:41
印刷範囲外の外にある計算式等を全て削除してくれます。
こういうことってみんな普通にするよね??? 邪魔だし、量も多いのでいらないところはカットして行きます。
とりあえず、簡単な閉じる前にA1に戻るマクロと、チェックリストに戻るマクロ、非表示⇔表示マクロを作成しようと思います。
検索マクロも作りたいけど時間がなさそうです(汗

Sub 印刷範囲外削除()
Dim Sh As Worksheet
Dim PrtArea As Range
Dim Rw As Long
Dim Col As Long
Dim ShNames As String
Application.ScreenUpdating = False
For Each Sh In Worksheets
If Sh.PageSetup.PrintArea <> "" Then
With Sh.Range(Sh.PageSetup.PrintArea)
Sh.Rows(.Row + .Rows.Count).Resize(Rows.Count - _
(.Row + .Rows.Count)).Delete
Sh.Columns(.Column + .Columns.Count).Resize(, _
Columns.Count - (.Column + .Columns.Count)).Delete
If .Column > 1 Then Sh.Columns(1).Resize(, .Column - 1).Delete
If .Row > 1 Then Sh.Rows(1).Resize(.Row - 1).Delete
End With
Else
ShNames = ShNames & Sh.name & vbLf
End If
Next
Application.ScreenUpdating = True

End Sub








後羽生結弦写真展行って来ます。京都までb




楽しみだっぺー

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/370-6d2d235c
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト