123
返回列表 上一主題 發帖

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

h99949

帖子
44 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-19 
最後登錄
2015-10-30 
11# 跳轉到 »
發表於 2014-2-21 11:24 | 只看該作者
回復 10# GBKEE


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

TOP

h99949

帖子
44 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-19 
最後登錄
2015-10-30 
12#
發表於 2014-2-21 13:19 | 只看該作者
回復 10# GBKEE

報價單.rar (28.09 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2014-2-21 13:56 | 只看該作者
回復 12# h99949
cell 改成 Rng
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

h99949

帖子
44 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-19 
最後登錄
2015-10-30 
14#
發表於 2014-2-21 14:23 | 只看該作者
回復 13# GBKEE


    ok了,謝謝版主

TOP

h99949

帖子
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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2014-2-21 14:54 | 只看該作者
回復 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

h99949

帖子
44 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-19 
最後登錄
2015-10-30 
17#
發表於 2014-2-21 16:07 | 只看該作者
回復 16# GBKEE


    可以了,謝謝

TOP

h99949

帖子
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)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
19#
發表於 2014-2-25 16:43 | 只看該作者
本帖最後由 GBKEE 於 2014-2-26 14:43 編輯

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


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

TOP

h99949

帖子
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

刪除.JPG (193.69 KB)

刪除.JPG

錯誤.JPG (150.69 KB)

錯誤.JPG

報價表單.rar (25.25 KB)

TOP

        靜思自在 : 多做多得。少做多失。
123
返回列表 上一主題