標題: [發問] 游標能自動只指定位置 [打印本頁]

---

作者: rouber590324    時間: 2017-12-27 10:26     標題: 游標能自動只指定位置

DEAR ALL大大
1. 於SHEET1 需求
A1 AND B1有內容 游標能自動跳至A2欄位,
A2 AND B2有內容 游標能自動跳至A3欄位
A3 AND B3有內容 游標能自動跳至A4欄位
2.VBA 如何寫 煩不吝賜教  THANKS*10000

---

作者: GBKEE    時間: 2018-1-2 08:14

本帖最後由 GBKEE 於 2018-1-2 08:19 編輯

回復 1# rouber590324
試試看

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim A As Range, B As Range
   
4.     If  Not Application.Intersect(Target, Range("a:b")) Is Nothing Then
   
5.         Set A = Range("A" & Rows.Count).End(xlUp)
   
6.         Set B = Range("B" & Rows.Count).End(xlUp)
   
7.         If A.Row = Range("A1").End(xlDown).Row And B.Row = Range("B1").End(xlDown).Row And A.Row = B.Row Then A.Offset(1).Select
   
8.     End If
   
9. End Sub

複製代碼

---

作者: rouber590324    時間: 2018-1-2 11:30

dear GBKEE 大大
  100%符合需求 thanks*10000

---

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