文字の０埋め (ID:82969)

名前

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

本文 桁数が固定されていないのならString関数を使用すれば簡単ですよ。 Private Sub Command1_Click() Dim Keta As Long Dim DmyStr As String Keta = 10 '目的の桁数 DmyStr = "123" Debug.Print Right(String(Keta, "0") & DmyStr, Keta) End Sub