循环引用实例-------36选7

shuiyuan

以下是引用plxmm在2005-4-19 12:56:00的发言： 能够自动将选出的号码由小到大进行排列就更好了。

使用Large函数就可以

winky516

26选5怎么弄呢?

cpali3023

将Hzg7818兄的宏代码做以下改动即可完成号码由小到大进行排列

Sub DoSelect(iGroup As Integer, Target As Range) Dim i As Integer, j As Integer If iGroup < 1 And iGroup > 50 Then Exit Sub For i = 1 To iGroup SelectNum For j = 0 To 6 Target.Offset(i - 1, 6 - j) = Application.WorksheetFunction.Large(SelectedNums(), j + 1)　'改动行 Next j Next i End Sub

cpali3023

26选5，可将Hzg7818兄宏代码中的36改为25，6改为4，7改为5即可。

[此贴子已经被作者于2005-4-19 13:53:11编辑过]

shuiyuan

以下是引用winky516在2005-4-19 13:44:00的发言： 26选5怎么弄呢?

文件没有密码，修改一下就可以

shuiyuan

To winky516 ：

26选5怎么弄呢?

To plxmm ：

能够自动将选出的号码由小到大进行排列就更好了。

★★26选5___利用循环引用计算部重复数★★ http://club.excelhome.net/viewth ... D=499946&skin=1

[此贴子已经被作者于2005-4-19 14:21:29编辑过]

海底眼

实在搞不懂

明明是只需要把36个号码随机排序，取前7个即可

tanhong

好！谢谢分享！

心可以清

Sub 排序() Dim i As Integer For i = 1 To [j1].Value Range(Cells(i, 1), Cells(i, 7)).Sort key1:=Range(Cells(i, 1), Cells(i, 1)), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod:=xlPinYin Next i End Sub

sunchengli

老兄，哪个按钮变色是怎么搞的哟，谢谢。