如何用VBA代码从2017年4月20日22时32分中提取2017在别的单元格显示

zhangpeng268

高手们，如何用VBA代码从2017年4月20日22时32分的单元格中分别提取2017、4、20、22、32在别的单元格中显示，见附件


谢谢大家，万分感谢

还有用公式如何解决，请高手也指点一下

看见星光

Sub dat()
    Dim d As Date
    d = [a1].Value
    [b1] = Year(d)
    [c1] = Month(d)
    [d1] = Day(d)
    [e1] = Hour(d)
    [f1] = Minute(d)
End Sub

zhangpeng268

看见星光 发表于 2017-4-20 23:30
Sub dat()
    Dim d As Date
    d = [a1].Value

高手看了你好多回复和帖子，我是VBA 初学者，可不可帮我在附件中做一下，我不知道在哪个位置放代码，方便留个Q号吗？

happy0620

本程序好好理解，适合提取不同的字符，第一次帮助别人，大家共勉。

Public Sub 提取数字()
    Dim TT, TT2(1 To 1, 1 To 5)
    TT = Range("A1")
    For Each a In Array("年", "月", "日", "时", "分")  '2017年4月20日22时32分
        TT = Replace(TT, a, " ")
    Next
    TT1 = Split(Application.Trim(TT), " ")
    For i = 0 To UBound(TT1)
        y = y + 1
        TT2(1, y) = TT1(i)
    Next
    Range("B1:F1") = TT2
End Sub

zhangpeng268

happy0620 发表于 2017-4-20 23:55
本程序好好理解，适合提取不同的字符，第一次帮助别人，大家共勉。

Public Sub 提取数字()

非常感谢您的制作的代码，可以实现，但我想让自动生成，不需要点击按钮，可以吗？

zhangpeng268

请问一下高手，用函数可否实现呢？

happy0620

zhangpeng268 发表于 2017-4-21 00:00
非常感谢您的制作的代码，可以实现，但我想让自动生成，不需要点击按钮，可以吗？

你不是用VBA代码实现？这个就是的。2楼的更简洁，VBA理解的更深；你把按钮去掉，运行宏，一样的。

小花鹿

zhangpeng268 发表于 2017-4-21 00:07
请问一下高手，用函数可否实现呢？

如果都是年月日时分这几个字，用函数可以实现，如果不是，用函数就麻烦了

happy0620

happy0620 发表于 2017-4-21 00:07
你不是用VBA代码实现？这个就是的。2楼的更简洁，VBA理解的更深；你把按钮去掉，运行宏，一样的。

1. Function TQSZ(ByRef TT3 As Range, n As Integer) As Variant
   
2. 
   
3.     TT = TT3.Value
   
4.     For Each a In Array("年", "月", "日", "时", "分")  '2017年4月20日22时32分
   
5.         TT = Replace(TT, a, " ")
   
6.     Next
   
7.     TT1 = Split(Application.Trim(TT), " ")
   
8.     i = n
   
9.     TQSZ = TT1(i)
   
10. 
    
11. End Function

复制代码

你应该说的是函数的形式，没有写过，研究了下，见代码，附件。

happy0620

zhangpeng268 发表于 2017-4-21 00:07
请问一下高手，用函数可否实现呢？

1. Function TQSZ(ByRef TT3 As Range, n As Integer) As Variant
   
2. 
   
3.     TT = TT3.Value
   
4.     For Each a In Array("年", "月", "日", "时", "分")  '2017年4月20日22时32分
   
5.         TT = Replace(TT, a, " ")
   
6.     Next
   
7.     TT1 = Split(Application.Trim(TT), " ")
   
8.     i = n
   
9.     TQSZ = TT1(i)
   
10. 
    
11. End Function

复制代码

研究了一下函数，OK了，见附件，代码。