08/03/15 18:52:44 tmSeQDqQ0
やれやれ。使い分けをしろと言ってるだけなのだが。
Function Proc(names)
ReDim rtn(UBound(names))
n = 16
w = len(hex(UBound(names)+1)) '桁はリネームした数に依存。固定する場合は定数にする。指定しない場合は0に。
i = 0
For Each name In names
s = hex(i+1)
t = len(s)
If t<w Then s = String(w-t,"0") & s
rtn(i) = name & "_" & s
i = i + 1
Next
Proc = rtn
End Function