JSFiddle - React, Tailwind, and code Playground

by kai98

JavaScript

Sub LISTAR_ENTRADAS()

    'Declaração das variáveis
    Dim item As ListItem
    Dim i As Integer
    Dim bolFiltrarDtInicio As Boolean, bolFiltrarDtFim As Boolean, bolPassouFiltros As Boolean
    
    
    ListViewEntradas.ColumnHeaders.Clear
    ListViewEntradas.ListItems.Clear
    
    ListViewEntradas.Gridlines = True
    ListViewEntradas.View = lvwReport
    ListViewEntradas.FullRowSelect = True
    
    ListViewEntradas.ColumnHeaders.Add Text:="Data", Width:=60, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Hora", Width:=60, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Tipo", Width:=70, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Valor", Width:=80, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Categoria", Width:=60, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Cliente/ Fornecedor", Width:=120, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="CPF/ CNPJ", Width:=100, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Data Previsão", Width:=70, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Status", Width:=60, Alignment:=0
    ListViewEntradas.ColumnHeaders.Add Text:="Observação", Width:=200, Alignment:=0
    
       
    'Primeiro If
    If IsDate(TextInicio.Text) Then
        bolFiltrarDtInicio = True
    Else
        bolFiltrarDtInicio = False
    End If
    
    'Segundo If
    If IsDate(TextFim.Text) Then
        bolFiltrarDtFim = True
    Else
        bolFiltrarDtFim = False
    End If
    
    'Preenche a ListView
    For i = 2 To Planilha3.Range("a1000000").End(xlUp).Row
        
        bolPassouFiltros = True
        If Not (ComboTipo.Text = "" Or ComboTipo.Text = Planilha3.Range("c" & i)) Then bolPassouFiltros = False
        If Not (ComboStatus.Text = "" Or ComboStatus.Text = Planilha3.Range("h" & i)) Then bolPassouFiltros = False
        If bolFiltrarDtInicio = True Then If Not (TextInicio.Text <= CDate(Planilha3.Range("g" & i))) Then...