[發問] 請各位大哥前輩指正自定函數錯誤點

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-6-29 21:50 | 只看該作者

Public Function EX(TN As Integer) As Double
Dim c As Range
Set c = Sheets(2).[a:a].Find(TN, , , 1)
If Not c Is Nothing Then
EX = c(1, 2).Value
End If
End Function

複製代碼

改這樣試試。

GBKEE

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

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

3^#

發表於 2012-6-30 10:03 | 只看該作者

回復 1# lamihsuen
你這自訂函數是沒有錯誤的
For ei = 1 To TN
If Worksheets(2).Cells(ei, 1).Value = TN Then 這是在 Worksheets(2).A欄中比對
E178 = Worksheets(2).Cells(ei, 2).Value E178 傳回 Worksheets(2).B欄的值: 你要檢查這B欄的值是否是你期待
End If
Next ei

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

4^#

發表於 2012-6-30 11:06 | 只看該作者

回復 3# GBKEE

For ei = 1 To TN
If Worksheets(2).Cells(ei, 1).Value = TN Then 這是在 Worksheets(2).A欄中比對
E178 = Worksheets(2).Cells(ei, 2).Value E178 傳回 Worksheets(2).B欄的值: 你要檢查這B欄的值是否是你期待
End If
Next ei

如大大上列所言但Worksheets(2).B欄的值,不是0,從區域變視窗觀察e178的值始終是0.tn變數是正確的,下列是E178的值跟欄位,不知是否有那裡設定不對?
A(欄) B
1
2
3 1.153
4 1.463
5 1.672
6 1.822
7 1.938
8 2.032
9 2.110
10 2.176
11 2.234
12 2.285
13 2.331

GBKEE

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

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

5^#

發表於 2012-6-30 11:20 | 只看該作者

回復 4# lamihsuen
上傳檔案看看

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

6^#

發表於 2012-6-30 11:22 | 只看該作者

:'( :D 回復 2# oobird

感謝大大,試用你的程式已可傳回正確的值,但還是不懂我的程式問題出在那裡?

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

7^#

發表於 2012-6-30 12:22 | 只看該作者

[code][/code]回復 5# GBKEE

對不起要上傳檔案時出現: 不支持上傳此類擴展名的附件, 只好附上程式
Option Explicit

Sub 執行分析結果()
Dim oi As Integer '設outline計數器
Dim oj As Integer '計算"NG"的家數
Dim ei As Integer ' 找E178值的計數器
Dim wr, xlRow As Integer '設定COPY工作表數目計數器
Dim an As Integer  'outline 分析次數 .並顯示在標題列(b4)
'設定每一個工作表每一有公式的儲存格,順序從(第1 個元素)開始
an = 1 ' 開始outline 分析次數 .
   For wr = 4 To Worksheets.Count
      With Worksheets(wr)
            xlRow = .Range("B" & .Rows.Count).End(xlUp).Row
               '"A3"儲存格 NO.OF.RESULT值
               .Range("A3").Formula = "=COUNT(B6:B" & xlRow & ")"
               '"B3"儲存格分析值中間值(MEDIAN)
            .Range("B3").Formula = "=MEDIAN(B6:B" & xlRow & ")"
            'C3儲存格IRQ植
            .Range("C3").Formula = "=(QUARTILE(B6:B" & xlRow & ",3) -QUARTILE(B6:B" & xlRow & ",1))*0.7413"
            '"E3"儲存格ROBUS CV值
            .Range("E3").Formula = "=  C3 / B3 *100"
            '定義"j3"儲存格為分析值平均值
            .Range("J3").Formula = "=AVERAGE(B6:B" & xlRow & ")"
            '"F3"儲存格分析值中最少值
            .Range("F3").Formula = "=MIN(B6:B" & xlRow & ")"
            '"G3"儲存格分析值中最大值
            .Range("G3").Formula = "=MAX(B6:B" & xlRow & ")"
               '"H3"儲存格RANGE值
            .Range("H3").Formula = "=G3-F3"
            '定義"k3"儲存格為stdv
            .Range("k3").Formula = "=STDEV(B6:B" & xlRow & ")"
            .Range("B4").Value = an
            '"C"欄 Z-SCORE 值
            .Range("C6:C" & xlRow & "").Formula = "=(B6-$B$3)/$C$3"
            ' "D"欄OUTLINE值
            .Range("D6:D" & xlRow & "").Formula = "=(B6- $J$3)/$K$3"
            .Range("I3").Value = E178(.Range("A3").Value)

      End With

'Worksheets(wr).Range("I3")定義E178值在I3儲存格
'For ei = 1 To 102
'If Worksheets(2).Cells(ei, 1).Value = Worksheets(wr).Range("A3").Value Then
'Worksheets(wr).Range("I3").Value = Worksheets(2).Cells(ei, 2).Value
'Exit For
'End If
'Next ei
'"E'欄判別OUTLINE,true="ok"FALSE="NG"

Worksheets(wr).Range("L3").Value = 0 '"NG"家數起始值
For oi = 6 To Worksheets(wr).Range("A3").Value + 5 '開始判別從第6列開始
'比對D6是否< E178值(I3)欄

If Worksheets(wr).Range("D" & oi).Value < Worksheets(wr).Range("I3").Value Then
'值=TRUE時E欄記錄""OK"
Worksheets(wr).Range("E" & oi).Value = "OK"
Else
With Worksheets(wr)
   '值= FLACE時E欄記錄"NG"
   .Range("E" & oi).Value = "NG"
   '設"NG"FONT.COLOR為紅色
   .Range("E" & oi).Font.Color = vbRed
   '"NG"家數+1
   .Range("L3").Value = .Range("L3").Value + 1
   End With

End If
Next oi
Next wr

End Sub

Public Function E178(TN As Integer) As Double
Dim ei As Integer
ei = 1
For ei = 1 To TN
If Worksheets(2).Cells(ei, 1).Value = TN Then
E178 = Worksheets(2).Cells(ei, 2).Value
End If
  Next ei

End Function

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2012-6-30 13:23 | 只看該作者

回復 6# lamihsuen

重點在自訂函數的命名上
不要有數字！
還有上傳附件要先壓縮！

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

9^#

發表於 2012-6-30 15:22 | 只看該作者

回復 8# oobird

但是我將你的ex命名改E178還是可以,之前我用下列方式也可傳回正確值
'Worksheets(wr).Range("I3")定義E178值在I3儲存格
For ei = 1 To 102
If Worksheets(2).Cells(ei, 1).Value = Worksheets(wr).Range("A3").Value Then
Worksheets(wr).Range("I3").Value = Worksheets(2).Cells(ei, 2).Value
Exit For
End If
Next ei