ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 453|回复: 11

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-4-20 23:18 | 显示全部楼层 |阅读模式
本帖最后由 zhangpeng268 于 2017-4-21 00:19 编辑

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


谢谢大家,万分感谢

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

求助:从单元格中提取数字.zip

6.85 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2017-4-20 23:30 | 显示全部楼层
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

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-20 23:36 | 显示全部楼层
看见星光 发表于 2017-4-20 23:30
Sub dat()
    Dim d As Date
    d = [a1].Value

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

TA的精华主题

TA的得分主题

发表于 2017-4-20 23:55 | 显示全部楼层
本程序好好理解,适合提取不同的字符,第一次帮助别人,大家共勉。

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



OK-求助:从单元格中提取数字.rar

13.26 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 00:00 | 显示全部楼层
happy0620 发表于 2017-4-20 23:55
本程序好好理解,适合提取不同的字符,第一次帮助别人,大家共勉。

Public Sub 提取数字()

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 00:07 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-4-21 00:07 | 显示全部楼层
zhangpeng268 发表于 2017-4-21 00:00
非常感谢您的制作的代码,可以实现,但我想让自动生成,不需要点击按钮,可以吗?

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

TA的精华主题

TA的得分主题

发表于 2017-4-21 00:50 | 显示全部楼层
zhangpeng268 发表于 2017-4-21 00:07
请问一下高手,用函数可否实现呢?

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

TA的精华主题

TA的得分主题

发表于 2017-4-21 01:09 | 显示全部楼层
happy0620 发表于 2017-4-21 00:07
你不是用VBA代码实现?这个就是的。2楼的更简洁,VBA理解的更深;你把按钮去掉,运行宏,一样的。
  1. Function TQSZ(ByRef TT3 As Range, n As Integer) As Variant

  2.     TT = TT3.Value
  3.     For Each a In Array("年", "月", "日", "时", "分")  '2017年4月20日22时32分
  4.         TT = Replace(TT, a, " ")
  5.     Next
  6.     TT1 = Split(Application.Trim(TT), " ")
  7.     i = n
  8.     TQSZ = TT1(i)

  9. End Function
复制代码
你应该说的是函数的形式,没有写过,研究了下,见代码,附件。

2OK-求助:从单元格中提取数字.rar

14.47 KB, 下载次数: 2

TA的精华主题

TA的得分主题

发表于 2017-4-21 01:11 | 显示全部楼层
zhangpeng268 发表于 2017-4-21 00:07
请问一下高手,用函数可否实现呢?
  1. Function TQSZ(ByRef TT3 As Range, n As Integer) As Variant

  2.     TT = TT3.Value
  3.     For Each a In Array("年", "月", "日", "时", "分")  '2017年4月20日22时32分
  4.         TT = Replace(TT, a, " ")
  5.     Next
  6.     TT1 = Split(Application.Trim(TT), " ")
  7.     i = n
  8.     TQSZ = TT1(i)

  9. End Function
复制代码
研究了一下函数,OK了,见附件,代码。

2OK-求助:从单元格中提取数字.rar

14.47 KB, 下载次数: 2

函数实现

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2017-12-19 04:23 , Processed in 1.093042 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表