[已解决]excel宏编程

lfq759

在excel宏编辑器里怎么写入？例如：我在a2单元格里输入时间（23或11），那么在c2单元格里就自动显示<=23,“上”或>=11,“下”；求完整的写入代码

最佳答案

月排行榜 / 总排行榜

qh8600

2014-4-6 15:11

lfq759 发表于 2014-4-6 15:04
是的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error GoTo error
   
3. timePart = CDate("12:10:00")
   
4. timePart1 = CDate("18:00:00")
   
5. If Target.Column = 1 And Target.Row = 1 Then
   
6. If Target <= timePart Then Target.Cells(1, 3) = "上"
   
7. If Target >= timePart1 Then Target.Cells(1, 3) = "下"
   
8. End If
   
9. error:
   
10.   Exit Sub
    
11. End Sub

复制代码

99.rar (6.02 KB, 下载次数: 7)

2014-4-6 15:11 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

表明白

lfq759

qh8600 发表于 2014-4-6 13:06
表明白

=IF(F3<=TIME(12,10,0),"上",IF(F3>=TIME(18,0,0),"下",""))。   在单元格里的if函数在宏编辑器里编写

qh8600

lfq759 发表于 2014-4-6 13:49
=IF(F3=TIME(18,0,0),"下",""))。   在单元格里的if函数在宏编辑器里编写

如果14点呢

qh8600

lfq759 发表于 2014-4-6 13:49
=IF(F3=TIME(18,0,0),"下",""))。   在单元格里的if函数在宏编辑器里编写

Sub Macro1()
timePart = CDate("12:10:00")
timePart1 = CDate("18:00:00")
If Cells(3, 6) <= timePart Then Cells(3, 7) = "上"
If Cells(3, 6) >= timePart1 Then Cells(3, 7) = "下"
End Sub
判断F3，在G3输出“上”或者“下”
楼主试试

lfq759

qh8600 发表于 2014-4-6 14:38
Sub Macro1()
timePart = CDate("12:10:00")
timePart1 = CDate("18:00:00")

可能是我没有说明白：“列如，我在A1单元格输入<12:00,然后在C1单元格里显示“上”；如果A1输入>18:00,就在C1单元格显示“下”。

qh8600

lfq759 发表于 2014-4-6 15:02
可能是我没有说明白：“列如，我在A1单元格输入18:00,就在C1单元格显示“下”。

只是a1输入，c1输出吗
还是A列输出，C列输出

lfq759

qh8600 发表于 2014-4-6 15:03
只是a1输入，c1输出吗

是的

qh8600

lfq759 发表于 2014-4-6 15:04
是的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error GoTo error
   
3. timePart = CDate("12:10:00")
   
4. timePart1 = CDate("18:00:00")
   
5. If Target.Column = 1 And Target.Row = 1 Then
   
6. If Target <= timePart Then Target.Cells(1, 3) = "上"
   
7. If Target >= timePart1 Then Target.Cells(1, 3) = "下"
   
8. End If
   
9. error:
   
10.   Exit Sub
    
11. End Sub

复制代码

99.rar (6.02 KB, 下载次数: 7)

2014-4-6 15:11 上传

点击文件名下载附件

lfq759

qh8600 发表于 2014-4-6 15:11

谢谢