程式修改

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

附檔:

20190603.rar (10.62 KB)
謝謝老師幫忙!

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

2^#

發表於 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

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

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 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

TOP

准提部林