Nhờ cả nhà giúp đỡ double kick load form (1 người xem)

[nguyenminhthao]

Nhờ các bác giúp đỡ.
- Lam ơn mọi người download file excel mẫu, không đơn giản chỉ là double kick đâu. Mong các bác nhiệt tình giúp đỡ.(Đã song xin cảm ơn cả nhà).
- Nhờ mọi người giúp đỡ với khi những dong gộp dùng Merge lại không load được form. mong mọi người xem giúp đỡ tiếp lần 2 nhé. Thank

 

[ndu96081631]

Thử code này xem:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim UF As String
  On Error GoTo Thoat
  UF = "UserForm" & Right(Target, 1)
  VBA.UserForms.Add(UF).Show
Thoat:
End Sub

Một câu hỏi hay!... cảm ơn bạn!

 

[Hai Lúa Miền Tây]

Thử code này xem:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim UF As String
  On Error GoTo Thoat
  UF = "UserForm" & Right(Target, 1)
  VBA.UserForms.Add(UF).Show
Thoat:
End Sub

Một câu hỏi hay!... cảm ơn bạn!

Quả là cực kì sáng tạo.
Đoạn code trên nó sẽ load form nếu như trong bảng tính có cell chứa số bên phải từ (0-9) thỏa điều kiện với số tên userform
Em xin mạo mụi thêm điều kiện vào đoạn code của thầy. Nếu bảng tính có cell chứa chữ "Load form"+số sẽ load.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim UF As String
  On Error GoTo Thoat
  [COLOR=blue]If Left(Target, 9) = "Load form" Then[/COLOR]
  UF = "UserForm" & Right(Target, 1)
  VBA.UserForms.Add(UF).Show
  [COLOR=blue]Exit Sub[/COLOR]
[COLOR=blue] End If[/COLOR]
Thoat:
End Sub

 

[Hai Lúa Miền Tây]

Mong mọi người xem câu hỏi bên dưới và giúp dùm.

Cảm ơn bạn về code bạn đã giúp mình. Nay mình bị một vấn đề phát sinh là:
những dòng gộp nhau hay (Merge) thì lại không load được form. Bạn giúp mình với

 

[ndu96081631]

Mong mọi người xem câu hỏi bên dưới và giúp dùm.

Thay đoạn:

If Left(Target, 9) = "Load form" Then
  UF = "UserForm" & Right(Target, 1)

thành:

If Left(Target(1, 1), 9) = "Load form" Then
  UF = "UserForm" & Right(Target(1, 1), 1)

Thử xem!

 

[Hai Lúa Miền Tây]

Nhân tiện cho em hỏi
Còn nếu bị trường hợp WrapText (Alt+Enter) thì sao hả thầy.

 

[ndu96081631]

Nhân tiện cho em hỏi
Còn nếu bị trường hợp WrapText (Alt+Enter) thì sao hả thầy.

Tôi nghĩ dùng InStr tìm chử "Load Form" nằm trong Target(1,1) chắc không có vấn đề