[發問] VBA lookup data and check book problems

john2006168

John test VBA 01 (2).zip (38.94 KB)

下載次數: 14

2013-7-25 18:40

小弟有些vba 程式問題,想請教各位老師幫忙.

如附件:

1.我想輸入了vendor Name 可以自動lookup從SHEETS""DTTA"  的address and Tel no.另外如果相同的公司,但是不同地地址,.顯示順序的第1個,但是要有信息提示"請小心公司名"
2.2.如果我在"輸入資料"內click "check  book B1",
資料會顯示"SHEETS"DATA".B2.VALUE  ;如沒click,就不顯示

luhpro

小弟有些vba 程式問題,想請教各位老師幫忙.
1.我想輸入了vendor Name 可以自動lookup從SHEETS""DTTA"  的address and Tel no...
john2006168 發表於 2013-7-25 18:44

1. 從附檔中找不到 vendor Name, 也沒有  SHEETS""DTTA"  或是 address 與 Tel no...
2. 找不到 "輸入資料" 也沒有 "check  book B1" 按紐
是不是傳錯檔案了呢?

下載 (142.92 KB)

2013-7-25 23:11

下載 (78.55 KB)

2013-7-25 23:11

下載 (90.04 KB)

2013-7-25 23:11

john2006168

回復 2# luhpro

1. 從附檔中找不到 vendor Name, 也沒有  SHEETS""DTTA"  或是 address 與 Tel no...
2. 找不到 "輸入資料" 也沒有 "check  book B1" 按紐
是不是傳錯檔案了呢?

  1.sorry,打錯,是SHEETS""Data"  ,在那頁內,
2.你可能還沒有enable marco

john2006168

希望有老師可幫忙...

GBKEE

回復 4# john2006168

   

下載 (14.48 KB)

2013-7-26 15:02

這些名稱的範圍請整理好

john2006168

回復 5# GBKEE


    John test VBA 02.zip (31.98 KB)

下載次數: 5

2013-7-26 19:04

請看附件

GBKEE

回復 6# john2006168
2.如果我在"輸入資料"內click "check  book B1",資料會顯示"SHEETS"DATA".B2.VALUE  ;如沒click,就不顯示
check  book B1 在那裡??

1. '這是DataBasa工作表模組的程式碼
   
2. 'D9 的驗證範圍要指向 vendor Name工作表的 A3:A7
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     Dim I As Integer
   
5.     On Error Resume Next
   
6.     Application.EnableEvents = False
   
7.     If Not Intersect(Target, Range("D9:F9")) Is Nothing Then '改變的儲存格 在 D9:F9內
   
8.           If Target(1).Value <> "" Then
   
9.             I = Application.Match(Target, [Vendor_name], 0)  '尋找 vendor Name的位置
   
10.             [D23] = [Vendor_name].Cells(I, 1)
    
11.             [D24] = [Vendor_name].Cells(I, 2)
    
12.             [D25] = [Vendor_name].Cells(I, 3)
    
13.             I = Application.CountIf([Vendor_name], Target)   '計算 vendor Name 的個數
    
14.             If I > 1 Then MsgBox "請小心公司名"
    
15.         Else
    
16.            [D23:D25] = ""
    
17.         End If
    
18.     End If
    
19.     Application.EnableEvents = True
    
20. End Sub

複製代碼

john2006168

回復 7# GBKEE

下載 (94.8 KB)

2013-7-27 17:29

John test VBA 02--rev.zip (29.18 KB)

下載次數: 6

2013-7-27 17:24

    不好意思  ...resend the files to you.Thanks for your  great help.

GBKEE

回復 8# john2006168
這是2003版


Tset.rar (39.61 KB)

下載次數: 30

2013-7-27 20:05

john2006168

[attach]15618[/attach]回復 9# GBKEE