關於VBA

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-24 08:54 | 只看該作者

關於VBA

說明於夾帶擋內

提問.rar (70.75 KB)

樓主熱帖

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-12-24 10:47 | 只看該作者

回復 1# sheau-lan

在SHEET1貼上試試

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 99
Dim TG As Range
With Target
If .Row >= 3 And .Column = 1 Then
If .Value = "" Then
.Offset(0, 2) = ""
.Offset(0, 3) = ""
.Offset(0, 5) = ""
.Offset(0, 6) = ""
Else: Set TG = Sheet3.[H3:H9999].Find("*" & .Value & "*", , , xlWhole)
.Offset(0, 2) = TG.Offset(0, -6).Value
TG2 = .Offset(0, 2).Value
.Offset(0, 3) = TG.Offset(0, -3).Value
.Offset(0, 5) = Application.VLookup(TG2, Sheet2.[A4:E9999], 5, False)
.Offset(0, 6) = TG.Offset(0, 1).Value
End If
End If
End With
99
End Sub

複製代碼

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

3^#

發表於 2014-12-24 11:05 | 只看該作者

回復 1# sheau-lan

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

4^#

發表於 2014-12-24 11:14 | 只看該作者

可以用..真是太感激了
可是客戶樣品區如果沒有東西會跑出#N/A
可已讓他空白嗎?

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2014-12-24 11:26 | 只看該作者

回復 4# sheau-lan

這樣呢？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 99
Dim TG As Range
With Target
If .Row >= 3 And .Column = 1 Then
If .Value = "" Then
98: .Offset(0, 2) = ""
.Offset(0, 3) = ""
.Offset(0, 5) = ""
.Offset(0, 6) = ""
Else: Set TG = Sheet3.[H3:H9999].Find("*" & .Value & "*", , , xlWhole)
If TG Is Nothing Then GoTo 98
.Offset(0, 2) = TG.Offset(0, -6).Value
TG2 = .Offset(0, 2).Value
.Offset(0, 3) = TG.Offset(0, -3).Value
.Offset(0, 5) = Application.VLookup(TG2, Sheet2.[A4:E9999], 5, False)
If IsError(.Offset(0, 5).Value) Then .Offset(0, 5) = ""
.Offset(0, 6) = TG.Offset(0, 1).Value
End If
End If
End With
99
End Sub

複製代碼

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

6^#

發表於 2014-12-24 11:29 | 只看該作者

GBKEE大品號在圖面明細裡喔
owen06 大已經有幫我解決囉!!
謝謝你喔!!

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

7^#

發表於 2014-12-24 11:32 | 只看該作者

owen06大
可以用囉!!
而且快多了..不會一直重算儲存格