C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: セルの移動


(過去ログ 22 を表示中)

[トピック内 2 記事 (1 - 2 表示)]  << 0 >>

■9446 / inTopicNo.1)  セルの移動
  
□投稿者/ 受験生 (4回)-(2007/10/26(Fri) 18:07:47)

分類:[VB6 以前] 

数週間前に助けていただいた受験生です、(おかげで大学合格しましたありがとうございました!)
今回はセルの移動で躓きました、
Dim UpCell As Long
With Form1.Spreadsheet1
    UpCell = .Selection.Row
    
    .Sheets("Sheet1").Range("A" & UpCell - 1).Copy Destination:=.Sheets("Sheet2").Range("A1")
    .Sheets("Sheet1").Range("A" & UpCell).Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell - 1)
    .Sheets("Sheet2").Range("A1").Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell)
    .Cells(UpCell - 1, 1).Select
    
End With
このコードで選択中のセルの書式・内容を上に上げて行くことはできるのですが、[Copy Destination]で行っているにもかかわらずクリップボード経由で実行されてしまいます。
本当はクリップボードを経由しないで移動させたいのですが
原因が判らず次に進むことができません、よろしくお願いしますm(_ _)m

VB 6 / Windows XP / Excel 2003

引用返信 編集キー/
■9452 / inTopicNo.2)  Re[1]: セルの移動
□投稿者/ 受験生 (5回)-(2007/10/26(Fri) 23:36:56)
2007/10/26(Fri) 23:38:02 編集(投稿者)

No9446 (受験生 さん) に返信
> 数週間前に助けていただいた受験生です、(おかげで大学合格しましたありがとうございました!)
> 今回はセルの移動で躓きました、
> Dim UpCell As Long
> With Form1.Spreadsheet1
> UpCell = .Selection.Row
>
> .Sheets("Sheet1").Range("A" & UpCell - 1).Copy Destination:=.Sheets("Sheet2").Range("A1")
> .Sheets("Sheet1").Range("A" & UpCell).Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell - 1)
> .Sheets("Sheet2").Range("A1").Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell)
> .Cells(UpCell - 1, 1).Select
>
> End With
> このコードで選択中のセルの書式・内容を上に上げて行くことはできるのですが、[Copy Destination]で行っているにもかかわらずクリップボード経由で実行されてしまいます。
> 本当はクリップボードを経由しないで移動させたいのですが
> 原因が判らず次に進むことができません、よろしくお願いしますm(_ _)m
>
> VB 6 / Windows XP / Excel 2003

すいません、自己解決しました
Copy Destination を Cut Destination でクリップボード非経由できました、ごめんなさい
解決済み
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -