用戶輸入範圍選擇的語法

Question

這裏是我的代碼。我試圖從不同的工作表中複製兩塊原料並將它們粘貼到另一張工作表中。用戶通過輸入想要繪製的原始數量來進行選擇。任何幫助深表感謝。

- 

Private Sub CommandButton1_Click() 
Dim Date1 As Variant 
Date1 = InputBox("Cell number you want to graph. Enter any cell number from 
     4 to 863", "Cell Number") 

    Sheets("Deflection").Select 
     *******Range("E & "Date1":DG & "Date1" ").Select******* 
     Selection.Copy 
     Sheets("Static Rate Curve").Select 
     Range("A2").Select 
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
      False, Transpose:=True 
     Sheets("Load").Select 
     **Range("E & "Date1":DG & "Date1" ").Select** 
     Selection.Copy 
     Sheets("Static Rate Curve").Select 
     Range("B2").Select`enter code here` 
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
      False, Transpose:=True 
     Range("D8").Select 

Answer 1

所有你需要的是這個。

Private Sub CommandButton1_Click() 
Dim wsSource1 As Worksheet, wsSource2 As Worksheet, wsDest As Worksheet 
Dim Date1 As Variant 

Set wsSource1 = Sheets("Deflection") 
Set wsSource2 = Sheets("Load") 
Set wsDest = Sheets("Static Rate Curve") 

Date1 = InputBox("Cell number you want to graph. Enter any cell number from 4 to 863", "Cell Number") 

wsSource1.Range("E" & Date1 & ":DG" & Date1).Copy 
wsDest.Range("A2").PasteSpecial xlPasteAll, Transpose:=True 

wsSource2.Range("E" & Date1 & ":DG" & Date1).Copy 
wsDest.Range("B2").PasteSpecial xlPasteAll, Transpose:=True 

End Sub