返回列表 上一主題 發帖

vba寫法

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: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)))"

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

程式比你的說明還少~ ^.^
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題