零号池 緊急換水

 鯉★★★ 金魚★★ 
 仕事から帰ってきたら大惨事
池は腐臭を放ち、鯉★★★ 金魚★★と被害は甚大です。
このところの熱さが原因でしょうか?
確かにこのところ餌の喰いがわるいのは感じていましたが…
まずは死骸の撤去、悲しくなります。
しかし、死骸の撤去してもなお腐臭を放ち続ける池…
緊急換水するしかありません。
しかし、池の側の蛇口は水道水
この池は基本的に雨水を利用する設計で作ったとの亡き祖父の弁
しかたがないので、風呂場(井戸水)から水を入れ続けるしかありません。
idomizu.jpg
 排水口は小さく効率的ではありません。
haisuikou.jpg
↓押し出される汚水、築100年超(日露戦争の年に建った)の古い造り。
haisuikou-deguchi.jpg
前回(今朝)の記事でサンプルに使った画像には元気な姿が…
ちなみにまだ換水中です。 

ブログランキング・にほんブログ村へ
にほんブログ村
スポンサーサイト



画像の差し込み印刷やっとできた…

以前から画像の差し込み印刷にチャレンジしていたのですが上手くいかず。
昨日はエクセルの学校さんのエクセル質問掲示板でわからないとこ教えて貰ってきました。
マナさんご教授ありがとうございました。
DoEventsですね。
DoEvents
おかげで、ちゃんと動くようになりました。
エクセルでVLOOKUPを使って連続印刷するマクロはよく見かけるのですが
画像の差し込み印刷となるとなかなかサンプルが見つかりません。
先月仕事で48ページ画像付きの表(下図はそれを簡素化し自宅で再現したものです)を印刷しなかればならず、
そのときはスピンボタンを使ってしのぎました。
前任者はシートを40枚くらい作成し、一枚ずつ画像の挿入していたそうです、面倒くさがりの僕にはきついです。
10月にもまた同じ作業があるので、そのときは少し楽ができそうです。

VLPICS.jpg

'-----標準モジュール-----------------------------------------
Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & Sheets("TEMP").Range("B1"), 2) & ".jpg"
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End Sub
'------Sheet1(TEMP)---------------------------------------
Option Explicit

Private Sub CB1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '終了番号
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP
DoEvents
ActiveWindow.SelectedSheets.PrintOut
Next bangou
End Sub
訪問者さま
カレンダー
07 | 2017/08 | 09
- - 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 - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
移植 Jul 29, 2020
大物 Jul 23, 2020
新基幹システム Jul 22, 2020
毎日更新したいけど Jul 21, 2020
落書きする時間が… Jul 19, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
2385位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
91位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム