配達予定の今日になって・・・

先日、弊社の繊維関係の得意先様から明太子の御注文があった・・・

只、会社なので土曜日が休みと成るから金曜日着は可能ですか？・・・と

早速、明太子製造会社へメールで注文書を添付し発注を掛けた・・・

折り返し返事が来て、24日の金曜日着で手配します・・・と・・・



お得意様へその旨を連絡を入れ・・・お得意様も喜んで下さってた・・・



今朝の10時過ぎに成ってから明太子製造会社から・・・メール・・・が？

早速、内容を見れば・・・昨日、祭日で会社が休みで出荷出来てませんので土曜日着に成ります・・・と



何と云う事だぁ～！・・・

直ぐ電話を入れ・・・「会社やから土曜日は駄目だ！月曜日にして下さい！」・・・と

お得意先へも、電話をし謝って置いたが・・・



今の時代、自分のミスでもメールだけで済ませようとするのかぁ？・・・

こちらが多少きつい言葉で突き詰めたら・・・

「こちらからも先方様に、誤りのお電話をしましょうか・・・」・・・だと・・・そんな事とちゃうやろ！

納期の確認までして、進めた事じゃないのかぁ～・・・

間違いが解った時点で、メールじゃなく・・・即、電話とちゃうか！？

何でもかんでも、メールと云うのは違うやろぉ～！遊びとちゃうでェ～！

半袖じゃ・・・寒い・・・

今朝起きて、綿パンに半袖のＴシャツを着た・・・が・・・

階下へ降りてみれば・・・

どうも、肌寒い・・・何か上に羽織ろう・・・


今日は朝から銀行周りか・・・洛西ニュータウンは一段と肌寒いだろうな・・・

しかし、こんなに急に気温が下がるなんて・・・身体の調節がしにくいなぁ・・・



今晩は、夜はお休みだし・・・ゆっくり出来そうだな・・・

夕方まで、お仕事を頑張りましょぉぉぉ～！

銀杏の実が・・・

雨も上がったし、ナナ様の散歩へでも行くか・・・

短パンでは寒そうだな・・・長いパンツに着替えよう・・・



外に出てみれば・・・空気が冷たぁ～い・・・夏も終わったな・・・



何時もの公園へ行き・・・ブラッシングをし・・・フェンス沿いを歩いていると

足元に・・・銀杏の実が落ちていた・・・

　　　　　　　やはり秋なんだぁ～・・・

上を見上げれば・・・鈴なりの実が付いていた・・・

　　　　　　自然に教えて貰って如何する？・・・

木々は間違いなく秋に向かってたんだなぁ・・・

　　それに引き換え・・・人は疎く成ってしまってるのか・・・な・・・

たむろってる奴らに・・・センサーライト

我が家では、以前の車の時・・・車のカギ穴をこじ開けられそうに成った事がある・・・

それ以来、玄関灯を朝まで点灯させている・・・



斜め向かいのお宅でも、バイクを悪戯されてから同じく玄関灯を点けていられる・・・が

最近、そのお宅の前で深夜未成年者がたむろしてるみたいだ・・・

小生が帰宅してきた時に、たむろしてたら・・・車をわざと近くまで寄せて除けさすのだが・・・



可なり困ってらした様で、数日前からセンサーライトを取り付けられた・・・

家の前でたむろすれば、センサーライトが反応すると云う訳だ・・・



しか～し・・・一昨日の朝、我が家の前に煙草の吸い殻が7～8本捨てられてるではないか・・・

今度は、我が家の前に集まってるのかぁ～？・・・来るなら来てみィ～や！えぇっ！？

今日は祭日やでぇ・・・

am6:30・・・携帯電話の目覚ましで起床・・・



二階へ降りて行き・・・「おはよぉ～！」・・・と出勤前の妻に声をかけた・・・ら

「何でぇ？こんなに早く起きてきたん？」・・・と・・・んっ？

「今日は祭日やでぇ！」・・・あぁ・・・そうだった祭日かぁ・・・



しゃあないし、顔を洗ってこよう・・・



雨が降ってるなぁ・・・

　　「車で送ってってあげようか？」・・・

　　　　「いや、今雨が上がってるし良いわ」・・・

　　「じゃ気い付けて行きや！」・・・

　　　　「ほな、行ってくるわ」・・・



しかし、今日が祭日だったとは・・・

土日・祭日も働いてたら・・・曜日の感覚が余りないからなぁ～・・・



まだ頭が起きて無いなぁ・・・

元帳用ソフト・・・全ての勘定科目設定終了！

ナナ様が待っている・・・お昼のオシッコへ連れて行って無いからだ・・・

少しバタバタしてたから、散歩まで辛抱させようか・・・



でも・・・玄関先まで行ったり・・・戻ってきて小生の顔を見たり・・・忙しないなぁ・・・

しゃあない・・・オシッコだけさせてこよう・・・



元帳用ソフトも勘定科目全て完成した事だし・・・



夕方まで、データーの書き込みをするか・・・ソフトに手間取ってデーター入力をしてないからな・・・

休肝日・・・3日！

昨夜で休肝日・・・3日！

帰宅後、シャワーを浴び・・・風呂上がりの1杯と云う気に成れなかった・・・

実は、ここ二日ほど軽い胃もたれがある・・・夏の疲れ？・・・

丁度良い機会だから、昨夜も休肝日にした訳だ・・・



以前ほどアルコールの量は飲めなくなったが、毎日でも飲みたい方なのだ・・・が

今年の夏は、体力的にも参ってしまっている感じがするぁ・・・

ここ一ヶ月程、夜の仕事がきつく感じられる・・・疲れが抜けないようだ・・・



今日で元帳用のソフトも全科目設定出来そうだし・・・

頑^張るか_ぁ～！気力^だぁ～！

リンゴ狩りのお裾分け・・・

娘の処からリンゴが届いた・・・

如何して？・・・この連休に旦那も帰ってきて皆で浜松の方へリンゴ狩りに行ってきたらしい・・・

チビ達も喜んでただろうなぁ・・・

聞けば・・・下のチビを除いて、3人で15個ほど食べたみたいだ！！



これだけで十分、入園料の元は取れてるんちゃうかぁ・・・

更にお土産も頂いたみたいだ・・・そのお裾分けって事だな・・・



結構、美味しいリンゴだった・・・


旦那の単身赴任も後三カ月強だな・・・長かったろうなぁ・・・

年明けには、帰ってくる訳だ・・・が・・・

今度は・・・春には、一家で転勤・・・か・・・何処へ行くんだろうなぁ・・・

ミカンの苗木が・・・

先日、くちなしの花の葉っぱが青虫に食べられたので・・・

薬を撒いておいた・・・ら・・・くちなしの葉には青虫は来て無い・・・

これで安心だと気を許していた・・・ら・・・何とォ～！

小さなミカンの苗木の葉が一枚も残って無い！・・・ショック！

みれば大きな青虫が2匹も付いていたぁ～！・・・



くちなしは毎回の事なので・・・可なり注意を払っているが・・・まさかミカンまで・・・

これからの時期、新芽が出てくるかなぁ～・・・

世間は3連休だと云うのに・・・

世間は3連休だと云うのに・・・

小生は引きこもって、パソコンに向かっている・・・

50歳代前半頃までは、山に海にと出向いてアウトドアを満喫していた・・・が・・・

今はそれも叶わず・・・年がら年中スケジュールを消化している・・・って感じの毎日だ・・・


子供が独立してからは、夫婦二人の生活をエンジョイすべく楽しみにしてた・・・のに・・・

まさか朝から晩まで働くような事に成るとは想像だにしなかった・・・

ましてや妻にも、こんな年齢まで働かせるとは・・・本当に申し訳ない・・・

・・・って、取って付けたような殊勝な事いってるが・・・



ボケ防止の為には、働く事が一番なのだぁ～！

小生の老母を見てみろ！・・・90歳にして現役じゃないか！

足腰もしっかりしてるし・・・バリバリ働いてるぞォ～！


俺達もお袋に負けないよう・・・まだまだ頑張ろうぜぇぇぇぇ～！！

昨夜は・・・熟睡できなかったぁ～・・・

昨夜、帰宅後シャワーを浴びた後・・・

休肝日用にと買ってくれていた“キリンフリー”を飲みながら一息ついていた・・・

ここ数日のパソコンモニターとのにらめっこで目の奥が痛い・・・

テレビのニュースを見ていても・・・痛い・・・というか重たい・・・


ならば、寝るかぁ～・・・と布団にも振り込んだ・・・が・・・

頭が冴えてるのか寝付けない・・・結局、小一時間してもう一度トイレに行き・・・

再び布団の中へ・・・何とか寝付けそうだ・・・ウツラ・・・ウツラしていた・・・


どのくらい寝たのだろう・・・突然・・・ジ_リジ^リ～！^時_間です^よ～！・・・

ジ_リジ^リ～！^時_間です^よ～！・・・妻の目ざまし時計の音だ・・・！！

妻の起きる気配は無い・・・んっ？！

妻は既に起きていて居ないみたいだ・・・時計は？・・・止めなきゃ・・・

暗がりの中で漸く時計を捜し・・・目覚ましを止めた・・・が

時間を見ればam5：00だ・・・目が覚めてしまったのでトイレにでも行って来るか・・・と階下へ


妻はナナ様を連れて、朝の散歩へ行ってるみたいだ・・・

再び布団の中へ入ったものの・・・なかなか寝付けない・・・

次に時計を見れば・・・am7：00・・・もう少し寝とこぅ・・・結局、9時前に起きたが

昨夜は、本当に寝付けなかったなぁ・・・今朝も目の奥がゴロゴロしてる・・・


今日こそ元帳用のソフトを全科目完成させておかなくては・・・な^っ！！

根を詰め過ぎてミスが出始めた・・・

昨夜出来上がった元帳印刷ソフト・・・

勘定科目全てで利用出来るよう設定している・・・が

何せ科目が多いからこれも大変だぁ・・・

只、銀行勘定帳と金銭出納帳は少し手をくわえなければいけないなぁ・・・



今日は根を詰め過ぎたから操作ミスが出始めた・・・もう止めておこう・・・

やはり手直しは、大変だぁ～・・・


脳味噌が疲れてしまったから、夕方までに回復させないと・・・

第二部の仕事でミスが出てしまったら大変だぁ・・・終了ぉぉぉぉ～！

こんな複雑なマクロ初めて創ったぁ～！

完_成だ ^ぁ～！ヽ(^o^)丿

昨夜までかかったが、ついに今までで最高のマクロが完成した・・・

これで、データーさえ入力し印刷ボタンを押せば勝手に斜め罫線を入れて印刷する訳だ！

　←この入力画面にデータを入れ右上の印刷ボタンを押すだけ！

今までここまで複雑なマクロを完成させた事は無かった・・・

たまたま夜が二日続きで休みだったから出来たようなものだ・・・

これから月末が非常に楽に成る・・・有りがたい事だ・・・



参考までに、VBAマクロを添付して置きますので参考に成れば利用してみて下さい
※素人が作った物なので不要な部分があるかと思いますがご了承ください。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

Sub 元帳奇数頁印刷()
'
' 元帳奇数頁印刷 Macro
'

'
　If MsgBox("ここは奇数頁の印刷です！間違いありませんか？", vbOKCancel, "印刷確認") = vbOK Then
　　Sheets("元帳用紙(奇数頁)").Select
　　Range("C7:G34").Select
　　Selection.Copy
　　Sheets("印刷-元帳用紙(奇数頁)").Select
　　Range("A7:C34").Select
　　Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False
　　Range("A7").Select
　　Sheets("元帳用紙(奇数頁)").Select
　　Application.CutCopyMode = False
　　ActiveWindow.SmallScroll Down:=-14
　　Range("I7:J34").Select
　　Selection.Copy
　　Sheets("印刷-元帳用紙(奇数頁)").Select
　　Range("G7:H34").Select
　　Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False
　　Range("G7:H7").Select
　　Sheets("元帳用紙(奇数頁)").Select
　　ActiveWindow.SmallScroll Down:=-16
　　Application.CutCopyMode = False
　　Range("L7:M34").Select
　　Selection.Copy
　　Sheets("印刷-元帳用紙(奇数頁)").Select
　　Range("J7:K34").Select
　　Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False
　　Range("J7:K7").Select
　 Sheets("元帳用紙(奇数頁)").Select
　　ActiveWindow.SmallScroll Down:=-10
　　Application.CutCopyMode = False
　　Range("C7").Select
　　Worksheets("印刷-元帳用紙(奇数頁)").Activate
　　シート名 = "印刷-元帳用紙(奇数頁)"
　　セル範囲 = "C7"
　　Application.Goto Worksheets(シート名).Range(セル範囲)
　　　　Range("C7").CurrentRegion.Select '左上セル基点にアクティブセル領域選択
　　　　行 = Selection.Row '　　〃　の行番号
　　　　下 = 行 + Selection.Rows.Count 'アクティブセルの下端の次の行番号
　　　　Range(Cells(下, 1), Cells(下, 1)).Select
　　　　左 = 3 '選択する範囲の左端セルの列番号
　　　　右 = 5 '　　　〃　　　右端　〃　列番号
　　　　セル下 = 34 '　　　〃　　　下端　〃　行番号
　　Range(Cells(下, 左), Cells(セル下, 右)).Select
　　With Selection
　　　　.HorizontalAlignment = xlDistributed
　　　　.VerticalAlignment = xlCenter
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.IndentLevel = 0
　　　　.ShrinkToFit = False
　　　　.ReadingOrder = xlContext
　　　　.MergeCells = True
　　End With
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　With Selection.Borders(xlDiagonalUp)
　　　　.LineStyle = xlContinuous
　　　　.Color = -16776961
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　Selection.Borders(xlEdgeLeft).LineStyle = xlNone
　　Selection.Borders(xlEdgeTop).LineStyle = xlNone
　　With Selection.Borders(xlEdgeBottom)
　　　　.LineStyle = xlContinuous
　　　　.Color = -16776961
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　Selection.Borders(xlEdgeRight).LineStyle = xlNone
　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　Application.ActivePrinter = "EPSON PX-201(ネットワーク) on Ne02:"
　　ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
　　Worksheets("印刷-元帳用紙(奇数頁)").Activate
　　Application.Goto Reference:=Worksheets("印刷-元帳用紙(奇数頁)").Range("A7:K34"), scroll:=True
　　Selection.ClearContents
　　左 = 3 '罫線消去範囲の左端
　　上 = 7 '上端
　　右 = 5 '右端
　　下 = 34 '下端
　　Sheets("印刷-元帳用紙(奇数頁)").Select
　　　　Range(Cells(上, 左), Cells(下, 右)).Select '消去する範囲を選択
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　Selection.Borders(xlEdgeLeft).LineStyle = xlNone
　　Selection.Borders(xlEdgeTop).LineStyle = xlNone
　　Selection.Borders(xlEdgeBottom).LineStyle = xlNone
　　Selection.Borders(xlEdgeRight).LineStyle = xlNone
　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　Range("C7:E34").UnMerge
　　Range("D7:E7").Merge (True)
　　Range("D8:E8").Merge (True)
　　Range("D9:E9").Merge (True)
　　Range("D10:E10").Merge (True)
　　Range("D11:E11").Merge (True)
　　Range("D12:E12").Merge (True)
　　Range("D13:E13").Merge (True)
　　Range("D14:E14").Merge (True)
　　Range("D15:E15").Merge (True)
　　Range("D16:E16").Merge (True)
　　Range("D17:E17").Merge (True)
　　Range("D18:E18").Merge (True)
　　Range("D19:E19").Merge (True)
　　Range("D20:E20").Merge (True)
　　Range("D21:E21").Merge (True)
　　Range("D22:E22").Merge (True)
　　Range("D23:E23").Merge (True)
　　Range("D24:E24").Merge (True)
　　Range("D25:E25").Merge (True)
　　Range("D26:E26").Merge (True)
　　Range("D27:E27").Merge (True)
　　Range("D28:E28").Merge (True)
　　Range("D29:E29").Merge (True)
　　Range("D30:E30").Merge (True)
　　Range("D31:E31").Merge (True)
　　Range("D32:E32").Merge (True)
　　Range("D33:E33").Merge (True)
　　Range("D34:E34").Merge (True)
　　Range("C34:E34").Select
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　Selection.Borders(xlEdgeLeft).LineStyle = xlNone
　　Selection.Borders(xlEdgeTop).LineStyle = xlNone
　　With Selection.Borders(xlEdgeBottom)
　　　　.LineStyle = xlContinuous
　　　　.Color = -16776961
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　Selection.Borders(xlEdgeRight).LineStyle = xlNone
　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　Sheets("元帳用紙(奇数頁)").Select
　End If
End Sub
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

何とか半分くらい出来ましたぁ～・・・

元帳印刷用ソフト・・・

漸く・・・マクロを駆使して

• データーを印刷画面にコピー
  
• 空きのセルを選択し
  
• セルの結合
  
• 結合したセルに赤色で斜めの線を入れる
  
• 印刷機を選んで印刷
  

　　　　　　

ここまでは何とかプログラム出来ました・・・

これから先は・・・

• 結合したセルの斜めに入れた赤い線を消す
  
• 更に結合したセルの解除
  
• 全て解除してしまった為、必要な部分のセルの結合
  
• 最後に入力画面へ戻す
  

ここまでやって漸く完成するのだが・・・今日は疲れたぁ～・・・

何時出来る事やら・・・もう少しだ・・・

昨夜も完成しなかった・・・

今日は・・・土曜日か・・・・

昨夜は元帳用のマクロを作っていて遅くなってしまった・・・

今何時だぁ・・・メガネが無いから見えないな・・・

でも、ブラインドの隙間から日が射してきてるから起きようか・・・




昨夜は結局・・・完成しなかった・・・

又一つ・・・思わぬ障害が出てきた・・・検索範囲を指定しても駄目で・・・中途で投げ出した・・・

まだ、頭が疲れてる・・・って感じでボォォォ～としてるな・・・

今日もう一度挑戦しなきゃ・・・