【Cqy出品】没有华丽的窗口，但简单实用

Cqy131

谢谢少如的鲜花

少如

Cqy131 发表于 2014-8-8 17:18
谢谢少如的鲜花

再次请教:
[宝宝起名]表中的第四行,年月日时
在笫五行填与不填,貌似碰碰运气与精益求精的结果看不岀有何区別呢?
您能给讲讲吗?
谢谢!

Cqy131

少如 发表于 2014-8-11 09:51
再次请教:
[宝宝起名]表中的第四行,年月日时
在笫五行填与不填,貌似碰碰运气与精益求精的结果看不岀有何 ...

因为我不懂五行，所以只能借鉴网上的奇异八字的结果
出生年月日时其实是要填到网上去的

Cqy131

少如 发表于 2014-8-11 09:51
再次请教:
[宝宝起名]表中的第四行,年月日时
在笫五行填与不填,貌似碰碰运气与精益求精的结果看不岀有何 ...

另外，如果你更改了五行设置，碰碰运气会把相应的五行名字复制过来
而精益求精是不会的，也因为它少了一个步骤，所以运行速度更快

香川群子

Cqy131 发表于 2014-6-25 21:37

楼主你的代码简直就是录制宏好不好，该好好优化一下才对。

Sub 随机PK()
    m = Cells(2, 4).Value
    n = Cells(2, 6).Value
    Cells(2, 4).Select
    ActiveCell.FormulaR1C1 = "=INT(RAND()*(COUNTA(C[-3])-1)+2)"
    Cells(2, 6).Select
    ActiveCell.FormulaR1C1 = "=INT(RAND()*(COUNTA(C[2])-1)+2)"
   
    Range(Cells(2, 4), Cells(2, 6)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '以上使用工作表函数，而且还是输入公式后在把计算结果赋值粘贴为值……这个太落后！不值得学习。


    Application.CutCopyMode = False
    Cells(13, 4).Select
    If Cells(m, 3).Value And Cells(n, 10) = "" Then
        Exit Sub
        If Cells(m, 3).Value Or Cells(n, 10) <> "" Then
            For i = 1 To 1000
                Cells(2, 4).Select
                ActiveCell.FormulaR1C1 = "=INT(RAND()*(COUNTA(C[-3])-1)+2)"
                Cells(2, 6).Select
                ActiveCell.FormulaR1C1 = "=INT(RAND()*(COUNTA(C[2])-1)+2)"
                Range(Cells(2, 4), Cells(2, 6)).Select
                Selection.Copy  '红色部分Select用法是效率极低的，也可以说是不正确的用法。
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False '红色部分都是多余的。这只是录制宏的水平！
                Application.CutCopyMode = False
                Cells(13, 4).Select
                If Cells(m, 3).Value And Cells(n, 10) = "" Then
                    Exit Sub
                End If
            Next
        End If
    End If
    'IF 结构不太会用，不会简化。楼主要好好学习！
    Cells(13, 4).Select
End Sub

Cqy131

香川群子 发表于 2014-8-11 15:43
楼主你的代码简直就是录制宏好不好，该好好优化一下才对。

Sub 随机PK()

多谢你的批评指正。我是业余爱好者，几个月前才开始学代码的。对于初学者来说能实现相应功能就已经觉得很兴奋了。当然，我也会努力进步的

Cqy131

草上飞飞 发表于 2014-11-25 13:00
你好，看了你制作的一些小工具，真的很实用。里面有一个随机点名的工具。可否帮忙改进一下。我们要开同学会 ...

随机抽取.rar (10.7 KB, 下载次数: 33)

2014-11-29 07:43 上传

点击文件名下载附件

你看一下，可以抽取男生或女生，也可以随机抽取，不管抽取几个都可以

草上飞飞

你好，看了你制作的一些小工具，真的很实用。里面有一个随机点名的工具。可否帮忙改进一下。我们要开同学会。我想随机抽签人员时。可否设定条件：比如男生或女生。还有人数的设定。比如：现场抽5个男生和5个女生。或者现场抽10位同学随机

Cqy131

草上飞飞 发表于 2014-11-25 13:00
你好，看了你制作的一些小工具，真的很实用。里面有一个随机点名的工具。可否帮忙改进一下。我们要开同学会 ...

这几天我们单位的网络出问题，不好意思。我有空的话试一下

jds123456

不错，谢谢楼主