1. If (Range("PriceZero").Value > 0 AND Range("ISPAY").Value = "未结算") Then
   
2.                                             If MessageBox.Show("有商品单价填写不完整，请确认是否继续进行财务结算？", "结算提醒", MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
   
3.                            Range("ISPAY").Value = "已结算"
   
4.                                             End if
   
5.                      ElseIF Range("ISPAY").Value = "已结算" Then  
   
6.                                                 If MessageBox.Show("是否取消结算状态？", "取消结算提醒", MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
   
7.                            Range("ISPAY").Value = "未结算"
   
8.                                             End if
   
9.                                          ElseIF Range("ISPAY").Value = "未结算" OR Range("ISPAY").Value = "" Then  
   
10.                                                 If MessageBox.Show("立即进行财务结算，请点击确认！", "结算提醒", MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
    
11.                            Range("ISPAY").Value = "已结算"
    
12.                                             End if
    
13.                                         End If   

复制代码

ISPAY是什么值呢

backspaceLong 发表于 2016-9-22 16:40
ISPAY是什么值呢

命名的单元格别名区域，也可以直接写单元格地址

ISPAY是什么值呢

backspaceLong 发表于 2016-9-22 16:40
ISPAY是什么值呢

命名的单元格别名区域，也可以直接写单元格地址