麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] VBA lookup data and check book problems [打印本頁]

作者: john2006168 時間: 2013-7-25 18:44 標題: VBA lookup data and check book problems

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

如附件:

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

作者: luhpro 時間: 2013-7-25 23:11

小弟有些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" 按紐
是不是傳錯檔案了呢?
[attach]15573[/attach][attach]15574[/attach][attach]15575[/attach]

作者: john2006168 時間: 2013-7-25 23:22

回復 2# luhpro

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

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

作者: john2006168 時間: 2013-7-25 23:24

希望有老師可幫忙...

作者: GBKEE 時間: 2013-7-26 15:03

回復 4# john2006168

[attach]15586[/attach]

這些名稱的範圍請整理好

作者: john2006168 時間: 2013-7-26 19:05

回復 5# GBKEE

[attach]15590[/attach]

請看附件

作者: GBKEE 時間: 2013-7-27 10:15

本帖最後由 GBKEE 於 2013-7-27 10:17 編輯

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

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

複製代碼

作者: john2006168 時間: 2013-7-27 17:29

本帖最後由 GBKEE 於 2013-7-27 17:55 編輯

回復 7# GBKEE

[attach]15598[/attach]

[attach]15597[/attach]

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

作者: GBKEE 時間: 2013-7-27 20:05

回復 8# john2006168
這是2003版

[attach]15601[/attach]

作者: john2006168 時間: 2013-7-28 22:30

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

作者: john2006168 時間: 2013-7-28 22:49

回復 GBKEE
john2006168 發表於 2013-7-28 22:30

在form .uF1,請老師幫忙

作者: john2006168 時間: 2013-7-29 13:43

回復 10# john2006168

作者: john2006168 時間: 2013-7-29 13:45

回復 10# john2006168

[attach]15622[/attach]

作者: cmydavid 時間: 2013-8-8 07:50

有設權限
好想下載附件
嗚..........

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)