ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: YZC51

[讨论] 自定义函数--提取单元格内多个被分开的数字

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-17 16:14 | 显示全部楼层
    '===========================加延时
    y = Timer
    Do While Timer - 0.05 < y
         DoEvents
    Loop
   '============================

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-17 16:30 | 显示全部楼层
本帖最后由 YZC51 于 2019-7-30 11:35 编辑

http://club.excelhome.net/thread-1260651-1-1.html
'延时程序
Sub delay(T As Single)
    Dim time1 As Single
    time1 = Timer
    Do
        DoEvents
    Loop While Timer - time1 < T
End Sub
Application.Wait Now + TimeValue("00:00:03")

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-18 20:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Function Code128(tar)                               '128b码
    Dim s$, i%, SS$, j%, CheckSum%
    s = tar: j = 104: CheckSum = 1                  '开始位的码值为104 mod 103 =1
    For i = 1 To Len(s)
        SS = Mid(s, i, 1)
        j = Asc(SS)                                 '没过滤无效字符,比如汉字.
        If j >= 32 Then j = j - 32 Else: j = j + 64
        CheckSum = (CheckSum + i * j) Mod 103       '校验位
    Next
    If CheckSum < 95 Then CheckSum = CheckSum + 32 Else: CheckSum = CheckSum + 100
    Code128 = ChrW(204) & s & ChrW(CheckSum) & ChrW(206)
End Function

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-20 19:34 | 显示全部楼层
Public Sub sds() '区域内空单元格数量
Debug.Print WorksheetFunction.CountIf([a1].Resize(10, 1), "")
End Sub

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-21 07:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Function 显示公式(rng As Range)
    显示公式 = rng.Formula
End Function

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-21 07:18 | 显示全部楼层
Sub jisun() '单元格内文本公式计算
For i = 4 To 100
If Cells(i, 2) <> "" Then
    Cells(i, 5) = "=" & Replace(Cells(i, 4), " ", "")
    Cells(i, 5) = Cells(i, 5).Value
End If
Next
End Sub

Function jisuan(T) '单元格内文本公式计算
    T = Replace(T, " ", "")
    If Len(T) Then jisuan = Evaluate(Replace(T, " ", "")) Else jisuan = ""
End Function

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-22 21:11 | 显示全部楼层

五级菜单应用举例

本帖最后由 YZC51 于 2019-7-23 10:35 编辑

五级菜单应用举例!运用坛子的例子,有不同意的可以提出,即刻删除!
20190722五级菜单应用-1.rar (63.21 KB, 下载次数: 75)

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-2 09:01 | 显示全部楼层
http://club.excelhome.net/thread-1467934-1-1.html
38楼 ggmmlol 老师的代码。谢谢老师!
自定义的TEXTJOIN函数,与内置的用法完全一致!
Public Function TEXTJOIN(Optional ByVal Delimiter As String = "", Optional ByVal ignore_empty As Boolean = True, Optional ByVal args As Variant) As String    'Variant  '联结文本
    Dim tmptext As Variant, Rng As Variant, cel As Variant
    tmptext = ""
    For Each Rng In args
        If IsArray(Rng) Then
            For Each cel In Rng
                If Len(cel) Or Not ignore_empty Then tmptext = tmptext & Delimiter & cel
            Next cel
        Else
            If Len(Rng) Or Not ignore_empty Then tmptext = tmptext & Delimiter & Rng
        End If
    Next
    TEXTJOIN = Mid(tmptext, Len(Delimiter) + 1)
End Function

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-8-2 14:45 | 显示全部楼层
YZC51 发表于 2019-8-2 09:01
http://club.excelhome.net/thread-1467934-1-1.html
38楼 ggmmlol 老师的代码。谢谢老师!
自定义的TEXT ...

楼主大美女啊,你要提示一下点赞的同学们呐:饮水思源,点赞不能只记得“农夫”而忘了“山泉”啊!

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-2 16:43 | 显示全部楼层
ggmmlol 发表于 2019-8-2 14:45
楼主大美女啊,你要提示一下点赞的同学们呐:饮水思源,点赞不能只记得“农夫”而忘了“山泉”啊!

老师好幽默!这函数写的很棒!可以2003-2016 通用!!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

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

GMT+8, 2024-12-24 11:25 , Processed in 0.045265 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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