非常实用的彩票选号工具

引子玄

这种碰运气的DD,坑爹

hqbpk

希望能帮我中个头奖，一定感谢楼主。

wangyi2004

真不错，能够做出这样的效果来，界面非常漂亮，我想知道是如何做到excel启动后只弹出这个窗口独立运行的？是用什么代码？能否指点一二？

wangyi2004

我看到源码了，原来是这样啊， 我想请教一下，能否做到不用“窗体”，直接让表格独立这样显示可不可以？

xsy我可以很好

wangyi2004 发表于 2012-6-27 20:39
我看到源码了，原来是这样啊， 我想请教一下，能否做到不用“窗体”，直接让表格独立这样显示可不可以？

不显示工作表是怕不小心改了公式，有个窗体更简洁明了，又不影响功能

kakaco

首先。佩服你能写这么多代码。
俺是看不懂
Option Explicit


Sub Main(Args)
On Error Resume Next
Dim t: t = Timer
If Not 设置.Pre Then
MsgBox "请核对历史查询表,使相关参数能一一对应"
Exit Sub
End If
Dim i, j, n As Integer, Ele
Dim Rtn, DataList(), Result, Model As Boolean
For i = Args(0) To Args(UBound(Args))
Model = False
Set Rtn = ReFreshData(Args(0) + n)
ReDim DataList(Rtn.Count - 1)

If Not Model Then
If Sheets(设置.ShName(i)).Cells(设置.GetLstRow(i), 设置.GetDataStartColumn) = "" Then
Model = True
Else
ReDim Preserve DataList(Rtn.Count - 2)
End If
For j = IIf(Model, 0, 1) To Rtn.Count - 1
DataList(j - IIf(Model, 0, 1)) = Split(Rtn(j), " ")
Next
Result = Application.Transpose(Application.Transpose(DataList))
If UBound(DataList, 1) > 0 Then
Sheets(设置.ShName(i)).Cells(设置.GetLstRow(i) + 1, 设置.GetDataStartColumn).Resize(UBound(Result, 1), UBound(Result, 2)) = Result
Else
Sheets(设置.ShName(i)).Cells(设置.GetLstRow(i) + 1, 设置.GetDataStartColumn).Resize(1, UBound(Result, 1)) = Result
End If

End If
n = n + 1
Next
MsgBox "本次耗费" & Format(Timer - t, "0.00") & "秒"

End Sub




另外。弱弱问下。你中奖后。会告诉我们吗>?.

wangyi2004

xsy我可以很好 发表于 2012-6-30 15:31
不显示工作表是怕不小心改了公式，有个窗体更简洁明了，又不影响功能

对，的确是如此，有时候我也想这样效果会更好一些。

sam.tan

win2009 发表于 2012-6-5 08:36
你这个是恶性病毒，把电脑里的信息excel信息都发到你的哪里去了，卑鄙，excel打不开，所有数据都被你盗窃了 ...

BP,我遇到了同样的病毒,请XSY正视并清理您的文件,不要害人啊!

xsy我可以很好

sam.tan 发表于 2012-7-2 11:52
BP,我遇到了同样的病毒,请XSY正视并清理您的文件,不要害人啊!

为什么别人不会，就你会？是什么病毒？我的代码都是公开的啊！

lmylmy224

这个必须顶