[已解决]要求单元格的日期时间能换行显示

roberth20

要求单元格的日期时间能换行显示，不是要按ALT+ENTER来实现的

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-9-3 19:27

roberth20 发表于 2012-9-3 18:53
感谢您的解答:由于是菜鸟,看不太懂,能否解释下(试了好像没有用)

重新给你添加上了注释

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.   With Target   '指定操作的单元格
   
4.     If .Count > 1 Then Exit Sub     '如果操作的单元格个数大于1则退出
   
5.     If .Address <> "$D$5" Then Exit Sub '如果操作的单元格地址不是 D5 则退出
   
6.     Dim S   '声明一个变量
   
7.     Application.EnableEvents = False    '关闭事件
   
8.     S = Split(.Value)   '按 空格 拆分当前输入的内容
   
9.     If UBound(S) > 0 Then .Value = S(0) & vbLf & S(UBound(S))
   
10.    
    
11.     '拆分后的数组最大下标 大于0 说明输入的数据有空格 ,就需要对数据进行 换行 处理
    
12.     '后面的  S(UBound(S)) 主要是防止 日期和时间 中间输入了多个空格后,结果依然能正确
    
13.    
    
14.     Application.EnableEvents = True     '开启事件
    
15.   End With
    
16. End Sub
    
17. 
    

复制代码

跳转到最佳答案楼层

无聊的疯子

勾选自动换行，然后拉窄列宽就行了嘛

在不就用代码来输入时间。。。

无聊的疯子

用代码的话，不知道你是怎么操作的，所以这个仅以 手动输入 日期和时间为例

输入的时间和日期之间至少得有一个空格，
代码示例仅对  D5 单元格有效

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.   With Target
   
4.     If .Count > 1 Then Exit Sub
   
5.     If .Address <> "$D$5" Then Exit Sub
   
6.     Dim S
   
7.     Application.EnableEvents = False
   
8.     S = Split(.Value)
   
9.     If UBound(S) > 0 Then .Value = S(0) & vbLf & S(UBound(S))
   
10.     Application.EnableEvents = True
    
11.   End With
    
12. End Sub
    

复制代码

roberth20

无聊的疯子 发表于 2012-9-3 18:28
勾选自动换行，然后拉窄列宽就行了嘛

在不就用代码来输入时间。。。

感谢您的解答:自动换行我试过是不行的.

roberth20

无聊的疯子 发表于 2012-9-3 18:34
用代码的话，不知道你是怎么操作的，所以这个仅以 手动输入 日期和时间为例

输入的时间和日期之间至少得 ...

感谢您的解答:由于是菜鸟,看不太懂,能否解释下(试了好像没有用)

无聊的疯子

roberth20 发表于 2012-9-3 18:53
感谢您的解答:由于是菜鸟,看不太懂,能否解释下(试了好像没有用)

操作图片



附件
日期时间换行显示.rar (7.85 KB, 下载次数: 34)

2012-9-3 19:19 上传

点击文件名下载附件

无聊的疯子

roberth20 发表于 2012-9-3 18:53
感谢您的解答:由于是菜鸟,看不太懂,能否解释下(试了好像没有用)

重新给你添加上了注释

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.   With Target   '指定操作的单元格
   
4.     If .Count > 1 Then Exit Sub     '如果操作的单元格个数大于1则退出
   
5.     If .Address <> "$D$5" Then Exit Sub '如果操作的单元格地址不是 D5 则退出
   
6.     Dim S   '声明一个变量
   
7.     Application.EnableEvents = False    '关闭事件
   
8.     S = Split(.Value)   '按 空格 拆分当前输入的内容
   
9.     If UBound(S) > 0 Then .Value = S(0) & vbLf & S(UBound(S))
   
10.    
    
11.     '拆分后的数组最大下标 大于0 说明输入的数据有空格 ,就需要对数据进行 换行 处理
    
12.     '后面的  S(UBound(S)) 主要是防止 日期和时间 中间输入了多个空格后,结果依然能正确
    
13.    
    
14.     Application.EnableEvents = True     '开启事件
    
15.   End With
    
16. End Sub
    
17. 
    

复制代码

suye1010

可以在要换行的地方加入Chr(10)换行符来实现换行。
譬如你要输入的内容是这样的
suye1010
2012-09-03
语句可以这么输入
Msgbox "suye1010"&chr(10)&date

1. Sub test()
   
2. Debug.Print Date & Chr(10) & Time
   
3. End Sub

复制代码