[發問] 隨意參照之運費計算

kai6929

各位大師們好!
         能否請教如何設定  如:
E3:=香港
E4=臺北縣時
E6:會=區域費率的相對單價

下載 (38.16 KB)

2012-11-5 11:39

下載 (28.28 KB)

2012-11-5 11:39

KAI~22.rar (8.82 KB)

下載次數: 21

2012-11-5 11:39

Hsieh

回復 1# kai6929


    =INDEX(區域費率!B:H,MATCH(E4,區域費率!B:B,0),MATCH(E3,區域費率!3:3,0))

kai6929

謝謝了這位大師,以解決

c_c_lai

回復  kai6929


    =INDEX(區域費率!B:H,MATCH(E4,區域費率!B:B,0),MATCH(E3,區域費率!3:3,0))
Hsieh 發表於 2012-11-5 12:12

請問 Hsieh 版大， 以上敘述之語法如果是使用 VBA ，那麼
不知該如何撰寫？ 謝謝您！

freeffly

回復 4# c_c_lai


    "=INDEX(區域費率!C[-3]:C[3],MATCH(R[-2]C,區域費率!C[-3],0),MATCH(R[-3]C,區域費率!R[-3],0))"
    是要這各嗎

c_c_lai

回復 5# freeffly
是的！
以 VBA 語法角度應如何撰寫？

c_c_lai

回復 5# freeffly
我試著寫了一個測試模組，如下：

1. Sub Test()
   
2.     [D6] = Sheets("區域費率").[B3].Offset(WorksheetFunction.Match([C3], Sheets("區域費率").Range("B4:B28"), 0), _
   
3.                                              WorksheetFunction.Match([D3], Sheets("區域費率").Range("C3:H3"), 0))
   
4.     MsgBox Sheets("區域費率").[B3].Offset(WorksheetFunction.Match([C3], Sheets("區域費率").Range("B4:B28"), 0), _
   
5.                                      WorksheetFunction.Match([D3], Sheets("區域費率").Range("C3:H3"), 0)).Address
   
6. End Sub

複製代碼

有沒有更佳的方式表達？

JBY

回復 1# kai6929

=INDEX(區域費率!B3:H100,MATCH(E4,區域費率!B3:B100,0),MATCH(E3,區域費率!B3:H3,0))

JBY

回復 1# kai6929

或者 :

=VLOOKUP(E4,區域費率!B3:H100,MATCH(E3,區域費率!B3:H3,0),0)

c_c_lai

回復 9# JBY
不好意思，我是指如果使用 VBA 程式語言，
有否更好的表達方式，謝謝！