帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-5-28 20:23 | 只看該作者

判斷數值，傳回結果。

各位先進好，假設我在A欄有一批資料，並在C1儲存格填入一筆資料，當C1儲存格的資料符合A欄任一筆時，就在該列的B欄填入一串公式，否則填入"不符合"三個字，我嘗試撰寫程式後，一直跳出型態不符合的訊息(但是有判斷成功公式的部份)，想請教原因何在？謝謝。
以下是附件

Book11.rar (11.47 KB)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-5-29 10:09 | 只看該作者

回復 1# tku0216
因為C1在A1:A2中找不到時，[match(c1,a1:a2,0)]會回傳錯誤
而Cells的第一個參數為第幾列，所以告訴你傳入的參數型態不符合

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2014-5-30 00:08 | 只看該作者

多謝指教~另想請教，若C欄不只一筆時(假設有3筆)，想撰寫程式使用迴圈的方式判斷，以下的寫法有甚麼樣的問題？因為目前以下的寫法跳出"yes"視窗，但我確實已經有給符合的資料。

For i = 1 To 3
      If [isnumber(Match(Cells(i, 3), a1:a12, 0))] = True Then
         MsgBox "yes"
      End If
Next

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-6-1 09:31 | 只看該作者

回復 3# tku0216
試試看

Sub te()
With [C1:C3].Offset(, -1)
.FormulaR1C1 = "=match(rc[1],c1:c1,0)"
.SpecialCells(xlCellTypeFormulas, xlNumbers).FormulaR1C1 = "=SUM(C[-1])"
.SpecialCells(xlCellTypeFormulas, xlErrors) = "不符合"
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

5^#

發表於 2014-6-1 23:15 | 只看該作者

回復 4# GBKEE

G大，感謝您，
我都沒有想到可以避開迴圈完成VBA，我稍微修改了程式，在match的部分，應該是要反過來查詢，也就是要用A欄查C欄(而非C欄查A欄)，這樣一來就可以得到我要的結果，修改後程式如下：
Sub te()
With [C1:C9].Offset(, -1)
.FormulaR1C1 = "=match(rc[-1],c3:c3,0)" '此處應反過來查詢!!
.SpecialCells(xlCellTypeFormulas, xlNumbers) = "=sum(A1:a3)"
.SpecialCells(xlCellTypeFormulas, xlErrors) = "不符合"
End With
End Sub

這樣一來就會在A欄查到資料的位置，對應到的B欄出現SUM加總，若查不到資料則顯示"不符合"。再次感謝各位的協助。

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

6^#

發表於 2014-6-29 19:41 | 只看該作者

回復 tku0216
試試看
GBKEE 發表於 2014-6-1 09:31

G大，不好意思再請教一個延伸問題，若是要填入公式，讓儲存格傳回某工作表中某儲存格的值，應該如下下公式？
例如附件這個例子，在Sheet1的A1儲存格有一組ID，我想讓他在B1儲存格傳回"A123456789"工作表中的A1值(結果為1)，直接使用Excel函式為"=INDIRECT(A1&"!A1")"。
但若要使用specialcells，先找出B欄中，包函公式的儲存格，之後在同列所對應的C欄寫入INDIRECT公式，應如何表示"=INDIRECT(A1&"!A1")"這段句子？

Book11.rar (11.74 KB)

TOP