標題: 儲存格裡的函數公式可否用巨集按鈕來執行 [打印本頁]

---

作者: emma    時間: 2016-1-13 19:36     標題: 儲存格裡的函數公式可否用巨集按鈕來執行

Dear 各位高手大大們好

想請問一下是否可讓附件檔案中的A欄「公司名稱」及B欄「訂貨商品」在不為空的狀態下，
按下更新報價的按鈕後才顯示執行以下這幾欄的公式?
上月時價(公式為=VLOOKUP(B5,商品資訊!A:C,2,0))
最新時價(公式為=VLOOKUP(B5,商品資訊!A:C,3,0))
訂購金額(公式為D5*E5)

謝謝^^

---

作者: 准提部林    時間: 2016-1-13 21:11

Sub 更新報價()
Dim R&
R = [B65536].End(xlUp).Row
If R < 5 Then Exit Sub
Range("C5:D" & R) = "=VLOOKUP($B5,商品資訊!$A:$C,COLUMN(B$1),0)"
Range("F5:F" & R) = "=D5*E5"
End Sub

---

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