317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-11-8 18:40 | 只看該作者

請協助加入新元素

大大們, 好
小妹有一程式需要加入新的元素, 但我的功力太淺, 沒法成功, 請大大們協助決, 附件中有說明, 謝謝!!

r.rar (28.29 KB)

樓主熱帖

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

5^#

發表於 2011-11-9 07:49 | 只看該作者

謝版主大大, 早晨
因急於開工, 故未試用版大程式, 但先行謝過, 待今晚收工才有私人時間學習, 最後祝快樂..

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-11-8 22:26 | 只看該作者

回復 3# 317

用排序可以嗎?

Sub CopyData()
Dim 列 As Integer
Dim 貨物編號 As String
Dim 貨物名稱 As String
Dim 類型 As String
Dim 數量 As Integer
Set d = CreateObject("Scripting.Dictionary")
列 = ActiveCell.Row
選擇用途 = Cells(列, 2)
貨物編號 = Cells(列, 3)
貨物名稱 = Cells(列, 4)
類型 = Cells(列, 5)
數量 = Cells(列, 8)
Windows("b.xls").Activate
With Workbooks("b.xls").Sheets("sheet1")
.Select
For Each a In .[AB3:AB6]
d(a.Value) = a.Interior.ColorIndex
Next
Set a = .[A65536].End(xlUp).Offset(1, 0).Resize(, 5)
a.Interior.ColorIndex = d(選擇用途)
a.Value = Array(選擇用途, 貨物編號, 貨物名稱, 類型, 數量)
a.Select
.Range(.[A2:E2], .[A2:E2].End(xlDown)).Sort key1:=.[A2], Header:=xlYes
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

3^#

發表於 2011-11-8 21:44 | 只看該作者

回復 2# Hsieh

謝謝版主大大回應,
有一些小問題, 假若當資料從a檔案填入b檔, 可否改成按種類自行插入該類別, 如第一筆輸入資料生果,第二筆紅酒,第三筆輸入時是生果, 而該筆新輸入資料自行分類插入第一筆生果下,
當資料輸入完成後, 而頁面顯示是b檔, 因用家可清色地從b檔頁面知道輸入後資料有否錯誤,
再度煩勞, 唯有衷心謝謝謝!!

`

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-11-8 20:58 | 只看該作者

回復 1# 317

Sub CopyData()
Dim 列 As Integer
Dim 貨物編號 As String
Dim 貨物名稱 As String
Dim 類型 As String
Dim 數量 As Integer
Set d = CreateObject("Scripting.Dictionary")
列 = ActiveCell.Row
選擇用途 = Cells(列, 2)
貨物編號 = Cells(列, 3)
貨物名稱 = Cells(列, 4)
類型 = Cells(列, 5)
數量 = Cells(列, 8)
With Workbooks("b.xls").Sheets("sheet1")
For Each a In .[AB3:AB6]
d(a.Value) = a.Interior.ColorIndex
Next
.[A65536].End(xlUp).Offset(1, 0).Resize(, 5).Interior.ColorIndex = d(選擇用途)
.[A65536].End(xlUp).Offset(1, 0).Resize(, 5).Value = Array(選擇用途, 貨物編號, 貨物名稱, 類型, 數量)
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP