Driver.FindElementByCss(" ").AsTable.ToExcel Worksheets("取得シート").Range("A1")

ポイ活の広告や記事を見ても普通に生活していたら貯まらないような例ばかりで、まったく参考にならないので、今の自分の日常生活の範囲から大きく外れない範囲で、どのくらいのポイントを貯めることができるのかをざっくりと計算してみました。 前提 家族構…

For i = 2 To 10 On Error GoTo Label01 'エラーの場合「Label01へ飛ぶ」 ～for文の中身～ STEP1:Next i ～その他のコード～ Exit Sub Label01:Resume STEP1 End sub

text1 = Driver.FindElementByXPath("/html/body/div[1]/div[2]/div[1]/div[2]/div[2]/div[3]/div[2]/div/div[2]/div[" & i & "]/table/tbody/tr/td[1]/div[2]/div/a").Text "パス ～ "&文字列&" ～ パス "

VBAでseleniumを使ってalt属性の取得。 Dim arr As Variant arr = Driver.FindElementByCss("▼▼▼・・・img").Attribute("alt")

NFCタグを使用してスマホ（Android）をかざすだけで照明のオンオフができるようにする方法。(2023年10月) 購入が必要なもの：２個 NFCタグ Nature スマートリモコン Nature Remo スマホにインストールが必要なアプリ：３個 Nature Remo play.google.com IFTT…

2023年9月。 長野県下伊那郡天龍村立福島小学校。 1998年：休校し、天龍小学校へ統合 2006年：廃校

2023年9月。 今回は長野県天龍村の平岡ダムへ行ってきました。 ラジアルゲートが16門とかなり多いダムです。 ダムの管理棟の対岸にはトンネルが。照明もなく、カーブになっているので、奥まで見ることもできず、怖くて入るのを止めました。。。 ダムカードの…

今回は2016年に行った三重県熊野市の秘境集落「木津呂（きづろ）」についてです。 木津呂集落はこの写真のように集落の周りを囲うように川が流れている面白い地形の集落です。 住所は三重県熊野市ですが、和歌山県新宮市、奈良県十津川村との3県の県境に位置…

VBAでseleniumを使用してchromeを操作し、Web上の表情報を取得してExcelに貼り付けるコード。 Driver.FindElementByCss("#stbl").AsTable.ToExcel Worksheets("取得シート").Cells(1, "A")

PCを買い替えた時のMicrosoft officeの入れ替え方法です。 [マイクロソフト Office Home & Business 2021] 前提として、PCとは別で自分でライセンスを購入したOfficeが対象です。 PCに初めからインストールされていた場合は、他PCへの移行はできません。 古…

2022年12月。 今回は福井県大野市の九頭竜（くずりゅう）ダムへ行ってきました。 ダムカードの入手方法 ダムカードはダム横の管理事務所の中にある電話で管理人さんを呼んで貰うことができます。 ≪営業時間≫ 9:00～17:00（土日、祝日含む） ≪駐車場≫ 車10台…

2022年11月。 今回は長野県木曽郡王滝村の牧尾ダムへ行ってきました。 ゲートが堤防から見づらい作りになっておりちょっと残念。 誰かが1992年に埋めたタイムカプセルが30年の時を経て2022年に開封されていました！ ダムカードの入手方法 ≪平日≫ ダム横の管…

2022年11月。 今回は岐阜県高山市の高根第一ダムへ行ってきました。 残念ながら堤防の上は立ち入り禁止で行くことができないため、横から見ることしかできません。 また、展望台もあるのですが、そちらも立ち入り禁止になっています。 ダムカードの入手方法 …

2022年11月。 今回は岐阜県下呂市の大々洞（おおがほら）ダムへ行ってきました。 ダムカードの入手方法 ダム横の管理事務所で貰えます。インターホンを押すと管理の方が出てきてくれます。 ≪営業時間≫ 平日 8:30～15:30土・日・祝日 8:30～17:15 ≪駐車場≫ 車…

2022年11月。 今回は岐阜県下呂市の岩屋ダムへ行ってきました。 岩屋ダムの洪水吐はスキージャンプ式洪水吐という構造で、その名の通りスキーのジャンプ台のような形状をしています。 大量の水をそのまま放水すると、水の勢いで川の形状を壊してしまうため、…

2022年11月。 岐阜県揖斐川町の徳山ダムへ行ってきました。 徳山ダムは貯水量日本一のダムです。 紅葉が始まりかけた山とダムとの調和がいい感じです。 貯水量日本一のダム湖。 ダムカードの入手方法 ダムカードはダム横の管理事務所で貰うことができます。…

2022年11月。 岐阜県高山市立高根小学校 1947年：高根村立高根小学校に改称 1968年：高根第二ダムのダム湖に校舎が水没するため、移転 2005年：高根村が高山市に合併され、高山市立高根小学校へ改称 2007年：高山市立朝日小学校に統合され閉校 現在は岐阜県…

2022年11月。 岐阜県揖斐郡揖斐川町の横山ダムへ行ってきました。紅葉も始まっており、暑くもなく寒くもなく、バイク日和な一日でした。 ダムカードの枠があります。 やっぱり冬は水が少ないですね。 ダムカードの入手方法 ダムカードは横山ダムの横にある管…

2022年10月。 東郷調整池（愛知池）へ行ってきました。 調整池の周りには池を周回できる歩道があります。 私が行ったときは天気が良かったこともあり、沢山の人が歩いたり走ったりしていました。 ダムカードの入手方法 愛知用水総合管理所の駐車場に置いてあ…

2022年10月。 愛知県犬山市の入鹿池（いるかいけ）へ行ってきました。 ダムカードの入手方法 入鹿揚水土地改良区事務所で貰えます。ただし平日しか貰えませんので注意が必要です。 お洒落な建物です。 ≪営業時間≫ 8:45～17:00（平日のみ） ≪駐車場≫ めちゃく…

2022年10月。 鳳来町立 愛郷小学校 1876年に島田学校として創立。 1978年に布里小学校と統合し、鳳来西小学校となる。 閉校後～2008年頃まで明泉愛郷スクールとして利用されていましたが、今は使用されていないようです。

今回は2021年12月に行った岐阜県下呂市の”筋骨めぐり”について書こうと思います。 筋骨とは？ 筋骨とは岐阜県飛騨地方の言葉で「せまい路地」を指す言葉だそうです。この言葉の通り、江戸時代に宿場町として栄えた当時の面影を残す、細く入り組んだ迷路のよ…

VBA初心者がWebスクレイピングをしてみました ExcelのVBA（マクロ）機能を使用して、Webから取得した情報をExcelに落とし込むプログラムを作成しました。 VBAは便利だということは噂では聞いていたのですが、なかなか手を出せずにいて、最近時間ができたので…

ExcelのVBA（マクロ）機能を使用して、Webスクレイピング（ブラウザ：Google Crome）するための事前準備です。 VBAすら触ったことがないまったくの素人状態から、挑戦しました。 色々なインターネットのページを少しずつ参考にしながら、とても苦労してやっ…

2022年9月。 北設楽郡 設楽町 豊邦小学校。（とよくにしょうがっこう） 1878年：創立 1997年：設楽町立清崎小学校、設楽町立三都橋小学校と統合し閉校。3つの小学校が統合し設楽町立清嶺小学校として開校。 現在は豊邦交流センターとして田原市が借り上げて…

2022年9月。 新城市立 菅守小学校 2005年に南設楽郡 作手村が新城市と合併したため、 南設楽郡 作手村立 菅守小学校から新城市立 菅守小学校へ名称変更 2013年に新城市立作手小学校と統合し閉校。 現在は土日の昼のみ、レストランとして利用されている。 www…

2022年9月。 佐久間町立 城西小学校・相月分校 水窪ダムへ行く途中に偶然見つけました。 torianon201.hatenablog.com 1873年：相月尋常小学校として開校。 1911年：城西尋常小学校 相月分教室となる。 1947年：城西小学校 相月分校に名称変更 1967年：閉校 …

2022年9月。 龍山村立 龍山北小学校。（たつやまきた） 水窪ダムへ行く途中に偶然発見。 torianon201.hatenablog.com 2004年に龍山第一小学校に統合され閉校。 その後、龍山第一小学校も2014年に横山小学校へ統合され閉校。

昔から好きだった廃校。 自分の忘備録も兼ねて、行った廃校を挙げていくことにしました。 2022年9月。 浜松市立龍山中学校。（たつやまちゅうがっこう） 水窪ダムへ行く途中に偶然発見しました。 torianon201.hatenablog.com 龍山中学校は以前に静岡県西部に…