Re: [算表] 儲存格內容比對問題

[potson (igozei)]

Excel
2010





A       B       C       D       E
2
3
4               nike
5
6               name    2
7               nice    3
8               mike    3
9               ekin    0
10              fine    2





C4是我的目標

C6~C10是我的資料群

D6~D10是比對結果
比對方式是      n i k e
                n a m e    其中  第一個位置 n  和第四個位置 e 字母一樣
                           所以D6=2
                e k i n    因為每個位置的字母都不同
                           所以D9=0

感謝之前版友幫忙解決這個問題

使用的式子如下

D6=SUMPRODUCT(--(MID($C$4, ROW(INDIRECT("$A$1:$A$" & LEN($C$4))), 1)
                 = MID(C6, ROW(INDIRECT("$A$1:$A$" & LEN($C$4))), 1)))





因為我想改成自訂函數的方式

因此寫了以下的式子

Function refersumprdt$(data1$, data2$)
Dim Str$, WF As WorksheetFunction
Set WF = Application.WorksheetFunction
    Str = Str & WF.SumProduct(--(Mid(data1, Row(INDIRECT("$A$1:$A$" &
Len(data1))), 1) = Mid(data2, Row(INDIRECT("$A$1:$A$" & Len(data1))), 1)))
refersumprdt = Str
End Function


卻行不通,想請各位幫忙看看該如何修改比較好

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 120.126.63.127
→ soyoso:http://goo.gl/kYMOAw 類似這樣
→ white306:http://ppt.cc/zkWX 試試， 我是覺得如果已經知道函數解
→ white306:法就不用再用自訂函數了，這樣感覺有點多此一舉
→ white306:如果用自訂函數，可以就用一般程式語言解法
→ potson:非常感謝S大和W大的幫忙!!
→ potson:想改成自訂函數解只是為了簡化儲存格內顯示的內容
→ soyoso:簡化方面可以用自訂名稱
→ soyoso:http://goo.gl/D79FHZ 類似這樣，借V大的檔案
→ soyoso:公式→名稱管理員
→ potson:謝謝S大的幫忙