excel 報價表單上輸入不同的Item如何帶入不同的圖片
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
回復 10# GBKEE
Dim Rng As Range, Text_Ar(), AR(), Rng_Text As String有這個 |
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
12#
發表於 2014-2-21 13:19
| 只看該作者
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
13#
發表於 2014-2-21 13:56
| 只看該作者
回復 12# h99949
cell 改成 Rng |
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
14#
發表於 2014-2-21 14:23
| 只看該作者
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
15#
發表於 2014-2-21 14:43
| 只看該作者
回復 13# GBKEE
版主,在請問一下,在顯示格出現的數字的格式要顯示成有千分位(,)點的格是要在哪裡做修改
列如20000變成20,000 |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
16#
發表於 2014-2-21 14:54
| 只看該作者
回復 15# h99949 - Private Sub CommandButton1_Click()
- Dim s As String, i As Integer
- If Rng Is Nothing Then
- s = "貨號中沒有 " & TextBox1
- ElseIf Rng_Text = Join(Text_Ar, "") Then
- s = "貨號" & TextBox1 & "資料沒有修改 !!"
- End If
- If s = "" Then
- If MsgBox(TextBox1 & "修改資料 !!", 32 + vbYesNo) = vbYes Then
- For i = 1 To UBound(AR)
- With Rng.Offset(, AR(i))
- .Value = Text_Ar(i) '導入TextBox?數字(文字型態)到Rng
- .Value = .Value
- .NumberFormatLocal = "#,##0.00_ "
- End With
- Next
- End If
- End If
- End Sub
複製代碼 |
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
17#
發表於 2014-2-21 16:07
| 只看該作者
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
18#
發表於 2014-2-21 17:47
| 只看該作者
回復 16# GBKEE
版主,請問我在表單上修改後直接儲存到相對應的儲存格時,如果要在不影響到FOB-美金,FOB-歐元,總價,20呎櫃,40呎櫃內原本的算計公式時,並能即時顯示修改後計算的結果時
程式該如何修改 |
-
-
報價單.rar
(28.89 KB)
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
19#
發表於 2014-2-25 16:43
| 只看該作者
本帖最後由 GBKEE 於 2014-2-26 14:43 編輯
回復 18# h99949
完整版的資料 [新增],[修正],[刪除] 按鍵
找不路徑時修改 Const 預設照片 = "D:\客戶報價單\catalogue\GEIST.gif"
Ex.rar (22.53 KB)
|
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-2-19
- 最後登錄
- 2015-10-30
|
20#
發表於 2014-2-26 12:44
| 只看該作者
回復 19# GBKEE
版主不好意思,總價應該=(J:AA)的加總
追加欄位工時=30000*10/20/1000*D/C
程式碼應該在哪裏修改
試用後如果貨號從11個刪到第2個時會出現無法設定List屬性該如何修改 |
-
-
原本.JPG
(210.98 KB)
-
-
刪除.JPG
(193.69 KB)
-
-
錯誤.JPG
(150.69 KB)
-
-
報價表單.rar
(25.25 KB)
|
|
|
|
|
|