|
▼Kein さん:
本当にありがとうございます!
私の力業よりKeinさんにいただいたコードの方がシンプルですばらしいですね!
こちらを使わせていただきます。
今回は本当にありがとうございました!
>Sub 小数点桁数整理()
> Dim C As Range
> Dim Pt As Integer, Nm As Integer
>
> On Error GoTo ELine
> For Each C In Range("I:I").SpecialCells(3, 1)
> Pt = InStr(1, C.Value, ".")
> If Pt > 0 Then
> Nm = Len(C.Value) - Pt + 1
> If Nm > 4 Then Nm = 4
> C.Offset(, 2).Resize(, 10) _
> .NumberFormat = "0." & String(Nm, "0")
> End If
> Next
> Exit Sub
>ELine:
> MsgBox "I列に数値を入力したセルがありません", 48
>End Sub
>
>とすれば、コードを整理できますね。
|
|