amu1129

帖子: 27
主題: 12
精華: 0
積分: 318
點名: 289
作業系統: Windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2010-7-20
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-10-4 21:06 | 只看該作者

請問連結另一個檔案不要打開

小弟有A檔案想直接讀取B檔案如圖

原本在2007可以執行
在2003便會有問題了
而且RUN的時候B檔案會打開
可以不要讓它打開
改用按鈕按了才執行嗎
另外我想相同的產品數量加總顯示一次就好如圖

請指點一下，謝謝

Test.rar (57.91 KB)
Private Sub Workbook_Open()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\Documents and Settings\123\桌面\Test\B.xls")
For i = 1 To 30
ThisWorkbook.Worksheets("Sheet1").Cells(2, 4 * i - 2) = Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value
If (Wb.Worksheets("Sheet1").Cells(i, 2).Value) Mod 100 = 0 Then
ThisWorkbook.Worksheets("Sheet1").Cells(3, 4 * i - 2) = "(目標 " & (Wb.Worksheets("Sheet1").Cells(i + 3, 2).Value) / 1000 & "k)"
Else
ThisWorkbook.Worksheets("Sheet1").Cells(3, 4 * i - 2) = "(目標 " & (Wb.Worksheets("Sheet1").Cells(i + 3, 2).Value) & "units)"
End If
Next
End Sub

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2010-10-8 07:55 | 只看該作者

回復 3# amu1129
If d.exists(Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value) = False And Wb.Worksheets("Sheet1").Cells(i + 3, 1) <> "" Then
當上面的程式碼為在判斷產品未出現時的條件成立時  執行下面程式碼
d(Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value) = ""
ii = ii + 1
當第一次執行ii = ii + 1 時由於程式未於開始時指定值給變數 i, 此時ii為空白的(EMPTY)  所以 ii = 空白 + 1=>1
下一次判斷產品未出現時的條件成立時  ii = ii (1) + 1 =>2
ThisWorkbook.Worksheets("Sheet1").Cells(2, 4 * ii - 2) = Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value
如此 4 * ii - 2 計算的值才會正確

TOP

amu1129

中學生 Rank: 2

帖子: 27
主題: 12
精華: 0
積分: 318
點名: 289
作業系統: Windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2010-7-20
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

3^#

發表於 2010-10-7 21:24 | 只看該作者

版主~不好意思
我不太懂ii = ii + 1這段的用法耶
我逐段執行大致知道是將重複的產品合一
但是想更清楚為何這樣可以合併
煩請版主幫我指點，謝謝

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2010-10-5 09:03 | 只看該作者

本帖最後由 GBKEE 於 2010-10-5 09:17 編輯

回復 1# amu1129
你的錯誤是 If (Wb.Worksheets("Sheet1").Cells(i+3, 2).Value) Mod 100 = 0 Then 沒有加3 其他都有加3
檔案必須是開啟的才可以執行. 於程式最後關閉掉就可以
如要用按鈕執行請刪掉Sub Workbook_Open 的程式將程式碼複製到按鈕的程式裡
另外我想相同的產品數量加總顯示一次就好程式碼如下:

Private Sub Workbook_Open()
Dim Wb As Workbook, d As Object, i%, ii%
Set Wb = Workbooks.Open("C:\Documents and Settings\123\桌面\Test\B.xls")
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To 30
If d.exists(Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value) = False And Wb.Worksheets("Sheet1").Cells(i + 3, 1) <> "" Then
d(Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value) = ""
ii = ii + 1
ThisWorkbook.Worksheets("Sheet1").Cells(2, 4 * ii - 2) = Wb.Worksheets("Sheet1").Cells(i + 3, 1).Value
If (Wb.Worksheets("Sheet1").Cells(i + 3, 2).Value) Mod 100 = 0 Then
ThisWorkbook.Worksheets("Sheet1").Cells(3, 4 * ii - 2) = "(目標 " & (Wb.Worksheets("Sheet1").Cells(i + 3, 2).Value) / 1000 & "k)"
Else
ThisWorkbook.Worksheets("Sheet1").Cells(3, 4 * ii - 2) = "(目標 " & (Wb.Worksheets("Sheet1").Cells(i + 3, 2).Value) & "units)"
End If
End If
Next
Wb.Close '關閉檔案
End Sub

複製代碼

TOP