FC2ブログ

零号池 緊急換水

 鯉★★★ 金魚★★ 
 仕事から帰ってきたら大惨事
池は腐臭を放ち、鯉★★★ 金魚★★と被害は甚大です。
このところの熱さが原因でしょうか?
確かにこのところ餌の喰いがわるいのは感じていましたが…
まずは死骸の撤去、悲しくなります。
しかし、死骸の撤去してもなお腐臭を放ち続ける池…
緊急換水するしかありません。
しかし、池の側の蛇口は水道水
この池は基本的に雨水を利用する設計で作ったとの亡き祖父の弁
しかたがないので、風呂場(井戸水)から水を入れ続けるしかありません。
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
FC2カウンター
阿良々木''@_掲示板 NEW
入口
RSSリンクの表示
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク
らくがき
新着記事
トップページ Jan 01, 2030
気付けば9月・・・ Sep 06, 2019
お久しぶりです Dec 31, 2018
PLUS COFFEE Oct 10, 2018
アキネトン追加 Sep 27, 2018
操作性.… Sep 23, 2018
まわりに危機感がないと… Sep 19, 2018
異世界魔王と召喚少女の奴隷魔術 四月は君の嘘 Sep 18, 2018
その一言で Sep 13, 2018
住所と名前を書いてハンコを押す Sep 12, 2018
カテゴリ
カレンダー
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 - -
アクセスランキング
[ジャンルランキング]
ブログ
6009位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
270位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング