標題: [發問] 請教此程序如何改?? [打印本頁]

---

作者: t8899    時間: 2018-2-4 20:15     標題: 請教此程序如何改??

假如sheet1 [A1]=8
我點的是sheet1 [A1]
如何讓 [A2]=8  ([A1]的值)
Sub abc123()
Dim rng
Set rng = Application.InputBox("輸入選擇區域", Type:=8) '可在各工作表中移動,選擇儲存挌
a = rng.Address
b = rng.Parent.Name ' 工作表名稱
c = rng.Parent.Parent.Name  ' workbook
abc = "Workbooks(""" & c & ".xls"")." & "Sheets(""" & b & """).range(""" & a & """).value"
[a2] = abc ' 這句如何改 ??
End Sub

---

作者: GBKEE    時間: 2018-2-5 08:36

本帖最後由 GBKEE 於 2018-2-5 08:38 編輯

回復 1# t8899
想太多

1. [a2] = Application.InputBox("輸入選擇區域", Type:=8) '可在各工作表中移動,選擇儲存挌

複製代碼

---

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