最近の働き方改革で夜遅くまでオフィスで仕事をしない人は関係ない話なので、この記事は読まなくても大丈夫です。 経過時間をざっくり計算するために一番簡単な方法はVBAのTimer関数です。たいていの人がこんな感じで済ませていると思いますが、これだと対応…

DLNAメディアサーバー PS4にメディアプレーヤーをインストールすると、Nasneにあるファイルを再生できるのはいいんですが、Windows10のファイルは再生できません。単純にメディアサーバーを動かせばいいわけで、今回はそのやり方を解説します。 DLNA (Digita…

IF-ELSE文で次のようなコードを書くときに５行も使うの嫌ですよね。 Dim fFlag As Boolean If buff = "EP9 sucks" Then fFlag = True Else fFlag = False End If IIF関数なら１行で書けます。 fFlag = IIf(buff = "EP9 sucks", True, False) でも、ステート…

条件付き書式ダイアログで書式ルールを6個以上でクリックできなくなる、適用先が消えてしまうバグが発生します。 １．６個の書式ルールが定義されたダイアログ ２．６個目を表示しようとしてスクロールすると・・・・ 一番下の適用先が表示されていません。 …

マイクロソフトは知らないうちにこんなものを実装したようです。クラウドコンピューティングの定義が云々というのはこの際置いておきます。ただ、必要ない人にとってリソースを浪費するだけの機能なので、オフにしてすっきりしましょう。エクセルでコメント…

まずは技術的な話 Windows10のカレンダーアプリには、OutlookとGmailの国民祝日があります。普通に考えてOutlookのAPIで簡単に取れるだろうと思って、いろいろ調べてみたんですが、サンプル通りにやってもうまくいきません。 休日一覧をウェブから取ってくれ…

RangeオブジェクトのディフォルトのプロパティはValueです。Textではありません。この２つのプロパティの違いはちゃんと理解しておいた方がよいです。 Dim xCell As Excel.Range Set xCell = Sheet1.Range("A1") xCell = Now xCell.NumberFormatLocal = "[$-…

SONYのNasneは自前のsambaを持っているので、Windowsからファイルサーバーとして使うことができて便利だったのですが、Windows10になってファイルコピーできなくなってしまいました。 スタートメニュー▶設定 設定の検索に「有効化」と入力 「Windows の機能…

１．ペイントにシート内容を張り付けてjpgファイルでGoogleドライブに保存する。 ALT+Print Screenしてもいいですが、コピーしたいセル範囲をエクセルでコピーしてペイントに張り付けると、画面イメージでペイストできます。ペイントでクリッピングする手間…

自分が開発しているVBAなのにこんな警告が出たことがありませんか？ 警告が出たことがないXLMSファイルにも関わらず、そのファイルのコピーを作って、開いたときに警告が出たことはありませんか？ 『マクロを有効にする』を毎回クリックするくらいどうという…

1時間に1回タイマーでワークブック①のVBAマクロを実行させるようにしておいて、別のワークブック②でVBAの開発をしたいというケースでは、②のVBAをデバッグしている間は①のVBAは動作することができません。つまり、ひとつのエクセルのプロセスでは、VBAはシン…

条件付き書式で背景色が変更されている行に対して、任意の背景色を持つセルの列だけを表示したかったので次のようなコードを書いてみたんですが、.Interior.Colorの値が16777215(=vbWhite )になってしまい、今更こんなことでつまづくのかと苦笑してしまいま…

VBAで株価スクレイピングしようかと思ったんですが、検索すると圧倒的にPythonがヒットするので、どれだけ高速なのか調査も兼ねてPythonの開発環境を整備して、ある程度動作できるところまでやってみました。 ただ、もう面倒くさい。インタープリターベース…