Xin giúp viết VBA thay thế phím Alt + mũi tên xuống (1 người xem)

[trananhtommy]

Chào các Bác, chả là E có tạo 1 ô có Validation thả xuống để người nhập liệu tìm chọn dữ liệu cho sẵn... để cho nhanh E hướng dẫn mọi người sử dụng tổ hợp phím Alt+mũi tên xuống để ô chứa Validation sổ xuống rồi chọn, không cần dùng đến chuột.

Hôm rồi Ông bạn sắm cái máy tính bảng chạy WIN8, vì là máy tính bảng màn hình cảm ứng nên không dùng chuột và bàn phím cứng, mà dùng phím ảo của win8 để nhập liệu. Khổ nỗi bàn phím ảo này nó lại không có phím Alt mà nút chọn ở ô Validation lại bé quá dẫn đến rất khó khăn khi nhập dữ liệu ở ô này.

VÌ vậy xin được nhờ các Bác giúp đỡ 1 đoạn code để có thể sử dụng tổ hợp phím khác, ví dụ Ctrl+E chẳng hạn để thay thế tổ hợp phím Alt+mũi tên xuống trong ô Validation. Hoặc làm cách nào để chỉnh cho nút chọn xổ xuống to ra 1 chút cũng được.

Rất mong các Bác trợ giúp, xin cảm ơn rất nhiều.

 

[Quang_Hải]

Chào các Bác, chả là E có tạo 1 ô có Validation thả xuống để người nhập liệu tìm chọn dữ liệu cho sẵn... để cho nhanh E hướng dẫn mọi người sử dụng tổ hợp phím Alt+mũi tên xuống để ô chứa Validation sổ xuống rồi chọn, không cần dùng đến chuột.

Hôm rồi Ông bạn sắm cái máy tính bảng chạy WIN8, vì là máy tính bảng màn hình cảm ứng nên không dùng chuột và bàn phím cứng, mà dùng phím ảo của win8 để nhập liệu. Khổ nỗi bàn phím ảo này nó lại không có phím Alt mà nút chọn ở ô Validation lại bé quá dẫn đến rất khó khăn khi nhập dữ liệu ở ô này.

VÌ vậy xin được nhờ các Bác giúp đỡ 1 đoạn code để có thể sử dụng tổ hợp phím khác, ví dụ Ctrl+E chẳng hạn để thay thế tổ hợp phím Alt+mũi tên xuống trong ô Validation. Hoặc làm cách nào để chỉnh cho nút chọn xổ xuống to ra 1 chút cũng được.

Rất mong các Bác trợ giúp, xin cảm ơn rất nhiều.

Thử cái này xem. Giả sử tại D3 có validation. Bạn thay lại chỗ này nhá. Khi di chuyển đến ô này thì cái validation tự xổ xuống.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" Then
   Application.SendKeys ("%{Down}")
End If
End Sub

 

[TrungChinhs]

Bạn thử code này và sửa lại địa chỉ của ô chứa Validation thay cho địa chỉ giả định (màu đỏ).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [COLOR=#ff0000][B]"$F$2"[/B][/COLOR] Then SendKeys "%{Down}"
End Sub

 

[trananhtommy]

Bạn thử code này và sửa lại địa chỉ của ô chứa Validation thay cho địa chỉ giả định (màu đỏ).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [COLOR=#ff0000][B]"$F$2"[/B][/COLOR] Then SendKeys "%{Down}"
End Sub

Vâng, tuyệt vời Bác ạ. Xin hỏi thêm nếu ở sheet 1 có 2 ô F2 và F3, đồng thời ở sheet 2 cũng có 2 ô D2 và D3. Vậy muốn khi chỉ vào ô đó nó tự xổ xuống hết thì sửa công thức trên lại ntn hả Bác?

 

[TrungChinhs]

Vâng, tuyệt vời Bác ạ. Xin hỏi thêm nếu ở sheet 1 có 2 ô F2 và F3, đồng thời ở sheet 2 cũng có 2 ô D2 và D3. Vậy muốn khi chỉ vào ô đó nó tự xổ xuống hết thì sửa công thức trên lại ntn hả Bác?

Code Sheet1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address =[B][COLOR=#ff0000] "$F$2"[/COLOR][/B] Or Target.Address = [B][COLOR=#ff0000]"$F$3"[/COLOR][/B] Then SendKeys "%{Down}"
End Sub

Code Sheet2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [B][COLOR=#ff0000]"$D$2"[/COLOR][/B] Or Target.Address = [B][COLOR=#ff0000]"$D$3"[/COLOR][/B] Then SendKeys "%{Down}"
End Sub