標題: [發問] 請問大大们我用條碼掃瞄到B5的欄位可以讓它自己跳回B2的欄位嗎 [打印本頁]

---

作者: hu0318s    時間: 2014-4-12 15:57     標題: 請問大大们我用條碼掃瞄到B5的欄位可以讓它自己跳回B2的欄位嗎

本帖最後由 hu0318s 於 2014-4-12 15:59 編輯

因為公司的專案要寫條碼判定,我用條碼掃瞄到B5的儲存格,一直無法自己跳回B2的儲存格,請問大大们我要如何修改VBA才可以跳回B2儲存格

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. 
   
4. If Target.Address = "$b$5" Then
   
5. MsgBox "跳回B2儲存格" & Range("B2").Value
   
6. End If
   
7. 
   
8. End Sub

複製代碼

---

作者: GBKEE    時間: 2014-4-12 19:38

回復 1# hu0318s
字母要大寫

1. If Target.Address = "$B$5" Then

複製代碼

---

作者: hu0318s    時間: 2014-4-12 23:04

本帖最後由 hu0318s 於 2014-4-12 23:10 編輯

回復 2# GBKEE
報歉大大我是希望我資料到b4的儲存格後, 在執行一次條碼就前就跳到b2的儲存格,不知到vba要如何寫
[attach]17999[/attach]
[attach]18000[/attach]
剛剛修改的vba

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. 
   
4. If Target.Address = "$B$5" Then
   
5.     Range("B2").Select
   
6.    
   
7. End If
   
8. 
   
9. End Sub

複製代碼

---

作者: GBKEE    時間: 2014-4-13 08:02

回復 3# hu0318s

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     '變數Target 傳回有修改的儲存格的範圍,Target.Cells(1) 此範圍的第一個Cells
   
4.     If Not Application.Intersect([B2:B4], Target.Cells(1)) Is Nothing Then 'Target變數的位置在[B2:B4]中
   
5.         'Intersect ，此物件代表兩個或多個範圍重疊的矩形範圍。
   
6.         If Application.CountA([B2:B4]) = 0 Or Target.Cells(1).Address(0, 0) = "B4" Then 'Address(0, 0) 傳回相對參照位置
   
7.             [B2].Select
   
8.         End If
   
9.     End If
   
10. End Sub

複製代碼

---

作者: hu0318s    時間: 2014-4-14 22:01

回復 4# GBKEE [/b
謝謝大大的教導,我會再努力學習的 謝謝大大的幫忙

---

作者: howie    時間: 2014-4-18 14:05

真的受用無窮的一篇文

---

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