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が出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2018/03/18
13:11:49
在宅で3時間~4時間仕事しています。
その間に別の用事終わらせたり、昨日みたいに作業所行ったりしています。
後は妄想とか。普通の妄想では既に何も思わないので、かなりハードなものが多いです。
深夜の妄想吐き捨て場とか、とてもじゃないけれど見せられないですよ。恥ずかしいし……。
猟奇殺人とえっちぃな妄想とその他もろもろと・・・・・・。エロは普通のでは意味が無いので基本びっくりされます(されるのは嫌ですが、妄想では可能)
以前にほとんど経験ないのにエロ妄想はすごいねって言われたなぁ……官能小説とかも読んでいるからかなぁ。

目標は一杯あるので、もっと努力しないとなぁ。
ちなみに、給料以外の収入は全て貯金しています。おかげでかなり溜まりました。
取りあえず電子ピアノ(30万円くらい)とカメラと腕時計が欲しいんだよなぁ……。一応そのぐらいのお金は副収のみで行けそうですが……。


Private Sub After_Insatsu()

Dim x As Long
Dim flg As Integer
Dim y As Long
Dim flflg As String
flflg = ""
nnn = 0
For Each sh In ActiveWindow.SelectedSheets
x = 1
flg = 0
namae = ""
If InStr(sh.Name, "(") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Replace(namae, ")", "")
insatsu = Left(sh.Name, InStrRev(sh.Name, "(") - 1)
ElseIf InStr(sh.Name, " (") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Left(namae, Len(namae) - 1)
insatsu = Left(sh.Name, InStrRev(sh.Name, " ") - 1)
Else
insatsu = sh.Name
End If
x = 1
On Error Resume Next
Set s = Worksheets("提出書類(" & namae & ")")
Set s = Worksheets("会社提出書類(" & namae & ")")
On Error GoTo 0
If IsEmpty(s) = False Then
Do Until s.Cells(x, 1) = ""
If s.Cells(x, 1) = insatsu Then
s.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
If namae = "" Then
For Each ws In Worksheets
If InStr(ws.Name, ("提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
If InStr(ws.Name, ("会社提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If

Next
End If
Next sh

End Sub

印刷後処理のマクロがすっきりしました。
色々と考えないと汚くなるね。無駄な処理も入るし、ミスも増えるし……。

コメント
コメントの投稿










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

はなかな

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

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

この人とブロともになる

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