windows10

先日、自宅のパソコンをWindows10に変えました。

個人用のパソコンは変えたくなかったのですが、やたら「変えませんか！？」と迫るので、共用パソコンで実験です。

なんでも起動が速くなることが売りのようなので、インストールされてるソフトが対応するとかしないとかは気にせず変更しました。

そもそもネットとiTunesができればOKレベルなので。

Windows10に変え、セキュリティパッチも当て、一週間経ったでしょうか。今日また立ち上げてますが、まぁ起動しないですね。

ログイン直後のキュルキュル状態から動かず。よく見たら右下の時計すら7分前から動いてない。。

さすがにそろそろ30分経つので、やりたかったことは個人用のパソコンで進めようと思います。

======

追記

立ち上げから40分後にエラー画面が出て再起動となりました。、

なんでも、20分くらいだった時に操作したctrl+alt+deleteがいけなかったようで、ログイン時の処理中に余計なことしやがって、というエラーでした。

ログイン処理に20分かかってるとは思わなんだ。失礼した。

Chrome拡張機能

今更なのかもしれませんが、webブラウザのChromeで、weblio辞書の拡張機能がとても便利なことに気がつきました。

・これまで

webページを見ていて、わからない単語（日本語です）や、読み方がわからない漢字などがあった際、その単語（文字）を選択し、右クリックして「Googleでxxを検索」をして、検索をかけてました。

・weblio辞書の拡張機能を入れると、、

webページを見ていて、わからない単語（日本語です）や、読み方がわからない漢字などがあった際、その単語（文字）を選択し、右クリックしてctrlキーを一度押すとポップアップで、言葉の意味が表示されます。

もちろん、類語や英和・和英にも対応！

ctrlキー以外にも設定変更可能！

右クリックしてweblioのサイトで検索することもできます！

・設定方法

設定方法は簡単で、Chromeウェブストアで「weblio」を検索し、「weblioエクステンション」を「Chromeに追加」するだけです。

あと微調整がしたければ、Chromeの設定＞拡張機能からオプションでいじれます。

はい、便利～

ExcelVBA 営業日を極めて支払日を計算する

先ほど書いた「Excel関数　営業日をきわめて支払日を計算する」の続きです。

２－１の部分をVBAで関数作っちゃって、もっと楽にするという無駄な作業を記述します。

そう、ExcelVBAって関数を作れちゃうんですね。素敵過ぎます！



VBEを開いて、標準モジュールに次のコードを書けばOKです。

Function businessday(day1 As Date, day2 As Integer)

Dim eom_day1 As Date

'day1を元に当月末を設定
eom_day1 = DateSerial(Year(day1), Month(day1) + 1, 1) - 1

'day2の数値にあわせて暫定で算出対象の営業日を計算
If day2 < 30 Then
businessday = eom_day1 + day2

ElseIf day2 = 30 Then
businessday = DateSerial(Year(day1), Month(day1) + 2, 1) - 1

ElseIf 30 < day2 < 60 Then
businessday = DateSerial(Year(day1), Month(day1) + 2, 1) - 1 + (day2 - 30)

ElseIf day2 = 60 Then
businessday = DateSerial(Year(day1), Month(day1) + 3, 1) - 1

Else

End If

End Function

そして、Excelに戻って、先ほど作成した「businessday」関数を使います。
関数名は「businessday」でなくても何でも良かったんですけどね。
作ったからにはそれで入力。引数には設定したとおり「基準日」と「日数」を入れます。
ここではA1の絶対値を基準に、B列の日数で計算しています。




F列は先ほど同じく、E列を元にした「Workday」で祝日を避けています。

以上、無駄にVBAも使って営業日を算出する方法でした。



※ちなみにVBAは独学なので、ソースのきれいさとか、Elseのあとの処理どうなっているんだとか、その辺は目を瞑ってください。必要に応じて完成させます。あしからず。