[[20200508110350]]　『バッテリーのロック前に表示して欲しい』（お助けを）　ページの最後に飛ぶ

『バッテリーのロック前に表示して欲しい』（お助けを）

ノートパソコンで作業する時バッテリーを使っています。
電源が少なくなっている事に気づかず、作業中突然ロックがかかり真っ黒になってしまいます。
慌てて充電しますが、作業中に残り○○％とか画面上に出てくれるとロック前に準備出来ると思うのですが、acerのAspire3　A315です。
説明書を見ても日本語訳が無くてわかりません。
どなたかわかる方は教えてください。

＜使用 Excel：unknown、使用 OS：Windows10 ＞

(q) このサイト(掲示板)について
•ここは『エクセルの学校』が運営している『Excel質問ボード』という掲示板です

他のサイトで質問せよ。

（閲覧者） 2020/05/08(金) 11:28

もろかぶりだがそのまま。

「初めての方へ」より
(q) このサイト(掲示板)について
・Excelについての質問や答えなどを書き込んでください

とありますが、どの辺がエクセルと関係するのかわからないので回答できないです。
マクロでバッテリー残量をチェックして表示したいってことですか？

（もこな２） 2020/05/08(金) 11:31

質問の仕方が不十分で申し訳ありません。
私はExcelが大好きで家計簿はもちろん体重・血圧・他色々自分で作成して楽しんでおります。
グラフを作成している最中に突然ロックがかかってしまい不都合が多かったので質問してしまいましたが、このサイトでは駄目だったのですね。
取り消します。

失礼いたしました。
（お助けを） 2020/05/08(金) 17:35

Excelマクロでバッテリー状態を調べるには、例えば以下のようにします。

 Sub test()
    Dim LOC As Object
    Dim SV As Object
    Dim OBJs As Object
    Dim OBJ As Object
    Dim iMax As Long
    Dim iR As Long

    Range("A1:F1").Value = Array("Availability", "BatteryStatus", "Caption", "電圧", "推定充電残量", "推定使用時間")
    iR = Cells(Rows.Count, "A").End(xlUp).Row
    Set LOC = CreateObject("WbemScripting.SWbemLocator")
    Set SV = LOC.ConnectServer

    Set OBJs = SV.ExecQuery("Select * From Win32_Battery")
    For Each OBJ In OBJs
        iR = iR + 1
        Cells(iR, "A").Value = OBJ.Availability
        Cells(iR, "B").Value = OBJ.BatteryStatus
        Cells(iR, "C").Value = OBJ.Caption
        Cells(iR, "D").Value = OBJ.DesignVoltage
        Cells(iR, "E").Value = OBJ.EstimatedChargeRemaining
        Cells(iR, "F").Value = OBJ.EstimatedRunTime
    Next OBJ
 End Sub

AvailabilityまたはBatteryStatusで、アダプタ接続なのかバッテリー稼働なのか確認できそうです。
EstimatedRunTimeは、私のPCではNULLしか返らなかったので、あてにならなそう。（アダプタ接続すると数値が返る…）
EstimatedChargeRemainingは、残り容量を％で返すので、これをどこかに表示すれば良いでしょうね。

しかしながら、こういうシステム状態を得るならば、.NET Framework が手軽に使える C#やVB.NETを使った方が簡単ですし、速くて軽いものが作れますよ？ Excelで頑張るようなものじゃないです。（簡単に作れるので、フリーウェアとして誰か提供してそうなので、探してみると良いかも）
（???） 2020/05/08(金) 17:42

まぁ、Windows10 ならば、標準でもタスクトレイに電池のようなアイコンがあり、これをクリックすれば情報が得られますけどね。または、LenovoのノートPCではかなり目立つ電池型のインジケータが常時表示されていたりします。
（???） 2020/05/08(金) 17:47

コメント返信：

[ 一覧(最新更新順) ]

[[20200508110350]] 『バッテリーのロック前に表示して欲しい』（お助けを） ページの最後に飛ぶ

[[20200508110350]]　『バッテリーのロック前に表示して欲しい』（お助けを）　ページの最後に飛ぶ