khi bấm enter, con trỏ tự động chuyển đến cột đầu tiên hoặc đến ô mặc định

Liên hệ QC
K

khanhnth02

Thành viên thường trực
Tham gia
5/8/07
Bài viết
324
Được thích
35
làm thế nào để khi bấm enter, con trỏ tự động chuyển đến cột đầu tiên hoặc đến ô mặc định, sẽ dùng hàm macro như thế nào vậy các anh chị. xin chân thành cảm ơn
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
toanxn đã viết:
Dear Bác!
Cảm ơn Bác đã giúp đỡ. Từ "Khay 1" Chuyển xuống "Khay 2" từ K13 đến vị trí B17 có làm được không ạ? Và nếu áp dụng cho Bảng B cùng với bảng A được không Ạ?
Trân trọng cảm ơn!
Nhấp chuột vào đây để mở rộng...
Bạn muốn nhập dữ liệu vào KHAY 2, thì bạn đặt con trỏ chuột vào B17, sau đó nhập dữ liệu vào bình thường.
Tương tự cho KHAY nào đó bạn đặt con trỏ chuột vào Cell đầu tiên của KHAY đó ......
 
Upvote 0
phulien1902 đã viết:
Bạn muốn nhập dữ liệu vào KHAY 2, thì bạn đặt con trỏ chuột vào B17, sau đó nhập dữ liệu vào bình thường.
Tương tự cho KHAY nào đó bạn đặt con trỏ chuột vào Cell đầu tiên của KHAY đó ......
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác nhiều. Vậy nếu áp dụng cho Bảng B thì mình lồng ghép hàm VBA như thế nào ạ?
Thanks!
 
Upvote 0
toanxn đã viết:
Cảm ơn bác nhiều. Vậy nếu áp dụng cho Bảng B thì mình lồng ghép hàm VBA như thế nào ạ?
Cảm ơn!
Nhấp chuột vào đây để mở rộng...
Bạn thử:
PHP: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    'BANG A
    If Target.Count = 1 Then
        If Target.Column = 2 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 3 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 4 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 5 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 6 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 7 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 8 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 9 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 10 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 11 Then
            Target.Offset(1, -9).Select
        End If
        ' BANG B
          If Target.Column = 14 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 15 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 16 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 17 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 18 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 19 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 20 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 21 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 22 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 23 Then
            Target.Offset(1, -9).Select
        End If
    End If
End Sub
 
Upvote 0
phulien1902 đã viết:
Bạn thử:
PHP: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    'BANG A
    If Target.Count = 1 Then
        If Target.Column = 2 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 3 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 4 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 5 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 6 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 7 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 8 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 9 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 10 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 11 Then
            Target.Offset(1, -9).Select
        End If
        ' BANG B
          If Target.Column = 14 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 15 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 16 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 17 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 18 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 19 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 20 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 21 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 22 Then
            Target.Offset(0, 1).Select
        ElseIf Target.Column = 23 Then
            Target.Offset(1, -9).Select
        End If
    End If
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác nhiều ạ!
 
Upvote 0
toanxn đã viết:
Cảm ơn bác nhiều ạ!
Nhấp chuột vào đây để mở rộng...
Bạn không muốn code nó mộc mạc hơn sao
----------------------------
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Count = 1 Then
    Dim I%
    For I = 2 To 11
      Select Case Target.Column
        Case I, I + 12: Target(1, IIf(I = 11, -8, 2).Select: Exit For
      End Select
    Next
  End If
  Application.EnableEvents = True
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
HeSanbi đã viết:
Bạn không muốn code nó mộc mạc hơn sao
----------------------------
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Count = 1 Then
    Dim I%
    For I = 2 To 11
      Select Case Target.Column
        Case I, I + 12: Target.Offset(0, IIf(I = 11, -9, 1)).Select: Exit For
      End Select
    Next
  End If
  Application.EnableEvents = True
End Sub
Nhấp chuột vào đây để mở rộng...
Chắc bạn chưa Test thử trước khi gửi bài, vì nó chưa đúng ý chủ Topic.
 
Upvote 0
phulien1902 đã viết:
Chắc bạn chưa Test thử trước khi gửi bài, vì nó chưa đúng ý chủ Topic.
Nhấp chuột vào đây để mở rộng...
Vì nhìn thấy code cần rút gọn , chớ chưa đọc qua bài của bạn ấy

Bác phulien1902 có thể tóm tắc 1 tí không?

-------------------------------------------
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Count = 1 Then
      Select Case Target.Column
        Case 2 to 10, 14 to 22:Target(1,  2).Select
        Case 11, 23:Target(1, -8).Select    
      End Select
  End If
  Application.EnableEvents = True
End Sub
 
Upvote 0
HeSanbi đã viết:
Vì nhìn thấy code cần rút gọn , chớ chưa đọc qua bài của bạn ấy

Bác phulien1902 có thể tóm tắc 1 tí không?

-------------------------------------------
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Count = 1 Then
      Select Case Target.Column
        Case 2 to 10, 14 to 22:Target(1,  2).Select
        Case 11, 23:Target(1, -8).Select   
      End Select
  End If
  Application.EnableEvents = True
End Sub
Nhấp chuột vào đây để mở rộng...
Vẫn chưa được.
 
Upvote 0
phulien1902 đã viết:
Vẫn chưa được.
Nhấp chuột vào đây để mở rộng...
Chắc sẽ được. toanxn

Không có giới hạn Khay, mà thực hiện cho đến giới hạn của Excel, Đặt LimitTable để giới hạn

PHP: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Count = 1 Then Call MoveZigZag(10, 10, Target, [B4], 4)
  Application.EnableEvents = True
End Sub
Sub MoveZigZag(Row%, Col%, LRNG As Range, Rng As Range,Optional LimitTable&)
  Dim X&, Y&, LRow&, LCol&, tX&, tY&
  Dim dX&, WF As WorksheetFunction
  Set WF = Application.WorksheetFunction
  X = Rng.Row - 1:   Y = Rng.Column - 1
  LRow = LRNG.Row:   LCol = LRNG.Column
  If LRow = Rows.Count Then Exit Sub
  dX = WF.RoundDown(LRow / (Row + X), 0)
  tX = dX * Row + dX * X + X
  tY = IIf(LCol - Y < Col + Y + 2, 0, Col + 2) + Y
  Select Case LCol
    Case 1 + tY To Col + tY - 1: Rng(LRow - X, LCol).Select
    Case Col + tY:
      If tX = LRow + X Then
        If LCol = Col + Y Then
          Rng(tX - Row - X - 2, LCol + tY + 1).Select
        Else
          If dX = LimitTable And LimitTable > 0 Then _
            LRNG.Select: MsgBox "Ða là ô cuoi' cung`!": Exit Sub
          tY = Y: Rng(tX - X + 1, tY).Select
        End If
      Else
        Rng(LRow - X + 1, tY).Select
      End If
  End Select
End Sub
Copy vào module để kiểm tra
PHP: 
Sub test()
  Dim I
  [B4].Select
  For I = 1 To 1000
    Selection(1, 1).Value = I
    DoEvents
  Next
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Xin các cao thủ giải giúp bài này.
Đã nghiên cứu mãi 1 đêm mà ko ra cách giải..... Vô cùng biết ơn. Trân trọng
Bài đã được tự động gộp:

Như bài trên, nhưng mở rộng ra nhiều Khay, mỗi Khay 96 vị trí như vậy, và cho chạy lần lượt từng khay , với số Khay được sinh ra tự động, mỗi khay cách nhau 2 dòng.... Trân trọng
 

File đính kèm

  • 2021-03-05_215219.jpg
    2021-03-05_215219.jpg
    48.8 KB · Đọc: 9
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
246
Đọc
13K
trannguyen197
T
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
28
Đọc
572
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
9
Đọc
226
ptm0412
ptm0412
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
14
Đọc
258
ptm0412
ptm0412
B
Định dạng condition formatting, đếm hỗn hợp dữ liệu merge và không merge
Trả lời
7
Đọc
107
Hoàng Tuấn 868
H
T
Tối ưu hóa hàm lấy dữ liệu từ bảng Tổng sang bảng chi tiết
Trả lời
7
Đọc
206
Hoàng Tuấn 868
H
nguyenphuochien166
Cách Vlookup hoặc cách lấy thông tin dữ liệu có dấu mũ lũy thừa?
    • Cười
Trả lời
6
Đọc
104
tigertiger
tigertiger
T
Không đếm dữ liệu rỗng trong PivotTable
Trả lời
8
Đọc
1K
hoangtuaotrang_hp_vn
H
B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
3
Đọc
111
batista911
B
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
1
Đọc
89
hoangtuaotrang_hp_vn
H
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
5
Đọc
155
kimtanmap
kimtanmap
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
1
Đọc
75
hoangtuaotrang_hp_vn
H
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
0
Đọc
46
huynhnhu1234
huynhnhu1234
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
7
Đọc
127
tranvansau278
T
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
116
Nguyễn Linh hn94
N
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
161
zarra
zarra
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Cảm ơn
    • Thích
Trả lời
5
Đọc
293
anhdepjai
A
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
17
Đọc
20K
DeTong
D
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
304
cantl
C
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom