管理者とリクエストについて

2037–04–30 (Thu) 09:58
管理者は中小企業事務員です。
入社時より、主に入構書類を担当し、苦労が多かったためこのサイトを立ち上げました。
どなたでも無料で安全に使用することが出来ます。

システム作成リクエストも承っております。
(本業の仕事量により、断る場合もございます)

導入頂いた企業様、有りましたらご一報くださると幸いです。

000335544.jpg

yoru_1.jpg

なにとぞよろしくお願い致します。

趣味全開ブログはこちら
スポンサーサイト

最適化

2017–05–24 (Wed) 16:50
最適化マクロ

最適化マクロのPDFを作成いたしました。

最適化マクロ(PDF)

非表示のワークシートを削除する

2017–05–23 (Tue) 08:33
Sub 非表示のワークシートを削除する
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If s.Visible = xlSheetHidden Then s.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

選択したシートを全て削除するマクロ

2017–05–21 (Sun) 13:47
<選択したシートを全て削除する>
Sub 選択シートの削除
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayAlerts = False
For Each s In ActiveWindow.SelectedSheets
s.Delete
Next s

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True

Eud Sub

選択したオートシェイプを「黒実線」「塗りつぶしなし」にするマクロ

2017–05–20 (Sat) 11:38
sub オートシェイプ
Selection.ShapeRange.Fill.Visible = msoFalse
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 0.5
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
End With
End sub

オートシェイプは作ると変な色で作成されるため、毎回修正しなければなりません。
それを自動で直してくれます。

 | HOME |  次へ »

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク