標題: 程式抓取最左邊 [打印本頁]

---

作者: myleoyes    時間: 2014-2-25 21:55     標題: 程式抓取最左邊

各位前輩你們好!!   
       Sub Ex()
           [N1] = Mid(ActiveCell.FormulaR1C1, 2, Len(ActiveCell) + 1)
       End sub
       當選取儲存格 =-588.5  
       按鈕N1=-588.5
       當選取儲存格 =11796.5+-588.5
       按鈕N1=11796.5
       當選取儲存格 =-25.5+11796.5+-588.5
       按鈕N1=-25.5
       也就是說程式抓取最左邊
       請問程式為何?
       請知道的前輩,不吝賜教謝謝再三!!

---

作者: GBKEE    時間: 2014-2-26 07:16

回復 1# myleoyes

1. Option Explicit
   
2. Sub Ex()
   
3.     [N1] = Split(ActiveCell.Formula, "+")(0)
   
4.     '[N1] = Mid(Split(ActiveCell.Formula, "+")(0), 2) '沒有"="
   
5. End Sub

複製代碼

---

作者: myleoyes    時間: 2014-2-26 21:23

回復 2# GBKEE
良師!謝謝再三!!

---

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