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

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

論壇贊助勳章

2^#

發表於 2011-7-20 11:06 | 只看該作者

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

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-7-20 11:44 | 只看該作者

回復 2# ffntldj
特殊的需求要自訂函數你1 樓的需求說的不清楚 book2 b欄是遇到ope_no的下一列取3碼後的嗎?
a,d,e.f 如何來的
a 111
part_id 12345
ope_no ('333','444','555','777')
d 444
e 555
f 666
f 777

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

論壇贊助勳章

4^#

發表於 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旁邊那個儲存格)

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

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-7-20 14:20 | 只看該作者

回復 4# ffntldj
還是不清楚 ,範例請不要隨便列舉

Hsieh

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

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

6^#

發表於 2011-7-20 14:34 | 只看該作者

回復 4# ffntldj

就單純把book2的b工作表中part_id對應modify後3碼填入a工作表的第2、3列

Sub nn()
Set d = CreateObject("Scripting.Dictionary")
With Workbooks.Open("D:\book2.xls") '檔案路徑自行修改
With .Sheets("b")
For Each a In .Range(.[A1], .[A65536].End(xlUp))
If a = "part_id" Then mystr = a.Offset(, 1).Text
If a = "modify" Then
If d(mystr) = "" Then
d(mystr) = "'" & Right(a.Offset(, 1), 3) & "'"
Else
d(mystr) = d(mystr) & ",'" & Right(a.Offset(, 1), 3) & "'"
End If
End If
Next
End With
.Close
End With
With Sheets("a")
k = 2
For Each ky In d.keys
.Cells(2, k) = ky
.Cells(3, k) = "(" & d(ky) & ")"
k = k + 1
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

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

論壇贊助勳章

7^#

發表於 2011-7-20 15:21 | 只看該作者

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

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

論壇贊助勳章

8^#

發表於 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

Hsieh

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

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

9^#

發表於 2011-7-20 20:55 | 只看該作者

本帖最後由 Hsieh 於 2011-7-20 20:58 編輯

回復 8# ffntldj
問題1
IF陳述式的語法兩種
1.
If 判斷式 then 執行陳述式
2.
If 判斷式 then
      執行TRUE陳述式
   Else
      執行False陳述式
End If
問題2
這樣你就不分part_id
只是把所有modify的號碼全寫入同一個儲存格嗎?

Sub nn()
With Workbooks.Open("D:\book2.xls") '檔案路徑自行修改
With .Sheets("b")
For Each a In .Range(.[A1], .[A65536].End(xlUp))
If a = "modify" Then
If mystr = "" Then
mystr = "'" & Right(a.Offset(, 1), 3) & "'"
Else
mystr = mystr & ",'" & Right(a.Offset(, 1), 3) & "'"
End If
End If
Next
End With
.Close
End With
With Sheets("a")
.Cells(3, 2) = "(" & mystr & ")"
End With
End Sub

複製代碼

學海無涯_不恥下問

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

論壇贊助勳章

10^#

發表於 2011-7-20 22:57 | 只看該作者

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

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

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

我會好好努力的謝謝