|
▼タツヤ さん:
>ここでエラーが発生してしまいます。
> ↓
>Sh2.Range("P10:Q349").NumberFormatLocal = "@"
> ↓
>実行時エラー1004 'RangeクラスのNumberFormat
>Localプロパティを設定できません。
>
>環境はExcel2002バージョン10.0ですが0....
こちらでは、何のエラーもなく文字列で転記されています。
Excel2003ですけど・・・・・
バージョンの問題ではないと思いますが。
新規ブックに
Sub test()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim myAry, r
myAry = Array("C10:Q20", "S10:Z20")
Set Sh1 = Sheets("Sheet1")
Set Sh2 = Sheets("Sheet2")
' If UserForm7.OptionButton1.Value = True Then
Sh2.Range("P10:P20").NumberFormatLocal = "@"
For Each r In myAry
Sh2.Range(r).Value = Sh1.Range(r).Value
Next
' End If
End Sub
等として、P列を文字列にして、H15.3.14と入力以下コピー
して実行してみて下さい。
それで、転記されれば、別の問題だと思います。
昼休みが終了しましたので、後は夜になります。
私以外の、指揮者の回答をお待ち下さい。
|
|