[开_1] 它是轻了还是重了？★★★★

Emily · 发表于 2003-8-4 13:21

Logical check based on Floor 27, assumed only one ball is different from others Sub BallCheck() Const H = " is heavier than others " Const S = " is smaller than others " ' -----> I forgot to change it to lighter Const Ball = "Ball " Dim Answer As String Set wFx = Application.WorksheetFunction ' Check 1 ' If wFx.Sum([B1:B4]) = wFx.Sum([B5:B8]) Then ' Check 1 Option 1 ' Check 2 ( Option 1A ) If wFx.Sum([B1:B3]) = wFx.Sum([B9:B11]) Then ' Check 3 ( Option 1A ) If [B1] < [B12] Then Answer = Ball & "12" & H ElseIf [B1] > [B12] Then Answer = Ball & "12" & S End If Else ' Check 2 ( Option 1B ) If wFx.Sum([B1:B3]) < wFx.Sum([B9:B11]) Then ' Check 3 ( Option 1B ) If [B9] = [B10] Then Answer = Ball & "11" & H Else Answer = IIf([B9] < [B10], Ball & "10" & H, Ball & "9" & H) End If Else ' Check 2 ( Option 1C ) ' Check 3 ( Option 1C ) If [B9] = [B10] Then Answer = Ball & "11" & S Else Answer = IIf([B9] < [B10], Ball & "9" & S, Ball & "10" & S) End If End If End If ' ' Option 1 End ' Else If wFx.Sum([B1:B4]) < wFx.Sum([B5:B8]) Then ' Check 1 Option 2 ' Check 2 ( Option 2A ) If wFx.Sum([B2], [B3], [B5]) = wFx.Sum([B4], [B8], [B9]) Then ' Check 3 ( Option 2A ) If [B6] = [B7] Then Answer = Ball & "1" & S Else Answer = IIf([B6] < [B7], Ball & "7" & H, Ball & "6" & H) End If Else ' Check 2 ( Option 2B ) If wFx.Sum([B2], [B3], [B5]) > wFx.Sum([B4], [B8], [B9]) Then If [B4] = [B9] Then Answer = Ball & "5" & H ElseIf [B4] < [B9] Then Answer = Ball & "4" & S End If Else ' Check 2 ( Option 2C ) If [B2] = [B3] Then Answer = Ball & "8" & H Else Answer = IIf([B2] < [B3], Ball & "2" & S, Ball & "3" & S) End If End If End If ' ' Option 2 End ' Else ' Check 1 Option 3 ' Check 2 ( Option 3A ) If wFx.Sum([B2], [B3], [B5]) = wFx.Sum([B4], [B8], [B9]) Then ' Check 3 ( Option 3A ) If [B6] = [B7] Then Answer = Ball & "1" & H Else Answer = IIf([B6] < [B7], Ball & "6" & S, Ball & "7" & S) End If Else ' Check 2 ( Option 3B ) If wFx.Sum([B2], [B3], [B5]) < wFx.Sum([B4], [B8], [B9]) Then If [B4] = [B9] Then Answer = Ball & "5" & S ElseIf [B4] > [B9] Then Answer = Ball & "4" & H End If Else ' Check 2 ( Option 3C ) If [B2] = [B3] Then Answer = Ball & "8" & S Else Answer = IIf([B2] < [B3], Ball & "3" & H, Ball & "2" & H) End If End If End If End If ' ' Option 3 End ' End If If Answer <> "" Then MsgBox Answer End Sub

URMmiBSE.zip (12.66 KB, 下载次数: 52)

[此贴子已经被作者于2003-8-4 17:17:57编辑过]

chenjun · 发表于 2003-8-4 15:30

Emily: 要是只能用函数公式，是不是麻烦。

Emily · 发表于 2003-8-4 17:28

我今天用在以上的語句有2小時多(不是連續)。用單一行函數不是沒有可能，但驗證相當難吧。或可以試試將以上的語句用名稱方法儲存邏輯性測試。

chenjun · 发表于 2003-8-4 21:34

我用cheerson的步骤做了一个用公式表示每一步的例子，不是很好，供大家玩玩。

LIcOzSqz.zip (3.06 KB, 下载次数: 61)

半榻茶烟 · 发表于 2003-8-5 17:05

这是用Excel的解法。条件：第2和第3次称时若某球所在一边轻重和上次称不同，则可判定此球为标准球。

jLyaH0i4.zip (17.97 KB, 下载次数: 122)

twch9270 · 发表于 2003-8-5 18:06

我觉得问题还是很朦胧，不知有谁可以把答案说出来，上面的答案我试过，好象都不行。

半榻茶烟 · 发表于 2003-8-5 21:58

twch9270兄请提提意见。

caoxiumei · 发表于 2003-8-6 12:43

Excelhome 论坛只讨论 Excelhome 及其它 Office 组件的问题，不讨论包括易表在内的其他软件。一而再、再而三地在 Excelhome 强行宣传易表是一种将自己的意志、喜好强加于他人的错误行为，是一种过分的纠缠和骚扰。请此类行为者好自为之！！！

[此贴子已经被Edward.Zhou于2003-8-11 3:32:18编辑过]

半榻茶烟 · 发表于 2003-8-6 23:41

易表论坛上的解法只是已知答案后的一个演示，而我的答案的中心是利用Excel怎样得知正确的称法。

37898102 · 发表于 2005-4-22 09:13

[em06]

		自动登录	找回密码
密码			免费注册

[Excel 函数与公式] [开_1] 它是轻了还是重了？★★★★

用Excel的解法。