ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

滋賀旅行

16、17日あたりの旅行ならざる旅行です。Shine旅行もしくはネ土in旅行ともいう。

後々、手帳を振り返って少なめの脳ミソで書いてるので、細かいことは覚えてないです。

 

彦根城

f:id:Arpino:20200501225814p:plain

 

中に入るのは有料なので、外から眺めるだけ・・・。

f:id:Arpino:20200501230359p:plain

 

外堀付近

f:id:Arpino:20200501230730p:plain

 

外堀

この辺で路上に釘が落ちてて、危ないなーパンクしたらどうすんだと思った記憶が。

f:id:Arpino:20200501231248p:plain

 

「おにくじ」という独自のおみくじがあるみたい。

f:id:Arpino:20200501230911p:plain

 

1日目の昼食。

野洲市の「鮎屋の郷」ってところ。鮎料理と思いきや、すき焼き定食なのが良い。

f:id:Arpino:20200501231411p:plain

 

太陽光に照らされる鮎。無駄に神々しい。

f:id:Arpino:20200501231744p:plain

 

琵琶湖博物館。琵琶湖周辺の水棲動物たちが活き活きと泳いでます。

f:id:Arpino:20200501231842p:plain

 

オオサンショウウオ(だった気がする、隠れてて見えないけど)

f:id:Arpino:20200501232017p:plain

 

水鳥さん、カルガモみたいだけど、その中でもレアなやつ。

f:id:Arpino:20200501232123p:plain

 

ビーチ。裏に展望台があり、そこから眺めることができる。

天候に恵まれると遠くの山も見渡せる。それにしてもいい眺め。

f:id:Arpino:20200501232303p:plain

 

こうして見ると、水族館というよりは博物館に見えなくもない。

f:id:Arpino:20200501232418p:plain

 

石山寺

f:id:Arpino:20200501232626p:plain

 

う~ん、紅葉ばかり撮ってるなぁ・・・。

まぁ、寺ばかり撮るのも眠くなるし。

f:id:Arpino:20200501232712p:plain

 

まぁいいや。綺麗だから。

f:id:Arpino:20200501232815p:plain

 

f:id:Arpino:20200501232850p:plain

 

f:id:Arpino:20200501233003p:plain

 

f:id:Arpino:20200501233029p:plain

 

夕食撮りたかったけど、お酒を注げ注げと職場の霊長類ヒト科たちがうるさいので撮れんかった・・・すまぬ。

ホテルの各個室に露天風呂がついていて、そこから琵琶湖を眺めるとこんな感じ。

f:id:Arpino:20200501233053p:plain

 

思わず窓を開けると、本当に綺麗な景色でアホみたいに見とれてた。

今回撮った写真の中では一番のお気に入り。

そして、本当にアホなのでチェックアウト後にスマホ充電器を部屋に置き忘れて一人バスに乗り遅れたけど、今思えばどうでもいいな。

f:id:Arpino:20200501233136p:plain

 

比叡山から眺める琵琶湖。

f:id:Arpino:20200501233307p:plain

 

延暦寺

f:id:Arpino:20200501234111p:plain

 

1回90円くらいで鳴らせる鐘。

f:id:Arpino:20200501234153p:plain

 

なんだったっけ、適当に撮影しすぎて忘れた施設。

f:id:Arpino:20200501234355p:plain

 

往復で上り下りすると足腰鍛えられそうだけど、もちろん誰もそんな事してる人はいない。

f:id:Arpino:20200501234512p:plain

 

中でお坊さんが一生懸命に読経してたところ。

f:id:Arpino:20200501234643p:plain

 

なんか似たような色の建物多すぎて、どこに入ったのか忘れそう。

f:id:Arpino:20200501234820p:plain

 

あまりにも似たような建物が多いので、琵琶湖が見えるだけで(脳内で)はしゃいで撮った一枚。

f:id:Arpino:20200501235018p:plain

 

古めかしい建物。谷崎潤一郎が何たらとか、色々と説明書きがあった気がするけど、脳みそのメモリに入りきらなかった。まぁいいや。

f:id:Arpino:20200501235059p:plain

 

ついでに鐘を鳴らしてきた。

f:id:Arpino:20200501235250p:plain

 

昼食。うまそー!

場所はサンブリッジホテルってところです。

f:id:Arpino:20200501235513p:plain

 

メタセコイア並木。駅前にある並木通りの豪華バージョンみたいな感じ。

路上が混んでるけど、いつもはもっと酷いらしい。

通勤の人は大変だー。

f:id:Arpino:20200501235911p:plain

 

f:id:Arpino:20200502000317p:plain

 

なんだか、散歩系のポスターに使われてそうだ。

並木ばかりの歩道なんだけど、人通りが少なくなると雰囲気出そうな感じある。

ポスターも販売されてたけど、さすがに一度見たら満足だなー。

f:id:Arpino:20200502000457p:plain

 

どこかの商店街。

f:id:Arpino:20200502091910p:plain



 

ジョジョの奇妙な元曲 第8部 ※重いので注意

ジョジョの奇妙な元曲 第8部(ジョジョリオン)

ようこそ 杜王町

ソフト&ウェット

本体: 笹目 桜二郎
スタンド: ファン・ファン・ファン
アーティスト: The Beach Boys
アルバム: Shut Down Volume 2
曲名: Fun Fun Fun

 

 

本体: 東方 定助
スタンド: ソフト&ウェット
アーティスト: Prince
アルバム: For You
曲名: Soft and Wet

 

 

定助 東方家に行く

カリフォルニア・キング・ベッド

本体: 東方 大弥
スタンド: カリフォルニア・キング・ベッドちゃん
アーティスト: Rihanna
アルバム: Loud
曲名: California King Bed

 

www.youtube.com

 

家系図

『ペイズリー・パーク』と『ボーン・ディス・ウェイ』

本体: 虹村 京
スタンド: ボーン・ディス・ウェイ
アーティスト: The Jam
アルバム: Setting Sons
曲名: Born This Way

 

 

本体: 広瀬 康穂
スタンド: ペイズリー・パーク
アーティスト: Prince
アルバム: Around the World in a Day
曲名: Paisley Park

 

レモンとみかん

『カツアゲロード』

杜王町『1901年』

ペーパー・ムーン まやかし

本体: 東方 常秀
スタンド: ナット・キング・コール
アーティスト: Nat King Cole
アルバム: Nat King Cole 10th Anniversaryなど
曲名: - (動画では『L-O-V-E』)

 

本体: 東方 つるぎ
スタンド: ペーパー・ムーン・キング
アーティスト: Nat King Cole
アルバム: 101 Hits - Crooning Essentials
曲名: It’s Only a Paper Moon

 

東方つるぎの目的 そして建築家

東方憲助と東方つるぎと八木山夜露

本体: 東方 憲助
スタンド: キング・ナッシング
アーティスト: Metallica
アルバム: Load
曲名: King Nothing

 

本体: 八木山 夜露
スタンド: アイ・アム・ア・ロック
アーティスト: Simon & Garfunkel
アルバム: I Am a Rock
曲名: I Am a Rock

 

キング・ナッシング

『アイ・アム・ア・ロック』

定助! 東方フルーツパーラーへ行く

毎日が夏休み

本体: 東方 常敏
スタンド: スピード・キング
アーティスト: Deep Purple
アルバム: Deepest Purple : The Very Best of Deep Purple
曲名: Speed King

 

東方常敏はスタンド使い

ドゥービー・ワゥ

本体: 大年寺山 愛唱
スタンド: ドゥービー・ワゥ
アーティスト: Peter Frampton
アルバム: Somethin's Happening
曲名: Doobie Wah

 

ラブラブデラックス

本体: 作並 カレラ
スタンド: ラブラブデラックス
アーティスト: Sade
アルバム: Love Deluxe
曲名: -

 

本体: エイ・フェックス兄弟
スタンド: 兄:ショット・キーNo.1
弟:ショット・キーNo.2
アーティスト: Aphex Twin
アルバム: Selected Ambient Works85-92
曲名: -

 

鳩ちゃんがボーイフレンドを連れて来た

本体: 田最 環
スタンド: ビタミンC
アーティスト: CAN
アルバム: The Singles
曲名: Vitamin C

 

ビタミンCとキラークイーン

本体: 吉良 吉影
スタンド: キラー・クイーン
アーティスト: QUEEN
アルバム: Sheer Heart Attack
曲名: Killer Queen

 

ウォーキング・ハート

本体: 東方 鳩
スタンド: ウォーキング・ハート
アーティスト: Heart
アルバム: Fanatic
曲名: Walkin' Good

 

 

ウォーキング・ハート ブレイキング・ハート

ミラグロマン

本体: -
スタンド: ミラグロマン
アーティスト: Elvis Costello
アルバム: My Aim is True
曲名: Miracle Man

 

東方家の夜明け

本体: 東方 花都
スタンド: スペース・トラッキング
アーティスト: Deep Purple
アルバム: Machine Head
曲名: Space Truckin'

 

ドロミテの青い珊瑚礁

本体: 泥駒 政次
スタンド: ブルー・ハワイ
アーティスト: Elvis Presley
アルバム: Blue Hawaii
曲名: Blue Hawaii

 

母と子

植物鑑定人 豆銑礼(31)

本体: 豆銑 礼
スタンド: ドギー・スタイル
アーティスト: Snoop Dogg
アルバム: Doggy Style
曲名: -(動画では『Serial Killa』)

 

アーバン・ゲリラとドレミファソラティ・ド

本体: アーバン・ゲリラ(下里 良)
スタンド: ブレイン・ストーム
アーティスト: Hawkwind
アルバム: Dremi Fasol Latido
曲名: Brain Storm

 

 

本体: ドレミファソラティ・ド
スタンド: -
アーティスト: Hawkwind
アルバム: Dremi Fasol Latido
曲名: -(動画では『Space Is Deep』)

 

清の時代の髪留め

東方家の北。果樹園

本体: プアー・トム
スタンド: オゾン・ベイビー
アーティスト: Led Zeppelin
アルバム: Coda
曲名: Poor Tom

 

オゾン・ベイビーの加圧

本体: プアー・トム
スタンド: オゾン・ベイビー
アーティスト: Led Zeppelin
アルバム: Coda
曲名: Ozone Baby

 

TG大学病院へ行く

整形外科医-羽伴毀先生

本体: 東方 密葉
スタンド: アウェイキング・Ⅲリーブス
アーティスト: James・J・Pellerite
アルバム: Awakenings
曲名: No. 3.Leaves Floating

 

 

本体: 羽 伴毅
スタンド: ドクター・ウー
アーティスト: Steely Dan
アルバム: Katy Lied
曲名: Doctor Wu

 

新しいロカカカ

ザ・ワンダー・オブ・ユー(君の奇跡の愛)

本体: 透龍 (明負 悟)
スタンド: ワンダー・オブ・U
アーティスト: Elvis Presley
アルバム: The Wonder of You
曲名: The Wonder of You

 

本体: 岩昆虫 - ドゥードゥードゥー・デ・ダーダーダー
アーティスト: The Police
アルバム: Zenyatta Mondatta
曲名: DO DO DO DE DA DA DA

 

本体: 岩昆虫 - オブラディ・オブラダ
アーティスト: The Beatles
アルバム: The Beatles
曲名: Ob-La-Di-Ob-La-Da

 

動かないしかない

無事が何より

ゴー・ビヨンド

本体: 東方 定助
スタンド: S&W-Go Beyond
アーティスト: Enya
アルバム: To Go Beyond
曲名: To Go Beyond

 

ラヂオ・ガガ事件(1941)

本体: ラヂオ・ガガ事件
アーティスト: Queen
アルバム: Radio Ga-Ga
曲名: Radio Ga-Ga

 

東方フルーツパーラー

Excelマクロ覚書 ~データ抽出編~

図書館で借りてきた某書籍の覚書です。

 

 


【データを抽出する】

データを抽出するにはAutoFilterメソッドを使う。

Rangeオブジェクト.AutoFilter Field:=対象列, Criteria1:=条件

Range("D3").CurrentRegion.AutoFilter _  'A3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria:="おれ"
'4列目が「おれ」のデータを抽出する'

【指定した順位までのデータを抽出する】

データを抽出するにはAutoFilterメソッドの引数にOperatorを設定する。

Rangeオブジェクト.AutoFilter Field:=対象列, Criteria1:=条件, Operator:=フィルターの種類

※種類

xlAnd

:抽出条件1と抽出条件2の両方を満たす

xlBottom1OItems
:抽出条件1で指定される項目数(低い値)
xlBottom1OPercent :抽出条件1で指定される割合(低い値)
xlFilterCellColor :セルの色
xlFilterDynamic :動的フィルター
xlFilterFontColor :フォントの色
xlFilterIcon :フィルターアイコン
xlFilterValues :フィルターの値
xlOr :抽出条件1または抽出条件2のどちらかを満たす
xlTop10Items :抽出条件1で指定される項目数(高い値)
xlTop10Percent :抽出条件1で指定される割合(高い値)
Range("D3").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria:=3, Operator:=xlTopItems
'4列目が上位3名のデータを抽出する'

指定した数値以上のデータの値を抽出するには、Criteriaで指定する。

Range("D3").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria:">=2000"
'4列目の値が200以上のデータを抽出する'

平均以上・平均以下で抽出するには、Criteriaで指定する。

xlFilterAboveAverage

:平均以上

xlFilterBottomAverage
:平均以下
Range("D3").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria:xlFilterAboveAverage, _
Operator:=xlFilterDynamic '平均以上のデータを抽出する'

セルの色で抽出するには、OperatorをxlFilterCellColorに指定する。

Range("D3").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する'
Field:=6, Criteria:=RGB(255, 0, 0) _
                          , Operator:=xlFilterCellColor
'6列目のセルの色が「赤」のデータを抽出する'

文字列で抽出するには、Criteria1を変更する。

Range("D3").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria:="栃木県"
'4列目が「栃木県」のデータを抽出する。'

Or条件で抽出する場合、OperatorにxlOrを指定する。

Rangeオブジェクト.AutoFilter Field:=対象列, Criteria1:=条件1, Criteria2:=条件2, Operator:=xlOr

Range("A3").CurrentRegion.AutoFilter _  'A3を含む範囲(表)にオートフィルターを抽出する'
Field:=4, Criteria1:="東京都", Criteria2:="神奈川県" _
           , Operator:=xlOr
'4列目が「東京都」もしくは「神奈川県」で始まるデータを抽出する。'

And条件で抽出する場合、複数のAutoFilterを指定する。

Rangeオブジェクト.AutoFilter Field:=対象列, Criteria1:=条件1

With Range("A3").CurrentRegion _
.AutoFilter Field:=4, Criterial:=">=10"
.AutoFilter Field:=5, Criterial:="岩手県"
End With

【重複しないリストを抽出する】

重複しないリストを抽出するにはAdvancedFilterメソッドを使う。

Rangeオブジェクト.AdvancedFilter Action:=動作, CopyToRange:=コピー先, Unique:=重複

※動作

xlFilterCopy :抽出したデータをコピーする

※コピー先

コピー先セル :コピー先セルを指定する

※重複

True
:重複するデータを無視
Range("A3:G24").CurrentRegion.AdvancedFilter _  'D3を含む範囲(表)にオートフィルターを抽出する。重複するデータはコピーしない'
Action:=xlFilterCopy, CopyToRange:=Range("G3")
_
, Unique:=True '抽出結果をセルG3以降にコピーする'

【"年"、"月"で抽出する】

"年"、"月"で抽出するには、AutoFilterメソッドのOperator引数に値を設定する。

Rangeオブジェクト.AutoFilter Field:=対象列, Criteria1:=条件, Operator:=フィルターの種類

</tbod</tbod</tbod</tbod</tbod</tbod</tbod</tbod</tbod

:来月:今年

xlFilterTommorow
:明日
xlFilterToday
:今日
xlFilterYesterday
:昨日
xlFilterNextWeek
:来週
xlFilterThisWeek
:今週
xlFilterLastWeek
:先週
xlFilterNextMonth
:来月
xlFilterThisMonth
:今月
xlFilterLastMonth
:先月
xlFilterNextQuarter
:次の四半期
xlFilterThisQuarter
:今四半期
xlFilterLastQuarter
:前四半期
xlFilterNextYear
:来年
xlFilterThisYear
:今年
xlFilterLastYear
:前年
xlFilterYearToDate
:今年の初めから今日まで
Range("A3:G24").CurrentRegion.AutoFilter _  'D3を含む範囲(表)にオートフィルターを抽出する。'
Field:=1, Criterial:=xlFilterThisYear _
, Operator:=xlFilterDynamic '1列目が「今年」のデータを抽出する'

【オートフィルターを解除する】

すべてのデータを表示するには、ShowAllDataメソッドを使う。

Worksheetオブジェクト.ShowAllData

Worksheets("Sheet1").ShowAllData  'すべてのデータを表示する'

Excelマクロ覚書 ~データ並べ替え編~

図書館で借りてきた某書籍の覚書です。

 

 


【並び替える】

並び替えの設定を行うには、Sortオブジェクトを使う
それぞれメソッドもしくはプロパティを指定する。

Sort.設定

※設定(メソッド)

Apply

:並べ替えを実行する。

SetRange :並べ替えるセルを指定する。

 

※設定(プロパティ)

Header

:最初の行にヘッダ情報が含まれるかを指定する

MatchCase

True:大文字と小文字を区別する

   False:大文字と小文字を区別しない

Orientation

:並べ替えの方向を指定する。

 xlSortRows:行単位

   xlSortColumns:列単位

Parent :指定されたオブジェクトの親オブジェクトを返す
Rng :並べ替えが行われる値の範囲を返す
SortFields :並べ替えフィールドの集合を表すSort Fieldコレクションを取得する
SortMethod :日本語の並べ替えの方法を指定する。
With Worksheets("sheets1").Sort
     .SortFields.Clear 'ワークシート「sheet1」に対して処理を行う'
    .SortFields.Add Key:=Range("G3"), _ 'セルG3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnValues, _
Order:=xlDescending
.SetRange Range("A3:G8") 'セル範囲A3~G8を並び替えの対象にする'
.Header = xlYes '1行目を見出し行とする'
.Apply '並べ替えを実行する'
End With

読みで並び替える場合

With Worksheets("sheets1").Sort
     .SortFields.Clear 'ワークシート「sheet1」に対して処理を行う'
    .SortFields.Add Key:=Range("A3"), _ 'セルA3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnValues, _
Order:=xlAscending
.SetRange Range("A3:G8") 'セル範囲A3~G8を並び替えの対象にする'
.Header = xlYes '1行目を見出し行とする'
.Apply '並べ替えを実行する'
End With

複数の項目で並び替える場合

With Worksheets("sheets1").Sort
     .SortFields.Clear 'ワークシート「sheet1」に対して処理を行う'
    .SortFields.Add Key:=Range("C3"), _ 'セルC3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnValues
    .SortFields.Add Key:=Range("G3"), _ 'セルG3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnValues, _
Order:=xlDescending
.SetRange Range("A3:G8") 'セル範囲A3~G8を並び替えの対象にする'
.Header = xlYes '1行目を見出し行とする'
.Apply '並べ替えを実行する'
End With

セルの色で並び替える場合

With Worksheets("sheets1").Sort
     .SortFields.Clear 'ワークシート「sheet1」に対して処理を行う'
    .SortFields.Add Key:=Range("F3"), _ 'セルF3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnCellColor, _
    .SetRange Range("A3:G15"), _ 'セル範囲A3~A15を並べ替えの対象にする'
.Header = xlYes '1行目を見出し行とする'
.Apply '並べ替えを実行する'
End With

【独自のリスト順に並び替える】

並び替えの設定を行うには、Sortオブジェクトを使う
それぞれメソッドもしくはプロパティを指定する。

SortFieldコレクション.Add Key:=並べ替えのキー,
                                              SortOn:=並べ替えの種類,
                                              Order;=並べ替えの順序,
                                              CustomOrder:=ユーザー設定
                       

Application.AddCustomList ListArray:=Range("A19:A22")

With Worksheets("sheets1").Sort
     .SortFields.Clear 'ワークシート「sheet1」に対して処理を行う'
    .SortFields.Add Key:=Range("G3"), _ 'セルG3をキーに、降順で並び替える設定をする'
SortOn:=xlSortOnValues, _
CustomOrder:=CustomListCount
.SetRange Range("A3:G8") 'セル範囲A3~G8を並び替えの対象にする'
.Header = xlYes '1行目を見出し行とする'
.Apply '並べ替えを実行する'
End With