关于vba如何实现跳过符号进行计算

MOMOXG

新人求助了，研究了大半天论坛里的合同到期计算，想实现一列同时有日期跟字符的进行到期弹窗。大概就是单元格是日期则计算，非日期则跳过的意思。感谢

vbee

Private Sub Workbook_Open()
    str1 = "合同即将到期有："

    With Sheets(1)
    On Error Resume Next
        For j = 4 To .Cells(Rows.Count, "w").End(3).Row
            a = .Cells(j, "w").Value
            a = Val(a)
            If CDate(a) - Date <= 15 And a > 1 Then
                str1 = str1 & Chr(10) & .Cells(j, 6)
            End If
        Next j
    End With
    MsgBox str1
End Sub

MOMOXG

vbee 发表于 2019-3-21 18:41
Private Sub Workbook_Open()
    str1 = "合同即将到期有："

val(a)是转换成数值的意思吗，可以排除符号，但是好像计算结果不对  If CDate(a) - Date <= 15

MOMOXG

vbee 发表于 2019-3-21 18:41
Private Sub Workbook_Open()
    str1 = "合同即将到期有："

val(a)是转换成数值的意思吗，可以排除符号计算，但是好像算的结果不对  If CDate(a) - Date <= 15

蓝桥玄霜

1. str1 = "合同即将到期有："
   
2. 
   
3.     With Sheets(1)
   
4.     On Error Resume Next
   
5.         For j = 4 To .Cells(Rows.Count, "w").End(3).Row
   
6.             a = .Cells(j, "w").Value
   
7.             a = Val(a)
   
8.             If a > 1 Then
   
9.             If .Cells(j, "w").Value - Date <= 15 Then
   
10.                 str1 = str1 & Chr(10) & .Cells(j, 6)
    
11.             End If
    
12.             End If
    
13.         Next j
    
14.     End With
    
15.     MsgBox str1
    

复制代码

vbee

Private Sub Workbook_Open()
    str1 = "合同即将到期有："

    With Sheets(1)
    On Error Resume Next
        For j = 4 To .Cells(Rows.Count, "w").End(3).Row
            a = .Cells(j, "w").Value
            a = Val(a)
            If .Cells(j, "w").Value - Date <= 15 Then
              If a > 1 Then str1 = str1 & Chr(10) & .Cells(j, 6)
            End If
        Next j
    End With
    MsgBox str1
End Sub

MOMOXG

蓝桥玄霜 发表于 2019-3-22 10:03

！解决了 感谢大侠