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

YZC51

请参考
自定义函数，文本计算
Function js(t)
    t = Application.Asc(t)
    't = Replace(Replace(t, "（", "("), "）", ")")
    For i = 1 To Len(t)
        bb = Mid(t, i, 1)
        aa = Asc(bb)
        If aa > 39 And aa < 58 Or aa = 94 Then js = js & bb
    Next
    js = Evaluate(js)
End Function

YZC51

Function GetUTF$(txt$, x) '群子老师
    For i = 1 To Len(txt)
        t = AscW(Mid(txt, i, 1)): If t < 0 Then t = 65536 + t
        If t < 128 Then GetUTF = GetUTF & Hex(t) Else GetUTF = GetUTF & "e" & Hex(t \ 4096) & Hex((t \ 64) Mod 64 + 128) & Hex(t Mod 64 + 128)
    Next
    If x Then GetUTF = LCase(GetUTF)
End Function

YZC51

Function ChrUTF$(txt$) 'Change UTF To Char '来自EH香川群子
    txt = Replace(txt, "%", "")
    For i = 1 To Len(txt)
        t = Val("&H" & Mid(txt, i, 2))
        If t < 128 Then ChrUTF = ChrUTF & Chr(t): i = i + 1 Else ChrUTF = ChrUTF & ChrW(Val("&H" & Mid(txt, i + 1, 1)) * 4096 + (Val("&H" & Mid(txt, i + 2, 2)) - 128) * 64 + Val("&H" & Mid(txt, i + 4, 2)) - 128): i = i + 5
    Next
End Function

YZC51

Public Function getPy$(ByVal rng$)
'汉字转拼音首字母，自定义函数:
    Dim i%, pyArr, str$, ch$
    pyArr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
    str = Replace(Replace(rng, " ", ""), "　", "")          '去空格和Tab
    For i = 1 To Len(str)
        ch = Mid(str, i, 1)
        If ch Like "[一-龥]" Then   '如果是汉字，进行转换
            getPy = getPy & Application.Lookup(ch, pyArr)
        Else
            'getPy = getPy & UCase(ch)     '如果不是汉字，直接输出
        End If
    Next
End Function '原帖地址：http://club.excelhome.net/thread-1422261-1-1.html

YZC51

股票日线转为周线.xlsm
股票日线转为周线.rar (164.18 KB, 下载次数: 155)

2018-11-3 10:32 上传

点击文件名下载附件

YZC51

附件已经更新，请参考
http://club.excelhome.net/forum. ... p;extra=#pid9708940

YZC51

附件升级啦！
股票日线转为周线和月线-1.rar (142 KB, 下载次数: 92)

2018-11-4 11:31 上传

点击文件名下载附件

WYS67

YZC51 发表于 2018-7-1 12:00
'命理八字四柱函数
'Pi = 3.1415926535898
Function sizhu(birth As Date, Optional gs As Integer = 0)  ...

老师：这个自定义函数能不能计算下面的问题--比如输入：公历2016年10月16日中午11：40，则显示此时的天干地支？

YZC51

WYS67 发表于 2018-11-4 11:44
老师：这个自定义函数能不能计算下面的问题--比如输入：公历2016年10月16日中午11：40，则显示此时的天干 ...

应该可以，您试一下吧！

WYS67

YZC51 发表于 2018-11-4 11:58
应该可以，您试一下吧！

老师：看了您写的多个自定义函数，就是不明白公式怎样输入，里面的参数都有哪些？最好每个自定义函数都有个实例，这样学起来就容易多了！比如38楼的日期，应该怎样输入：是： =sizhu(公历2016，10，16，11:40)吗？

  所以，如果有了具体实例，才能使我们这些VBA小白们能够轻松运用啊！不然，眼前摆一辆辆性能优异的豪车，却苦于没有使用说明书，不会驾驶，只能当成摆设了！