Đưa con chỏ về vị trí tìm được (2 người xem)

[nokiano258vn]

Tại ô L1 tôi gõ số thứ tự của 1 tên bất kỳ trong danh sách, có cách nào để khi gõ số thứ tự và Enter thì con chỏ nhẩy về đúng tên mình cần tìm không?

 

[anhtuan1066]

Thì bạn dùng sự kiện Worksheet change với điều kiện thay đổi của L1... chẳng hạn là:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$1" Then
  For Each Clls In Range("A6:A500")
    If Clls.Value = Range("L1") Then Clls.Offset(, 2).Select: Exit For
  Next
End If
End Sub

Bạn chỉnh thêm 1 chút cho đạt yêu cầu nhé!
ANH TUẤN

 

[nokiano258vn]

Như vậy là chỉ dùng được ở Worksheet phải không bác, tôi thử gán vào Spin Button nhưng không được.

 

[anhtuan1066]

Như vậy là chỉ dùng được ở Worksheet phải không bác, tôi thử gán vào Spin Button nhưng không được.

Tại lúc nảy bạn nói bạn "gõ" vào L1 cơ mà... hi.. hi..
Nếu muốn gán code cho Spin Button thì càng dể:

Private Sub SpinButton1_Change()
  For Each Clls In Range("A6:A500")
    If Clls.Value = Range("L1") Then Clls.Offset(, 2).Select: Exit For
  Next
End Sub

Code này đúng là chỉ có tác dụng trên sheet, sang sheet khác có lẽ bạn phải làm 1 code tương tự nữa... Còn nếu muốn chỉ 1 code duy nhất dùng Spin Button lại có tác dụng trên toàn Workbook thì tôi thật sự ko biết
ANH TUẤN

 

[manhhung12]

Nhảy về cuối 1 sheet?

Chào Anh Tuấn
Tôi muốn hỏi thuộc tính "cll" là ccua VBA phải không.
Tôi muốn cho con trỏ nhảy về cuối 1 sheẻt (dòng cuối cùng của SHEET thì viết code như thế nào?
Tks

 

[tigertiger]

Chào Anh Tuấn
Tôi muốn hỏi thuộc tính "cll" là ccua VBA phải không.
Tôi muốn cho con trỏ nhảy về cuối 1 sheẻt (dòng cuối cùng của SHEET thì viết code như thế nào?
Tks

Không có thuộc tính "cll" bạn ơi anhtuan1066 dùng
For Each Clls In Range("A6:A500")
Clls là mỗi Cell trong vùng A6:A500 đó

Về cuối sheet đây bạn

'Find the very last used cell on a Worksheet: 
'Tìm ô cuối có giá trị của Sheet
 Sub Demo() 
   Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select 
End Sub

xem thêm bài này

 

[tigertiger]

Code này đúng là chỉ có tác dụng trên sheet, sang sheet khác có lẽ bạn phải làm 1 code tương tự nữa... Còn nếu muốn chỉ 1 code duy nhất dùng Spin Button lại có tác dụng trên toàn Workbook thì tôi thật sự ko biết
ANH TUẤN

Thì phải thêm thông tin là chọn cho sheet nào nữa atuan ah

sau đó xử lý sự kiện Workbook_SheetChange

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
          '......... CODE đặt ở đây ...............
          '...............................................
End Sub

a thử xem

 

[manhhung12]

Tôi muốn thế này bạn chỉ giúp tôi nhé:
Ví dụ
Tôi có sheet dữ kiệu.
Tôi muốn xác đinh dòng cuối cùng của sheet đó là bao nhiêu(=dcuoi).
rồi sau đó tôi gán giá trị cho dòng kế dòng cuối: Range("A"&dcuoi+1).value="Tổng cộng: ").
Tks

 

[anhtuan1066]

Bạn muốn dùng công thức hay VBA:
1> Nếu là công thức thì đặt name:

Er = Match(Rept("Z",255),$A:$A)

Cuối cùng gán Cells(1,Er+1).Value = "Tong cong"
2> Nếu dùng VBA thì:

............................
Er = Range("A65536").End(xlUp).Row
Cells(1,Er+1).Value = "Tong cong"
........................