再びamiです(^^;
＃Excelキライになってほしくないので．．．．
> Excel(97)でＲａｎｇｅをコピーしたら(マクロで)
（以下略．）
Rangeコピーってどうやってるんでしょうか？
コピーごときでExcelがおかしくなるとは
考えにくいのですが．．．
> しばらくすると、変になります。
この状況からして、バッファが足りないっ
て感じみたいですねっ．
取り敢えず適当にコピーをしてみましたが、
私の環境ではなんともなかったです．
＃ひょっとして私、なんか勘違いしてます？
---------------------------------
Sub test02()
Dim wRng As Range
Dim wRngRow As Range
Dim wRngCol As Range
Dim i&
Application.ScreenUpdating = False
Set wRng = Workbooks("Book1.xls").Worksheets("Sheet1").Range(Cells(1, 3), Cells(2, 6))
For i = 2 To 60000 Step 2
wRng.Copy Destination:=wRng.Offset(i, 0)
Next
For i = 5 To 200 Step 5
wRng.Copy Destination:=wRng.Offset(0, i)
Next
Set wRngRow = wRng.EntireRow
For i = 2 To 60000 Step 2
wRngRow.Copy Destination:=wRngRow.Offset(i, 0)
Next
Set wRngCol = wRng.EntireColumn
For i = 5 To 200 Step 5
wRngCol.Copy Destination:=wRngCol.Offset(0, i)
Next
Application.ScreenUpdating = True
End Sub
---------------------------------
念のために云っておきますが、上のソースは
ただ単に何回もCopyする為だけに作っただけです．
実際、こんなロジックは書きませんからねぇ．(^^;;;
そう云えば、某OTKさまっとかは、
100Book作成(^^;マクロや、
15万行の書式設定(笑)マクロとかしてましたけど
一応大丈夫だったみたいですしぃ．
＃大丈夫でしたよねっ(笑)＞OTKさまっ
ってことで、Excelではなく、
Uzさまっの端末の調子がおかしいってコト
でどうです？(^^;;;
> (ある仕事のときはそうしましたが・・・どうなったんでしょうか？ (^^;)
ホント、どうなったんでしょうねぇ〜(笑)
P.S.ココの掲示板、PREタグ使えましたっけ？
|