| |
▼ごん さん：
>また、申し訳ありませんが、02.03.05などとして入力していたデータが2002.03.05
>と、別の値に変わるのも好ましくなりません。
>
>できれば、日付という概念は無しで、
>単純に、2桁の数字ドット２桁の数字ドット２桁の数字という記述に変えるという
>考えで、お願いできないでしょうか？
Sub Try2()
Dim r As Range
Dim u, v, i As Long, j As Long
Set r = [G3:G10]
v = Application.Asc(r)
For i = 1 To UBound(v)
u = Split(v(i, 1), ".")
For j = 0 To UBound(u)
u(j) = Format$(u(j), "00")
Next
v(i, 1) = Join(u, ".")
Next
r.Value = v
End Sub
>どうしてｖは２次元の配列になるのでしょうか？
セル範囲の値をVariant型の配列に取り込むと、
セルの行番号、列番号と同じ形で格納されます。
一行でも
(1,1) (1,2) (1,3) (1,4) ...
ですし、
1列でも
(1,1)
(2,1)
(3,1)
(4,1)
:
です。
|
|
kanabun
- 11/10/18(火) 12:53 -
