COORDINATES in listview

[sal21]

Admit have Mydata=02/03/2020 and Myora=09:00, how to write "A" in corresponding cell?
Similar a Naval Battle:-)
Tks.

[HansV]

Are MyData and MyOra variables of type Date or of type String?

[sal21]

Are MyData and MyOra variables of type Date or of type String?

String

[HansV]

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