Admit have Mydata=02/03/2020 and Myora=09:00, how to write "A" in corresponding cell?
Similar a Naval Battle:-)
Tks.
COORDINATES in listview
-
- PlatinumLounger
- Posts: 4402
- Joined: 26 Apr 2010, 17:36
COORDINATES in listview
You do not have the required permissions to view the files attached to this post.
-
- Administrator
- Posts: 78789
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: COORDINATES in listview
Are MyData and MyOra variables of type Date or of type String?
Best wishes,
Hans
Hans
-
- PlatinumLounger
- Posts: 4402
- Joined: 26 Apr 2010, 17:36
-
- Administrator
- Posts: 78789
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: COORDINATES in listview
For example:
Code: Select all
Private Sub CommandButton1_Click()
Dim MyData As String
Dim MyOra As String
Dim lvw As ListView
Dim itm As ListItem
Dim i As Long
MyData = "02/03/2020"
MyOra = "09:00"
Set lvw = Me.ListView1
Set itm = lvw.FindItem(sz:=MyData, Where:=lvwText, fPartial:=lvwWhole)
If itm Is Nothing Then
MsgBox "Data " & MyData & " non trovato!", vbCritical
Else
For i = 3 To lvw.ColumnHeaders.Count
If lvw.ColumnHeaders(i).Text = MyOra Then
itm.ListSubItems.Add Index:=i - 1, Text:="A"
Exit For
ElseIf itm.ListSubItems.Count < i - 1 Then
itm.ListSubItems.Add Index:=i - 1, Text:=""
End If
Next i
End If
End Sub
Best wishes,
Hans
Hans