返回列表下一主題上一主題發帖

[發問] 請問以下三段公式，若轉換為vba 該如何撰寫（非用.Formula =“ ”）解決

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-10-30 15:40 | 顯示全部帖子

[發問] 請問以下三段公式，若轉換為vba 該如何撰寫（非用.Formula =“ ”）解決

請問以下三段公式，若轉換為vba 判斷式，該如何撰寫（非用.Formula =“ ”）解決？

=IF(OR(MID(H2,2,1)="M",MID(H2,2,1)="L"),LEFT(H2,3),IF(LEN(TRIM(H2))=4,H2,TRIM(LEFT(H2, SEARCH(" ",H2,1)))&IF(I2="","",MID(I2,6,1))))

=TRIM(IFERROR(VLOOKUP(LEFT(K2,6),IF({1,0},科目代號!$X$2:$X$500,科目代號!$R$2:$R$500),2,),""))

=IF(LEFT(H2,1)="9",TRIM(H2),IF(I2="",LEFT(TRIM(H2),SEARCH(" ",H2,1)-1)&TRIM(MID(K2,2,1)&MID(K2,4,3)),LEFT(TRIM(H2),SEARCH(" ",H2,1)-1)&TRIM(MID(I2,6,1)&LEFT(J2,3))))