スキップしてメイン コンテンツに移動

2014/02/11-13

11日
三人で風の丘の味噌作りに参加。探検に夢中なフミさん連れだと大人2人で1人ぶんの働きがせいぜい。フミさんも団子作り、樽へ投げつける工程はいそいそ参加した。トイプードルには関心あるものの飛びつかれるとやっぱり怖くて逃げちゃう。お昼もりもり食べて帰る。
畑に積もった土日の雪をようやく払う。といっても潰れたトンネル、ノラボウナ、人参くらい。麦、葱、マメは放置。ほぼ壊滅してる玉ねぎも。

12日
疲れ気味なので仕事休ませてもらい家でのんびりする。
日に3回くらいは陣痛の気配があるんだけどそこから進まない。鈍痛はずっと続いてるし重いし早くでてきてほしい。

13日
いちおう仕事いって、最終日とさせてもらう。
作業は「農用地利用権設定等申出書」という三枚複写でいかにも役所!って感じに詰め込まれた書式を手書きでなく作りたい件。こちゃこちゃ込み入ってる用紙を再現するのは大変なので、記入内容だけ位置合わせて書き出したうえに原寸大でスキャン・透過加工した画像を載せる作戦なんだけど、excelは画像や図形を正しいサイズで印刷できないとわかり、wordの差し込み印刷を使う。
午前中かけてずっとwordの表作り。なにしろ用紙が、もともとは定規で手書きだったに違いない自由な行間・フォントサイズなので、文字位置を合わせるのが大変。行間やインデントや余白の設定をちまちま組み合わせる。まあ好きな作業なんだけど。
あとはexcelのデータを差し込み印刷用に冗長化させ(3枚複写だから)、差し込み印刷を実行するプログラムを作ればいい。1枚128項目もあるのがやれやれだ。

来年度の入園説明会につき保育園は1時半終了。迎えにいこうとしたらまたバッテリーあげちゃってた。時間がないのでタクシー泣、職場・保育園・自宅コースで3500円無駄に使ってしまった。夫が帰ってきてくれて子連れでタクシーで向かいJAF呼んでくれた。先日同じことして呼んだひとに会いたくなくて尻込みしてた私だけど、実際は別のひとが来たらしい。

フミさんは大きくなったらお父さんになって、それから小さくなってお母さんになるつもりらしい。あと自分のパソコンを作ってもらうと。鳥にも魚にもなりたいし、飛行機やスペーシャシャトルに乗りたいし、楽しそうだねえ。幼児はいつも上機嫌なのがすごい。希望が叶わないそのときは荒れるだけで、なんとなくイライラとかダルイとかウツウツとかない。なぜなんだろう。幼子のようにならなければ神の国にはいることはできない、ってフレーズが思われる。

コメント

このブログの人気の投稿

GAS 同一カラムを複数条件でfilterできない件

Google Apps Script でSpreadsheetをデータベース代わりにwebアプリをポチポチ作ってて、スクリプトからSpreadsheetにフィルタかける場合、同一カラムに複数条件を設定できないことを知って残念……。 フィルタのかけ方はこんな感じ。 日付を範囲指定したいけど、After、Before片方しかつけられない。 var dataFile = SpreadsheetApp.openById(DATA_FILE_ID); var sh = dataFile.getSheetByName(LOG_SHEET_NAME); var criteriaDateAfter = SpreadsheetApp.newFilterCriteria().whenDateAfter(new Date(targetDate)).build(); var criteriaUserEqual = SpreadsheetApp.newFilterCriteria().whenTextEqualTo(user.id).build(); if (sh.getFilter()) { sh.getFilter().remove(); } var r = sh.getRange(1, 1, sh.getLastRow(), sh.getLastColumn()) .createFilter() .setColumnFilterCriteria(DATE_COL, criteriaDateAfter) .setColumnFilterCriteria(USER_ID_COL, criteriaUserEqual) .getRange(); FilterCriteriaに2回条件設定してみたり var criteriaDateRange = SpreadsheetApp.newFilterCriteria() .whenDateAfter(new Date(date1)) .whenDateBefore(new Date(date2)).build(); 同じカラムに2回条件設定してみたり var r = sh.getRange(1, 1, sh.get...

ジップロックで堆肥づくり

2012/11/02『家庭でできる堆肥づくり百科』を見てビニール袋と生ゴミで堆肥づくりに初挑戦。 ・生ごみ 250ml (細かく刻む) ・庭の土 120ml ・水 大さじ2 ・アルファルファ粉末 大さじ1 (ウサギのペレットを砕いた) 袋はジップロック大を使用。 毎日揉む(切り返し)、1日おきに空気を入れ替える。4~8週間でできるらしい。 保温のことは書いてなかったけど発砲スチロール箱に入れてみた。うまく行くといいなあ。 2012/11/07 道路掃除の方に落ち葉をもらったので一掴みいれてみる。生ゴミは窒素やや多めらしく、炭素系の落ち葉を足したらいいかなと。 2012/11/12 10日経ってニオイが落ちついてきたかも。腐ってる臭いではないけどツンとする臭いがずっとしてた。発泡スチロール箱を蓋すれば気にならない(ジップロックには全く遮断されないので、袋だけで室内に置くのは避けたい)。材料がネギとミカンなせいかなあ。見た目は一向に変わらず。

その4 Excel VBAでAmazon Product Advertising API

引っ越すためついに本気で書籍リストを作っていると、どれほど少しでも省力化したくなり、しつこくバージョンアップ。 ISBNのない外国の本も検索したい ISBNのない本が思ったより多かった。フランス語のアクサンとか入力したくない。ISBNでの検索はamazon.com, amazon.frなど検索先を切り替えているように、タイトル等での検索も各国サイトを利用したい。 最初は「jpで見つからなければcom、見つからなければfr、、、」と思ったけど、だいぶ待たされちゃうし、その本のデータをどこで探したいかは決まってるので、それぞれ別のプロシージャを定義して実行できるようにした。 Public Sub searchBookInfoFromAmazonFr(dummy As Integer) searchBookInfo (amazonFr) End Sub さて、クイックアクセスツールバーに登録するのだけど、用意されてるアイコンじゃわかりづらい。各国の旗がいいんじゃないか。と思ってからが長かった・・・が、まとめれば: 旗アイコンは ここ で入手。 Ribbon Editor でリボンに自前のタブ・ボタンを登録 対象のExcelファイルを開く 右のDocument Explorerペインで「CustomUI Parts」を追加 表示される編集ペインのImageタブを開き、好きな画像を追加(From File System) Codeタブに下記Xmlを書いて保存、終了 Excelを開くとカスタム・ボタンが登録されているので、ふつうにクイックアクセスツールバーにも登録 <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customMacro" label="custom macro"> <group id="custo...