Public Type relation
pattern As String
value As String
End Type
Public relations() As relation
Public Function get_category(Target As Range) As String
Dim i As Integer
If Target.Cells.Count = 1 Then
For i = LBound(relations) To UBound(relations)
If Target.value Like relations(i).pattern Then
get_category = relations(i).value
Exit Function
End If
Next
End If
End FunctionPrivate Sub Workbook_Open()
ReDim relations(1 To 3)
relations(1).pattern = "*футболк*"
relations(1).value = "Футболки"
relations(2).pattern = "*худи*"
relations(2).value = "Худи"
relations(3).pattern = "*свитшот*"
relations(3).value = "Свитшоты"
End SubB1=get_category(A1).
Нужно выводить только тогда, когда есть запись и за сегодня и за вчера, остальные не выводить.
SELECT UserID, t1.CountMessage-t2.CountMessage
FROM daily_exp_snapshots t1
JOIN daily_exp_snapshots t2 USING (UserID)
WHERE t1.date_added >= CURRENT_DATE
AND t1.date_added < CURRENT_DATE + INTERVAL 1 DAY
AND t2.date_added >= CURRENT_DATE - INTERVAL 1 DAY
AND t2.date_added < CURRENT_DATESELECT VERSION();. может быть несколько не тегированных VLAN аксесом.
Ждать? сам-то понял чё сказал? Просто "если есть дыра, не выводим" - это я бы ещё понял...