Function 提取(t As Range) '按照出现先后顺序排序=提取(a1:a100)
Dim d, s, R, i%
Set d = CreateObject("Scripting.Dictionary")
For Each R In t
s = s & R
Next
s = StrReverse(s) & "0123456789"
For i = 1 To Len(s)
d(Mid(s, i, 1)) = ""
Next
提取 = Join(d.keys, "")
End Function
Function
Dim d, s, R, i%
Set d = CreateObject("Scripting.Dictionary")
For Each R In t
s = s & R
Next
s = StrReverse(s) & "0123456789"
For i = 1 To Len(s)
d(Mid(s, i, 1)) = ""
Next
= Join(d.keys, "")
End Function (2017-11-27, Visual Basic, 8KB, 下载3次)
简单但易用的十六进制查看器。可以调整栏宽度。
Hex code viewer coded in VB6. It's simple and easy to use, and capable to adjust the width of view panel. (2017-07-07, Visual Basic, 23KB, 下载32次)
{可以自设均线,牛市21日线,熊市10日线}{使用指标说明
A1:=Ma(C,5)
A2:=Ma(C,10) {可以自设均线,牛市21日线,熊市10日线}
A3:=(A1+A2)/2
(2014-06-17, Visual Basic, 3KB, 下载1次)