オリオン座流星群は今日も見れますか?オリオン

オリオン座流星群は今日も見れますか?オリオン座流星群は今日も見れますか? 極大が21日23時のため昨日よりは少ないと思いますが見えます!

 

私は19日から毎日見ていて結果は・・・

 

19日 1時間見て3個

 

20日 30分見て散在流星を1個

 

21日 2時間見て8個ほど

 

という結果です!

 

 

まだまだ可能性はありますよ^^

金曜日くらいまでは見えますよ!

 

国立天文台のキャンペーンでも参考にしてはいかがでしょうか?^^

 

 

 

最後に、参考ページとしてAstro Artsをリンクしますね。

 

雪を使った俳句を作ってね^^

雪を使った俳句を作ってね^^

あなたの才能がここで開花するかもしれませんよ~...雪を使った俳句を作ってね^^

あなたの才能がここで開花するかもしれませんよ~

 

例・雪合戦 冬ソナ真似して 風邪を引く

 

ま、こんな程度で・・^^: ん~みんな素敵ですね^^才能ありますよ~♪

また思いついたら、いつでも追加して教えてくださいね。こんにちは

淡雪の

 ひろりん様や

 肌きれい

 

雪冷たく

 義父の考え

 同じかな

 

我が息子

 雪のような心

 純粋さ

 夫のさやさしさ 気持ちにゆとり 雪とけり ひろりん様の家族の俳句にしました!!!

素敵な俳句ばかりで感動しました。しかも私の家族を題材にしてくださって

ほんとに嬉しいです^^ありがとうございました。また寄ってくださいね^^

みなさまも素敵な俳句ありがとうございました。短歌も素敵でしたよ^^

御殿場プレミアムアウトレットの駐車場が開く時

御殿場プレミアムアウトレットの駐車場が開く時間は何時でしょうか?

土日は混む...御殿場プレミアムアウトレットの駐車場が開く時間は何時でしょうか?

土日は混むということなので朝一番に行こうと思っています!

営業時間は10時(5月)みたいですがタリーズコーヒーが9時から営業しているので駐車場は何時から?と思いました。

よろしくお願いいたします。朝8時に行ったら既に駐車場に入れて貰えました。その時間でさえバスでお迎えの駐車場でした。

たぶん7時頃から空いていると思います。

『万葉集』と、『古今和歌集』『新古今和歌集』

万葉集』と、『古今和歌集』『新古今和歌集』『続古今和歌集』などの勅撰和歌集...『万葉集』と、『古今和歌集』『新古今和歌集』『続古今和歌集』などの勅撰和歌集から、特に地名の“山”(例えば生駒山など)が詠まれている歌を探したいのですが… 高校までの古典しか習った事のないような、初心者でも分かりやすい、探しやすいような…本がもしもありましたら、教えて頂けないでしょうか…?

特に、『万葉集』について教えて頂けたら有難いですが、勅撰和歌集の方でも、何でも教えて頂けましたら、幸いです。

 

やはり、全巻目を通すしか、方法はないのでしょうか…?国歌大観の、索引機能を使って、探すことができます。

大学生なら、文学部や国文科の蔵書の中にあるのではないでしょうか。

Web版(kjsystems.sakura.ne.jp/kotenlibrary/)や、CD-ROM版もありますが、高くつきます。回答して下さったお二方、本当にありがとうございました。

大学の図書館で、正宗敦夫さんの『万葉集総索引』を調べたのですが、いまいち使い方が分からなかったですが、確かに「ヤマ」についてまとまっていました。

ランの根についての質問です。

ランの根についての質問です。

貰い物のコチョウランが寄せ植えでポリ鉢だったの...ランの根についての質問です。

貰い物のコチョウランが寄せ植えでポリ鉢だったので蘭用のプラスチック鉢に春遅く植え替えました。

 生育はいいのですが昨日何気なく鉢底の裏をみたら鉢底の細い穴からうじゃうじゃに太い根が出てるのでびっくり!

 

いったいどうしたらいいのでしょう?

こういう時の為に割れる素焼き鉢か切れるポリ鉢にするべきだったのでしょうか?

 

結構頑丈なプラスチック鉢で鉢底をきるのは難しそうです。

どなたか良い知恵をお貸し下さい。myrtus2010さん、こんばんわ。

「ランの根に付いて」

ややこしい話で恐縮ですが、大切な話です是非ご理解願いたいと思います。

ランには大きく分けると「着生種」木や岩肌にくっ付いて生活しているタイプ

(胡蝶蘭はこのタイプ)と「地生種」土に根を張って生活しているタイプが有り

ます。しかし地生種も着生種が地面に降りて行ったと考えられていて、根の

基本的な構造はほとんど変わりません。

ランの根の特徴は根が触れた物に合わせた根に変える性質が有ります。

岩なら岩に適応した、木の幹なら樹皮に合わせた根に替えます。

この事は成長の緩慢なランが自然界で生き残る為の適応術と云えると思いま

す。しかしこれは成長している根の場合でして、成長してしまった根は途中

で変わる事は出来ません。(この事は大切です)

つまり、水苔植えをバーク植えに替えたり、バーク植えを軽石植えにしたり

すると必ず根が適応出来なくて根腐れを起こしてしまいます。

良く有る話で、水苔から根が空中へ飛び出してしまうのでと、その根を植え直

すと、必ず根腐れしてしまいます。つまり空中に適応した根を植え込むと窒息

した様な状態に成る訳です。その為、植え替えのタイミングは株元から根が顔

を出した時をおすすめして居ます。

一般的な「春に」は無難に云っているだけで温度や湿度等環境がそれぞれです

から、本当は答えにくいのが事実です。

 

>「寄せ植えでポリ鉢だったので蘭用のプラスチック鉢に春遅く植え替えました。」

本当は洋ラン用素焼き鉢にニュージーランド産の3A程度の水苔えがおすす

めです。胡蝶蘭は着生種ですから空中へ根を伸ばしたがります。ラン園等は

大切な種類の胡蝶蘭は必ず洋ラン用素焼き鉢に水苔植えです。

理由としては、通気性が良く水の管理が分かり易く良く育つ為です。

(ギフト用の品種名も良く分からない種はポリポット植えです)

 

>「鉢底の裏をみたら鉢底の細い穴からうじゃうじゃに太い根が出てるのでびっくり!」

これから冬を迎えます。温室等をお持ちで最低気温18度程度が確保出来る場合

は別ですが、現在の状態で冬越しをされ、来春以降に植え替えを実施される事

をすすめます。理由は前述の様な理由からです。

 

>「結構頑丈なプラスチック鉢で鉢底をきるのは難しそうです。」

しっかりした金属も切れる万能ハサミ等が便利です。また少々根が切れたりは

仕方の無い事です。その為に、根の動くタイミングが植え替えのタイミングな

のです。写真を添付しておきます。ピンクの輪で囲んだ所の様な根が顔を出し

た時がベストです。(触れた材料に適応してくれます)

以上、参考に成れば良いのですが。成長してしまった根は変わる事が出来ないので植え込み材料を変えると適応出来ず根腐れを生じやすい…という説明がとても参考になりました。

来春を待って植え替える事にします。

お二人とも有難うございました。

梅雨の時期でも楽しめる京都・奈良の観光名所を

梅雨の時期でも楽しめる京都・奈良の観光名所を教えてください。あじさいの綺麗な...梅雨の時期でも楽しめる京都・奈良の観光名所を教えてください。あじさいの綺麗な禅寺など。今のところ、興福寺や宇治の三室戸寺が候補に上がっています。また、素敵なお寺で宿泊施設のあるところがありますか? グーグルで、『京都の宿坊』と検索されると、いろいろ出てきますよ。

 

お時間とれるなら、長谷寺まで足を伸ばしてみてはいかがですか??

駅から15分~20分ありますが、舗装された道なので、苦にはなりません。 今まで色んな所を拝観参拝させて頂いた中で、上位に入る素晴らしいお寺でしたありがとうございます。お寺の宿泊施設を宿坊ということも初めて知り、奈良に宿坊を見つけました。長谷寺もとてもよさそうです。有益な情報をありがとうございました。

Excelで帳票印刷マクロを使っていますが、

Excelで帳票印刷マクロを使っていますが、これを印刷ではなくてPDF出力マクロに変...Excelで帳票印刷マクロを使っていますが、これを印刷ではなくてPDF出力マクロに変更できないでしょうか?ノウハウのある方、ご回答いただければ幸いです。 「帳票シート」というシートが印刷用のシートで、「データシート」というシートはデータリストのシートです。

データシート内でリストが存在する行まで帳票シートの指定セルに値を代入して1行ずつ印刷を繰り返す仕組みです。

これを、印刷ではなくて1行ずつPDF出力にしたい(ファイル名は例えばデータシートA列の値で)のですが可能でしょうか?

 

マクロ記述は以下です。

 

------------------------------------------------------------------------------

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub InsPrint() Const org As String = "データシート" '元データのシート名に修正

Const prs As String = "帳票シート" '印刷するシート名に修正

Const strt As Integer = 2 '元データの実データ開始行に修正

Dim idx As Long

Dim oSht, pSht As Worksheet

 Set oSht = Worksheets(org)

 Set pSht = Worksheets(prs)

 For idx = strt To oSht.Range("A65536").End(xlUp).Row

 

' 以下の行を項目数だけコピーして定義する

 pSht.Range("D7").Value = oSht.Cells(idx, "A").Value

 pSht.Range("D8").Value = oSht.Cells(idx, "B").Value

 pSht.Range("D9").Value = oSht.Cells(idx, "C").Value

 

'

 pSht.PrintOut '印刷

' プリンタの印刷が追いつかないので10頁につき8秒休止する

 If (idx Mod 10) = 0 Then

 DoEvents

 Sleep 8000 'ミリ秒単位で指定

 End If

 Next idx

End Sub

---------------------------------------------------------------PDFに出力するなら、

 

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "フォルダ名\Book1.pdf", Quality:= _

 xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

 OpenAfterPublish:=False

 

という感じでしょう。

ExportAsFixedFormatメソッドをヘルプで調べれば分かります。

このメソッドは、Excel2007からです。ありがとうございます!さらに、セルの値をファイル名にする方法も自分で検索して何とかなりました!