« 【雑記】 「iPhone」はソフトバンクから発売 | トップページ | 【株】 2008/06/05(木) ±0 日経▲94.45 »

【Excel VBA備忘ログ】Excelのステータスバーに文字を表示

IE操作とは関係ないが、Excelのステータスバーに目盛りを表示する関数。

例:プログレスバーを表示

range・・・最大目盛り数(□の個数)

pos・・・現在値(■の個数)

Sub progress_bar(range As Integer, pos As Integer)

    If range < 0 Or pos < 0 Then
        Application.StatusBar = False
    Else
        Application.StatusBar = String(pos, "■") & String(range - pos, "□")
    End If
   
End Sub

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【雑記】 「iPhone」はソフトバンクから発売 | トップページ | 【株】 2008/06/05(木) ±0 日経▲94.45 »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/21423156

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】Excelのステータスバーに文字を表示:

« 【雑記】 「iPhone」はソフトバンクから発売 | トップページ | 【株】 2008/06/05(木) ±0 日経▲94.45 »

便利リンク☆

  • amazon
  • DMMCFD
  • 楽天証券
  • 外為ジャパン
  • DMM.fx

便利リンク☆☆

  • SoftBank SMART PHONE STORE
  • A8.net webアプリケーションエンジニア募集!!
  • Point Income
    暮らしをおトクにかえていく|ポイントインカム
  • 無敵の桃バスト
無料ブログはココログ