2019年10月_qq_44390640

12月 11月 10月 09月 08月 07月

原创魔方公式

还原3阶魔方方法：1、先还原底层十字2、还原底层四个角3、还原第2层4、还原顶层颜色5、对齐顶层四角6、对齐顶层中边还原4阶魔方方法：1、先还原中心2、接着按3阶魔方方法特殊情况处理还原5阶魔方1、还原中心2、还原棱3、还原整条棱4、按3阶魔方方法...

2019-10-24 13:47:02 340

原创利用VBA批量导入TXT或LOG文件，并完成筛选汇总(适用于UNIX系统出来的数据)

Sub 批量导入TXT或LOG并完成汇总() Dim Fs As Object, Ft As Object Set Fs = CreateObject("Scripting.FileSystemObject") filePath = ThisWorkbook.Path & "\" fileName = Dir(filePath & "*.log", ...

2019-10-24 11:21:11 1749

原创 VBA实时提取股票资金流入TOP

以下是根据和讯网实时提取资金流入股票的TOP情况Sub 实时提取股票资金流入TOP() Dim tmp(), TEMP1(), S, STR, STR_1, STR_2 As String, arr() As String, xmlhttp As Object, I, J, N As Long Worksheets("实时资金流入统计").Cells.Clear S...

2019-10-16 16:07:36 1033

原创 VBA生成图表方式

Sub 生成图表()Worksheets("图表").ChartObjects.DeleteWith Worksheets("历史记录表")Set MYCHART = .ChartObjects.Add(10, 10, 500, 150) '左,上,长,高With MYCHART.Chart .ChartType = xlLineMarkers .SetSourceData So...

2019-10-08 17:20:58 2893