エホバの証人二世の、個人研究&趣味blogです。
2018/04«│ 2018/05| 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/06
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
17:18:34

別ブックにチェックリストがあり、そのブックにチェックを入れる場合のマクロ


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sh As Object
Application.OnTime Now(), "ThisWorkbook.After_Insatsu"
End Sub
Private Sub After_Insatsu()
Dim aWb As Workbook
Set aWb = ActiveWorkbook

For Each sh In ActiveWindow.SelectedSheets
namae = sh.Range("f18")
rc = MsgBox(sh.Name & "をチェックリストに登録しますか?", vbYesNo + vbQuestion, "確認")
Application.ScreenUpdating = False
If rc = vbYes Then
For Each wb In Workbooks
For Each ws In wb.Worksheets
If "提出書類(" & namae & ")" = ws.Name Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = "シート名" Then
ws.Cells(x, 1).Font.Strikethrough = True
Exit For
End If
x = x + 1
Loop
End If
Next
Next
End If
Application.ScreenUpdating = True
Next
End Sub

何ともいえない適当なチェックリスト笑
書類の名前が書いてあって、取り消し線を引いてくれるだけです。
単純な仕事は世界一素晴らしいと思います。

コメント
コメントの投稿










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

はなかな

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

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

この人とブロともになる

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