|
おはようございます。
Keinさん、フォローありがとうございました^^
>>Sub Test()
>> Dim C As Range
>>
>> If TypeName(Selection) <> "Range" Then Exit Sub
>> For Each In Selection
>> If WorksheetFunction.IsNumber(C.Value) Then
>> C.NumberFormat = "@"
>> If Len(C.Value) < 3 Then
>> C.Value = String(3 - Len(C.Value), "0")
>> End If
>> End If
>> Next
>>End Sub
>>
>>べた書きしてますので、うまくいかなかったらゴメン。
>
>おはようございます。
>早速試してみたところ、
>コンパイルエラー
>構文エラーと出てしまいました。。。
>
>『For Each In Selection』
>
>この部分がエラーのようです。。。
>どうしたらいいのでしょうか?
For Each C In Selection
ですね。
エラーの部分が特定されたのですから、
For Each...Next ステートメント
のヘルプを調べてみると、何がおかしいのかわかると思いますよ^^
使用例なんかみると、わかりやすいです。
|
|