BCG接種がコロナウィルスに効果があるのかもしれない

-
Yahoo!ニュースのコロナ記事のコメントを見ていたら、BCGについて書いている人がいました。何それと思って検索してみたところ次の記事がヒット。

アゴラ：　日本型BCGで新型コロナの免疫ができる？
http://agora-web.jp/archives/2045075.html

ジョンズホプキンス大学のBCGワクチンポリシー地図で、BCGのワクチン接種を行っている国は患者が少なく、そうでない国は患者が多いというものです。

ワクチンポリシー

ジョンズ・ホプキンス大学のBCGワクチンポリシー地図

A：　ワクチン接種制度がある国
B：　かつてあった国
C：　一度もなかった国

過去7日間の感染者数

ニューヨークタイムズの過去七日間の感染者マップと比べると、確かに驚くほど一致しています。


特に、丸で囲ったアイルランド、ポルトガル、エクアドルを見ると顕著です。ワクチン接種を行っているアイルランドとポルトガルは周囲の国より感染者が少なく、接種していないエクアドルは多く発生しています。

ポルトガルとアイルランドは人口が少ないからと思われるかもしれませんが、人口に対する死者の比率は明らかに低いです。

国名　人口　死者数
スペイン　4666万人　5982人
ポルトガル　1029万人　100人
アイルランド　483万人　36人

ブラジルなど例外があるのは、人口が多いとか、菌の株が違うからかもしれません。

4/5追記　その後、10万人当たりの感染者数(Per capita)という地図も追加されました。これを見ると、ますます上のポリシー地図と一致してきて、いやもうこれBCGでしょ、という状態になっています。
BCGの接種をしていても、例外的に多い国はあります。しかし、接種していない国は漏れなく周辺国よりも感染者数が多い状態です。

BCGの株について

WikipediaのBCGの説明を読むと次のことがわかります。
  • フランスのパスツール研究所の研究者であったアルベール・カルメットとカミーユ・ゲランが、ウシ型の結核菌からBCGの元になる菌株を作製。
    　
  • 日本では直接カルメットから分与された菌株（日本株）に由来する、BCG Tokyo172株が導入された。
    　
  • ワクチン効果のばらつきには、BCG株が各国で培養を繰り返されているうちに変異して、有効性を失った株が使用されていた可能性が指摘されている。
    　
  • 近年では、より元のパスツール株に近く、予防効果があるという結果を示しているBCG株を、WHOが選択収集して各国に配布している。

日本BCG研究所のBCGワクチンの国際参照品制定とWHO基準改定についてを読むと、
2010年に日本株Tokyo 172- 1 とDanish1331が，続いて2011年にロシア株BCG-IがWHO専門委員会によって「国際参照試薬」に認定されたと書かれています。

アゴラの記事では、イランはイラン製の株を使っているということです。これがコロナに対して（もしかしたら結核菌に対しても）効果が少ないのかもしれません。

BCG接種による感染者推移

日経新聞の「新型コロナウイルス感染　世界マップ」ページにある推移グラフを見ても、ワクチン接種ポリシーによる各国の違いは鮮明です。


ワクチン接種をしていない米国、イタリア、スペインは急激に増え、接種しているけれど独自株のイラン（人口8116万人）はそれほどひどくはなく、日本と韓国は抑えられています。

フランスの場合

こちらのブログではフランスは2007年まで全員対象だったと書かれています。でもフランスって結構感染者が出ていたと思うけどと、前述の日経のページを見てみたところ次の通りでした。


丸の中の数字は私が書き加えた人口です。やはり人口の割には感染者数が少ないようです。抑えきれていないのは、接種を受けていない子供たちから広がっているか、他国との往来が多いためかもしれません。

ワクチンの年齢別効果

厚生労働省のサイトによると「一度BCGワクチンを接種すれば、その効果は10～15年程度続くと考えられています。」ということです。

東洋経済の新型コロナウイルス国内感染の状況ページにある年齢別グラフを見ても整合性が取れます。

ワクチン効果があると思われる10代までは歴然と少なく、そのあとだんだん増えています。60代以降が少ないのは仕事をしていない人がいるため人と接触する機会が少ないからかもしれません。

Wikipediaによると「日本では、1951年に結核予防法が成立し強制的な接種が行われるようになった」ということです。ってことは強制接種を受けているのは現在69歳より下の人たちってことになります（当時は0歳では受けていないと思うのでもっと若い）。

上のグラフを見ても、これまた納得です。70代以降、感染者数は少なくなっているのに、急に死者が増えているのはもしかしたらこの影響があるのかもしれません。

Wikipediaには次のようにも書かれています。

「弱毒生菌ワクチン（生ワクチン）には、他のタイプのワクチン（死菌ワクチンや成分ワクチン）とは異なり、
  1. 弱毒性の微生物が体内に定着しうる
  2. ウイルスや細胞内寄生体が実際に細胞内に感染を起こしうる
という特徴がある。このため、
  1. 効果が半永久的に持続する
  2. 死菌ワクチンでは誘導できない細胞性免疫（マクロファージや細胞傷害性T細胞などによる免疫。細胞内感染の排除に必要）が誘導可能である
という利点がある。」

BCG株マップ

大隅典子の仙台通信というサイトにBCGの株に関する地図が載っていました。

これを見ると、イレギュラーと思われたブラジルは独自株のようです。また、今朝（3/30）のワールドニュースを見ているとブラジルでは大統領が単なる風邪とか言っていて全く何も対策を取っていないようです。

最初にブレイクした中国も独自株です。

隣の韓国は複数混合。

興味深いです。

日本の見通しは暗くはないかもしれない

大胆な封鎖を行った中国はともかく、韓国で宗教団体から大量の感染者が出た時にはもうこれは収拾がつかずだめだろうと思っていました。

しかし、意外なことにその後収束し、新規感染者が出てはいるものの何とかなっています。

イタリアやスペインの悲惨な状況を見ていて、日本も医療崩壊が起こるんじゃないかと心配していました。

しかし、BCG説が正しければ、一部で流行したとしても韓国同様抑え込むことはできそうです。場合によっては中国のように終息させることも可能かもしれません。

そう思うと、日本についてはそれほど悲観しなくてもよいのかもしれません。また、50代以下については死者や重症者は極端に少ないので、いたずらに恐れる必要はなさそうです。

とはいえ、高齢者の中には重症者や死者も出ているので、当面の間、人との接触はできるだけ避けたほうがよさそうです。

逆に大変なのは米英

イギリスの感染はイタリアの2,3週間遅れという記事を読みました。イギリスではジョンソン首相やチャールズ皇太子も感染し、これからイタリア並みにひどくなっていくことが予想されていました。同様に、アメリカも引き続き大流行が予想されます。

欧米以外が何とかなっても世界経済への打撃は大きく、当然日本の景気にも跳ね返ってきます。欧米の早い終息を願っています。

スウェーデンの場合

今朝(4/1)のワールドニュースで、スウェーデンの状況が流れていました。スウェーデンでは、他の欧米諸国のような規制はしておらず、街中は平常通りです。それに対してほかのヨーロッパ諸国から批判が出ているということでした。

スウェーデンのBCG状況はどうなっているんだろうと思って検索してみたところ、「今後のBCG接種政策
――スウェーデンの経験に学ぶ」という文書がありました。

それによると次の通りです。
  • 1940年以来，新生児全員，そして 7 歳児と15歳のツベルクリン反応陰性の小児にそれぞれ接種
  • 7 歳児への再接種は1965年に，15歳児については1986年にそれぞれ廃止
  • 1975年「リスク集団」を除いた一般集団への集団接種は廃止
つまり45歳から80歳までの人はある程度の免疫を持っている可能性があるということになります。これが致命的な問題を引き起こさない理由かもしれません。

成人の接種はやめたほうがいい

4/11追記
BCGを誤って皮下注射し、発熱やじんましん、血尿などの健康被害が出たそうです。

なるほど、だからハンコ注射で、ちょっとだけ皮膚に傷をつけるんですね。
フランスではBCGは皮下注射だとブログに書いている人がいたけれど、普段打ったことがない現地の医者は知らないのでは…

なるほど、潰瘍や膿瘍が発生して痕を残すことがないように現在のハンコ注射になったんですね。


私自身はBCGのお陰で欧米以外の国はこの程度で済んでいると思っています。
だからといって今からBCGを再度接種しようとはまったく思っていません。
上の年齢別グラフを見てわかるように、日本の場合既に50代以下はまず死なないからです。
（現在、50代や60代の死者は少し増えていますが、おそらく糖尿病や高血圧などハイリスクの方たちでしょう）

逆に、データがない成人が打てばどういう症状が現れるかわかりません。
私は以前アフリカ旅行のために黄熱病ワクチンの予防接種を受けました。
打ってから数日間、目の痛みや倦怠感に悩まされ、これ一生続いたらどうしようと不安になりました。
ワクチンは打たなくて済むなら打たないほうが良いと思っています。

コロナウィルスは日本の場合、欧米のように恐ろしい病ではありません。
恐ろしいのは感染者数増加による医療崩壊と経済へのダメージです。
医療崩壊を起こせば盲腸や交通事故の人も手当てされず死んでしまいます。
コロナウィルスの重症者も死ぬ恐れがでてきます。
感染者数が増えて経済ダメージが深刻化すれば、倒産する企業が増え、生活が脅かされ、自殺する人も出てきます。
だから感染者数を増やさないために自粛が必要なんです。
みんながこれまでの生活を送りたければ自粛して感染者数を増やさないことが必要です。

BCG接種に伴う各国死者数の違い

次のサイトでは、感染者や死者がある一定数を超えた時を起点とする対数グラフを表示できます。

対数グラフは大きい数を圧縮する効果があるため、感染者数の違いを吸収し、各国の増加具合を比較しやすくなります。
50人を起点として各国死者数をグラフ化してみました。


接種していない米英仏伊スペインは急激な増加。
接種している日韓は明らかに少ないです。

接種しているポルトガルとアイルランドが日韓より多いのは周辺国の影響でしょうか。EU域内は移動が自由なので、各国からの流入によるのかもしれません。

中国は接種していますが独自ワクチンで、流行初期に4万人大宴会を開いていたそうです。
ブラジルも同じく独自ワクチンで、大統領がコロナはただの風邪だと言い無策のようです。

日韓についても無策ならそれ相応の増加を示す可能性がありそうです。
やはり自粛が求められます。

ロシアを見てみました

ロシアがやばいというニュースを見たので、例によって、50人を起点とすると対数グラフを見てみました。


ポルトガルやアイルランドと同じカーブを描いています。
何かの理由がなければこうはならないと思います。

ついでに中国、ブラジル、トルコも加えてみました。

いやなんか、ここまできれいに分かれると、逆に他に原因があるんじゃないかという気さえしてきます。
なんで、体制も文化も違う国でこれほどきれいにパターンが分かれるのか…
それともBCG株の違いによる影響なのか…

コメント

コメントを投稿

アクセス数の多い投稿

セキュリティ対策ソフトのノートンが詐欺ソフトまがいになってしまってショック

-
イメージ
夜の10時に風呂に入っていると、80近くになる実家の母から、突然ノートンの表示が出たけどどうすれば、という連絡がありました。表示されたメッセージは次の通りです。 ！　お使いのパソコンで462件の破損されたレジストリが検出されました。パソコンをクリーンアップしてパフォーマンスを向上させましょう。 レジストリの問題は、パソコンの速度低下、フリーズ、さらにはクラッシュの原因となります。ノートンTMユーティリティーズ　アルティメットを入手して、レジストリの問題の解決とパソコンのパフォーマンス向上に役立ててください。 ノートンがこんな、レジストリが壊れているからと不安をあおって、別の製品を買わせる詐欺ソフトまがいのメッセージを出してくるとは。 親曰く「レジストリが破損て驚いた」（原文ママ）。わけのわからん高齢者に無用なストレスを与えています。 大体レジストリーとか言って、それの意味が正しく分かる一般人がいるか！（怒） ブロードコムに買収された法人向けのシマンテックはひどいことになっているけれど、個人向けのノートンライフロックは大丈夫みたいと思っていたら、こんなことになるとは。 もう、セキュリティ製品を買うのはやめて、Windows に最初からついてくる Microsoft Defender でもいいのかもしれないと思う今日この頃です。そのほうが安定してるし、こういう余計な問題も起きないし。 2022/9/1 追記　Defenderに切り替えてみました。 さらばノートン 2022/01/13 追記 悩んでいる方がいらっしゃるようなのでこのメッセージの解説をしておこうかと思います。 レジストリーとは Windows や 各種アプリ（ソフト）は設定などをWindowsが管理するデータベース（ファイル）に保存するものが多いです。そのデータベースがレジストリーです。 ソフトをインストールするときや、設定を変更する際などに書き換えられます。 設定等が保存されているため、これが壊れるとWindowsやアプリの挙動に支障をきたす可能性があること自体は確かです。 どうして壊れるのか レジストリーが壊れる原因は色々考えられます。 Windowsやアプリの不具合で作成や更新に失敗した 作成や更新中にWindowsやアプリが異常終了して中途半端になった データを保存する部品（SSDやHDDなどのドラ
続きを読む

Windows セキュリティーのビックリマークが消えない

-
イメージ
ノートン削除でWindowsセキュリティにビックリマーク 実家のノートン360をアンインストールしたところ、タスクトレイにある Windows セキュリティーの盾（シールド）型アイコンに「！」が表示されるようになりました。Windows 11です。 マウスポインターを持っていくと、「Windows セキュリティ - 処置をお勧めします」と表示されます。 ところが、クリックしてセキュリティの概要を開いてみても、問題なさそうです。 ノートンを再インストールするとグリーンのチェックマークになりましたが、アンインストールするとまた黄色のビックリマークになります。 私のPCはアンインストールしても問題なかったのでPC次第なのでしょう。 解決方法 実家のPCは次の方法で解決しました。 Windowsのスタートボタンを押します。（左の四角） 「設定」を開きます。 「プライバシーとセキュリティ」を選び、「Windowsセキュリティ」をクリックします。 「アプリとブラウザーの制御」をクリックします。 「評価ベースの保護」が、有効になっていなかったので有効にして、保護設定をすべて有効にしました。 有効後 これで盾アイコンのビックリマークは消えました。 Web閲覧時に危険 SmartScreen（Web閲覧が保護）が有効になっていなかった可能性があるので、これは確認してよかったです。 それにしても、タスクバーのアイコンから開いたWindowsセキュリティの画面に「アプリとブラウザーの制御」が表示されていないのはバグではないかと思います。以前は出ていたような気がします。 2022/10/9 追記 今、タスクバーの盾アイコンをクリックしたら、「アプリとブラウザコントロール」が表示されるようになっていました。やはりなにかのバグだったのでしょう。 Windows 11 は22H2にアップデート済みです。 2022/11/26 追記 別件で知人のPCのメンテナンスを行ったところ、この現象が発生していたので、早速、上の手順で解消しました。 ESETがインストールされていましたが、期限切れだったのでアンインストールしてDefenderに切り替えました。アンインストールによって生じたのか、元々こうだったのか記憶があいまいです。 Windows 11 は22H2になっていませんでした。 スマートアプリコン
続きを読む

NEC Aterm WX5400HP をセットアップ

-
イメージ
しばらく前にWi-Fi6対応ルーターを購入しました。 次期主力Wi-Fiルーター NEC Aterm WX5400HP 購入したはいいけれど、ずっと放置していて、昨日ようやく箱を開けてセットアップを開始しました。 Wi-Fi設定 とりあえずPCとルーターのLANポートを有線で接続し、Wi-Fiの設定を行いました。 うちは、ワンフロアの60m2程度の部屋なので、バンドステアリングやメッシュWi-Fiを使うほどではなく、また2.4GHzのみしか対応しない古いプリンターや体重計もあるので、これらは無効にしています。 ちなみに、バンドステアリングは、高速な5GHzと障害物に強い2.4GHzを自動で切り替える機能です。ルーターを設置したリビングなら5GHz、寝室なら2.4GHzという具合にいい具合に切り替えてくれるという事になっています。 メッシュは複数のアクセスポイント（Wi-Fi親機）に対してひとつの SSID を使って、家じゅうからアクセスできる機能です。リビングは NK-Living, 寝室はNK-BedroomみたいにSSIDを使い分けることなく、両方のルーターにNKでアクセスでき、使う場所によって自動的に通信状態の良いルーターを切り替えてくれる便利機能です。 PCやスマホはともかく、それら以外のデバイスはパスワード入力が厄介なので、これまで使っていたSSIDとパスワードを設定しました。 引っ越し機能を使うと便利なのですが、WEPなどの今となっては危険な設定を継承しかねないので私は使いません。利用はお勧めしません。 IPv4 over IPv6も自動でOK WX5400HPはASAHIネットのIPv4 over IPv6をサポートしているルーターなので、Wi-Fi以外のところはデフォルトのままで接続してみました。その結果次のように自動で認識されました。 動作モードはtransixとなり、IPv6動作モードも使用するになりました。 自動的にv6 コネクトが選択され、IPv4も通信可能になりました。 さすがはサポートされているだけあります。 ホームセキュリティーは無効 「トレンドマイクロホームネットワークセキュリティ™」がついていますが、私は即無効にしました。経験上、ゲートウェイ（ルーター）にこれをやらせると問題が起こるので。 FortigateとかMcAfeeの法人向
続きを読む

突然滅茶苦茶遅くなったPCがWindows Updateのキャッシュクリアで復活

-
イメージ
職場のPCが滅茶苦茶遅くなって操作できないというので色々試していった結果Windows Updateのキャッシュクリアで解決しました。 とにかく遅い PCを起動してサインインしてしばらくの間はそれなりに動作するのですが、時間の経過につれて動作が重くなってくる感じです。 特にタスクバーの反応が遅くなります。 タスクマネージャーとかコンピューターの管理を開いても、ずいぶん経って忘れたころに開いてくる感じです。 ひどくなってくると、もう全然反応がありません。 サインアウトや再起動がうまく行かない場合もありました。 ただし、何もいじらないと後からでも動作する場合もありました。 システムの復元も効果なし 12/3に発生して、Windowsの機能「システムの復元」を試みると12/1と、12/3の9時くらいに復元ポイントがありました。9時くらいのものが怪しかったので復元を行いましたが、残念ながら効果がなく、しかも12/1の復元ポイントまで消失しました。 結果的にはプログラムの問題ではなくデータの問題だったため効果がなかったということになります。システムの復元の最後にユーザーのデータには影響を与えませんみたいなメッセージが表示されることからも、そうなのでしょう。 今回の教訓としてはポイントが消えるかもしれないので復元するなら思い切って前の日にさかのぼったほうが良いという事でした。 [Windows 10] システムの復元を実行する方法を教えてください。 　富士通 アンインストールもうまく行かない たまたまシマンテックのライセンス切れが重なったため、シマンテックが原因かと思いアンインストールを試みました。しかし、途中までは進むものの取り消されてしまい削除できません。 ブロードコム（シマンテックを買収）から削除ツールCleanWipeを入手して削除してみましたが、復旧せずシマンテック以外が原因だと思いました。 Cryptographic ServicesとWindows Update タスクマネージャーでCPUの使用状況を見ていると、100%近くになって遅いというのではありませんでした。使用率は高くても数十％。低い時は十数％くらいでしょうか。 見ていると周期的にCryptographic Servicesが高い時は40%くらいまでCPUを消費します。そして、たまにWindows Upd
続きを読む

ChatGPTが日本語からVBAのコードを生成できてたまげる

-
イメージ
最近噂のChatGPT。大学受験問題も解ける賢いAIだとか。そこで私も試してみました。 指示は、「単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAを作りなさい。ListObjectとFor eachを用いなさい」です。 結果は次の通り正しく回答されました。 マジかと思いました。 自然言語からコードが生成されるだけで驚きですが、金額を計算しなさいと言っただけで、単価と数量を乗算しています。 試しに実行 上の画面のテキストをコピペしたものです。 ExcelのVBAでは、ListObjectを用いることで、Excelシート上のテーブルを操作することができます。以下は、単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAの例です。 Sub UpdateTable()   Dim tbl As ListObject   Dim row As ListRow      ' テーブルを取得します   Set tbl = ActiveSheet.ListObjects("Table1")      ' テーブルの各行を取得します   For Each row In tbl.ListRows     ' 単価と数量から金額を計算します     Dim unitPrice As Double     Dim quantity As Integer     unitPrice = row.Range(1, 1).Value     quantity = row.Range(1, 2).Value     row.Range(1, 3).Value = unitPrice * quantity   Next row End Sub 上記のVBAを実行すると、単価と数量から金額を計算し、テーブル内の金額の列が更新されます。 ListObjectを用いることで、Excelシート上のテーブルを簡単に操作することができるようになります。また、For Eachステートメントを用いることで、テーブルの各行を順番に取得し、処理を行うことができます。 できています。実際にテーブルを作って実行してみました。 実行結果 ちなみに、quantityのデータ型がintegerで最大値が小さい
続きを読む

Power Automate Desktopでブラウザでダウンロードしたファイルを処理する

-
イメージ
Power Automate Desktopを使って自動化する作業の一つはWebサービスだと思います。例えば私は銀行の明細照会や送金等の自動化を試みています。 そういう作業をしていて必要になって来るのがダウンロードしたファイルの処理です。例えば口座明細ファイルを保存するとか請求書を印刷するとかです。 ダウンロードされたファイル名がわかっているのであれば簡単ですが、実際には毎回違うなんだかよくわからない暗号コードのようなファイル名が付けられて落ちてくるという事は結構あります。 ファイル名が確定しなければアクションで指定してみようがないので困ります。今回はそういうファイルの処理方法について書いてみたいと思います。 画像はクリックすると拡大できます。 ダウンロードアクションを使用する Power Automate Desktopにはそのものズバリの「Webからダウンロードします」や「Webページのダウンロードリンクをクリックします」が用意されています。 しかし、残念ながらこれはChromeではつかえません。実行するとエラーが発生し「Chrome を使用したファイルのダウンロードはサポートされていません。オートメーション ブラウザーの使用を検討してください」と言われてしまいます。 そうなんだ、では、とEdgeやIE（Internet Explorer）を指定しても同様です。オートメーションブラウザーってなんなのと思ったら、IEの起動モードの一つでした。 それではと、オートメーションブラウザーを使ってみるとオートメーション用にすべてを削ぎ落した画面が表示され、これでは動かないサイトがありました。 また、IEのサポート終了が来年2022年6月に迫っているというのもひっかかります。 ダウンロードフォルダーを空にする ではどうするかと検索してみると、次のページではダウンロードする前にダウンロードフォルダーをクリアするという荒業を使っている方がいます。 Power Automate Desktop：ファイル名がわからないファイルをコピーする方法 いやこれ、私なんかはダウンロードフォルダーをデスクトップに設定しているので絶対に使えない方法です。 ブラウザのダウンロードフォルダーを一時的に作ったフォルダーに変更して元に戻すなんて言う方法も考えられますが、処理途中でエラーが発生するとそのま
続きを読む

Excel 2019 クエリが原因で日本語入力の一文字目が勝手に確定する

-
イメージ
既存ファイルにシートを追加してセルに文字を入力していったところ、なぜか一文字目が勝手に確定されてしまうという現象に遭遇しました。 一文字目が勝手に確定される セルに、例えば「支払い」と入力しようとすると、shiharaiのsを入れた時点で確定されてしまい、「s いはらい 」のようになってしまいます。 消しては入力やり直しなので異常に入力しづらい。大量に入力する必要がある方は絶望を感じるでしょう。 クエリが原因 新しいファイルでは問題ないのでどうやらファイル依存の問題らしいということがわかりました。 新しいファイルを作って、問題のファイルにあるシートを一つずつ移動していったところ、あるシートを移動したところで新しいファイルでも発生することがわかりました。 それは銀行のサイトにある為替レートのページを参照しているクエリが含まれるシートでした。 そこで、「クエリ」と「確定」で検索したところ、なんと既に先人が原因を特定して レポート してくれていました。 それによると、「データ」メニューの「クエリと接続」グループにある「クエリと接続」をクリックして表示される画面で、クエリが選択されたまま保存されていると発生するということでした。 実際に問題のファイルを開いてみると、確かにクエリが選択された状態になっていて、選択を解除したところ改善しました。こりゃわからんわ。 新しいファイルでクエリを作っても簡単に再現可能です。 PowerQueryはExcel 2016で標準搭載されたようなので、通常はExcel 2016か2019で遭遇する問題だと思います。 回避方法 選択を解除して保存 私がこの問題に遭遇したときは、クエリの選択を解除して保存するだけで解決し、次回開いた時にも再現することはなかったと記憶しています。 ところが、今試してみると、選択解除して保存しても、次回開くとまた選択された状態になっていて、文字入力に支障が出ます。バージョンの違いかと思い、職場のPCでも試してみましたが同様です。私の記憶違いだったのか、その後のバージョンアップで悪化しているのか… クエリと接続画面を表示 現状では、「クエリと接続」画面を表示させると（選択を解除しなくても）現象は収まります。 ファイルを開くときにマクロで自動的に選択を解除する方法も考え
続きを読む

Excel VBAからODBCを使ってデータを簡単に取得する

-
イメージ
VBAから ADO を使わずにODBC経由でデータベースにアクセスする方法です。 サンプルデータベース 次のようなアクセスのデータベースがあるとします。 テーブル名は「商品マスター」 カラム名は、ID, 商品名, 金額 保存してあるファイルは C:\Test\SampleDB.accdb DSNの用意 このファイルにアクセスするための DSN を作成します。（作成方法は後述） VBAの実行 Excel でシートを開き、次のプロシージャーを実行します。これはテーブルを作成するプロシージャーなので、最初に一回実行するだけです。 Private Sub uCreateTableWithQuery()     Dim uWS As Worksheet     Dim uList As ListObject          Set uWS = ActiveSheet     Set uList = uWS.ListObjects.Add( _         SourceType:=xlSrcQuery, _         Source:="ODBC;DSN=NK Test", Destination:=Range("A3"))          uList.DisplayName = "ExcelProductMaster" End Sub DSN=にDSN名を指定します。この例では、NK Test。 Destination はテーブルの左上を配置するセルです。この例ではA3セル。 DisplayName はテーブル名を指定します。この例ではExcelProductMaster。 実行すると次のようにテーブルが作成されます。テーブルはQueryTableに接続され、QueryTableはDSNを利用可能です。 次のプロシージャーを実行します。 Public Sub uRefleshQueryTable()     Dim uList As ListObject     Dim uSQL As String          Set uList = ActiveSheet.ListObjects("ExcelProductMaster")          uSQL = "SELEC
続きを読む

Microsoft Flight Simulator (2020)のPS4コントローラー設定

-
イメージ
先日14年ぶりに、MicrosoftのFlight Simulatorの新しいバージョンがリリースされました。現在、Microsoftの Xbox Game Pass for PCを契約すると期間限定でひと月100円でプレイできるので試すには絶好の機会です。 とりあえず手持ちのPS4コントローラー(DUALSHOCK 4)で飛ばす方法を書いてみました。 水陸両用機でベネチアを飛行中 PS4コントローラーはサポートされていない コントローラーをPCに接続しても、デフォルト状態では全く操作ができません。調べるとキーの割り当てが行われていませんでした。サポートされていないデバイスはこの状態になるようです。 サポートされているデバイスは次のページに書かれています。Xboxのコントローラーはありますが、PS4のコントローラーは書かれていません。 Peripherals compatibility 基本的なキー割り当ての方法は次のページに書かれています。 Peripheral Control Settings Overview and FAQ PS4コントローラーをPCに接続 接続方法については次のページを参考にするとよいでしょう。 Windows 10でPS4の “DUALSHOCK 4” を使う方法 なお、USBで有線接続すれば、Bluetoothで認識させる必要はなく即認識されます。ケーブルが気にならなければこちらの方法が簡単です。充電もされるし。 私のPCでは「ゲームコントローラーの設定」が「デバイスとプリンタ」画面に表示されませんでした。検索ボックス（ウィンドウズボタンの隣にある「ここに入力して検索」）に入力すれば表示されます。 PS4コントローラーの設定方法 コントローラーの各部名称は次のページを参照してください。 PlayStation®4 ユーザーズガイド　ワイヤレスコントローラー（DUALSHOCK™4） ボタンと番号の対応は概ね次のページに紹介されています。 DUALSHOCK 4をPCで使う標準ドライバで 初回の設定時には、保存をするかどうか聞かれると思います。適切に保存してください。 （画像が小さい場合はクリックすると拡大されます） メイン画面でOPTIONSを選択します。 飛行中にESC
続きを読む

Teamsで日本語入力すると左上に変換ウィンドウが出る

-
しばらくまえからTeamsのチャットに日本語入力しようとすると直接入力ができずに画面の左上に変換ウィンドウが出てきてしまうようになりました。 私のモニターは30型なのでTeamsウィンドウからかなり離れていて非常に入力しづらい。 使っているうちに直るときもあるけれどしばしば発生してイラッとしていました。 そうこうするうちに職場内からも問い合わせがあったのでMicrosoftに問い合わせてみました。 その結果、Microsoftでも現象を再現することができ、TeamsとIMEの問題であり、修正が必要だと認識しているけれど時期は未定という事でした。 回避策としては、どれでもいいから 他のウィンドウを一回クリックすれば、直接入力できるようになるという事でした。 他のウィンドウ（ブラウザや他のアプリ）をクリックしてからTeamsに戻って日本語入力すると確かに直接入力できるようになりました。（デスクトップをクリックしても解消しました） 一回解消すれば、Teamsを再起動するまでは問題は再現しないようです。普通は再起動しないので一日一回クリックすれば回避できるということになります。 ひと手間かかるとはいえ、手軽に確実に回避できるようになったのは嬉しいです。
続きを読む