返回列表 上一主題 發帖

excel 報價表單上輸入不同的Item如何帶入不同的圖片

回復 10# GBKEE


    Dim Rng As Range, Text_Ar(), AR(), Rng_Text As String有這個

TOP

回復 10# GBKEE

報價單.rar (28.09 KB)

TOP

回復 12# h99949
cell 改成 Rng
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 13# GBKEE


    ok了,謝謝版主

TOP

回復 13# GBKEE


版主,在請問一下,在顯示格出現的數字的格式要顯示成有千分位(,)點的格是要在哪裡做修改
列如20000變成20,000

TOP

回復 15# h99949
  1. Private Sub CommandButton1_Click()
  2.     Dim s As String, i As Integer
  3.     If Rng Is Nothing Then
  4.         s = "貨號中沒有 " & TextBox1
  5.     ElseIf Rng_Text = Join(Text_Ar, "") Then
  6.         s = "貨號" & TextBox1 & "資料沒有修改 !!"
  7.     End If
  8.     If s = "" Then
  9.         If MsgBox(TextBox1 & "修改資料 !!", 32 + vbYesNo) = vbYes Then
  10.             For i = 1 To UBound(AR)
  11.                 With Rng.Offset(, AR(i))
  12.                     .Value = Text_Ar(i) '導入TextBox?數字(文字型態)到Rng
  13.                     .Value = .Value
  14.                     .NumberFormatLocal = "#,##0.00_ "
  15.                 End With
  16.             Next
  17.         End If
  18.     End If
  19. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 16# GBKEE


    可以了,謝謝

TOP

回復 16# GBKEE


版主,請問我在表單上修改後直接儲存到相對應的儲存格時,如果要在不影響到FOB-美金,FOB-歐元,總價,20呎櫃,40呎櫃內原本的算計公式時,並能即時顯示修改後計算的結果時
程式該如何修改

報價單.rar (28.89 KB)

TOP

本帖最後由 GBKEE 於 2014-2-26 14:43 編輯

回復 18# h99949
完整版的資料 [新增],[修正],[刪除] 按鍵
找不路徑時修改  Const 預設照片 = "D:\客戶報價單\catalogue\GEIST.gif"


Ex.rar (22.53 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 19# GBKEE


版主不好意思,總價應該=(J:AA)的加總
                               追加欄位工時=30000*10/20/1000*D/C
程式碼應該在哪裏修改
試用後如果貨號從11個刪到第2個時會出現無法設定List屬性該如何修改

原本.JPG (210.98 KB)

原本.JPG

刪除.JPG (193.69 KB)

刪除.JPG

錯誤.JPG (150.69 KB)

錯誤.JPG

報價表單.rar (25.25 KB)

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題