標題: vba寫法 [打印本頁]

---

作者: sillykin    時間: 2020-12-30 00:02     標題: vba寫法

本帖最後由 sillykin 於 2020-12-30 00:13 編輯

C6~c200
C6=IF(D6="","",$C$4)
C7=IF(D7="","",$C$4)
C8=IF(D8="","",$C$4)
至C200
---------------------------------------------------
F6~F200
F6公式=IF(ISNA(VLOOKUP($A6,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,3,FALSE)))
F7公式=IF(ISNA(VLOOKUP($A7,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,3,FALSE)))
F8公式=IF(ISNA(VLOOKUP($A8,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A8,說明!$B:$E,3,FALSE)))
至F200
G6~G200
G6=IF(ISNA(VLOOKUP($A6,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,4,FALSE)))
G7=IF(ISNA(VLOOKUP($A7,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,4,FALSE)))
至G200
想請問要如何用VBA表示

---

作者: n7822123    時間: 2020-12-30 00:36

本帖最後由 n7822123 於 2020-12-30 00:38 編輯

回復 1# sillykin

用VBA批次寫公式嗎~?

C6~c200
C6=IF(D6="","",$C$4)
C7=IF(D7="","",$C$4)
C8=IF(D8="","",$C$4)
至C200

[C6:C200] = "=IF(D6="""","""",$C$4)"

F6~F200
F6公式=IF(ISNA(VLOOKUP($A6,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,3,FALSE)))
F7公式=IF(ISNA(VLOOKUP($A7,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,3,FALSE)))
F8公式=IF(ISNA(VLOOKUP($A8,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A8,說明!$B:$E,3,FALSE)))
至F200

[F6:F200] = "=IF(ISNA(VLOOKUP($A6,說明!$B:$E,3,FALSE)),"""",(VLOOKUP($A6,說明!$B:$E,3,FALSE)))"

G6~G200
G6=IF(ISNA(VLOOKUP($A6,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,4,FALSE)))
G7=IF(ISNA(VLOOKUP($A7,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,4,FALSE)))
至G200

[G6:G200] = "=IF(ISNA(VLOOKUP($A6,說明!$B:$E,4,FALSE)),"""",(VLOOKUP($A6,說明!$B:$E,4,FALSE)))"

不要懷疑，就是這麼簡單~

程式比你的說明還少~ ^.^

---

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