hỏi code xuất hiện validation theo cột???

  • Thread starter Thread starter ST-Lu!
  • Ngày gửi Ngày gửi
Liên hệ QC

ST-Lu!

Love Wingchun
Tham gia
19/8/08
Bài viết
730
Được thích
546
Nghề nghiệp
Xích lô một thời
Dear Các Anh
Ví dụ: em có name KH tại sheet 1
giờ tại cột C sheet 2, em muốn tại vị trí đặt con trỏ (active cell) Validation sẽ xuất hiện thì code viết như nào

em thử nghịch như sau nhưng ko được
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.column = 3 Then
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=KH"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
  End if 

End Sub

Các Huynh sửa lại giúp em với
 
Dear Các Anh
Ví dụ: em có name KH tại sheet 1
giờ tại cột C sheet 2, em muốn tại vị trí đặt con trỏ (active cell) Validation sẽ xuất hiện thì code viết như nào

em thử nghịch như sau nhưng ko được
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.column = 3 Then
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=KH"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
  End if 

End Sub
Các Huynh sửa lại giúp em với
Tôi thử thấy bình thường mà
Rút gọn lại chút:
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 3 Then
    Target.Validation.Delete
    Target.Validation.Add 3, , , "=KH"
  End If
End Sub
 
Upvote 0
Hu hu
Em thử không được
Nhân tiện em xin phép hỏi thêm tại sao lai có .Delete ạh?
 
Upvote 0
Upvote 0
Web KT

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

Back
Top Bottom