Таблицы для вывода табличных данных. Что-либо, что Вы могли бы отобразить в электронной таблице, столбцах результатов, такой вещи.
предложение использования CSS, а не таблиц для колоночных разметок, которые не были действительно фактическими таблицами. Это никогда не предназначалось, чтобы предложить, чтобы таблицы были удалены полностью.
Вы должны написать что-то вроде:
if cDbl(v) <> round(cDbl(v)) Then
Где cDbl - это функция, преобразующая любые данные в числа с двойным типом. Возможно, вам придется обработать случаи, когда v нельзя преобразовать в число с помощью функции isNumeric (), прежде чем вызывать функцию cDbl. Вы даже можете использовать для сравнения функцию cInt:
if isnumeric(v) then
if cDbl(v) - cInt(v) <> 0 Then
....
endif
else
debug.print "data cannot be converted to a number"
endif
Sub test()
Dim v As Variant
v = "42"
If Val(v) <> Int(Val(v)) Then
MsgBox ("<>")
End If
End Sub
Если вы используете Val (), он изо всех сил старается преобразовать в число. Если не может, он вернет ноль, и Val (v) в этом случае всегда будет равно Int (Val (v)).