Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/LBDMHH_Change.bas

Created January 20, 2017 11:37
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Raw
LBDMHH_Change.bas
Private Sub LBDMHH_Change()
Dim Id, i
Id = LBDMHH.ListIndex
With Me.LBDMHH
On Error Resume Next
If .Selected(Id) Then
If Not Dic.exists(.List(Id, 0)) Then
Dic.Add .List(Id, 0), .List(Id, 0) & ";" & .List(Id, 1) & ";" & .List(Id, 2) & ";" & .List(Id, 3)
End If
Else
Dic.Remove (.List(Id, 0))
End If
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment