| |
▼rina さん：
こんにちは
コードを拝見する限り、説明されたこととはちょっと違いますね。
指定した領域を、別に指定した領域の「上」の領域に「挿入移動」するということでしょうか。
いずれにしても、「どの領域」を「別のどの領域」に対して、この処理を行うかは
ＶＢＡに教えてあげないと、ＶＢＡは、何もできませんよね。
といって、膨大なForm/Toの組合せを全て用意するのは、非現実的なので、何か方法は
ないだろうかという質問だと推察します。
ということが、正しいとすれば、たとえば、それぞれの領域の先頭のＪ列をマウスで
選ばさせて実行するコード案です。
Sub 移動()
Dim adr1 As Range
Dim adr2 As Range
On Error Resume Next
Set adr1 = Application.InputBox("移動させたい領域のＪ列を選択してください", Type:=8)
On Error GoTo 0
If Not adr1 Is Nothing Then
On Error Resume Next
Set adr2 = Application.InputBox("挿入させたい領域のＪ列を選択してください", Type:=8)
On Error GoTo 0
If Not adr2 Is Nothing Then
Application.ScreenUpdating = False
adr1.Resize(9, 54).Cut
Range("A13:F15").Select
adr2.Resize(9, 54).Insert Shift:=xlDown
adr1.Offset(9).Select
Application.ScreenUpdating = True
End If
End If
Set adr1 = Nothing
Set adr2 = Nothing
End Sub
|
|
UO3
- 11/11/16(水) 16:49 -
