豊川のお天気は如何だろうな・・・

昨日の御願が通じたのか・・・京都はお天気が回復してきた・・・

近所の公園で幼稚園の運動会をやっている声や音楽が聞こえてる・・・


豊川では如何だろう・・・な・・・

チビの初めての運動会・・・お天気が回復してるんだろうか・・・



もし、やってたら・・・

照れ屋さんだけど・・・結構調子乗りのチビの事だから張り切ってやってんだろうなぁ・・・

ましてやお父さんが見てたら・・・一層、調子に乗ってんだろうな！



お天気が回復してなくて・・・明日に変更に成ってるんだったら・・・

お父さんはいないけど・・・お母さんとチビ2号の前で頑張れよォ～！

得意先名で直送伝票づくり

最近、受注数量が少なくなってきている為、直送が増えてきている・・・

これは、あくまでも得意先様との信頼関係が無ければ出来ない事なのだが・・・


弊社では直送依頼が来た時・・・伝票・送り状に一切弊社の名前が出ないように配慮している

送り状・・・○ネコ宅急便ソフトは荷送人欄は自由に変更できるように対応している

伝票は・・・小生が創った入り日記簡易ソフトを利用する訳だ・・・

黄色の得意先名惰円形をクリックする

そうすれば、入り日記の会社名の欄にあたかもその会社の伝票のよう書き込まれる（※↑図の赤い四角の中）





如何してるかと云えば・・伝票ソフトの右側にお得意様の伝票仕様を登録している訳です（※↑図の右側）

これをコピーして貼り付ける訳です・・・




更にこのコピーを印刷画面の伝票２枚分にも貼り付ける訳です（※↑図）



これで一切、弊社の名前は出てこない訳です。

こうする事が弊社のお得意様の立場を考えた時の礼儀だと思うからやっている訳です・・・


参考までにVBAは以下の通りです

Sub
　　Range("Q3:S5").Select
　　Selection.Copy
　　Range("K3:M5").Select
　　Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
　　 , Transpose:=False
　　Sheets("入日記印刷").Select
　　ActiveWindow.ScrollRow = 1
　　Range("J2:L4").Select
　　Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
　　 , Transpose:=False
　　ActiveWindow.ScrollRow = 13
　　Range("J18:L20").Select
　　Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
　　 , Transpose:=False
　　ActiveWindow.ScrollRow = 1
　　Sheets("入日記入力").Select
　　ActiveWindow.ScrollColumn = 1
　　Range("K3:M5").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
End Sub