MEI 發問時間: 電腦與網際網路程式設計 · 1 0 年前

我要ㄧ打開excel就跑出在 VBA做的介面

請問excel VBA高手~~我要如何ㄧ開啟EXCEL檔案就是我再VBA做的那個介面呢??(需要存成某種檔名嗎??)

另一個問題是....因為小妹剛學VBA..所以對寫程式這部份超極不熟...

所以麻煩幫我看成是哪邊不對...因為我執行它都顯示"錯誤13"

Private Sub Workbook_Open()

Application.WindowState = xlMaximized

End Sub

Private Sub CommandButton2_Click()

End

End Sub

Private Sub UserForm_Click()

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

TextBox5.Value = ""

TextBox6.Value = ""

TextBox7.Value = ""

TextBox8.Value = ""

TextBox9.Value = ""

TextBox10.Value = ""

TextBox11.Value = ""

TextBox12.Value = ""

TextBox13.Value = ""

TextBox14.Value = ""

TextBox15.Value = ""

TextBox16.Value = ""

TextBox17.Value = ""

TextBox18.Value = ""

End Sub

Private Sub CommandButton1_Click()

TextBox20 = TextBox1* 0.2414 + TextBox2* 0.2165 + TextBox3* 0.2037 + TextBox4* 0.2222 + TextBox5* 0.1562 + TextBox6* 0.1098 + TextBox7* 0.1051 + TextBox8* 0.1075 + TextBox9* 0.1283 + TextBox10* 0.117 + TextBox11* 0.1273 + TextBox12* 0.1211 + TextBox13* 0.1061 + TextBox14* 0.1024 + TextBox15* 0.1923 + TextBox16* 0.1812 + TextBox17* 0.1666 + TextBox18* 0.3308

End Sub

已更新項目:

謝謝iam_1_001你的解答

那~請問你有沒有辦法讓我打開EXCEL就直接跑出VBA的介面呢?

3 個解答

評分
  • 1 0 年前
    最佳解答

    錯誤13__

    錯誤原因_是空白資料_作運算產生的錯誤

    在你的程式加上下列藍色句子_即可以執行.

    Private Sub CommandButton1_Click()

    for v=1 to 18

    if isnull( me("textbox" & v)) then me("textbox" & v) =0

    next

    TextBox20 = TextBox1* 0.2414 + TextBox2* 0.2165 + TextBox3* 0.2037 + TextBox4* 0.2222 + TextBox5* 0.1562 + TextBox6* 0.1098 + TextBox7* 0.1051 + TextBox8* 0.1075 + TextBox9* 0.1283 + TextBox10* 0.117 + TextBox11* 0.1273 + TextBox12* 0.1211 + TextBox13* 0.1061 + TextBox14* 0.1024 + TextBox15* 0.1923 + TextBox16* 0.1812 + TextBox17* 0.1666 + TextBox18* 0.3308

    end sub

    2010-07-06 23:36:09 補充:

    在你的程式加上下列藍色句子_即可以執行.

    for v=1 to 18

    if isnull( me("textbox" & v)) then me("textbox" & v) =0

    next

    2010-07-07 12:05:54 補充:

    1)打開EXCEL就直接跑出VBA的介面__因不了解你此項的須要.是否可以具體說明.

    2)如果是要顯示_form_直接在_open事件設定.

    2010-07-07 22:12:11 補充:

    Private Sub Workbook_Open()

    UserForm1.Show

    End Sub

    以上就可以執行.

  • 1 0 年前

    Private Sub Workbook_Open ()

    UserForm1.Show

    End Sub

    啟動表單

  • 1 0 年前

    是的...要顯示form

    可以請問怎麼設定嗎...程式碼該怎麼寫??

還有問題?馬上發問,尋求解答。