Post-Admin:
Date: 2007年 03月 09日
Subject: 表示形式の自動変更
セルの内容によって自動的に表示形式を変更する。



Private Sub xchange(ByVal Target As Range)
Dim c As Range
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
If Left(c.NumberFormat, 13) = "[=0]0;[<>0]#," Then
If Int(c.Value) <> c.Value Then
c.NumberFormat = "[=0]0;[<>0]#,##0.0" & String(30, "#") & ";@"
Else
c.NumberFormat = "[=0]0;[<>0]#,##0;@"
End If
End If
Next
Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
xchange Sh.UsedRange
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
xchange Target
End Sub
[PR]
by noaccess | 2007-03-09 11:09 | メモ


Profile:
ほんとうかなあ?
by noaccess
プロフィールを見る
画像一覧

Calender:
S M T W T F S
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31

*: 検索




*: 最新のトラックバック
うげ!
from ぶろぐ、ぶろぐとき、ぶろげば..
えーと
from ぶろぐ、ぶろぐとき、ぶろげば..
あれ
from ぶろぐ、ぶろぐとき、ぶろげば..

*: メモ帳
ぎゃふん状態にある


*: ブログジャンル
つぶやき

*: 画像一覧