質問: プログラミング初心者のものです。管理者の制約で、学校でタスクマネージャを開くことができません。そこでエクセルvbaでタスクマネージャを再現しようと思い、日々精進しております。学校には4Gのcore i5搭載のパソコンとcore i7搭載の8Gのパソコンがあります。どちらもOSは7です。 今のところcpu使用率と周波数、物理メモリ使用率のグラフの描画に成功していますが、やはり重いです。そこでもっと軽く動くプログラムがほしいと思っています。ご協力お願いします。 またそのコードの解説までしていただくと、ありがたく幸いに思います。 (今はテストが近いので最近やっていないのですが・・・。)
回答: 自分も再現してみましたが、既存のタスクマネージャーの普通速度と同じくらいの速度で更新されました。(OS Windows10 ,CPU Core i7 ,Excel 2013) CPU使用率は4%くらい増えました。当然Excelは占有されてしまうので重たいと言われればそれまでかもしれませんが、他のアプリケーションを操作する分には影響が無い様に思われます。 自分のコードだと短くする要素がこれ以上ないので、アドバイスができないです。 VBで作れば更新が早いのが作れると思うのですが、Excelのグラフ再計算機能が少しネックになっている気がしました。 参考サイト:http://www.wmifun.net/sample/ ちなみに、エクセルに開始ボタンと、停止ボタンを付けて、それぞれにマクロを割り振っています。 参考になれば幸いです。 以下コード ``` Option Explicit Dim fStop As Boolean 'グローバル変数を宣言 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub グラフ描画開始() fStop = False Do While True ’無限ループ Call データ更新 Sleep 1 '描画速度を変えたい場合値を大きくすると更新頻度が下がる。 DoEvents DoEvents 'グラフを更新するために2個必要 If fStop = True Then MsgBox "グラフ更新停止" Exit Do End If Loop End Sub Public Sub 停止ボタン() fStop = True End Sub Sub データ更新() 'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClassSet As Object Dim oClass As Object Dim oLocator As Object Dim oService As Object Dim CPU使用率 As Long Dim Tmp As Variant 'グラフデータをずらすために使う 'ローカルコンピュータに接続する。 Set oLocator = CreateObject("WbemScripting.SWbemLocator") Set oService = oLocator.ConnectServer 'クエリー条件を WQL にて指定する。 Set oClassSet = oService.ExecQuery("Select * From Win32_Processor") 'コレクションを解析する。 For Each oClass In oClassSet CPU使用率 = oClass.LoadPercentage Next Tmp = Range("C6:C103").Value 'CPUの使用率が格納されているセル Range("C5:C102").Value = Tmp '1セルずらす Range("C103").Value = CPU使用率 '最後のセルに最新の値を入れる。 '使用した各種オブジェクトを後片付けする。 Set oClassSet = Nothing Set oClass = Nothing Set oService = Nothing Set oLocator = Nothing End Sub ```