| |
▼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
>
>とすれば、コードを整理できますね。
|
|
℃素人
- 06/12/18(月) 9:46 -
