不好意思新手又來請教資料比對問題麻煩各位了

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

2^#

發表於 2011-7-20 11:06 | 顯示全部帖子

請問板大不好意思再請教一個問題這樣的需求我可以參考書籍中的哪些function ? 謝謝

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

3^#

發表於 2011-7-20 13:37 | 顯示全部帖子

板大你好~adef 只是我假設有其他的欄位已經在book1裡面,在book1中主要是去看ope_no 跟part_id 這兩個儲存格右手邊的資料(parit-id---->12345, ope_no ---> 333 444 555 777),這些資料是從book2裡面的b sheet來的,只是在book2 copy過來之後在book1要做一些修改 ,ope_no 就是要變為 ('333','444','555','777')加上括弧,逗號和分號
partid 則是如果在book2裡面有一個以上的part_id出現時 ,在填入book1的時後,要變成 part id 12345 5678 (5678要填在12345旁邊那個儲存格)

不知道這樣有清楚嗎? 謝謝你我也會自己在試著寫~

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

4^#

發表於 2011-7-20 15:21 | 顯示全部帖子

@超級版主謝謝你我在研究一下你的寫法
@版主抱歉我在描述清楚一點謝謝

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

5^#

發表於 2011-7-20 19:09 | 顯示全部帖子

謝謝兩位版主, code我已經看完了也看懂了,也自己試著做了一些修改非常感謝
有兩個問題想請教
第一個問題就是以下這段code為什麼沒有對應的end if? 是不需要嗎?
If a = "part_id" Then mystr = a.Offset(, 1).Text
第二個問題是
這個code主要是把part_id 可以跟 ope_no去做對應 ,如下表示
part_id                y                z
               ('356','456')       ('556')
如果我想改成
part_id                y                            z
               ('356','456','556')
應該是修改以下這一段code,試了一下午,可否再教我一下感激不盡
If d(mystr) = "" Then
   d(mystr) = "'" & Right(a.Offset(, 1), 3) & "'"
   Else
   d(mystr) = d(mystr) & ",'" & Right(a.Offset(, 1), 3) & "'"
   End If

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

6^#

發表於 2011-7-20 22:57 | 顯示全部帖子

謝謝版主你熱心的回覆真的很感謝

有問題想請教上面這各code的mystr 不用定義嘛?? 不用用到Dictionary了?這樣寫是定義mystr是矩陣的意思嘛?

我應該是不分part id 把ope_no寫進去儲存格裡沒錯
但是part_id 是要分儲存格的如下面 y z 這樣
part_id y z
('356','456','556')

我會好好努力的謝謝

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

7^#

發表於 2011-7-21 09:48 | 顯示全部帖子

to 超級版主下面的那個功能我寫出來了!! 感謝那個mystr不用定義那個問題在麻煩你教我一下謝謝

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

8^#

發表於 2011-7-21 12:33 | 顯示全部帖子

了解謝謝你目前已用這個架構去建立我想要的功能

另外跟你請問一個問題如果我想要把輸入改成可以選擇檔案

是不是用application.getopenfilename

試了一下在 With .Sheets("b") 會有問題

感激不盡

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

9^#

發表於 2011-7-21 12:35 | 顯示全部帖子

回復 13# ffntldj
抱歉沒說清楚應是以下這段改成選擇檔案
With Workbooks.Open '("D:\工程師送件範例.xls") '檔案路徑自行修改

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

10^#

發表於 2011-7-22 00:29 | 顯示全部帖子

本帖最後由 ffntldj 於 2011-7-22 23:18 編輯

回復 15# Hsieh

我寫出來了~~~ 謝謝程式碼稍後附上

如下

myfile = workbook.application.getopenfilename ("excel文件(*.xls),*.xls")
with workbooks.open(myfile)

就可以用滑鼠點檔案了

感謝版主~