|
▼momoko さん:
>勤務表の作成で、少数点での入力(例:13.00と入力で⇒13:00になる)時間値へ
>変換できるマクロ及び設定方法をご存知でしたら教えてください。
オートコレクトを利用されてはいかがでしょうか。
マクロで切り替えるならこんな感じです。^d^
Sub ドットコロン切替()
Dim V As Variant
Dim i As Integer
Dim Flg As Boolean
V = Application.AutoCorrect.ReplacementList
For i = 1 To UBound(V)
If V(i, 1) = "." Then
Flg = True
Exit For
End If
Next
If Flg Then
Application.AutoCorrect.DeleteReplacement What:="."
MsgBox "元に戻しました。"
Else
Application.AutoCorrect.AddReplacement What:=".", Replacement:=":"
MsgBox "設定しました。"
End If
End Sub
|
|