滋賀旅行
16、17日あたりの旅行ならざる旅行です。Shine旅行もしくはネ土in旅行ともいう。
後々、手帳を振り返って少なめの脳ミソで書いてるので、細かいことは覚えてないです。
中に入るのは有料なので、外から眺めるだけ・・・。
外堀付近
外堀
この辺で路上に釘が落ちてて、危ないなーパンクしたらどうすんだと思った記憶が。
「おにくじ」という独自のおみくじがあるみたい。
1日目の昼食。
野洲市の「鮎屋の郷」ってところ。鮎料理と思いきや、すき焼き定食なのが良い。
太陽光に照らされる鮎。無駄に神々しい。
琵琶湖博物館。琵琶湖周辺の水棲動物たちが活き活きと泳いでます。
オオサンショウウオ(だった気がする、隠れてて見えないけど)
水鳥さん、カルガモみたいだけど、その中でもレアなやつ。
ビーチ。裏に展望台があり、そこから眺めることができる。
天候に恵まれると遠くの山も見渡せる。それにしてもいい眺め。
こうして見ると、水族館というよりは博物館に見えなくもない。
う~ん、紅葉ばかり撮ってるなぁ・・・。
まぁ、寺ばかり撮るのも眠くなるし。
まぁいいや。綺麗だから。
夕食撮りたかったけど、お酒を注げ注げと職場の霊長類ヒト科たちがうるさいので撮れんかった・・・すまぬ。
ホテルの各個室に露天風呂がついていて、そこから琵琶湖を眺めるとこんな感じ。
思わず窓を開けると、本当に綺麗な景色でアホみたいに見とれてた。
今回撮った写真の中では一番のお気に入り。
そして、本当にアホなのでチェックアウト後にスマホ充電器を部屋に置き忘れて一人バスに乗り遅れたけど、今思えばどうでもいいな。
比叡山から眺める琵琶湖。
1回90円くらいで鳴らせる鐘。
なんだったっけ、適当に撮影しすぎて忘れた施設。
往復で上り下りすると足腰鍛えられそうだけど、もちろん誰もそんな事してる人はいない。
中でお坊さんが一生懸命に読経してたところ。
なんか似たような色の建物多すぎて、どこに入ったのか忘れそう。
あまりにも似たような建物が多いので、琵琶湖が見えるだけで(脳内で)はしゃいで撮った一枚。
古めかしい建物。谷崎潤一郎が何たらとか、色々と説明書きがあった気がするけど、脳みそのメモリに入りきらなかった。まぁいいや。
ついでに鐘を鳴らしてきた。
昼食。うまそー!
場所はサンブリッジホテルってところです。
メタセコイア並木。駅前にある並木通りの豪華バージョンみたいな感じ。
路上が混んでるけど、いつもはもっと酷いらしい。
通勤の人は大変だー。
なんだか、散歩系のポスターに使われてそうだ。
並木ばかりの歩道なんだけど、人通りが少なくなると雰囲気出そうな感じある。
ポスターも販売されてたけど、さすがに一度見たら満足だなー。
どこかの商店街。
ジョジョの奇妙な元曲 第8部 ※重いので注意
ジョジョの奇妙な元曲 第8部(ジョジョリオン)
- ジョジョの奇妙な元曲 第8部(ジョジョリオン)
- ようこそ 杜王町へ
- ソフト&ウェット
- 定助 東方家に行く
- カリフォルニア・キング・ベッド
- 家系図
- 『ペイズリー・パーク』と『ボーン・ディス・ウェイ』
- レモンとみかん
- 『カツアゲロード』
- 杜王町『1901年』
- ペーパー・ムーン まやかし
- 東方つるぎの目的 そして建築家
- 東方憲助と東方つるぎと八木山夜露
- キング・ナッシング
- 『アイ・アム・ア・ロック』
- 定助! 東方フルーツパーラーへ行く
- 毎日が夏休み
- 東方常敏はスタンド使い
- ドゥービー・ワゥ
- ラブラブデラックス
- 鳩ちゃんがボーイフレンドを連れて来た
- ビタミンCとキラークイーン
- ウォーキング・ハート
- ウォーキング・ハート ブレイキング・ハート
- ミラグロマン
- 東方家の夜明け
- ドロミテの青い珊瑚礁
- 母と子
- 植物鑑定人 豆銑礼(31)
- アーバン・ゲリラとドレミファソラティ・ド
- 清の時代の髪留め
- 東方家の北。果樹園
- オゾン・ベイビーの加圧
- TG大学病院へ行く
- 整形外科医-羽伴毀先生
- 新しいロカカカ
- ザ・ワンダー・オブ・ユー(君の奇跡の愛)
- 動かないしかない
- 無事が何より
- ゴー・ビヨンド
- ラヂオ・ガガ事件(1941)
- 東方フルーツパーラー
ようこそ 杜王町へ
ソフト&ウェット
本体: | 笹目 桜二郎 |
スタンド: | ファン・ファン・ファン |
アーティスト: | The Beach Boys |
アルバム: | Shut Down Volume 2 |
曲名: | Fun Fun Fun |
本体: | 東方 定助 |
スタンド: | ソフト&ウェット |
アーティスト: | Prince |
アルバム: | For You |
曲名: | Soft and Wet |
定助 東方家に行く
カリフォルニア・キング・ベッド
本体: | 東方 大弥 |
スタンド: | カリフォルニア・キング・ベッド |
アーティスト: | Rihanna |
アルバム: | Loud |
曲名: | California King Bed |
家系図
『ペイズリー・パーク』と『ボーン・ディス・ウェイ』
本体: | 虹村 京 |
スタンド: | ボーン・ディス・ウェイ |
アーティスト: | 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