零号池 緊急換水

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

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はビオトープとアクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したい(良く言えば効率化)ためにExcelやAccessでVBAをちょくちょくいじってます。
 当ブログはリンク大歓迎です。ブロともも絶賛募集中!

最新記事
カテゴリ
カレンダー
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 - -
アクセスランキング
[ジャンルランキング]
アニメ・コミック
3149位
アクセスランキングを見る>>

[サブジャンルランキング]
アニメ
1303位
アクセスランキングを見る>>
最新コメント
ミナミヌマエビ
にほんブログ村(ビオトープ)
にほんブログ村
月別アーカイブ
リンク(リンクフリー、大歓迎です)
RSSリンクの表示
ブロとも絶賛募集中

この人とブロともになる