読者です 読者をやめる 読者になる 読者になる

管理人Kのひとりごと

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

【改訂版】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

前回☟のもの、Office2013同士でも、また、Office2016では挙動が異なることが判明。 k-hitorigoto.hatenablog.jp オプション画面を開いたとき、左ペインにフォーカスがあるため、そのまま下へ移動するよう修正しました。 Office2013でも、Office2016でも動い…

珍しい光景で1枚

帰宅途中、珍しい光景に出くわしたので、1枚。G9Xで。巨大なシール状のものを貼っているようでした。暗いと怖さが増しそうです...お仕事、お疲れ様です。

【訂正版あります】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

Excel2003くらいからですかね、VBAProjectオブジェクトへアクセスする際、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」にチェックが入っていないといけなくなったじゃないですか。 普段からチェック入れたまま、というのもアレですし、…

桜の時期は終わってしまったけれど、清澄庭園へ行ってきました

約1年ぶりに清澄庭園に行ってきました。 清澄庭園|公園へ行こう! 桜は終わってしまいましたが、花のシーズンですね。前回訪問時の記事↓ k-hitorigoto.hatenablog.jp本日のお供はG9Xです。コチラは清澄公園の写真です☟ 藤の花が咲き始めていました。 清澄公…

夢の島熱帯植物館へ行ってきました

雨が降りそうな天気でしたが、散歩したかったので、夢の島熱帯植物館へ行ってきました。 www.yumenoshima.jpこちら、入館料は大人250円とリーズナブル!それでいて、熱帯植物に触れることができます。 熱帯の気候はごみ処理場の排熱を利用しているということ…

京葉線東京駅から有楽町駅を目指してみました

昨日お仕事で幕張方面へ行ったんです↓ k-hitorigoto.hatenablog.jpで、思い出したんです。京葉線乗り換えは、東京駅ではなく、有楽町駅からの方が近いと。 news.mynavi.jpということで、京葉線東京駅から、有楽町駅へ向かうのは本当に近いのか、を実際歩いて…

G9Xで昼間に写真を撮りました(その2)

G9Xで昼間に写真を撮ってみました。本日はお仕事の都合で幕張方面に行ったので、幕張成分強めです。 k-hitorigoto.hatenablog.jpほほえましかったので1枚。 海浜幕張駅前で1枚。 影が水平垂直だったので。 不法投棄ダメ絶対。だけど絵になるので... マクロモ…

朝・昼にG9Xで写真を撮ってみました

小さい・薄いG9Xを通勤カバンに忍ばせています。 k-hitorigoto.hatenablog.jp本日は朝・昼にG9Xで写真を撮ってみました。 青空が綺麗 遠景までシャープ クイックレスポンス の3拍子がそろっており、小ささ・薄さも相まって、持ち歩きカメラ最強!?かもです。 …

早速G9Xで撮ってみた

なぜだかよくわからない理由で手に入れたG9X↓ k-hitorigoto.hatenablog.jp早速仕事帰りに何枚か写真を撮ってみました。 コンデジではありますが...侮りがたし! 暗い写真ばかりですが、かなり頑張ってくれました。 そして、寄れば結構ボケますね。ISO2,000ま…

便利ズームを買いに行ったはずが、手元にはPowershot G9Xが...

E-M10を購入から1年強、実は手放してしまいました。 k-hitorigoto.hatenablog.jp k-hitorigoto.hatenablog.jpエビスビール記念館へ行ったりしました。 k-hitorigoto.hatenablog.jp望遠ズームを取り付け、桜を撮りに行ったりもしました。 k-hitorigoto.hatena…

データベーススペシャリストを受験しましたが...無念!

本日データベーススペシャリスト試験を受験してまいりました。 最近は春季はPMを2年連続で受験してましたので、かなり久しぶりでした。過去の奴↓ k-hitorigoto.hatenablog.jp k-hitorigoto.hatenablog.jp本日の試験会場は國學院大學でした。割と住んでいると…

dirコマンドで表示される"."や".."を除いて表示したい(Windows)

掲題の通り。コマンドプロンプトのdirコマンドで表示される"."、".."を除きたかったのであれこれやってみた。 何もしないとき↓ D:\Desktop\20170414>dir ドライブ D のボリューム ラベルは ボリューム です ボリューム シリアル番号は ****-**** です D:\Des…

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

PC

掲題の通り、WinTab7にCreators Updateを適用してみたところ、適用できました。 Anniversary Update適用時の記録はコチラ↓ k-hitorigoto.hatenablog.jpWindowsUpdateでは降ってきておりませんでしたので、MediacreationToolでUSBメモリを作成してチャレンジ…

オトナの工場見学「エビスビール記念館」へ行ってきました。

工場見学、昔から好きだったんです。昨今、工場見学ツアーが流行っているじゃないですか。オトナならではの工場見学といえば、お酒関係の工場見学。 がしかし、数か月前からの予約必須だったり、平日のみ見学OKだったり、といった条件があったりするのもまた…

SONY「FM/AMホームラジオ SRF-V1BT」を買いました

臨時収入があったので、SONYの「FM/AMホームラジオ SRF-V1BT」を買いました。 www.sony.jp最近はRadikoでラジオばかり聞いているのですが、起動時のタイムラグやらなんやらが煩わしいときがあり、ラジオ専用機が欲しいなぁと思っていました。 そんな中見つけ…

GM1+14mmで夜桜を撮ってみた

先日以下のような日記を書きました。 k-hitorigoto.hatenablog.jpが、やはりGM1(S)2台と、E-M10がありますので、それらをうまく活用しなくては...!と思い、GM1で夜桜を撮ってみました。 GM1+14mmの組み合わせです。やっぱりしっくりくるコンビですね。

2017年の桜スナップ

今年の桜をスナップしました。主に家の周りを。2016年↓ k-hitorigoto.hatenablog.jp2013年↓ k-hitorigoto.hatenablog.jp意外と桜をメインには撮っていないんだな...春先は忙しいこと多いもんなぁ。本日のお供はE-M10+40mm-150mmで。普段使わない焦点域なので…

「びっくりドンキー」でチーズバーグディッシュを食べる

ドライブ中に見かけた「びっくりドンキー」に心ひかれたため、行ってきました。 www.bikkuri-donkey.com盛岡のお店もそうだったけど、整理券をもらって何組か分待つ位の混み具合。人気あるんだなぁ。盛岡のハンバーガーショップ「ベル」がその前身なんだとか…

ライトアップされた六義園へ行ってきました

六義園でしだれ桜のライトアップが行われていると聞き、見に行ってきました。 イベント詳細|公園へ行こう!ちなみに、昼間に行った時の様子はこんな感じ↓ k-hitorigoto.hatenablog.jp XQ1やっぱり良いカメラだったな...本日のお供はGM1S+12-32mmです。暗所…

「壱角家」で横浜家系ラーメンを食べる

今日は家系ラーメンの口になっていたため、壱角家に行ってきました。 ikkakuya.jp煮卵ラーメン(醤油)を注文。麺かため、その他は「普通」にしました。 以下感想 麺かためのゴワゴワした感じが好きです スープはクリーミーでオーソドックスな味。テーブルには…

携帯できるカメラが欲しい...かな

月曜、水曜と珍しくご飯ネタを書きました↓ k-hitorigoto.hatenablog.jp k-hitorigoto.hatenablog.jpスマホのカメラも使い勝手、画質が向上したとはいえ、なんだか「撮ってる感」が薄いような... GM1+14mmでもよいけど、レンズの出っ張りが...気に入ってはい…

「リンガーハット」で長崎ちゃんぽんを食べる

掲題の通り、リンガーハットで長崎ちゃんぽんを食べました。今回は、新橋駅前店に行ってきました↓ sasp.mapion.co.jp紹介文にある通り、リンガーハットでもあり、バルでもあるようです。 メニューには、バル的な食べ物もありました。 コチラ、長崎ちゃんぽん…

「ホットスプーン」で牛すじ煮込みカレーを食べる

あまり食に執着がないのですが、急に「牛すじ煮込みカレー」をいう言葉が脳内を駆け巡りました。 善は急げと検索し、「ホットスプーン 丸の内店」へ行ってきました。 http://hot-spoon.com/hot-spoon.com牛すじ煮込みカレーがウリのお店のようで。「牛すじ玉…

Powershellの実行結果をファイル出力するときに行末の空白をなくしたい(Powershell)

Powershellでコマンドの実行結果をリダイレクトすると、末尾に空白が入るじゃないですか↓ コマンドプロンプトだと入らないのに...↓ というわけで、Export-CSVコマンドを使ってみました。 Get-ChildItem -Recurse C:\WINDOWS\Fonts | ` Where-Object{!$_.PSIs…

靖国神社に桜を見に行きました。

毎年恒例の。昨年のはコチラ↓昨年は1週早かったようです。ただし、天気よくなかったなぁ k-hitorigoto.hatenablog.jp今年の開花は3/21だったようですね。昨年と同日とか。 weathernews.jp とはいえ、あくまで標本木が開花したというもので、見ごろは来週末頃…

任意のモジュールが@INC内に存在するか調べる(Perl)

昨日のコマンドの応用編ということで↓ k-hitorigoto.hatenablog.jp@INCに、任意のモジュールが存在するか調べるコマンド。 pi@raspberrypi:~ $ find `perl -e 'print join("\n",@INC)'` -name "*.pm" | grep CGI | sort /usr/lib/arm-linux-gnueabihf/perl5/…

モジュールのサーチパス(@INC配列)を一覧表示するワンライナー(Perl)

久しぶりにPerlを触ったら忘れてしまっていたので、備忘として。 実行結果はRaspberryPi3のものです。 .pi@raspberrypi:~ $ perl -e 'print join("\n",@INC)' | sort | uniq . /etc/perl /usr/lib/arm-linux-gnueabihf/perl/5.20 /usr/lib/arm-linux-gnueabi…

It's a SONY展へ行ってきました(2回目)

2回目のIt's a SONY展に行ってきました。1回目の様子はコチラ↓ k-hitorigoto.hatenablog.jp以前の製品展示から随分テイストが変わりましたね www.sonybuilding.jp本日のお供はGM1S+12-32mmです。

今日はカメラ発明記念日だそうです。

掲題の通り、今日はカメラ発明記念日だそうです↓ 3月19日 今日は何の日〜毎日が記念日〜知ってか知らずか、写真を撮っておりました。 今日のお供はGM1+14mmで。やっぱり28mmは使い慣れた画角です。国際フォーラムでは、「ART FAIR TOKYO」を本日までやってい…

浜離宮恩賜庭園へ行ってきました(約1年ぶり)

約1年ぶりに浜離宮恩賜庭園へ行ってきました。約1年前の日記はコチラ↓ k-hitorigoto.hatenablog.jp本日のお供は、GM1+SIGMA30mmです。「少しだけ離れて見る」的な画角ですよね。よく使う焦点距離より少し長くて、少し戸惑いました...

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

指定したフォルダ以下のファイルリストを作る(Powershell)のコマンドプロンプト版です。 k-hitorigoto.hatenablog.jpDirコマンドのが覚えやすそうですね。 dir /B /ON /S C:\WINDOWS\Fontsちなみに、同じ結果をPowershellで得る場合

Exif内の撮影日時の話

昨日の宿題の話↓ k-hitorigoto.hatenablog.jp ファイル変更日時 原画像データ生成日時 デジタルデータ生成日時 について。Exifの仕様は公開されてるんですね、って当たり前か。

PowershellでExifから撮影日時を取得する(powershell)

PowershellでExifから撮影日時を取得する。 「撮影日時」っぽいタグがいくつかあるから、とりあえず全部拾ってみた。それらがそれぞれ何を意味するかは...今後の宿題... 追記:宿題しました↓ Exif内の撮影日時の話 - 管理人KのひとりごとタグとIDの対応付けは…

Win10でロード済みアセンブリの一覧を確認(Powershell)

Windows10で、デフォルトでロードされるアセンブリの一覧を確認したのでメモ。確認方法と、確認結果は以下の通り。 codezine.jp PS C:\Users\hoge> [Appdomain]::CurrentDomain.GetAssemblies() | %{$_.GetName().Name} | sort Anonymously Hosted DynamicMe…

特定の列名を持つテーブルを検索する(Oracle)(SQLServer)

あるユーザのテーブルの中で、特定の列名を持つテーブルを検索したい時の方法。Oracleの場合。USER_TAB_COLUMNSを参照。 ALL_TAB_COLUMNS SELECT TABLE_NAME ,COLUMN_NAME FROM USER_TAB_COLUMNS WHERE COLUMN_NAME='DEPTNO' ORDER BY TABLE_NAME ,COLUMN_NA…

お台場ガンダムの今と、ポケモンGO(?)と

お台場ガンダムが展示終了したというのを聞いていましたが、その後どうなっているのか気になったため、見に行ってみました。 av.watch.impress.co.jp 本日のお供はGM1+20mm周辺には柵が設けられており、近づけないようになっていましたが、ガンダム自体はそ…

pythonで1こ飛ばしのfor文てどうやるの...(python)

pythonで、1から10まで、みたいな繰り返しをどうやるかわからなかったので記録する。 下の時、迷ったのだ... k-hitorigoto.hatenablog.jp 4. その他の制御フローツール — Python 2.7.13 ドキュメント #!/usr/bin/python # -*- coding:utf8 -*- # range([始め…

可視シート名を列挙する(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コマンドバージョン k-hitorigoto.hatenablog.jp 昨日に引き続き、対象のデータは以下のような感じです。 a.csv 日付,品目,価格 2017/3/3,りんご,150 2017/3/3,みかん,130 2017/3/4,キウイ,200 b.csv 日付,品目,価格 2017/3/3,みかん…

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についてあれこれ。 購入記 カメラ、なかなかです 強制的に再起動するには...? 購入記 k-hitorigoto.hatenablog.jp カメラ、なかなかです 昨日、芝離宮へ行ったんです。 旧芝離宮恩賜庭園|公園へ行こう!梅が咲いたらしいんですが、うっか…

末尾が"/"(スラッシュ)で終わるかどうか判定する(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とインテルはいってるタブレットを手放しました。いずれも綺麗に使っていたことから思った以上の値が付きました。k-hitorigoto.hatenablog.jp k-hitorigoto.hatenablog.jp それぞれにとってかわるモノたちがあり、出番を失っていましたからね…