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

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

論壇贊助勳章

15^#

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

論壇贊助勳章

14^#

發表於 2011-7-21 12:33 | 只看該作者

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

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

是不是用application.getopenfilename

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

感激不盡

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章

13^#

發表於 2011-7-21 12:22 | 只看該作者

回復 10# ffntldj

抱歉!這是我的習慣不好
mystr未宣告，你可自己加進去
把mystr為字串
未宣告的變數，EXCEL會認為是Variant
會自己判斷應該屬於哪一種變數存在
你可由程式碼逐行中看出mystr的變化
就知道他是甚麼型態的變數了

學海無涯_不恥下問

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

論壇贊助勳章

12^#

發表於 2011-7-21 09:48 | 只看該作者

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

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

論壇贊助勳章

11^#

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

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

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

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

我會好好努力的謝謝

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章

10^#

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

論壇贊助勳章

9^#

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

論壇贊助勳章

8^#

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章

7^#

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

複製代碼

學海無涯_不恥下問