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

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

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

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

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

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

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

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

コメントを書く

トラックバック

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

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

Author

Suin

Follow Twitter

Submenu

XOOPS Cube Dev Ring

氷川 XOOPS Module 開発室

Recent Trackbacks

CreaMo!: MAMPをパスワード無しで起動・終了する方法 (06/04)
YONEZO-NET: Smarty2.0からSmarty3.0への変更点 (03/28)
1-byte.jp: もっとより良いPHPerになるためのTips (03/28)
浜村拓夫の世界: さくらVPS+CentOS：SSHの設定 (02/22)
Ubuntu日記: CSS3で何の変哲もない画像をiPhone,iOS風のアイコンに変身させる (02/08)
ひとりで喜ぶログ: デュラララに登場するチャットを再現した (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)

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

メインメニュー