程式修改

man65boy

請問各位老師，如如何讓選取複製的範圍,可依Sheet3工作表的F3儲存格，做依據。

下載 (195.68 KB)

2019-6-3 10:54

附檔: 20190603.rar (10.62 KB)

下載次數: 2

2019-6-3 10:55

謝謝老師幫忙!

准提部林

Sub TEST()
Dim xAddress$
xAddress = "A3:" & [Sheet3!F3]
With Sheets("Sheet1")
    .Range(.[F1], .[A65536].End(xlUp)(2)).Offset(2, 0).ClearContents '清除原有資料
    .Range(xAddress) = Sheets("Sheet2").Range(xAddress).Value
End With
End Sub

=================

man65boy

回復 2# 准提部林

謝謝準大老師的回答，小弟因為功力太淺，無法把程式納入在需要的程式裡，再請老師幫忙，謝謝老師!

Private Sub CommandButton9_Click()
With Sheets("Sheet3")
     
     Label3.Caption = Sheets("Sheet3").[f2].Value
     .Range("E2") = Label2.Caption
   
        
        
        End With
   
  Sheets(CStr([幾列])).Visible = True '跳工作尋找代碼定義
   Sheets(CStr([幾列])).Select '跳工作尋找代碼定義
   
   
        Range("DATA1").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range( _
        "E1:E2"), CopyToRange:=Sheets("1-1").Range("A2:F2"), Unique:=False
        
         [A1] = "機台型號:" & Sheets("Sheet3").Range("E2").Value
         
        ' [A3:F3] = Sheets("1-1").Range("A3:F3").Value  '<<<<這裡是想依變動的儲存格更改的地方
      

   On Error Resume Next
    Sheets(CStr([g2])).Select
    Unload Me
   
UserForm1.Show
  
  

End Sub

准提部林

回復 3# man65boy

有物件, 有表單, 這我也改不動~~

man65boy

回復 4# 准提部林
謝謝準大，我把原始的檔案上傳來，因為原始檔的程式，是用拼湊型的，所以過以雜亂，麻煩老師了@懇請老師幫忙!
，

    20190605.rar (45.71 KB)

下載次數: 2

2019-6-5 16:14