PC生活

2019年4月11日木曜日

雑感＞史上初、ブラックホールの撮影に成功

史上初、ブラックホールの撮影に成功 ― 地球サイズの電波望遠鏡で、楕円銀河M87に潜む巨大ブラックホールに迫る

イベント・ホライズン・テレスコープで撮影された、銀河M87中心の巨大ブラックホールシャドウ。リング状の明るい部分の大きさはおよそ42マイクロ秒角であり、月面に置いた野球のボールを地球から見た時の大きさに相当します。

イベント・ホライズン・テレスコープは、地球上の8つの電波望遠鏡を結合させた国際協力プロジェクトであり、ブラックホールの画像を撮影することを目標としています。2019年4月10日、研究チームは世界6か所で同時に行われた記者会見において、巨大ブラックホールとその影の存在を初めて画像で直接証明することに成功したことを発表しました。

史上初、ブラックホールの撮影に成功（国立天文台）

2019年3月27日水曜日

PCソフトウェア＞EXCEL ボタンを押すと選択したセルの背景色と文字色が変わる

指定のセルの色と文字色をボタン一発で変更できないかと考えてみた。

必要要件

・アクティブセルに対して動作
・背景色と文字色はあらかじめ幾つかセットを決めておく
・ひとつのボタンに1セットとし、必要なセット数だけボタンをつくる
・初期値に戻すボタンもつくる

●ソースコード
---------------------------------------------------------------------------------------------------
Dim work As Range 'アクティブセルのアドレスを格納する変数を定義
Set work = Selection 'アクティブセルのアドレスを変数workに退避
ActiveCell.Interior.ColorIndex = 3 '背景色をセット
ActiveCell.Font.ColorIndex = 2 '文字色をセット
work.Select '変数workからアクティブセルを元に戻す
---------------------------------------------------------------------------------------------------
文字色と背景色は、必要に応じ変えてゆく。
背景色なしの場合は、番号の代わりにxlColorIndexNoneを書く
文字色を自動にする場合は、番号の代わりにxlAutomaticを書く
新しいEXCELで、色指定をRGBで行う場合は、番号の代わりにRGB(赤色,緑色,青色)と書く

改良

ActiveCellでは、範囲指定できないので、かわりにSelectionを使用する。今までどおり、単一セルへの指定もできる。

具体的には、

ActiveCell.Interior.ColorIndex = 3 → Selection.Interior.ColorIndex = 3
ActiveCell.Font.ColorIndex = 2 → Selection.Font.ColorIndex = 2

と変える。

●ソースコード
---------------------------------------------------------------------------------------------------
Dim work As Range 'アクティブセルのアドレスを格納する変数を定義
Set work = Selection 'アクティブセルのアドレスを変数workに退避
Selection.Interior.ColorIndex = 3 '背景色をセット
Selection.Font.ColorIndex = 2 '文字色をセット
work.Select '変数workからアクティブセルを元に戻す
---------------------------------------------------------------------------------------------------

色について

excel2000では背景色と文字色は色パレットにより決められいるため、これ以外の色は使えない。色は、カラー番号で指定する。

デフォルトの色パレット

新しいexcelでは、もっと多くの色が使える。(ColorIndex→Colorにすればよい)
初期値のカラーパレット(上段は色名、下段はカラー番号)※1

数字順に色を並べてみた
（抜けている数字の色を補ってある）※2

おまけ

セルの数字を読み取って、その値の背景色にするマクロ。
✱ActiveCell.Interior.ColorIndexをActiveCell.Font.ColorIndexにすると文字色の変更になる

●ソースコード
-----------------------------------------------------------------------------------------------------
Dim work As Range 'アクティブセルのアドレスを格納する変数を定義
Set work = ActiveCell 'アクティブセルのアドレスを変数workに退避
If ActiveCell.Value <> "" Then 'もし空文字でなければ
ActiveCell.Interior.ColorIndex = ActiveCell.Value '背景色の数字を読み取ってセット
End If
work.Select '変数workからアクティブセルを元に戻す
------------------------------------------------------------------------------------------------------

参考

※1 office TANAKA
※2 だめだま

2019年3月21日木曜日

PCソフトウェア＞EPSON GT-8700FをWindows10 64bitで使用する

ずっと使っていたGT-8700F。SCSIインターフェースとUSBインターフェースの両方を備え、SCSIで接続すると爆速でスキャンできていた。時代は進み、USBも早くなり、パソコン本体も、この度、ついにwin10 64bitに買い替えた。そして、このスキャナー何とか、利用できないかと思い試してみた。
結論から言うと、あっさり解決した。

古いイメージスキャナー（GT-8700F)が、Windows10で使えてうれしいです
EPSON GT-8700F Windows8 64bit

①まず、EPSONのホームページからGT-9300UFのドライバーをダウンロードし、インストールしておく。インストールの途中の選択では、GT-9300を選ぶ。
②スキャナのスイッチを入れ、USBケーブルをつなぐ。
③スタート→歯車のアイコン→デバイス→Bluetoothとその他のデバイス→関連する項目→デバイスとプリンターの中からGT-8700Fを選ぶ。
④右クリックし、プロパティの画面を出し、ドライバーをGT-9300UFに変更する。ドライバーは一覧の中の、イメージングデバイスのEPSON GT-9300UFを選択する。
⑤スキャンは、スタートメニューのEPSON Scanからできる。

特に、不都合はない。ただし、office2000のPhoto Editorからは使えないので、ちょっと不便かなと思う。

2019年3月4日月曜日

旅行＞リシャット構造（アフリカの目、サハラの目）

アフリカ北西部モーリタニアの中央部に位置する巨大な環状構造
直径約50km
その形状から「アフリカの目」、「サハラの目」と呼ばれることもある
サハラ砂漠の、標高100～200mほどの高台の中にある窪地
内部は、同心円上に標高100mほどの山が幾重にも重なっている
隕石の衝突によるクレーターではない
長年の風化や浸食によって、柔らかい岩石部分が削られてできたのではないか
環状となったのはドーム状の隆起運動のため(*1)
まさかのアトランティスではないかとの説?(*2)

*1：リシャット構造（Wikipedia）
*2：アトランティス大陸が見つかった？沈んでいなかった？！（Youtube）

Google Map

2019年2月28日木曜日

料理＞醤油の密封ボトルにオリーブ油を詰めてみた

使い終わった醤油の密封ボトルに、醤油を再充填するというサイトを参考にして、中にオリーブ油を入れてみた。

参考にしたサイト：
　しょうゆ容器の開発競争
　徒労に終わった「キッコーマンしぼりたて生しょうゆ」の詰め替え作業

これが、今回使用する醤油の空ボトル（キッコーマンでなくヤマサだ）。まず、周りのプラスチックをはがす。（はがさなくても良い様な気がする）

左が、充填するオリーブ油。いつも、キャベツの千切りに、酢、醤油、オリーブ油をかけて食べているのだが、オリーブ油が注ぎ口から周りに垂れて困っていた。醤油のボトルなら、扱いやすく、垂れることもないので使いやすいと思った。

たぶん、構造的にはこんな風ではないかと思う。

まずキャップを外す。逆ねじということで、右回りに回してみたが、いっこうにとれない。キャップを下から指で押し上げたところ、あっけなく外れた。ねじではなかったようだ。
ねじ（?）の部分に見える手前の穴は、中の醤油を入れている袋のまわりに空気を入れるためのものらしい。

外して、上から覗くと中に液体を入れる袋が見える。最初は、この袋がしぼんでいるので、割り箸などを入れて広げておく。充分広げておかないと、量が入れら入れない。
体力に自信のある方は、ちょっと汚いが、瓶の口を咥えて思いっきり息を吹き込むと、けっこう広がる。（誰も見ていない所で）

ここに、オリーブ油を注いでゆく。なるべく上の方まで入れておくと、空気との接触面を小さくすることができる。

充填後、キャップを上から押しこんで、はめる。無事にいけたようだ。

横からみたところ。特に何か言うほどのこともないか。

左は、今まで使っていたオリーブ油入れ。ごま油の空き瓶を再利用していた。

今回充填に使用した容器は油が垂れず、必要なだけ手軽にかけられて非常に使いやすい。ただ、包装素材から、何かしみだしてこないかあるいは欠けたりしないか心配だ。オリーブ油業界でも、この様な容器入りのものを発売してもらえると嬉しい。

なお、詰め替えによるリスクは、自己責任なのであしからず。ボトルの説明書にも入れ替えはしないよう、しっかり書かれている。

充填してしばらくたつが、油が周りにたれず、注ぎやすい。容器自体には特に、異常が見られない。