Excel VBA 跟儲存格連結?

[匿名]

2016-05-17 11:07 am

內容如附件檔。
附件檔下載 http://www.FunP.Net/318634

1. 我要把進貨裡面的進貨登入
有 Label 7 - 13
讓它直接顯示
進貨的D4 - I4 儲存格內容

2.進貨登入的 VBA 輸入完後
按登入會自動填入 EXCEL
可是為輸入變成空白
要如何把 TEXTBOX 空白處
按登入後 EXCEL 自動顯示成0
而不是空白!!

更新1:

你好，感謝您解決了 1 & 2 問題。還有幾個問題想麻煩您。檔案下載 http://www.FunP.Net/917022 我的出貨單要從出貨裡面分析出來主要配對是出貨單號 + 出貨日期 + 顧客編號只要相同的話同產品型號與顏色各互相相加數量資料要從出貨裡面分析出來請問要如何設定? (不一定要用 VBA 一般運算公式也可以)

回答 (1)

Cheng

2016-05-17 12:46 pm

✔ 最佳答案

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

👍 0 👎 0