Dùng sự kiện click phải chuột để chèn thông tin

[iVBA]

AC thiết kế dùm em sự kiện BeforeRightClick để chèn dữ liệu vào ô trong Excel.

 

[ndu96081631]

AC thiết kế dùm em sự kiện BeforeRightClick để chèn dữ liệu vào ô trong Excel.

1> Code trong Sheet1

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  FORM.Show: Cancel = True
End Sub

2> Code trong Form

Private Sub ListBox1_Click()
  With ListBox1
    ActiveCell = .List(.ListIndex)
  End With
  Unload Me
End Sub

 

[iVBA]

1> Code trong Sheet1

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
FORM.Show: Cancel = True
End Sub

2> Code trong Form

Private Sub ListBox1_Click()
With ListBox1
ActiveCell = .List(.ListIndex)
End With
Unload Me
End Sub

Nếu em chỉ muốn khống chế click chuột vào cột D thui có được không ah?

 

[PhanTuHuong]

Nếu lấy ở cột D thì xác định sự giao nhau của biến Target và Cột D, khi đó chức năng này chỉ có tác dụng ở cột D thôi.

 

[ndu96081631]

Nếu em chỉ muốn khống chế click chuột vào cột D thui có được không ah?

Thì thêm điều kiện vào, chẳng hạn

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("D3:D100"), Target) Is Nothing Then
    FORM.Show: Cancel = True
  End If
End Sub

Hoặc

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Row > 2 And Target.Column = 4 Then
    FORM.Show: Cancel = True
  End If
End Sub

Vân vân...

 

[NH_DK]

Thì thêm điều kiện vào, chẳng hạn

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D3:D100"), Target) Is Nothing Then
FORM.Show: Cancel = True
End If
End Sub

Hoặc

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 2 And Target.Column = 4 Then
FORM.Show: Cancel = True
End If
End Sub

Vân vân...

Thầy ndu ơi, cho em hỏi thêm chút nhé!
Nếu giả thiết em không muốn cập nhật mã vào Cell mà em muốn chèn tên sản phẩm thì làm thế nào?
Thầy vui lòng chỉ dùm em nhé!

 

[ptm0412]

Thay
ActiveCell = .List(.ListIndex)

Bằng

ActiveCell = .List(.ListIndex,1)

Với 1 là cột 2, 2 là cột 3, ...