管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

可視シート名を列挙する(ExcelVBA)

Excelで、アクティブブックの可視シート名を列挙する方法。結構使うけど忘れがちなのでメモ。 Option Explicit Sub 可視シート名を列挙する() Dim sheetCnt As Integer Dim i As Integer Dim tmpSheet As Worksheet sheetCnt = ActiveWorkbook.Worksheets.Co…

PythonでSeleniumを使ってWebページ内のテーブルの内容を取得する

Webページを取得して操作する方法に、Seleniumというのがあるのを最近知りました。 Selenium - Web Browser Automation テーブルが使われたWebページから内容を取得したかったので、その方法を調べました。 Seleniumはいろんな言語からアクセスすることが出…

CSVファイルの重複を除いて結合する(shellscript)

昨日のPowershellのshellコマンドバージョン 昨日に引き続き、対象のデータは以下のような感じです。 a.csv 日付,品目,価格 2017/3/3,りんご,150 2017/3/3,みかん,130 2017/3/4,キウイ,200 b.csv 日付,品目,価格 2017/3/3,みかん,130 2017/3/4,キウイ,200 20…

CSVファイルの内容の重複を除いて結合する(Powershell)

Powershellを使って、CSVファイルの内容の重複を除いて、結合したくなったのでメモ。 対象のファイルは以下のような、一部内容に重複のあるファイル。 a.csv 日付,品目,価格 2017/3/3,りんご,150 2017/3/3,みかん,130 2017/3/4,キウイ,200 b.csv 日付,品目,…

Excel2003迄の印刷ダイアログを開く(Excel)

Excel2007あたりから、印刷ダイアログが変わり、特定シートのみの印刷や、ブック全体指定のショートカットキーが煩雑になりました。 そこで、ExcelVBAを使い、旧来の印刷ダイアログを出せるようにしたいと思います。 下記サブルーチンを「Ctrl-P」に割り当て…

ワークシート関数でlastIndexOfする(Excel)

ワークシート関数にはlastIndexOfに似た関数ないんですね... というわけで、なんとか頑張ってみました。そして、そいつを使ってフルパスから拡張子を取得してみました。 =RIGHT(A1,LEN(A1)-FIND("$",SUBSTITUTE(A1,".","$",LEN(A1)-LEN(SUBSTITUTE(A1,".",""…

セルの書式設定で日付を曜日に変換する「aaa,aaaa」(Excel)

Excelのセルの書式設定で、日付から曜日にする方法を忘れてしまうので、ここに記録する。 aaa ⇒水 aaaa ⇒水曜日

ExcelファイルをPDF化する(ExcelVBA編)

Excel2007以降なら、VBAでPDF化できるようですね。 そんなわけで書いてみました。変換元Excelファイルと同じ場所にPDFが格納されます。 表示されたシート、印刷範囲が適用され、全シートが1PDFファイルになります。 https://msdn.microsoft.com/ja-jp/librar…

ルンバ680買いました。皆さん、ぜひ買いましょう!

3週間ほど前に、ルンバ680買ったんですよ、ルンバ680。おすすめ家電です。 なぜ買うに至ったか 買ったモデルと、価格 使ってみて、よいところ 使ってみて、微妙なところ 総括 なぜ買うに至ったか 部屋をきれいにしたいけど、手間はかけたくないなぁと。あと…

arrow M03あれこれ

最近のarrows M03についてあれこれ。 購入記 カメラ、なかなかです 強制的に再起動するには...? 購入記 カメラ、なかなかです 昨日、芝離宮へ行ったんです。 旧芝離宮恩賜庭園|公園へ行こう!梅が咲いたらしいんですが、うっかりGM1を忘れてしまいまして...…

末尾が"/"(スラッシュ)で終わるかどうか判定する(Excel)

\掲題の通り、Excelで末尾が"/"(スラッシュ)で終わるかどうか判定する方法。 たまにこういうのが必要になるので... =EXACT(IFERROR(FIND("/",A1,LEN(A1)),0),LEN(A1)) 実行例はこんな感じ 対象 True/False a/ TRUE a/b FALSE a/b/ TRUE a/b/c FALSE

晴海客船ターミナルへ行ってきました

掲題の通り、晴海客船ターミナルへ行ってきました。目的は、有名なオブジェを見るためです。晴海客船ターミナル本日のお供はGM1+14mm。定番の組み合わせです。 以下写真です。

XQ1とインテルはいってるタブレットを手放した

掲題の通り、XQ1とインテルはいってるタブレットを手放しました。いずれも綺麗に使っていたことから思った以上の値が付きました。http://k-hitorigoto.hatenablog.jp/entry/2016/02/13/000000_1:embed: それぞれにとってかわるモノたちがあり、出番を失って…

最下行アドレスを取得する(ExcelVBA)

カレントセルの列の、最下行アドレス(値の入力された最下行のアドレス)を取得する。 Option Explicit Sub カレントセル列の最後尾アドレスを取得する() Dim currentRange As Range Dim maxRowNum As Integer Dim tmpColumnName As String Dim columnName As …

任意の複数のExcelブックのセルの値を取得する(ExcelVBA)

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。 「の」が多いな。 Sub ボタン1_Click() Dim fileNames As Variant Dim fileName As Variant Dim tmpSheet As Worksheet fileNames = Application.GetOpenFilename(MultiSelect:=True) If IsA…

1月2日の盛岡

例年1月3日に自宅へ戻る際に盛岡で途中下車をしているのですが、今年は2日に戻ってくることになったため、2日に盛岡へ寄ってきました。 例年行ってるから、気が早いけど来年も同じように写真撮ろうかな。 お供はGM1+14-42EZ。コンデジ的に使えるけど、どうに…

全シートA1セルを選択する(ExcelVBA)

掲題の通り、全シートA1セルを選択するExcelVBAコード。 非表示シートがあるとアレですが、まぁ。 最後1シート目に移るのは好みです、はい。 Sub 全シートA1選択() Dim loopCount As Integer Dim sheetCount As Integer Dim tmpSheet As Worksheet sheetCoun…

あけましておめでとうございます、そして2017年の目標

あけましておめでとうございます。一年の計は元旦にあり、ということで目標を書いてみます。 1.80記事を書く 2016年は73記事だったので、キリよく80記事を書きます。365/80≒4.56ということで、週に1,2記事書ければ達成できそうです。 2.DB,SAを取得する 情報…

2016年が終わってしまうので、振り返り

あと少しで2016年が終わってしまうので、振り返り。 PM試験合格 これはうれしかったなぁ。論文あり試験をパスしたのが初だったので。 続くSAはダメでしたが... 本記事を含め、73記事書けました 本記事を含め、2016年に書いた記事は全部で73記事。365/73=5と…

TOEICの結果が返ってきた(615)

11月下旬に受験したTOEICの結果が返ってきました。ちなみに、7月に受験した際の記録はこちら 今回の目標は、600点台キープでしたが...

H28秋季情報処理技術者試験(SA:システムアーキテクト)に合格できませんでした

掲題の通り、先日発表があったH28年度秋季情報処理技術者試験(SA:システムアーキテクト)に合格できませんでした... 今年の春季試験(PM)に続いての2期連続合格ならず...。来秋にリベンジです。 点数は以下の通り。 当時は午後2もよい感じに書けたと思っていま…

銀杏とNSXと高橋是清翁と

ちょっと散歩へ出かけました。 特にテーマはなし。今日のお供はXQ1。最近はGM1ばかりだったので... 軽快で、尚且つ良く写るなぁ。港区公式ホームページ/高橋是清翁記念公園

It's a SONY展へ行ってきました

It's a SONY展へ行ってきました。 GM1+14mmで撮りまくってきました。やっぱり、カッコいい、革新的な製品が多かったですね。以下写真です。100枚以上ありました...

小石川後楽園へ行ってきました

まだ紅葉には早かったかな 天気が良かったので、小石川後楽園へ行ってきました。 結構好きで、過去にも何度かいっていました(過去記事なし)https://www.tokyo-park.or.jp/park/format/index030.html

X-CAP2を買ったのでレビュー

キャップの開け閉めは不便なものですよね X-CAP2を発見、そして発注 レンズキャップの開閉が便利になるX-CAP2を買いましたので少々レビューします。

E-M10を修理に出しました&修理上がりで今戸神社へ

EVFが突然映らなくなり... オリンパスプラザへ持っていく そして昨日回収してきました。 そして本日、今戸神社へ行く 2週間ほど前、E-M10のEVFが突然映らなくなってしまい、修理に出しました。 修理帰りのE-M10をもって今戸神社へ行ってきました。 http://me…

BICSIMへMNP&arrows M03を購入して1か月たったのでレビュー

動機は、通信費の低減&モバイルSUICAを使ってみたかったから... なぜBICSIMか キャリアメール無き後の連絡手段 モバイルSUICA対応のSIMフリー機の選定 ちょっとだけ写真 MVNOの使用感は... M03の使用感は デザイン 処理速度 電池のもち モバイルSUICA 防水…

Microsoft Universal Foldable Keyboardを買ったのでレビュー

掲題の通り、Microsoft Universal Foldable Keyboardを買ったので少々レビュー ※本記事もUniversal Foldable Keyboardを使って書いています。

H28年度秋季 システムアーキテクト試験を受けてきました

本日、システムアーキテクト(SA)試験を受けてきました。 ↓PM受かったときのやつ 秋季試験といえば...

Fitbit Altaのベルトを交換した(サードパーティー製)

Fitbit Altaのベルトを交換してみました。ただし、サードパーティー製です。 ちなみに、本体のレビューは以下の通りです。 上述のレビューの通り、どうにもポッチが嵌めづらく...ベルト交換式ということで、交換ベルトを探してみました。フォーマルな装いに…

そなエリア東京と、幻の橋「青海橋」

本日は「そなエリア東京」へ行ってきました。 オペレーションルームが「シンゴジラ」に使われており、興味があって...正直それ以外の事前情報なしで行ったのですが、知らなかった!あそこが防災拠点になっていたとは。 展示などは、特に首都直下型地震につい…

システムアーキテクト(SA)試験対策始めます

本日より、情報処理試験(秋季)に向けた対策を始めようと思います。 春季試験では、2度目の挑戦にて晴れてPMに合格。 秋季はシステムアーキテクト(SA)試験を受験予定です。

TOEICの結果が返ってきた(620)

7月初めに受験したTOEICの結果が返ってきました。当面の目標は、来年3月までに600点突破でしたが...

MR04LNのバッテリ残量、通信量を確認する(powershell)

SIMフリールータの決定版MR04LNを買っていました。 ルータ本体の液晶画面には、バッテリ残量と通信量が表示されるのですが、それが手元の端末でも表示されるとうれしいなと。 特に、WinTab7との組み合わせで使うことが多いため、Powershellで一発書いてみま…

再び、「こうちゃんちの野菜 in 世田谷」に行ってみた

前回の訪問から約1月強、改めて「こうちゃんちの野菜 in 世田谷」に行ってみました。 前回の訪問の様子はコチラ↓ 2週間ほど前がきっと見ごろだったのでしょう。旬を過ぎたものも多くありました。が、一部は見ごろになっていました。うまいことシーズンが重な…

三峰神社(秩父)へ行ってきました

関東随一のパワースポットである、秩父の三峰神社へ行ってきました。確か、2年ほど前にも行っていたはずなので、今回は2回目かと。 なぜか当時の記事なし。ちなみに、秩父へは3年程前に電車で行っていました。 自宅から約3時間のドライブでしたが、後半の山…

WinTab7にAnniversaryUpdateを適用する...適用できました!

PC

先日購入したWinTab7に、AnniversaryUpdateを適用しました。配信直後(8/3)にWindowsUpdateを試してみましたが、届いておらず。 アップグレードアシスタントにて、適用を試みました。 アップグレードアシスタントでは、まず適用可否がチェックされるのですが.…

WinTab7を買ったのでレビュー

私4枚目となるWindowsタブレットのWinTab7を購入しましたのでレビューします。 購入動機 7インチタブレットがほしかった。BicカメラのIntel入ってるタブレット(SG080i)は狭額縁で8インチとしてはコンパクトだけど、やっぱり持ち歩くには...ということで安…

2日以上前に変更されたファイルを移動させる(shellscript)

2日以上前に変更されたファイル(カレントディレクトリと同階層限定) を別ディレクトリに移動 # 2日以上前に変更されたファイル(カレントディレクトリと同階層限定) を別ディレクトリに移動 $ find . -maxdepth 1 -type f -mtime +1 | xargs -i mv {} ./old/

MR04LNを2日使ってみて

日曜に購入したMR04LNを月曜、火曜と持ち歩いてみました。 感想あれこれ 電池持ちなかなか いたわり充電モード(70%で充電ストップ)を使用してますが、 通勤・昼時に接続(計90分程をWebページのブラウジングに使用) 使用しないときは休止モード 主にWIFI で帰…

目黒雅叙園「和のあかり×百段階段」へ行ってきました

目黒雅叙園「和のあかり×百段階段」へ行ってきました。和のあかり×百段階段 |催し物|目黒雅叙園昨年も開催されていたようなんですが、気づいた時には終わっていました。が、今年も開催されているとのことで行ってまいりました。 目黒雅叙園の百段階段は、…

現時点で最強スペック!?のMR04LNを購入したのでレビュー

SIM2枚差しで、WIFI&BTテザリング可能で、タッチパネル対応で...と現時点で最強スペックの呼び声高いMR04LNを購入しました。

2値の一致チェック(Exact,If)(Excel)

2つのセルの値を比較して一致か否かを調べる方法を忘れがちなので記録。 =Exact(A1,B1) ' True,Falseでなく○×で見たいとき... =If(A1=B1,"○","×") それぞれの実行結果は以下の通り A B Exact If a a TRUE ○ a b FALSE × a c FALSE × b a FALSE × b b TRUE ○ …

指定したフォルダ以下のファイルリストを作る(修正版)(Powershell)

下記の以前書いた版はフォルダ名も出ていましたね... 指定したディレクトリ以下のファイル名を列挙する(Powershell) - 管理人Kのひとりごとということで、改めて指定したフォルダ以下のファイル名を列挙するPowershellスクリプトを。 「フォルダではない」と…

Fitbit Altaを買ったのでレビュー

Fitbit Altaを買いました。ので、少々レビューを。★★★ Fitbit Alta HRを買いました Fitbit Alta HRを買いました ★★★ Fitbit Altaとは? コチラです↓リストバンド型の活動量計で、ベルトが交換できるなど、ファッショナブルなモデルです。 Bluetoothでスマホ…

TOEICを受けてきた(会社で)

本日TOEICを受けてきました。と言っても、公開テストではなく、会社で実施しているものです。情報処理試験もひと段落し、次はTOEICだ!と決意を新たにしまして...正直なところ、「海外で働きたい」とか、「英語圏の人たちと英語で疎通を図りたい」とか、そう…

指定したディレクトリ以下のファイル名を列挙する(Powershell)

以下のコマンドではディレクトリ名も出ちゃいますね...★★★ 修正版あります 修正版あります ★★★コマンドプロンプトのTreeコマンドは階層的に表示しますが、Linuxのfindコマンドのように平たく表示したかったので調べた。ファイル名のみ・フルパスそれぞれ以下…

「こうちゃんちの野菜 in 世田谷」に行ってみた

「こうちゃんちの野菜 in 世田谷」に行ってみました。こちら、ひまわり畑で有名だそうで、予習&現在の生育状況を見に行ってみました。 二子玉川駅が最寄りらしいのですが、南武線久地駅から歩いて行ってみました。 いやー、暑かった。見ごろは7月末以降でし…

KEYSMARTを買いました

KEYSMARTを買いました。 というのも、これまで使っていたキーケースは社会人になる際に買ってもらったもので、6年程経ち、くたびれ気味... 何か良いものはないかと探していたところ、KEYSMARTに出会いました。新型 KEYSMART ロング 全9色 日本サイズ キーケ…

城南島海浜公園で飛行機を撮る

城南島海浜公園で飛行機を撮ってきました。 昨日のすみだ水族館に続き、テーマは「青」。貧困な私のイメージでは、「青」=「青い空とヒコーキ」となりまして、なんとかして、「青い空+飛行機+太陽」を絡めて撮りたいと思いまして、撮影スポットとして有名な…