嘉倫
Lv 5
嘉倫 發問時間: 電腦與網際網路程式設計 · 5 年前

Excel VBA 跟儲存格連結?

內容如附件檔。

附件檔下載 http://www.funp.net/318634

1. 我要把 進貨裡面 的進貨登入

有 Label 7 - 13

讓它直接顯示

進貨的D4 - I4 儲存格內容

2.進貨登入的 VBA 輸入完後

按登入會自動填入 EXCEL

可是為輸入變成空白

要如何把 TEXTBOX 空白處

按登入後 EXCEL 自動顯示成0

而不是空白!!

已更新項目:

你好,感謝您解決了 1 & 2 問題。

還有幾個問題想麻煩您。

檔案下載 http://www.funp.net/917022

我的出貨單要從出貨裡面分析出來

主要配對是 出貨單號 + 出貨日期 + 顧客編號

只要相同的話 同產品型號 與顏色各互相相加數量

資料要從 出貨 裡面分析出來

請問要如何設定? (不一定要用 VBA 一般運算公式也可以)

1 個解答

評分
  • 5 年前
    最佳解答

    textbox秩序有點亂

    產品型號可直接帶入c.Offset(0, 2) = ComboBox3無需textbox顯示

    以下請自行修改所需

    Private Sub CommandButton1_Click()

    Dim i As Integer, j As Integer

    Set c = Range("a65536").End(xlUp).Offset(1, 0)

    c.Offset(0, 0) = Val(TextBox1)

    c.Offset(0, 1) = DateValue(TextBox2)

    c.Offset(0, 2) = ComboBox3.Value

    For i = 4 To 10

    If Me.Controls("TextBox" & i) = "" Then

    c.Offset(0, i - 1) = 0

    Else

    c.Offset(0, i - 1) = Val(Me.Controls("TextBox" & i))

    End If

    Next

    For j = 1 To 10

    Me.Controls("TextBox" & j) = ""

    Next

    End Sub

    Private Sub CommandButton2_Click()

    Unload Me

    End Sub

    Private Sub UserForm_Initialize()

    TextBox2 = Date

    End Sub

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