桁区切りするには (ID:105040)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 テキストボックスにもとの数値が入っているとして、以下のソースで いかがでしょう。 Private Sub Label1_Click() t = Text1.Text If IsNumeric(t) Then k = InStr(t, ".") If k > 0 Then '小数点以下を分離しておく t1 = Left(t, k - 1) t2 = Right(t, Len(t) - k + 1) Else t1 = t t2 = "" End If k = Log10(t) \ 3 For i = k To 1 Step -1 t1 = Left(t1, Len(t1) - i * 3) + "," + Right(t1, i * 3) Next Label1.Caption = t1 + t2 End If End Sub Function Log10(x) As Integer Log10 = CInt(Log(x) / Log(10)) End Function