makuro

sub all()

call 表の形式変換()
call Macro1項目入力()
call Macro2削除と項目コピー()
call Macro2-2Errorも消すとき()
call Macro3セルの幅()
call 違う値になったら黄色()
call 仕上げ_色がわかった行を抽出()

end sub

Sub 表の形式変換()
Dim 範囲 As Range
Dim Gyo As Variant, Retsu As Variant, Cel As Variant
Dim i As Long

Dim cntRow As Long
Dim cntCol As Long
Dim Rng As Range

戻る:
'Gyo = Application.InputBox("ログ1ブロック分の行数を入力してください。", Type:=2)
Gyo = 13

If Gyo = 0 Then Exit Sub

If Gyo = "" Then
MsgBox "行数を入力してください"
GoTo 戻る
End If

'Retsu = Application.InputBox("ログデータの列数を入力してください。", Type:=2)
Retsu = 9

If Retsu = 0 Then Exit Sub

If Retsu = "" Then
MsgBox "表の列数を入力してください"
GoTo 戻る
End If

Set Rng = ActiveSheet.Range("A1").CurrentRegion

cntRow = Rng.Rows.Count - 4
cntCol = Rng.Columns.Count

Set Rng = Rng.Offset(4, 0) '※4行下にずらす
Set Rng = Rng.Resize(cntRow, cntCol) '※1行削る
' Rng.Copy Destination:=Sheets("Sheet2").Range("A2")

If Rng.Rows.Count Mod Gyo <> 0 Then
MsgBox "選択範囲と行数が一致しません。"
Exit Sub
End If

Cel = Gyo * Retsu

MsgBox Gyo & "、" & Cel

Worksheets.Add before:=Sheets(1)
Range("A2").Select

For i = 0 To Rng.Rows.Count * Gyo

ActiveCell.Offset(Int(i / Cel), i Mod Cel).Value = Rng.Cells(i + 1).Value

Next i

Cells.EntireColumn.AutoFit
End Sub

Sub Macro1項目入力()
'
' Macro1項目入力 Macro
' 測定値等を入力
'

'
Sheets(1).Select

Range("F2").Select
Selection.Copy
Range("I1").Select
ActiveSheet.Paste

Range("O2").Select
Selection.Copy
Range("R1").Select
ActiveSheet.Paste

Range("X2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA1").Select
ActiveSheet.Paste

Range("AG2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AJ1").Select
ActiveSheet.Paste

ActiveWindow.SmallScroll ToRight:=17
Range("AP2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AS1").Select
ActiveSheet.Paste

Range("AY2").Select
Application.CutCopyMode = False
Selection.Copy
Range("BB1").Select
ActiveSheet.Paste

Range("BH2").Select
Application.CutCopyMode = False
Selection.Copy
Range("BK1").Select
ActiveSheet.Paste

Range("BQ2").Select
Application.CutCopyMode = False
Selection.Copy
Range("BT1").Select
ActiveSheet.Paste

Range("BZ2").Select
Application.CutCopyMode = False
Selection.Copy
Range("CC1").Select
ActiveSheet.Paste

ActiveWindow.SmallScroll ToRight:=4

Range("CI2").Select
Application.CutCopyMode = False
Selection.Copy
Range("CL1").Select
ActiveSheet.Paste

Range("CR2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll ToRight:=5
Range("CU1").Select
ActiveSheet.Paste

ActiveWindow.SmallScroll ToRight:=21

Range("DA2").Select
Application.CutCopyMode = False
Selection.Copy
Range("DD1").Select
ActiveSheet.Paste

Range("DJ2").Select
Application.CutCopyMode = False
Selection.Copy
Range("DM1").Select
ActiveSheet.Paste

Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/1000"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B166")
Range("B2:B166").Select

Range("A1").Select
ActiveCell.FormulaR1C1 = "msec"
Range("B1").Select
ActiveCell.FormulaR1C1 = "sec"
Range("C1").Select
ActiveCell.FormulaR1C1 = "date"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Error"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Add"
Range("F1").Select
ActiveCell.FormulaR1C1 = "No"
Range("G1").Select
ActiveCell.FormulaR1C1 = "項目"
ActiveCell.Characters(1, 2).PhoneticCharacters = "コウモク"
Range("H1").Select
ActiveCell.FormulaR1C1 = "識別子"
ActiveCell.Characters(1, 3).PhoneticCharacters = "シキベツシ"

Range("I1").Select
ActiveCell.FormulaR1C1 = "■"
Range("A1:J1").Select
Selection.Copy
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy

End Sub

Sub Macro2削除と項目コピー()
'
' Macro2削除と項目コピー Macro
'

'
Range("E:I,K:L,N:R,T:U,W:AA,AC:AD").Select
Range("AC1").Activate
ActiveWindow.SmallScroll ToRight:=22
ActiveWindow.SmallScroll Down:=-27
Range("E:I,K:L,N:R,T:U,W:AA,AC:AD,AF:AJ,AL:AM,AO:AS,AU:AV,AX:BB").Select
Range("AX1").Activate
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.SmallScroll ToRight:=-1
Range( _
"E:I,K:L,N:R,T:U,W:AA,AC:AD,AF:AJ,AL:AM,AO:AS,AU:AV,AX:BB,BD:BE,BG:BK,BM:BN,BP:BT,BV:BW,BY:CC,CE:CF"
_
).Select
Range("CE1").Activate
ActiveWindow.SmallScroll ToRight:=19
Range( _
"E:I,K:L,N:R,T:U,W:AA,AC:AD,AF:AJ,AL:AM,AO:AS,AU:AV,AX:BB,BD:BE,BG:BK,BM:BN,BP:BT,BV:BW,BY:CC,CE:CF,CH:CL,CN:CO,CQ:CU,CW:CX,CZ:DD,DF:DG"
_
).Select
Range("DF1").Activate
ActiveWindow.LargeScroll ToRight:=1
Range( _
"E:I,K:L,N:R,T:U,W:AA,AC:AD,AF:AJ,AL:AM,AO:AS,AU:AV,AX:BB,BD:BE,BG:BK,BM:BN,BP:BT,BV:BW,BY:CC,CE:CF,CH:CL,CN:CO,CQ:CU,CW:CX,CZ:DD,DF:DG,DI:DM"
_
).Select
Range("DI1").Activate
Selection.Borders(xlLeft).LineStyle = xlNone
Selection.Borders(xlRight).LineStyle = xlNone
Selection.Borders(xlTop).LineStyle = xlNone
Selection.Borders(xlBottom).LineStyle = xlNone
Selection.Delete Shift:=xlToLeft
Range("D1").Select
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("H1").Select
ActiveSheet.Paste
Range("J1").Select
ActiveSheet.Paste
Range("L1").Select
ActiveSheet.Paste
Range("N1").Select
ActiveSheet.Paste
Range("P1").Select
ActiveSheet.Paste
Range("R1").Select
ActiveSheet.Paste
Range("T1").Select
ActiveSheet.Paste
Range("V1").Select
ActiveSheet.Paste
Range("X1").Select
ActiveSheet.Paste
Range("Z1").Select
ActiveSheet.Paste
Range("AB1").Select
ActiveSheet.Paste
Range("AC1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

Sub Macro2-2Errorも消すとき()
'
' Macro4Errorも消すとき Macro
'

'
Range("D:D,F:F,H:H,J:J,L:L,N:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB").Select
Range("AB1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Sub Macro3セルの幅()
'
' Macro5セルの幅 Macro
'

'
Columns("D:P").Select
Selection.ColumnWidth = 8.13
Columns("C:C").Select
Selection.ColumnWidth = 3.63
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub

Sub 違う値になったら黄色()

'空白でなくなったら

Dim r '行
Dim f

r = Range("D5").End(xlDown).Row

For r = r To 5 Step -1

For f = 4 To 14

If Cells(r, f).Value <> Cells(r - 1, f).Value Then

Cells(r, f).Interior.Color = 65535 '違う値のセルを黄色に塗りつぶす
Cells(r - 1, f).Interior.Color = 13434879 '直前のセルを薄い黄色

End If

Next
Next
End Sub

Sub 仕上げ_色がわかった行を抽出()
Dim i As Long

Worksheets.Add before:=Sheets(1)

Sheets(2).UsedRange.Copy Sheets(1).Range("A1")
With Sheets(1).UsedRange
For i = 1 To .Columns.Count
.AutoFilter Field:=i, Operator:=xlFilterNoFill
Next
.Offset(1).Delete Shift:=xlUp
.AutoFilter
End With
End Sub

新潟中越地震について

先日、記事にした新潟中越地震およびマスコミの対応についてですが、このたび、以下のような記事を見つけました。

私は（以前の職業の余韻もあり）ネットの情報はそんなに信頼していません。
いくら理にかなっていて、正しく見える意見であっても、出所がはっきりしないかぎり「ウソ」「デマ」である可能性もそれなりにあると思ってます。

ただ、下の記事を読んで、自分なりに「十分ありうる」ことだと思ったので、記載させていただきます。

※10/26時点での情報です。
　現時点では情報が変わっている可能性もあります。
　現状、必要な物資等については、下記をご参照いただければと思います。
　念のため、当記事の中では、「26日の時点で必要だった物資」等については打ち消し線を引いておきます。

★新潟県災害対策本部
http://www.pref.niigata.jp/content/jishin/suitou/bussi.html

★新潟県災害救援ボランティア本部
http://www.nponiigata.jp/jishin/
　
******************************************************************************
信頼している友人からの叫びの声です・・・

10/26 15:00の電話、
小千谷市役所、小学校での救援物資の配給や、炊き出しなどを手伝っています。

現場はまだまだ混乱しているし、人出も足りていません。

そんな状況下で、マスコミの取材陣が50人近く現場付近を陣取っています。
小千谷市役所の正面に車を止めて、そのために、救援物資を運ぶトラックは、遠くに止めることしかできず、ボランティアの人たちがせっせと現場に物資を運んでいます。

報道陣は、それを手伝う気配すらありません。

心労と肉体的疲労が積もっている被災者のかたがたに、当然のようにマイクを向け、24時間カメラをまわし続ける神経もさっぱり理解できません。

現地では今、「大人用の紙おむつ」が不足しています。「赤ちゃん用おの紙おむつ」は足りています。

あとは、トイレが使えなかったり、下着を替えられなかったりするので「パンティライナー」があると重宝しますが、こちらではもう品切れで手に入りません。

P&G・花王・ネピアなどの紙おむつメーカーに電話をして、現状を伝えてください。

夜の寒さが厳しいです。お年寄りは使い捨てカイロをもむことすらできないので、「貼るカイロ」が必要です。

マスコミの仕事は、こういった情報を伝えることだと思うのですが？

今日は、小千谷小学校に小泉首相が来るということで、マスコミ報道人の数はさらにふくれあがり、毛布の配給ができないので、小泉さんが返るまで待つように」という連絡が入りました。

何のための視察なんでしょう？？

午前中にも、数名の政治家さんが小学校に来ましたが、トイレはどこかとたずねられ、仮設トイレを案内したところ、「わたしに仮設トイレを案内するつもりかね？」と言われたそうです。

いったいこの国は、どうなっているんでしょう…

現地では、大人用の紙おむつと、パンティライナー、貼るタイプのカイロを必要としています。

これらの商品を販売している企業の「お客様相談室」宛てにメールを送ったり、電話をかけたりして、「小千谷市の被災者が求めているもの情報」を、伝えてください。
あなたのblogやHPの中で、ただ伝えるだけでかまいません。

皆さんの声が企業を。行政を動かします。

マスコミはたよりになりません。

マスコミへは、支援活動の妨げとなり、被災者の心労を倍増させる今の取材のやり方に、抗議の声をあげてください。

小千谷市にも、続々と個人の方からの救援物資が届いています。ありがとうございます。

しかし、それを種類別に分けて、配布する人出がありませんので、以下の点に注意して送っていただけると大変助かります。

段ボールには、外側に「毛布」「洋服」「下着」など、中身を大きく書いてもらえると助かります。

くつした１足、下着１枚でもうれしいのですが、できれば、ご近所の方と声かけしあって、ある程度まとまった数があると、とても助かります。

送り先の住所はこちらです。

〒947-8501 新潟県小千谷市城内2-7-5
小千谷市役所　宛

お手数をおかけしますが、よろしくお願いいたします。

******************************************************************************

ちなみに、「みんなで支援しましょう」と呼びかけるつもりはありません＜ぉぃ
支援は、人に言われてやるだとかそういったことではなく、その人に由るものだと思ってますから。
ただ、実情（おそらく）を知ることは大事だと思います。

なお、支援をしたいと思ってらっしゃる場合ですが、物資、特に毛布やタオル、衣類などを送る場合には、「家にある使い古し」ではなく、「新品」を送ってあげてください。
例えば洋服など、中古のものを平気で着れる人もいれば、古着はダメ…って方もいらっしゃいます。中古であるが為に、かえって「みじめな思い」になる被災者の方もいらっしゃる可能性がある、ってことも考えられます。ただでさえ心を痛めてらっしゃるので、余計な痛みは増やしたくないですしね。
一番無難なのは、無情に見えるかもしれないけれど、やっぱりお金なんでしょうね。

でも、詐欺には十分注意してください(^_^;)
こんなときに詐欺を働く人がいること自体が本当に悲しいですが…。

あ、あと、被災者は、今の時点でも心を痛めていらっしゃいますが、ある程度復旧して、「日常」が戻ってきたときに、震災の恐怖に改めて脅かされるそうです。
（阪神淡路大震災の被災者の方から聞きました）
個人差もあるでしょうが。

今は、今後の生活を考えたりすることで精一杯ですが、日常を取り戻し、ちょっと余裕が出てきたときに、「怖さ」に怯えるんだとか。

だから被災者の方に対しては、落ち着いてきたときこそスキンシップを取るんだとか、そういったケアが必要になってくるかもしれません。マッサージをしてあげるとか、話を聞いてあげるとか、方法はいろいろあります。
ですので、もし、被災者にお知り合いの方がいらっしゃったりする場合には、この点をちょっと頭に入れておくといいかもしれませんね。

残念ながらマスコミの対応も悲しいものがあるようです。
マスコミ情報を鵜呑みにするのも危険かも知れないですね。
私もこういった震災を体験したことがないので、知らないこともいっぱいあります。
できればマスコミも、見世物的なニュースではなく、もっともっと必要な情報を流していただきたいものです。

地震の報道

新潟中越地震に対する報道（主にTV）を見ていると、なんだか憤りを感じる。

今まではなんとなくの不信感だったからわざわざBlogにも書くまい、と思ってたんだけど、あの、崖崩れの中、親子を救出した報道で、「不快感」が「憤り」にまで変わった。

どうして、本当に辛い思いをされているご主人を取り囲んでマイクを向ける、なんて行為ができるんだろう。
どうして、ちいさな声も大きな手がかりとなるような救出現場の真上にヘリを飛ばせるんだろう。
どうして、急いで病院に運ばれた奇跡的に救出された子を取り囲み、フラッシュをたきまくることができるんだろう。

昼からずーーーーっと救出現場を移し続けているのは異常な印象を受けました。
確かに、日本中が救出されることを心待ちにしていました。
でも、マスコミの報道については、なんだか「見世物的」に見えました。
安否がわかれば知りたいって気持ちは持っているけれど、救出されれば心からよかったと思うけれど、言葉は悪いけれど一般の人についてはそれだけのこと。
ニュースや速報で流していただければいいだけのことなのです。

ましてや、通夜がどうなってるかなんて、私達は知る必要はないんです。
身内や関係者だけが知っていればいいこと。
なのに、なんでニュースや新聞などで通夜の映像が放映されるんでしょうか？
そっとしておいてあげてください。
通夜までマスコミに取り囲まれるなんて、とてもじゃないけどいたたまれません。

マスコミは、避難場所で過ごされている方の映像を流して「現地では、物資だけじゃなくてプライバシーがないことも問題です」なんて言っているけど。
そんなこと言うのであれば、今流しているその映像、うつっている人すべてに
「今からTVにここを写すんですが、いいですか？」って許可取ってるんでしょうね。もしくは、一人一人に出演料を渡してるとか。
全国区に映像を報道するほうが、よっぽどプライバシーの侵害なはず。

こういうことがあると、私、貧相な想像力ながらも、いろいろ想像するんですよ。
例えば、
------------
・芸能人に車で跳ねられたが、幸い軽い怪我で済んだ
　→　でも、病院に行ったら、どこから嗅ぎつけたのかマスコミの山ができてる。
------------

軽く跳ねられた、軽い怪我の時ですら、この状況はかなり辛いと思います。
4日近く、過酷な状況に耐えた子供に対してこの仕打ちはないでしょう。

例えば、
------------
・授乳が必要な子供を抱えたまま、避難所で過ごすとする。
　→プライバシーがなく、その場で授乳をしなきゃいけなくなったら本当に辛いと思う。
　　→でも、例えば避難所で過ごすうちの50人に授乳を見られるのと、授乳している際にマスコミがその現場を含む映像を放映したら・・・（もちろん、放映されたからと言って避難所の人に見られないわけではない）
------------
プライバシーを最も侵されているのはどのパターンか。

何が不足しているのか。
では、具体的に私達はどういった支援ができるのか。
他に報道すべきことはいっぱいあるはずなんです。
どうか、マスコミが被災者の方の「二次災害」にはならないであげてください。

女だらけのBBQ大会

旧職場メンバーと若洲でバーベキュー。
10日くらい前に皆にメールで声かけたら、14名が大集合。
ちょっぴり急なお声がけであったにもかかわらず、思った以上の参加者。
（4名は仕事のため不参加。残念。）

以前の職場、業務内容的にはけっこう厳しいこともあったんだけどね～。
仕事辞めて1年以上経つんだけど、ちょっと声掛けしただけでコレだけの人数が集まっちゃうってことは、やっぱり人間関係には恵まれてたんだな～。

正直な話、あそこまで（イイ意味で）馬鹿になれるのは、あの職場メンバーならではなのですよ。
なんて思っていたら、他の人もそうらしい。
まぁ、あのノリは、そうなかなかないでしょう(^_^;)

ちょっぴり寒さには参ったものの、ノリと勢いだけで（ぉぃ）乗り切り。
真昼間から堂々と酒を飲み、小学生の遠足のごとくはしゃぎ、ここぞとばかりに食べまくる。
肉は、鶏・豚・牛を網羅。（ジンギスカンもアリ）
酒は、ソフトドリンクはもちろん、ビール各種、サワー、梅酒、焼酎、ワイン、おまけに梅干まで･･･。

豚汁、おいしゅうございました。
1Kgの業務用もやし、ビックリしました。
15玉の焼きそば、参りました。
まさか、BBQで枝豆まで出てくるとは思ってませんでした。

帰り際、のどが痛くて「きっと煙にやられたんだろうなぁ」なんて思ってたけれど。
案外、しゃべりすぎの線が有力でございます。

次は、保養所ツアーか、屋形船か。はたまた通常飲みか。
既に、次の集まりが楽しみです♪

今回の幹事様。
場所の予約から始まり、機器のレンタル、必要品の買出し、食材の準備、当日の準備や仕切りまで、ホントーにありがとうございました～。
とてもきめ細やかな準備のおかげで、足りないものなし、痒いところにも手が届くBBQでした。
感謝、感謝です♪
おかげさまで、本当に楽しかったよー。

帰宅

東京に帰宅。
浜松にいた間、実家でずーっとのんびりしてた為、なまけ癖がきちんと抜けるかちょっと心配。
しかし、やっぱり帰省は楽しかった。友達と遊んだり、久しぶりに育った町をぶらついたり。

花博があったため、市内をドライブしていたら、いろんなナンバーの車が走ってました。それを観察するのもまた楽しい。浜松市内に「沖縄」ナンバーの車が走っているところははじめて見た。
帰りの新幹線も混んでいて、少なくとも私達が乗った車両（指定席）の乗車率は100％
よくある一般的な「ゴールデンウィーク」を楽しむことができました～。

お茶＠浜松

本日、東京に帰ります。
夫と浜松駅に集合したのですが、時間がかなり余っていたのでアクトシティにある「リーフショップちくめい」でお茶を飲んでいくことに。

ちくめいは、アクトタワーの2階にあるお茶屋さん。
いろんな茶葉なんかが売っているんですが、実は店内の奥に喫茶スペースがあります。
そこでは、600円～1000円くらいで、いろんなお茶を飲めます（お菓子付）
のんびりゆったりとした時間が過ごせるし、いろんなお茶（日本茶・紅茶・中国茶等）を楽しめるのでお勧めです。

ちなみに今日は、「桂花茶」を飲む。

最近、「花博行く人の参考になればなー」なんて思い始め、微妙な浜松情報を公開していきます。
ただし、浜松を離れてしばらく経つので、地元民ほどは情報ないです。
リクエストがあれば、分かる限りは情報出していきたいとは思ってますが。

友達と食事＠浜松

高校時代の友達と食事をしてまいりました。
場所は、浜松のジャスコの近くのパスタ屋（？）
五右衛門に有らず。
一人1680円で四人用のコースにしたのですが、おいしくて満足。また行きたいと思うんですが、なにせ店の名前がわかってないからなぁ　(￣∇￣；)

お互いの近況を報告したり、馬鹿話をしたり、やはり友達はいいものです。
皆で食べればご飯もおいしいしね～。

ところで、今回会ったメンバー（4人）の中で、免許持ってないのは私だけということが発覚。
いやぁ、免許欲しくないわけではないんだけど、必要性がないんだよね。
年取ってからだと取るのが大変だとは思ってるんだけど。

浜松祭り

浜松祭りを見に、凧場まで行く。

昨日も書いたように、浜松祭りとは、昼間は大凧をあげ、夜は御殿屋台の引き回しや練りを行うといったお祭り。
毎年、GWの5/3～5/3に浜松で開かれてます。
詳しくはここ

物心ついたときから祭りに参加し、小学生時代に深夜まで練っていた私は、浜松祭りを語らせるととてつもないことになるのでそこは省略。

浜松祭りは、浜松市の中で「祭りに参加している町」があり、そこで参加のためのワッペンを買うと、凧揚げや屋・練りに参加することができる。凧揚げに参加しなくても、凧揚げ等を観光できる。というように、「参加する側」と「見る側（参加はしない側）」に分かれます。

普段はワッペンを買って「参加」しているんですが、今年は諸事情により、「見る側」にまわったわけです。

しかし。
凧場に行くと、何故参加しなかったんだろうと自分を恨むばかり。
浜松の祭り好きは、祭りのラッパ音や太鼓音を聞くとどうしても体が反応してしまうのです（私はそう）
ホント、すっごく悔しかった(T_T)

来年こそは参加しようと強く心に決めたのでした。

ところで。
私は浜松祭りの凧は「大きい」とは感じないんですが、夫に言わせると、普通の人には巨大凧に見えるとのこと。
一辺が大人の身長より高いのは、やっぱり他人から見れば大きく見えるんだろうなぁ。
慣れは怖い。

あと、浜松祭りの正装は主に、祭り用の股引・前掛けに鯉口（前掛けの下に着る物）、足袋、各町内の法被なんですが、このある程度決まったスタイルにも、流行があったりするんです。
少し前は、膝の位置に麻紐（？）のようなものを蝶結びするのが流行りました。
最近は、法被の二枚重ね着が流行ってる。
祭りの中にある流行を見るのも面白いのです。
･･･そういえば、最近、足袋用の靴下はいている人が少ないなぁ。

そうそう、浜松祭りに関して、こんなページもあります。
地元民でないと分からないかもしれないけど、かなり好きなページ。

天気が・・・

昨日天文台で聞いたところによると、今日、近世が最大高度になり、昼間でも見えるらしい。
（昼間、月が白く見えるのと同じことらしい）
浜松の天文台でも天体観測があるとのことだけど、この天気･･･。

なんでも、5/5までずっと天気は悪いらしい。
浜松では、5/3～5/5まで浜松祭りがあるというのに。

浜松祭りとは、昼間は大凧をあげ、夜は御殿屋台の引き回しや練りを行うといったお祭り。（詳しくはここをクリック）

根っからの浜松祭り人間には辛いよな～
私も昔、本当に祭りが好きで好きで仕方がなかった時期があったから、残念な気持ちは痛いほど分かる。
大体、5/3～5/5の間に雨が降る日はあるんだけど、1日くらいは気持ちよく祭りができるといいんだけど。

この天気じゃ、5/5の皆既月食も危ういものだ･･･。

星空

友人が天文台に勤務しており、星を見に来るよう誘われた。
その天文台、毎週土曜日に「市民天体観望会」を開いているのだ。

実は、最近、「星が見たい」と思っていたところ。
北海道で星を見るのを楽しみにしていたんだけど、4泊中で星を見れる状態にあったのは1日だけ。
しかも、その1日は疲れて寝てしまって。。。
軽井沢はカラオケのせいでゆっくり星を見る時間ができず（眠かったし）

ということで、いい機会なので行ってきた。

望遠鏡で星を見るのは楽しいです。
土星は輪もみえたし、輪に土星本体の影ができているところまではっきり見えました。
金星が三日月のようにかけていたり、月のクレーターや山、その陰まではっきり見えたりでカンドー。
月が明るくて肉眼で見える星は限られていた為に星座を楽しむまでにはいたらなかったのはちょっと残念。
それでも、天文台のドームから星を見ることができて、満足でした。
ドームで星を見るなんて、なかなかできないからね。

実は私、結構天文好きなのかなぁ？
小・中学生のころ、たまにこの天文台を利用したことがある。
平成6年のシューメーカーレビー（木星に彗星が衝突）は、天文台まで2回見に行ったし。

星座早見を探していることを友人に打ち明けたところ、見事に売りつけられました(;_;)
カレンダー&天体イベントの日程&星座早見がセット（というか、1枚の紙にプリントされて）200円。
2004年が始まって既に4ヶ月が経過しているために値引きを要求したが却下。

でもまぁ、「惑星の位置も確認できる」星座早見だったので、購入しましたよ。
都内だと、星より惑星の方が気になってしょうがないから。
（星はあまり見えない。見えるのはほとんど惑星。）

(￣△￣；）！
今回見た天体、携帯カメラでとっときゃよかった！
ちくしょー

里帰り

27日まで北海道にいたのに、29日には帰郷。
実家の方では、「浜名湖花博」開催中。
正直、あまり人は集まらないんじゃないかと思っていましたが、ガーデニングブームにもマッチしたおかげか、おもったより盛況の模様。といっても、私はまだ行っていません。行く予定もなし。

GW中、浜松では「浜松祭り」が開催されております。（5/3～5/5）
花博に来る人の中には、祭りなんてことを知らずに来る人も多いんじゃないかな。
祭り中は、道路は交通規制されてたりするし、バスや電車は混むだろうし、祭りが開催されていると知らない人はびっくりだろうなぁと思う。祭りも見れて「ラッキー」と思うか、混雑などで「アンラッキー」と思うかは人それぞれだろうけど。

でもまぁ、市街地での夜の祭りはきれいだから、それを見れればラッキーなのかな？

ちなみに、浜松には5/5まで滞在してまーす。
職場にうなぎパイを買う必要が無いのが楽でいい。

帰宅。

27日に北海道から帰ってきたわけですが。
強風により、予定していた飛行機が飛ぶかわからず、一便前の飛行機に乗せられてしまいました(T_T)
おかげで、空港でお土産を買う時間がなくなってしまいました。
一応、一通りは買ってあったので事なきを得ましたが、ちょっと残念

教訓：大事な土産は早めに買うべし

小樽

とっぴーの寿司は安ウマでした。

さよなら小樽。
また(とっぴーでも食べに)くるよ。

↓いちおう小樽

富良野の空

富良野の空は広かった。

人間、悩むことはあるけど、こんな大自然の中にいたら「ノイローゼ」にはならなそう。

実は、昨日の写真だったりする
↓

銀河の滝を撮る夫、を撮る私。

なんとなく、悪戯心で。

ちなみに吹雪。
まさか、最高気温が30度近い所から、ふぶいているところに来るとは思わなかった。
寒いよ(>_<)