標題: [發問] 執行後出現"執行階段錯誤'13':型態不符 "問題排除 [打印本頁]

---

作者: yliu    時間: 2013-4-23 00:22     標題: 執行後出現"執行階段錯誤'13':型態不符 "問題排除

Userform 裡的ComboBox 1,點選單號後會自動帶出TextBox2~TextBox8的資料,並計算TextBox26及TextBox27數值,再點選OptionButton1後自動計算 TextBox21及 TextBox22的值按下CommandButton1後 資料有寫入我要的工作表內,但會出現"執行階段錯誤'13':型態不符", 找很久,仍不知道問題是出在哪裡? 請高手幫忙.

Private Sub ComboBox1_Change()
Dim flag As Boolean
Dim Rowcnt2, x2 As Integer
Dim first, second, user_price As Variant
      flag = False
      Rowcnt2 = Sheets("analysis").Cells(1, 1).CurrentRegion.Rows.Count
      For x2 = 1 To Rowcnt2
           If Sheets("analysis").Cells(x2, 1) = UserForm2.ComboBox1.Value Then
              TextBox2 = Sheets("analysis").Cells(x2, 2)
              TextBox5 = Sheets("analysis").Cells(x2, 7)
              TextBox6 = Sheets("analysis").Cells(x2, 4)
              TextBox3 = Sheets("analysis").Cells(x2, 5)
               TextBox4 = Sheets("analysis").Cells(x2, 6)
               TextBox7 = Sheets("analysis").Cells(x2, 8)
              TextBox8 = Sheets("analysis").Cells(x2, 9)
              flag = True
          End If
       Next
TextBox26.Value = TextBox8.Value - TextBox7.Value
TextBox27.Value = TextBox26.Value / TextBox8.Value
End Sub


Private Sub OptionButton1_Click()
Dim price_min, ratio, diff As Variant
If OptionButton1 = True Then
      If TextBox15.Value = "" And TextBox18.Value = "" Then

            price_min = TextBox12.Value
            ElseIf TextBox15.Value <> "" And TextBox18.Value = "" Then
           price_min = Application.Min(TextBox12.Value, TextBox15.Value)
        Else
          price_min = Application.Min(TextBox12.Value, TextBox15.Value, TextBox18.Value)
     End If
      diff = TextBox12.Value - price_min
      ratio = diff / TextBox7.Value
      TextBox21.Value= diff
      TextBox22.Value = ratio
       Else
     TextBox21.Text = ""
     TextBox22.Text = ""
     End If
End Sub

---

作者: GBKEE    時間: 2013-4-23 14:38

回復 1# yliu
"執行階段錯誤'13':型態不符"
須上傳檔案看看資料內容

---

作者: yliu    時間: 2013-4-23 22:09

[attach]14756[/attach]回復 2# GBKEE
麻煩幫我看一下.謝謝!

---

作者: Hsieh    時間: 2013-4-23 22:44

回復 3# yliu


    [attach]14759[/attach]

---

作者: yliu    時間: 2013-4-24 20:59

本帖最後由 yliu 於 2013-4-24 21:01 編輯

回復 4# Hsieh


    謝謝Hsieh 大大的幫忙...
    問題已解決了,謝謝！！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)