選択した部分だけ再計算し進度状況がわかるマクロ

選択した部分だけ再計算し進度状況がわかるマクロ

エクセルでは選択した部分だけを再計算する仕組みがないことを、「エクセルで選択範囲だけ再計算するようにするマクロ」で述べ、選択した範囲だけを再計算するマクロを紹介しました。

当然ながら、再計算する量が増えるとそのぶん時間もかかります。何十秒で再計算が完了するような処理だと、すぐに結果が得られるので待ちきれないことはないですが、さすがに数分～数十分かかるような処理だと、進行状況がわからないと、エクセルがフリーズしたのではないかと不安になりがちです。

そこで、選択範囲だけ再計算するマクロをさらに改良し、選択した部分を崔英さんしつつ、進度状況をステータスバーに表示するマクロを作成しました。これを利用すると、現在どこまで作業したのかがパーセンテージで分かるようになり、長時間かかる処理でも不安が軽減されます。

ステータスバーはこんな感じです。

ソースは以下のようになります。コピーしてモジュールにペーストしてください。

Sub 選択部分再計算() Dim Total As Integer Dim Counter As Integer Total = Selection.Cells.Count Counter = 1 For Each SelectedCell In Selection SelectedCell.Calculate Counter = Counter + 1 Application.StatusBar = "しばらくお待ちください。再計算しています。 " & ProgressView(Counter, Total) Next Application.StatusBar = False MsgBox ("再計算が完了しました。") End Sub Function ProgressView(Now As Integer, Total As Integer) Dim Per As Integer Dim Msg As String Dim Bar As String Per = Int(Now / Total * 100) Select Case Per Case Is >= 90 Bar = "**********" Case Is >= 80 Bar = "*********_" Case Is >= 70 Bar = "********__" Case Is >= 60 Bar = "*******___" Case Is >= 50 Bar = "******____" Case Is >= 40 Bar = "*****_____" Case Is >= 30 Bar = "***_______" Case Is >= 20 Bar = "**________" Case Is >= 10 Bar = "*_________" Case Else Bar = "__________" End Select Msg = " | " & Bar & " | " & Per & "% | " & Now & " in " & Total & " | " ProgressView = Msg End Function

コメント&トラバ

トラックバックを送る

無関係なスパムのトラックバックを防止するため、リンク先で本サイト(suin.asia)への言及が確認されないトラックバックは破棄しています。

トラバURL : http://suin.asia/trackback/116

コメントを書く

トラックバック

トラックバックがないのはさみしいにゃん…。

コメントはないです。誰かコメント書いてよぅ…。

このブログの著者

Suinと申します。

@suin on Twitter

サブメニュー

最近気になるモノ！

WindowsからMacに乗り換えて半年ですが、Macは細かいところまで丁寧に作られていて、親切なユーザーインターフェイスが気に入ってます。iMacはMagic Mouseと洗練されたデザインのBluetoothキーボードがついてくるので、お得だなあ、なんて思ってます。私に買ってもいいという方、いたら教えてください笑。

XOOPS Cube Dev Ring

氷川 XOOPS Module 開発室

[XCL22] たくさん抱えてる (06/24)
[一般] Git (06/14)
[XCL22] カテゴリでのアクセス管理とグループでのアクセス管理 (06/12)
[XCL22] モジュール向けイメージ管理機能 (06/12)
[XCL22] XOOPS Cube Legacy 2.2 Alpha4 リリース (06/12)
[XCL22] XOOPS Cube Legacy 2.2 Alpha3 リリース (05/30)
[xoops]CMS Theme Finder (04/30)

最近のトラックバック

ひとりで喜ぶログ: デュラララに登場するチャットを再現した (04/09)
ひとりで喜ぶログ: デュラララに登場するチャットを再現した (03/28)
http://www15.atpages.jp/~classicalstudio/wordpress/?p=50: getcwd()とdirname(__FILE__)は違う結果になるときがある (12/22)
Re:: CSSのtext-align:center;は<div>には通用しない (12/15)
XOOPS専門-株式会社RYUS - d3blog: Shiori 1.02 (12/02)
9deMaio.com - blog: Koins 1.00 (11/11)
インターネット覚え書き「ビボウログ」: CSSのtext-align:center;は<div>には通用しない (09/16)
hinoeuma1966: CSSのtext-align:center;は<div>には通用しない (07/03)
Suin.org: ブログ作ってみた (03/23)
Suin.org: ブログ作ってみた (03/23)

お名前*		URL
本文*
合い言葉*	←「ertoecsir」と入力して下さい。

メインメニュー