Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [G1:G30]) Is Nothing Then _
Target = Columns("B").Find(Target).Offset(, -1)
End Subsao tớ mở file đính kèm không có chạy ta ?
Giá trị thay đổi nằm tại cell G2 đấy đồng chí ơi ---> Và làm như Nguyễn Duy Tuân thì mới đúng yêu cầu, tức: Chọn Tên nhưng giá trị trả về là Mã nằm đúng ngay vị trí cell vừa chọn
Tôi có một bảng với 2 cột là Code và Value như trong hình vẽ. Tại cell D2 tôi tạo một validation list lấy source là cột value (B2-B5). Xin hỏi có cách nào để sau khi chọn giá trị từ list thì tại cell D2 thay vì hiển thị giá trị tôi vừa chọn (ví dụ Hà Nội) thì nó sẽ hiển thị code tương ứng của Hà Nội (là 1) ?
Hình vẽ:
Option Explicit
'==============
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
An
End Sub
'================
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
An
ElseIf KeyCode = 27 Then
Range(ComboBox1.LinkedCell) = ""
An
End If
End Sub
'============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Hien Target
Else
An
End If
End Sub
'====================
Sub Hien(Rg As Range)
With Me.ComboBox1
.Visible = True
.Top = Rg.Top
.Left = Rg.Left
.LinkedCell = Rg.Address
.Activate
End With
End Sub
'=============
Sub An()
Me.ComboBox1.Visible = False
ActiveSheet.Range(ComboBox1.LinkedCell).Offset(1).Select
End Sub
