標題: 程式修改 [打印本頁]

---

作者: man65boy    時間: 2019-6-3 10:55     標題: 程式修改

請問各位老師，如如何讓選取複製的範圍,可依Sheet3工作表的F3儲存格，做依據。
[attach]30760[/attach]
附檔:[attach]30761[/attach]
謝謝老師幫忙!

---

作者: 准提部林    時間: 2019-6-3 15:32

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    時間: 2019-6-4 14:18

回復 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

---

作者: 准提部林    時間: 2019-6-4 14:53

回復 3# man65boy

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

---

作者: man65boy    時間: 2019-6-5 16:14

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

    [attach]30781[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)