2022年10月21日金曜日

動物行動学っていう、ちゃんとした分野があるのだから、アゲハ蝶にも考えがあって動き回るのだろうな ー 蝶道・Flyway(昆虫観察)

   
今年も、秋の季節が巡って、ベランダにおけるアゲハ蝶の育成も終了しました。
産み付けた卵の数も昨年に比べて倍以上になって、羽化できたのが五匹でした、

しかも、越冬のために蛹になったのが二匹で、自然界よりは高い確率なんだな。
ですが、天敵のヤドリバエに卵を産み付けられて、命を落としたのも多かった。

それでも、羽化した後、ベランダから旅立つ姿を見るのは、楽しいものでした。
まあ、昨年に比べると棲みついたヘンルーダの低木が、大きく成長しています。

葉の量が増えて幼虫もたくさん居候したと思いますが、昨年は葉の量が少ない。
それに応じて幼虫は少なめだったのですが、アゲハ蝶はそれを悟っていたのか。

つまり、産み付ける卵の数をコントロールしていたのかもしれないと思う分け。
いやあ、小さいながらも賢い生き物なんだと、変に感動してしまったりします。

それで、自分の住む住居はマンションの中で、ベランダが中庭に面しています。
この中庭は、ロの字のように住居が囲んでおり、ある種、壁に囲まれた感じだ。

なので、旅立ったら一日は中庭にたむろしていますが、そのうちに居なくなる。
あの壁を乗り越えて飛び去ったのだと思いましたが、どこへ行ったのだろうか。

確かに、近所には柑橘類の庭木も多く、そこでも目指して行ってしまったのか。
実をいうと、クロアゲハがマンションの屋上を飛び越えて行くのを見ています。

    
同じコースを飛び去るのを幾度か見て、何か道筋を覚えているような気がした。
そうだとすれば、アゲハ蝶も似たような行動から、飛び去るのかもしれません。

つまり、他の蝶と交尾のために出会えるように、道筋を覚えているような感じ。
学問的に蝶道(Flyway)と言うのですが、学者の日高敏隆が指摘しています。

では、マンションのベランダにある柑橘類をどうやって探して産卵に来るのか。
不思議ですが、近所の点在する柑橘類の庭木を調べたら、ルートがつながった。

マンションそばの市民の森には、夏みかん、キンカン、シークワーサーの木々。
そこから交通量のある道路を挟んでマンションがあり、自分のヘンルーダの木。

そこから緩やかな坂を上ってカラタチ、ミカンを通り過ぎると、また夏みかん。
その高台になった周辺には、金柑、柚子、山椒などの木々が散らばっています。

それで、蝶道と呼ばれる距離は、長くても三百メーターだから範囲内なのです。
これらを結んでいくと、ちょうど中継地点になるのが自分のマンションになる。

ならば、蝶の道を飛んでいく間に、産卵できる柑橘類の木を探したのでしょう。
マンションになくても、近くには別の柑橘類の木々がありますから移動します。

こうして、近所で生まれ育ったアゲハ蝶は、本能的にルートを覚えたと思うな。
柑橘衣類の木も寿命が長いですから、一度覚えれば、累代で産卵もできるんだ。

というわけで、自分の育てるヘンルーダだけは、寿命が少し短いのが気がかり。
そのために、枯らした際の代わりの木として夏みかんの苗木を育てているところですが、卵を産み付けても蛹になるまでの十分な食料の葉を付けるまでには、まだ時間が掛かりそうですので、それまでは、少しでもヘンルーダの低木を養生してあげようと思う自分がいるのでした。



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへ にほんブログ村 スキースノボーブログ スキーへ にほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2022年10月19日水曜日

業務用に流通してしまうので、一般家庭用にスーパーで販売されていないのが残念だったが、ついに買えたぞ ー めんこいな(秋田県産米)

     
台風14号で天候が荒れ模様になるのを恐れて、上さんが買い物に出かけました。
歩ける範囲で近所にスーパーやドラッグストアがあり、暮らし向きは便利です。

ネットでお店のチラシを物色して、どの店が一番安いのか比べたりして出発だ。
こうして、牛乳やらバナナとかを買い出してきた中で米の特売があったらしい。

秋田産で聞いたことのないブランドらしく、”あきたこまち”ではないようです。
ブランド米の”ひとめぼれ”でもないようで、ネットで検索してみることにした。

すると、”めんこいな”の品種が見つかったので紹介すると、ドンピシャでした。
自分も聞いたことのあるような名前程度ですが、これが五キロで千円しません。

まあ、秋の季節が巡ってきて、新米も収穫されて出荷される季節になりました。
昨年の在庫が余っているのか、特売の放出かもしれませんが、徳用米より安い。

それなら、まずい米なのかと思ったら、主に業務用で出荷されている米らしい。
コンビニ、ファミリーレストランで使われているようで、消費者に接点がない。

このため、馴染みが薄いのは当り前かもしれませんが、”きらら397”に近いな。
この米は主に北海道で作付けされますが、食味も良く業務用に流通しています。

       
だから、”めんこいな”も食味が良いと思いますが、殆ど店頭では見かけません。
この点が、”きらら”が一般消費者にも流通しているのと、大きく違う点だろう。

だから、初物で食べてみたくなったので改めて午後に出かけて買ってきました。
冒頭の写真にもあるように、全農パールライスのブランドは、無論問題なしだ。

ただ、山形産の”はえぬき”を食べきっていないので楽しみに待つとしましょう。
この”はえぬき”は、味でブランド米の魚沼コシヒカリに全くひけをとりません。

山形県外での作付けがないので、味のわりに知名度が低いのは残念なことです。
このため、比較的安価で買えるのでラッキーですが、”めんこいな”もそうなの。

”ひとめぼれ”を親として交配によって育成されたのに、主に業務用米なんだな。
それに、一大ブランド”あきたこまち”より作付けが少ないので流通量も少ない。

というわけで、消費者から見れば、美味しくても何やら幻のお米のような存在。
であるのなら、食べてみて美味しいと思えば、店頭に流れてきた時には、ぜひ改めて購入して食してみようと考えている分けでして、そのためには”きらら397”並みに流通してくれれば、ありがたいと思う自分がいるのでした。



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへ にほんブログ村 スキースノボーブログ スキーへ にほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2022年10月17日月曜日

ワードで文章枠のフレームはよく使いますが、エクセルのシートにあるテキストボックスもVBAではテキストフレームで制御します ー TextFrame(VBA)

       
エクセルを使って、A4用紙のタックシールに印刷するプログラムを作成中です。
この用紙には複数枚数のシールを剥がせるデザインで、ここへ印字させる分け。

最初は、位置をシールの寸法に合わせて、セルにデータを書き込んでいました。
このため、メーカーのサイトからシールに関する情報を仕入れたりもしたんだ。

だけど、セルの幅とか行の高さを調整するのが、意外に面倒だと分かりました。
ワークシート上では、使われる単位がポイントになっていますが、ややこしい。

だって、1ポイントが1/72インチで、1インチが約25.4mmと単位が違います。
試しに、1ポイントを25.4mm÷72で計算すると、約0.3528mmと半端な数値。

普通、シートの一行は13.50ポイントですが、厄介でも計算すると約4.76mm。
シートの表示単位をセンチメートル系に変更もできますが、誤差も出るだろう。

なので、セル幅や行高さに注意して必要な値を計算しても、ぴったりしません。
だから、シートにデータ表示はせず、テキストボックスに流し込むことにした。

まあ、このテキストボックスは、枠をクリックすれば簡単自在に移動ができる。
だから、テキストボックスを、一つずつ印字位置の微調整ができるので便利だ。

後は印字内容の流し込みですが、VBAでは”Shape”オブジェクトで定義される。
しかも、このシェイプを制御するオブジェクトもあり、それが”TextFrame”だ。

ここら辺の話は、ネットで探すと、サンプルが見つかるので何とかなりますな。
面白いのは、テキストボックス内で改行するには、Chr(10) のコードを用いる。

例えば、”abc" & Chr(10) & "def" & Chr(10) & "ghi"と書くと三行が表示する。
アイデア次第ですが、郵便番号、住所、氏名を三行で表示するようなものです。

Sub Sample() '三行表示の例
ActiveSheet.Shapes("TextBox 1").TextFrame.Characters.Text = _
”abc" & Chr(10) & "def" & Chr(10) & "ghi"
End Sub

Sub Prtct01() 'ワークシートの保護(マクロでも一部の機能は操作不可)
  ActiveSheet.Protect
End Sub

Sub Prtct02() 'ワークシートの保護(マクロで操作が可能)
  ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

Sub Unprtct()'ワークシートの保護解除
  ActiveSheet.Unprotect
End Sub

      
一方、テキストボックスは、マウスのクリックで簡単に選択できてしまいます。
だから、選択されないように、シートを保護すればよいのですが、問題もある。

それは、シンプルな保護では、マクロの操作に一部制約を受けてしまうらしい。
なので、この制約を受けずにオブジェクトを操作するには、おまじないが必要。

それが、上述の”UserInterfaceOnly:=True”なのですが、これも少し厄介です。
このまま保護して保存終了した後に、このブックを改めて開くと、完全保護だ。

つまり、マクロによる操作も保護する状態で、保存されてしまうということだ。
なので、開いたら、このおまじないのプロシージャを起動させねばならないな。

というわけで、VBA記述が複雑になると、理由が分からぬままエラーが出たり。
このままでは、らちも明かなくなってしまうので、このおまじないを使うのを諦めて、テキストボックスやセルに値を流し込む時は、先頭でシートの保護を解除して、それが終われば、また保護を掛けるという、手間でも単純な操作にしてしまった自分なのでした。



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへ にほんブログ村 スキースノボーブログ スキーへ にほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2022年10月15日土曜日

ここ二三年、気安くベランダまで産卵しに来るので、警戒心も無く安全な場所だと、記憶が遺伝に残されているのだろうか ー アゲハのサナギ(昆虫観察)

   
ベランダに棲みついていたアゲハのラスト芋虫が、十月の好日、旅立ちました。
幼虫を飼育している皆さんは好んで脱走という言葉を使いますが、本当に急だ。

九月末になっても三匹が残っていましたが、先に二匹がサナギになっています。
最後の一匹は、生育が遅く、他の芋虫が最終齢の青い容姿になっても黒いママ。

やっと青い芋虫に脱皮したと思っても、時すでに遅しと急に気温が下がりだす。
普通、昆虫は20~30度の気温で活動が活発になりますが、朝夕は涼しいな。

しかも、天気も雨模様の日が続いて、日中も二十度を超えない日が増えて来た。
なので、気温が25度を超えた、この日にサナギになろうと決断したようです。

どこへ行ったのか見当がつきませんが、ベランダ内であれば見つけられるかな。
先にサナギになった二匹は、最初の一匹が茶色で、二匹目が緑色なので不思議。

二匹目は白容器
バスケットに三匹目
   
一匹目は白い円筒ケースの中で、二匹目は樹脂ケースの茶色いバスケットです。
底の浅い形状で外壁も低く、サナギは床から3センチの高さに張り付いている。

床の色もグレイだし、周囲の色の環境に左右されずに緑色になったのだろうか。
ならば、一匹目はまだ気温も高くて、天敵の寄生バエをかわす擬態色になった。

茶色いと枯草の枝のようにも見えますが、二匹目は気温が下がった頃で緑色だ。
つまり、天敵の昆虫が活動しづらい気温になり、擬態の心配が失せたのだろう。

そんな風に納得してしまいましたが、二匹目はペットボトルに囲まれています。
それが障害物のように芋虫にも感じられて、頼もしく思ったのかもしれません。

と言っても、植物の水やりするじょうろ代わりで、出し入れもあるのが事実だ。
こうなると、誤ってぶつけてしまうかもしれないので、保護でもしてあげたい。

家では、毎日のようにヨーグルトを食べますから、不要になった容器が出ます。
これをカッターナイフで切り抜いて、容器の底をくり抜いて中が見える工夫だ。

それに、バスケットの壁に挿せるように幅のある切れ目を付けて、被せてみる。
その後で、シンクのゴミ受けに使うネットを被せ、害虫から守ってあげました。

というわけで、今年のアゲハ幼虫を育成する時期は、手仕舞いでまた来年です。
本当は、時々飛んでいるクロアゲハに産卵してもらいたいところなのですが、警戒心がとても強い蝶で飛来してもベランダまで降りてくることもなく、上空十数メーターを飛び去るのを見るだけなのかもしれないと思ったのでした。

※三匹目はシェルターを作ってあげました



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへ にほんブログ村 スキースノボーブログ スキーへ にほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村