質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.99%

VBA cpu使用率取得

受付中

回答 1

投稿

  • 評価
  • クリップ 7
  • VIEW 3,714

drumath2237

score 83

プログラミング初心者のものです。管理者の制約で、学校でタスクマネージャを開くことができません。そこでエクセルvbaでタスクマネージャを再現しようと思い、日々精進しております。学校には4Gのcore i5搭載のパソコンとcore i7搭載の8Gのパソコンがあります。どちらもOSは7です。
今のところcpu使用率と周波数、物理メモリ使用率のグラフの描画に成功していますが、やはり重いです。そこでもっと軽く動くプログラムがほしいと思っています。ご協力お願いします。
またそのコードの解説までしていただくと、ありがたく幸いに思います。
(今はテストが近いので最近やっていないのですが・・・。)
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • 退会済みユーザー

    2016/11/25 10:17

    こちらの質問が他のユーザから「やってほしいことだけを記載した丸投げの質問」という指摘を受けました
    「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。

回答 1

+4

自分も再現してみましたが、既存のタスクマネージャーの普通速度と同じくらいの速度で更新されました。(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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.99%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる