アラーム（VBS）

定期的な作業とかをするために導入したアラームこれは、１０時の例です。 Option Explicit Dim Alerm Alerm = "10:00" ' 時刻の指定 if CDate(Alerm)>Time then While CDate(Alerm)>Time WScript.Sleep 10*1000 'ms Wend '処理を書きましょう end if wscrip…

2021-08-03

ラズパイ４導入

ラズパイ４を導入し、移行作業中、我が家のラズパイは、温度監視をしていますが、 ImportError: cannot import name 'Beaglebone_Black_Driver' from 'Adafruit_DHT' (/usr/local/lib/python3.7/dist-packages/Adafruit_DHT/__init__.py) エラーが出ます。…

2021-03-16

愛用品　FILCO Majestouch Stingray

FILCO Majestouch Stingray CHERRY社が新規開発した低背タイプメカニカルスイッチ“CHERRY MX Low Profile Red Switch” を採用している、ロープロ系→要はメカニカルキーボードの中でも、薄型（比較的）のものですが、なんと、この度、気づけば、３台体制にな…

2021-02-25

デジタル化の誤解への対応

最近パソコン作業の簡素化のために、自動化ツールなどを検討している中で、 Windowsのデフォルト環境で様々な試行錯誤を繰り返しています。（特段環境構築しなくても使えるように、作れるように）dionaea.hatenablog.com このあたりを参考にし、かつ、様…

2021-02-12

IEをVBAで操作する

最近の仕事は、PCを立ち上げないと話にならず、メールは、ブラウザで見る必要があるので、IEがいつも立ち上がっている。え？IEとか・・・言うのはなしで。しかーし、このブラウザだと、差し込みによるメール送信とか出来ずに苦労というか面倒。そこで、一…

2021-01-30

中華スープの一工夫

レシピ

わかめスープなど、中華スープを作るときに・・・鶏がらスープの素で、スープを作るときということです。最初のひと手間として、「ごま油でネギを炒める」そこに水などをいれ、スープを作る。たったこれだけで、スープの味が何段かレベルアップします。

2021-01-23

在宅勤務で円滑に仕事を進める方法

昨年末来、コロナ感染者が増加していくニュースが増え、多分にもれず、在宅勤務割合を増やすよう指令が下っています。もっとこの割合が増えたり職場で感染者が出た場合を考え、準備や環境整備を進める中で、色々と思うことはありますが、環境というよりも…

2021-01-23

ファイルコピー（VBScript)

メモ

Dim FSO Dim OriginalFile Dim NewFile Set FSO = CreateObject("Scripting.FileSystemObject") OriginalFile = "C:\test.txt" NewFile = "C:\new.txt" FSO.CopyFile OriginalFile, NewFile Set FSO = Nothing test.txtが、new.txtとして、コピーされます。 …

2021-01-19

大学で学んだこと

大学で学んだことは多々あります。研究の進め方、文章の書き方、基礎的な勉強から応用的な勉強研究室の厳しい先生に教えてもらい、今の自分がある気はします。しかし、殊勝な話がしたいわけではなく。身についたことは多々あれど、教えられて２０年ぐらい…

#歯磨き #歯ブラシ

2021-01-13

配列（VBA）

メモ

VBA(access）の場合 variant型から Dim tmp As Variant tmp = array(0,1,2,3,4,5) MsgBox tmp(2) ２が出ます。このとき整数型です。 Dim tmp As Variant tmp = array("0","1","2","3","4","5") MsgBox tmp(2) これも２が出ますが。文字列です。変数の型を指…

#VBA