JALの温かいお茶うまし！
久々の飛行機。
いつも通路側に座るから窓の外はみないけど、今日は窓側にだれも座ってないから外を見てしまった♫
綺麗！！
そして、帰りは最終便。
飛行機も久々だけど、JALは10年ぶりくらいに乗った。
昼からなんも食べてなくて、お腹すいたから空弁買った。シートベルト着用サインが消えてすぐ食べはじめたら、CAさんが温かいお茶などはいかがですか？と！！なんていい人☆と思いながら、ご好意に甘えて温かいお茶をお願いした。
そして出てきたお茶の美味しいこと！！
写真撮り忘れけど、綺麗に色がでてて、しっかり味もでて、お茶だけで幸せな気持ちになったよー！！
JALさんありがとうございました( ˶ˆ꒳ˆ˵ )
いつも通路側に座るから窓の外はみないけど、今日は窓側にだれも座ってないから外を見てしまった♫
綺麗！！
そして、帰りは最終便。
飛行機も久々だけど、JALは10年ぶりくらいに乗った。
昼からなんも食べてなくて、お腹すいたから空弁買った。シートベルト着用サインが消えてすぐ食べはじめたら、CAさんが温かいお茶などはいかがですか？と！！なんていい人☆と思いながら、ご好意に甘えて温かいお茶をお願いした。
そして出てきたお茶の美味しいこと！！
写真撮り忘れけど、綺麗に色がでてて、しっかり味もでて、お茶だけで幸せな気持ちになったよー！！
JALさんありがとうございました( ˶ˆ꒳ˆ˵ )
猫ちゃん 上から目線 [猫ちゃんたち]
姉姫猫ちゃんは、ほぼ天井と同じ高さ(本棚の上の段ボールと天井の間はだいたい10センチ)から見下ろすのが大好き。
私も背伸びしても届かない場所。棒とか使うとちょこっとじゃれて相手してくれる(*´꒳`*)
ついでに弟猫は目がよく見えないため高いとこにジャンプできなくて、いつも下で羨ましそうに姉姫猫ちゃんを見上げてる。
私も背伸びしても届かない場所。棒とか使うとちょこっとじゃれて相手してくれる(*´꒳`*)
ついでに弟猫は目がよく見えないため高いとこにジャンプできなくて、いつも下で羨ましそうに姉姫猫ちゃんを見上げてる。
玄関に猫ちゃんが落ちてる。。。 [猫ちゃんたち]
最近の弟猫ちゃん
玄関のマットで爪研いで、そのままそこにゴロンと寝る。。。
にしても大きいなぁ。
玄関のマットで爪研いで、そのままそこにゴロンと寝る。。。
にしても大きいなぁ。
時間入力の簡素化 [仕事便利帳]
15：00とか21：35と入力したいときに、いちいちテンキーから「：」に手を写すのがめんどくさい。
以前はピリオドを2つうつと自動でコロンに変わるとか設定していたけど、それもめんどくさくなった。
なので数字の入力欄を作って、そこを参照して本来時間を入力するところはコロンありの時間になるようなものを関数で作った。
その関数が下
=IF(R13="","",REPLACE(R13,LEN(R13)-3+2,0,":"))
セルR13が入力欄
R13には1500とか2135とか900とかを入力
そしてこの関数を入れたセルには15：00とか21：35とか9：00とか表示される。
Rに入力した数字の右から3番目に：を挿入するというイメージかしら。
Rに入力がなければ空白にしたかったから、ifで場合分けをしているからちょっと長ったらしい関数になったね。
提出用じゃなければ
=REPLACE(R13,LEN(R13)-3+2,0,":")
でいいのかな。
以前はピリオドを2つうつと自動でコロンに変わるとか設定していたけど、それもめんどくさくなった。
なので数字の入力欄を作って、そこを参照して本来時間を入力するところはコロンありの時間になるようなものを関数で作った。
その関数が下
=IF(R13="","",REPLACE(R13,LEN(R13)-3+2,0,":"))
セルR13が入力欄
R13には1500とか2135とか900とかを入力
そしてこの関数を入れたセルには15：00とか21：35とか9：00とか表示される。
Rに入力した数字の右から3番目に：を挿入するというイメージかしら。
Rに入力がなければ空白にしたかったから、ifで場合分けをしているからちょっと長ったらしい関数になったね。
提出用じゃなければ
=REPLACE(R13,LEN(R13)-3+2,0,":")
でいいのかな。
エクセル マクロ セルの値でオートフィルター抽出とフィルター解除 [仕事便利帳]
仕事でちょくちょくエクセルマクロを使うので、
後で探すのに困らないようメモっておきます。
＜セルＡ２に入力した値でオートフィルターで抽出するマクロ＞
Sub オートフィルタでセルの値で抽出()
With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=.Range("A2").Value
End With
End Sub
＜オートフィルターを解除するマクロ＞
Sub オートフィルタ解除()
解除ボタンを単独で作るので、エラー防止のため一旦オートフィルターがついてないか判断して、ついてなかったつけて、それから解除をするという遠回りなマクロ。
With ActiveSheet
If Not .AutoFilterMode Then
.Range("5：5").AutoFilter
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
もっと賢い方法があるのだろうけど、探す時間がなかったので力業で解決。
今度時間あるときに改善しなくては。
セル入力での抽出が意外に面倒なのでやっぱりinputboxでしようと思って作成したマクロ
＜インプットボックスの値でオートフィルター抽出＞
Sub オートフィルタ検索()
Dim 番号 As Integer
番号 = InputBox("番号を入力してください")
With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=番号
End With
End Sub
後で探すのに困らないようメモっておきます。
＜セルＡ２に入力した値でオートフィルターで抽出するマクロ＞
Sub オートフィルタでセルの値で抽出()
With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=.Range("A2").Value
End With
End Sub
＜オートフィルターを解除するマクロ＞
Sub オートフィルタ解除()
解除ボタンを単独で作るので、エラー防止のため一旦オートフィルターがついてないか判断して、ついてなかったつけて、それから解除をするという遠回りなマクロ。
With ActiveSheet
If Not .AutoFilterMode Then
.Range("5：5").AutoFilter
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
もっと賢い方法があるのだろうけど、探す時間がなかったので力業で解決。
今度時間あるときに改善しなくては。
セル入力での抽出が意外に面倒なのでやっぱりinputboxでしようと思って作成したマクロ
＜インプットボックスの値でオートフィルター抽出＞
Sub オートフィルタ検索()
Dim 番号 As Integer
番号 = InputBox("番号を入力してください")
With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=番号
End With
End Sub
初詣はロードで三社参り [ロードバイク]
1月2日に初詣。
市内の神社を巡りました！
おみくじは大吉*\(^o^)/*
おみくじをひいた神社、実はちょっと避けてました。なぜなら、10年位前にそこの神社でおみくじひいたときにおみくじから怒られたから。その時は中吉だった気もするけど、書かれてた内容が「難儀なことがあるとお前は神にすがる気か！？」と書いてあって、新年早々怒られたと思ってガビーンときてました。それ以来、あそこにいくと怒られるとおもって避けてたんだけど、今年は怒られるのもありかなーという気分になって行ってきました。
結果大吉だったけど、案外悪いこと書いてあって、まあこんなもんかーという結果になりました。今回は怒られたわけではないのでラッキーです！！
でもロードは境内の外に停めていくから結構不安だったー(；´Д`A
あと結構な登りがあってシフトチェンジ失敗してチェーンはずれたし。ローラー台乗った時にチェーンはずれた経験が早速役に立ったよ！！サンキューローラー台ちゃん♫
やはり何事も経験あるのみですな！
ちなみにロードを停めたのはこんな感じ↓
市内の神社を巡りました！
おみくじは大吉*\(^o^)/*
おみくじをひいた神社、実はちょっと避けてました。なぜなら、10年位前にそこの神社でおみくじひいたときにおみくじから怒られたから。その時は中吉だった気もするけど、書かれてた内容が「難儀なことがあるとお前は神にすがる気か！？」と書いてあって、新年早々怒られたと思ってガビーンときてました。それ以来、あそこにいくと怒られるとおもって避けてたんだけど、今年は怒られるのもありかなーという気分になって行ってきました。
結果大吉だったけど、案外悪いこと書いてあって、まあこんなもんかーという結果になりました。今回は怒られたわけではないのでラッキーです！！
でもロードは境内の外に停めていくから結構不安だったー(；´Д`A
あと結構な登りがあってシフトチェンジ失敗してチェーンはずれたし。ローラー台乗った時にチェーンはずれた経験が早速役に立ったよ！！サンキューローラー台ちゃん♫
やはり何事も経験あるのみですな！
ちなみにロードを停めたのはこんな感じ↓
