返回列表 上一主題 發帖

[發問] VBA 表格內某格數值等於其他EXCEL檔

toxin

帖子
53 
主題
11 
精華
0 
積分
75 
點名
0  
作業系統
WIN XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2012-3-20 
最後登錄
2025-3-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-3 16:00 | 顯示全部帖子

[發問] VBA 表格內某格數值等於其他EXCEL檔

VBA, 其他檔案
  1. Private Sub CommandButton1_Click()
  2.     Dim a As Integer, i As Integer
  3.     Dim b As Integer
  4.     Dim c As Variant
  5.     Dim d As Variant
  6.     Dim E As Variant
  7.     IA = 7000
  8.     IB = 3
  9.     IC = 10
  10.    

  12.    
  13.    Do
  14.       If Sheets("製造單").Range("E" & IB) <> "" Then
  15.       IB = IB + 1
  16.       End If
  17.       Loop While Sheets("製造單").Range("E" & IB) <> ""

  19.       
  20.    
  21. AGO:


  24. IC = IC + 1
  25. Do

  27.    
  28.     d = Sheets("製造單").Range("D" & IB)
  29.     Set c = Sheets("客戶").Range("B11:B" & IC).Find(What:=d, LookIn:=xlFormulas, _
  30.          LookAt:=1, SearchOrder:=2, SearchDirection:=xlNext, _
  31.          MatchCase:=False, MatchByte:=False, SearchFormat:=True)
  32.     If IC = IA Then
  33.     Sheets("製造單").Range("E" & IB) = "未命名"
  34.     GoTo STAR
  35.     End If
  36.          
  37.     If c Is Nothing Then
  38.    
  39.     GoTo AGO
  40.     Else
  41.    
  42. '    IA = IC - 1
  43. Sheets("製造單").Range("E" & IB) = Sheets("客戶").Range("H" & IC)
  44.     End If
  45. STAR:
  46.     IB = IB + 1
  47.     IC = 11
  48.    
  49.     Loop While Sheets("製造單").Range("D" & IB) <> ""
  50.     End Sub
複製代碼
請問依下如果我的客戶工作表在其他EXCEL檔裡
要如何叫阿??
收藏 分享

toxin

帖子
53 
主題
11 
精華
0 
積分
75 
點名
0  
作業系統
WIN XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2012-3-20 
最後登錄
2025-3-12 
2#
發表於 2012-5-4 08:11 | 顯示全部帖子
回復 2# GBKEE
不好意思
可能我表達不是很好
製造單跟客戶所在的檔案是不一樣的
如果單獨用開啟的方式開啟客戶所在的檔案
程式會沒辦法跑下去
不曉得有沒有不用開啟檔案的方式直接調用"客戶"工作表

TOP

toxin

帖子
53 
主題
11 
精華
0 
積分
75 
點名
0  
作業系統
WIN XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2012-3-20 
最後登錄
2025-3-12 
3#
發表於 2012-5-7 08:15 | 顯示全部帖子
回復 4# Hsieh
感謝大大回覆
程式所在工作表的是製造單工作表
但是能夠不開啟客戶工作表而直接使用嗎?
因為會有下列問題
11列中開啟了客戶工作表的檔案
13製造單工作表應該不需要加(WB.)
但是11開啟客戶表後
到13列所在的工作表不同所以會出現"陣列索引超出範圍"

TOP

toxin

帖子
53 
主題
11 
精華
0 
積分
75 
點名
0  
作業系統
WIN XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2012-3-20 
最後登錄
2025-3-12 
4#
發表於 2012-5-8 08:17 | 顯示全部帖子
回復 6# Hsieh

麻煩大大了
檔案如附件

0508.rar (71.58 KB)

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題