点击浏览该文件

评分规则：多选题，
1、如果实际回答和标准答案相同得2分；
2、如果实际回答中只要有一个字母和标准答案里没有得0分；
3、如果实际回答比标准答案少，则每对一个得0.5分。

要求：
1、用函数公式完成D2:D11单元格。公式完成后，A2:B10单元格的英语字母发现变动后，公式的结果依然正确
2、可以用辅助列（或行，或单元格）
3、可以用自定义名字，但不能用自定义函数和VBA宏
3、可以用数组、多公式，下拉公式
4、可以取巧

回答本题；
请在帖子里写清公式，注明含等号的公式字符数
如有多个公式或辅助单元格（行、列）的，请一一写清公式
如有自定义名称的，也需要粘上自定义名称的内容
为避免查验出错，有公式2个以上的，和有自定义名称的回答，请上传EXCEL文件附件

回答不需回复可见

奖励办法：

第1个回答正确，奖励 10个BB

第2个回答正确，并公式比第1个好的奖励 10*2＝20个BB

第3个回答正确，并公式比第2个好的奖励 10*3＝30个BB

......

第N个回答正确，并公式比前面公式好的奖励 10*N个BB

即 越后回答的难度越高，所得BB也越多

回答好的标准是，

1、所用辅助少的为好（同公式的整列、整行算一个辅助），但含在公式中利用空白行（列，单元格）不算辅助

2、同辅助公式，所用辅助面积少的为好

3、利用自定义名称，按自定义名称在公式中被用的次数*自定义名称的公式字符数，计算字符

4、可不用自定义名称的比必须用自定义名称的好

5、公式的字符少的为好

6、如字符差在20以内，如运算速度有明显差异，以运算速度快的为好

7、如有争议，以本楼主判断为准

时间 2个月，到2010年11月15日 不再发放奖励

有个数，它被2除时余1，被3除时余2，被4除时余3，……，被9除时余8，被10除时余9。问这个数最小是几？

请写一段代码求出这个数（请用回复可见）。

依值论BB（1-5个BB），先到先得

16楼liyh67的高，实在是高！有特别强的针对性！

2楼吕版和12楼raulerini的据有很强的通用性。

其余各楼都各有特点、充分扩充了我的思路。在此一并谢之！

虽无BB了，还是欢迎各位继续提供代码、思路，谢谢！

当“合并单元格”不是文字格式时，用ALT+ M键，是不快键的（不起作用）

当“合并单元格”是文字显示时，ALT+ M，OK成功

设置方法：

1、打开excel，选择工具——点击“自定义”。
这时会出现一个“自定义”表单。
2、命令--类别--格式中，选中合并单元格图标，拉到格式菜单，右键点击“合并单元格“的图标。
3、选择”图象与文本“选项。
这时，工具栏上会出现”合并及居中（M）“的变化。
现在就已设置完成了。
合并及居中的快捷键是 ALT+M

ActiveSheet.Unprotect 1
       Range("a2") = 29999
ActiveSheet.Protect 1

一个程序还好，如果在多个程序中都需要修改受保护工作表的单元格值，就需要每个宏程序都要使用上述先解除保护然后，修改后再添加保护的模式。

有没有一种方法，我们设置后可以在所有的宏程序都可以直接修改单元格值呢？

正确的答案每人5个币币，发完为止，请用回复可见方式回答。

点击浏览该文件
附件已上传，三个工作表的红色部分。

谢谢了。

在线等答案

时间2减去时间1，最终结果格式为：N天N小时，但不允许出现0天或0小时这种无效格式

时间1和时间2为文本格式，而非自定义格式

不准使用VBA

不准定义名称

不准使用加载宏函数

不准使用辅助区域

公式函数请以office2003版本为准

说明：

时间2不会大于时间1

最大时间为999天23小时，最小时间为1小时，天数和小时数没有小数

奖励：

基数BB为10，公式长度基数为300

BB=10*1.2^接力棒数+30*300/公式长度（如第5棒公式长度210，则BB=10*1.2^5+30*300/210=68BB）

此主题相关图片如下：

文件已上传，希望按登记单位排，但相邻两行一齐动，3万多行

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为10，奖励系数为1.2，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）

        4、公式必须适用于2003版本

        5、题目的具体要求见附件点击浏览该文件

奖励：

  原公式为

=SUM(--TEXT(IF(A8>={3,5,7,10,99999}*500,{15,8,6,6,0}*1000,IF(A8<{3,5,7,10,99999}*500,{10,8,6,4,3}*(A8-{0,3,5,7,10}*500),0)),"0.00;!0"))

不算等号134字符

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为10，奖励系数为1.2，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）

        4、公式必须适用于2003版本

        5、题目的具体要求见附件点击浏览该文件

奖励：

基数	10
第1棒	12
第2棒	14
第3棒	17
第4棒	20
第5棒	24
第6棒	29
第7棒	35
第8棒	42
第9棒	50
第10棒	60
第11棒	72
第12棒	86
第13棒	103
第14棒	124
第15棒	149
第16棒	179
第17棒	215
第18棒	258
第19棒	310
第20棒	372

  原公式为

=SUM(--(FREQUENCY(SMALL(A$2:C$8,ROW($1:$21)),IF(MMULT(COLUMN(A:U)^0,N(COLUMN(A:AD)<>SMALL(A$2:C$8,ROW($1:$21))))=21,COLUMN(A:AD)))=ROW()-1))
  

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为10，奖励系数为1.2，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）

        4、公式必须适用于2003版本，答案不得使用回复可见

        5、题目的具体要求见附件

 
此主题相关图片如下：

基数	10
第1棒	12
第2棒	14
第3棒	17
第4棒	20
第5棒	24
第6棒	29
第7棒	35
第8棒	42
第9棒	50
第10棒	60
第11棒	72
第12棒	86
第13棒	103
第14棒	124
第15棒	149
第16棒	179
第17棒	215
第18棒	258
第19棒	310
第20棒	372

点击浏览该文件

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为10，奖励系数为1.2，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）

        4、公式必须适用于2003版本

        5、题目的具体要求见附件

 
此主题相关图片如下：

基数	10
第1棒	12
第2棒	14
第3棒	17
第4棒	20
第5棒	24
第6棒	29
第7棒	35
第8棒	42
第9棒	50
第10棒	60
第11棒	72
第12棒	86
第13棒	103
第14棒	124
第15棒	149
第16棒	179
第17棒	215
第18棒	258
第19棒	310
第20棒	372

点击浏览该文件

此主题相关图片如下：

数据源：

点击浏览该文件 

BB：

正确回答，前3人，每人10个BB。

原题出处：

http://www.excelpx.com/dispbbs.asp?boardid=38&ID=136874&replyID=136874

最佳答案：

以下内容只有回复后才可以浏览

1 合并计算

2 排序，按行排序

此主题相关图片如下：

他发现了一个有趣的问题，这样便得到一个分数6729/13458=1/2，正好用了这九个数字。
而且他发现这几卷书还可摆成其它很多个分子为4位，分母为5位的分数，可以让其结果等于1/2、1/3、1/4……1/52……1/66等等。

问题：请用VBA求解出让分子结果可以为1的所有摆放组合？

           如：6729/13458=1/2

                  5823/17469=1/3

                  ……

尾注：1、请用回复可见跟贴。

             2、无论常规穷举或者递归，代码在我本机运行时间在2秒内的，15金币奖励，

                   其余答案正确的酌情奖励。一星期后结贴并发布参考代码。

             3、结果请用Debug.Print方法输出到立即窗口，结果按1/2…1/3…1/68…分母排序，格式如下：

6729/13458=1/2
6792/13584=1/2
6927/13854=1/2
7269/14538=1/2
7293/14586=1/2
7329/14658=1/2
7692/15384=1/2
7923/15846=1/2
7932/15864=1/2
9267/18534=1/2
9273/18546=1/2
9327/18654=1/2
5823/17469=1/3
5832/17496=1/3
3942/15768=1/4
4392/17568=1/4

……

……
1432/75896=1/53
1592/84376=1/53
1746/92538=1/53
1254/73986=1/59
1283/79546=1/62
1528/94736=1/62
1269/83754=1/66
1452/98736=1/68
Count:187     Time:1.826499999979

-------------------------------------------------------------------------------------------

把我的解法发上来，相互交流、学习。楼下已发的帖的可以继续完善自己的贴子。一星期结贴后总结发币币。

'代码复制至标准模块

Type data
    n As Integer
    a() As String
End Type

Dim ar(1 To 9) As Boolean
Dim mdata() As data
Dim ict As Integer

Sub hyy514()
Dim i As Integer
Dim t As Double
t = Timer
ict = 0
ReDim mdata(98765 / 1234)
For i = 1 To 9
    ar(i) = True
Next
fx "", 0
For i = 1 To 98765 / 1234
    If mdata(i).n > 0 Then
        Debug.Print Join(mdata(i).a, vbCrLf)
    End If
Next
Erase mdata
Debug.Print "Count:" & ict, "Time:" & Timer - t
End Sub

Sub fx(s As String, x As Integer)
Dim i As Integer
Dim tmp As Double
Dim mN As Integer
If x = 9 Then
    tmp = CLng(Right(s, 5)) / CLng(Left(s, 4))
    If tmp = Int(tmp) Then
        ict = ict + 1
        mN = mdata(tmp).n
        ReDim Preserve mdata(tmp).a(mN)
        mdata(tmp).a(mN) = Left(s, 4) & "/" & Right(s, 5) & "=1/" & tmp
        mdata(tmp).n = mN + 1
    End If
    Exit Sub
End If
For i = 1 To 9
    If ar(i) Then
        ar(i) = False
        fx s & i, x + 1
        ar(i) = True
    End If
Next
End Sub

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为10，奖励系数为1.2，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）

        4、公式必须适用于2003版本

        5、题目的具体要求见附件

点击浏览该文件

奖励：

基数	10
第1棒	12
第2棒	14
第3棒	17
第4棒	20
第5棒	24
第6棒	29
第7棒	35
第8棒	42
第9棒	50
第10棒	60
第11棒	72
第12棒	86
第13棒	103
第14棒	124
第15棒	149
第16棒	179
第17棒	215
第18棒	258
第19棒	310
第20棒	372

    严禁跟贴灌水，否则每贴扣罚20金币

        1、 什么是接力赛？详见 好玩的竟赛模式：优化接力赛http://www.excelpx.com/dispbbs.asp?boardID=99&ID=136591&page=1

        2、本题目奖励基数为2，奖励系数为1.35 ，详细请见附表。

        3、参与方式：下载附件然后对公式进行优化，如果你的公式式长度短于目前最短的公式长度，你就可以回贴提交公式（注明公式长度）和附件

        4、题目：要求返回汇总行最大值所在的列的最大明细值所对应的姓名。具体详见附件。

   点击浏览该文件  

       注：不能使用辅助单元格、定义名称和VBA

    附：奖励表               

基数	2
第1棒奖励	3
第2棒奖励	4
第3棒奖励	5
第4棒奖励	7
第5棒奖励	9
第6棒奖励	12
第7棒奖励	16
第8棒奖励	22
第9棒奖励	30
第10棒奖励	41
第11棒奖励	55
第12棒奖励	74
第13棒奖励	100
第14棒奖励	135
第15棒奖励	182
第16棒奖励	246
第17棒奖励	332

1. 一步指一个命令,一个函数公式(允许拖),也可以说成是一个不可分割的步骤.

2. 非VBA

3. 回复可见

4. 每个答案5BB