-1
我想從一個頁面拉多個值,並使這些值覆蓋其他頁面上的值,如果按下按鈕。多頁面覆蓋更新
Private Sub CommandButton1_Click()
Dim MemberP As String, RangeUserP As String, BuyerP As String
Dim CCP As String, SMP As String, FMP As String
Dim MemberGP As String, GunNumb As String
Worksheets("TreeMap").Select
MemberP = Range("Z16")
RangeUserP = Range("R28")
BuyerP = Range("I28")
CCP = Range("Z24")
FMP = Range("AA24")
SMP = Range("AB24")
MemberGP = Range("R41")
GunNumb = Range("G43")
//Part 1
Worksheets("Membership Model").Select
Range("R11").Value = MemberP
Range("C10") = CCP
Range("H10") = FMP
Range("L10") = SMP
Worksheets("S1- Buyers RangeUsers").Select
Range("B6") = RangeUserP
Range("B7") = BuyerP
Worksheets("S2- Range Users Splits").Select
Range("J11") = MemberGP
Worksheets("S4- Selling Points").Select
Range("K6") = GunNumb
MsgBox ("Updated")
//Part 2
End Sub
的MSGBOX工作。
第1部分是輸入位置,第2部分是輸出位置。