[已解决]有个时间判断的问题，用VBA可不可以解呢，请教高手，多谢了。

跑跑2014

详细要求在工作薄中说明，请教高手，多谢。

最佳答案

月排行榜 / 总排行榜

baksy

2014-2-27 05:47

G2单元格公式
=IF(A2="完全都是本月日期",G1,IF(A2="本月日期延续到下月部分日期",IF(H2>=A5,G1,G1+1),IF(A2="上月部分日期加上本月部分日期",IF(H2>=A5,G1-1,G1))))

跳转到最佳答案楼层

baiheji

刚刚看了下，你这个公式完全不用VBA就能实现功能吧，直接用IF函数应该就能解决了

baksy

G2单元格公式
=IF(A2="完全都是本月日期",G1,IF(A2="本月日期延续到下月部分日期",IF(H2>=A5,G1,G1+1),IF(A2="上月部分日期加上本月部分日期",IF(H2>=A5,G1-1,G1))))

雪舞子

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(False, False) = "A2" Then
   
3.         Select Case [a2].Value
   
4.         Case "完全都是本月日期"
   
5.             [g2].Value = [g1].Value
   
6.         Case "上月部分日期加上本月部分日期"
   
7.             If Val([h2].Value) < Val([a5].Value) Then
   
8.                 [g2].Value = [g1].Value
   
9.             Else
   
10.                 If Val([g1].Value) = 1 Then
    
11.                     [g2].Value = "12月"
    
12.                     [f2].Value = Val([f2].Value) - 1 & "年"
    
13.                 Else
    
14.                     [g2].Value = Val([g1].Value) - 1 & "月"
    
15.                 End If
    
16.             End If
    
17.         Case "本月日期延续到下月部分日期"
    
18.             If Val([h2].Value) < Val([a5].Value) Then
    
19.                 If Val([g1].Value) = 12 Then
    
20.                     [g2].Value = "1月"
    
21.                     [f2].Value = Val([f2].Value) + 1 & "年"
    
22.                 Else
    
23.                     [g2].Value = Val([g1].Value) + 1 & "月"
    
24.                 End If
    
25.             Else
    
26.                 [g2].Value = [g1].Value
    
27.             End If
    
28.         End Select
    
29.     End If
    
30. End Sub

复制代码

跑跑2014

baksy 发表于 2014-2-27 05:47
G2单元格公式
=IF(A2="完全都是本月日期",G1,IF(A2="本月日期延续到下月部分日期",IF(H2>=A5,G1,G1+1),IF( ...

谢谢您的回复，答案基本接近我所需要，就是现在还存在一点点问题，就是G1填入12月或是1月时，选择A2不同内容时，会出现0月 或是13月，我想加个辅助单元格，如果当这个值为这两个数时，为零时就让值为12月，为13是就让值为1月。我现在这样写的，但是不对

=IF(G2="0",IF(G2="13","1","12"),G2)   请您再帮看下，谢谢！！

跑跑2014

雪舞子 发表于 2014-2-27 06:14

谢谢您的回复，如果公式解决不了了，我考虑用代码。。。

baksy

跑跑2014 发表于 2014-2-27 17:32
谢谢您的回复，答案基本接近我所需要，就是现在还存在一点点问题，就是G1填入12月或是1月时，选择A2不同内 ...

=IF(G2="0",IF(G2="13","1","12"),G2)
这个公式有误，
前面已经限定 G2=0 条件了 后面不可能是 G2=13