燈泡亮與滅的設定?

q1a2z5

在C2,B4,B7,D4,D7儲存格代表一個燈泡，當在C2輸入"亮"，則會牽動C2左右兩邊的燈泡，C2會變滅；而C2左右兩邊則會變亮，
也就是說，滅的會變亮；亮的會變滅，
正確解法為五個燈泡全都亮。
問題：有沒有辦法用公式來設定？或者顯示正確解法呢？
謝謝！

mark15jill

沒看到燈泡 亮 與 滅的圖示...
且
正確解法為五個燈泡全都亮。
這是?

q1a2z5

回復 2# mark15jill

不好意思,這個是沒有燈泡圖示，只是用文字來顯示。就像數獨可用公式來設定正確解法。
所以，此問題可否用公式來設定呢？
3Q

stillfish00

回復 3# q1a2z5
自定義函數 , 複製下面代碼至一般模組
如在A1打上  =LightGame(C2,B4,B7,D7,D4)
會顯示C2,B4,B7 , 即是使五燈全亮所需開關的燈

須注意參數要依順時針或逆時針填入
代碼粗糙就不多解釋了

1. Function LightGame(in1, in2, in3, in4, in5) As String
   
2.     Dim adr(1 To 5)
   
3.     Dim d
   
4.     Dim init_s As String, op As String
   
5.     Dim i, j, k, m, ks
   
6.    
   
7.     adr(1) = in1.Address(0, 0)
   
8.     adr(2) = in2.Address(0, 0)
   
9.     adr(3) = in3.Address(0, 0)
   
10.     adr(4) = in4.Address(0, 0)
    
11.     adr(5) = in5.Address(0, 0)
    
12.    
    
13.     Set d = CreateObject("scripting.dictionary")
    
14.    
    
15.     init_s = in1 & "," & in2 & "," & in3 & "," & in4 & "," & in5     '初始狀態
    
16.     d.Add "0", init_s
    
17.    
    
18.     For i = 1 To 5
    
19.         For Each k In d.keys
    
20.             ks = Split(k, ",")
    
21.             For j = ks(UBound(ks)) + 1 To 5
    
22.                 s = Split(d(k), ",")
    
23.                 Select Case j - 1
    
24.                 Case LBound(s)
    
25.                     s(UBound(s)) = IIf(s(UBound(s)) = "亮", "滅", "亮")
    
26.                     s(j - 1) = IIf(s(j - 1) = "亮", "滅", "亮")
    
27.                     s(j) = IIf(s(j) = "亮", "滅", "亮")
    
28.                 Case UBound(s)
    
29.                     s(j - 2) = IIf(s(j - 2) = "亮", "滅", "亮")
    
30.                     s(j - 1) = IIf(s(j - 1) = "亮", "滅", "亮")
    
31.                     s(LBound(s)) = IIf(s(LBound(s)) = "亮", "滅", "亮")
    
32.                 Case Else
    
33.                     s(j - 2) = IIf(s(j - 2) = "亮", "滅", "亮")
    
34.                     s(j - 1) = IIf(s(j - 1) = "亮", "滅", "亮")
    
35.                     s(j) = IIf(s(j) = "亮", "滅", "亮")
    
36.                 End Select
    
37.                 d(k & "," & j) = Join(s, ",")
    
38.                
    
39.                 If Join(s, ",") = "亮,亮,亮,亮,亮" Then
    
40.                     ks = Split(k & "," & j, ",")
    
41.                     For m = 1 To UBound(ks)
    
42.                         If op = "" Then op = adr(ks(m)) Else op = op & "," & adr(ks(m))
    
43.                     Next m
    
44.                     LightGame = op
    
45.                     Set d = Nothing
    
46.                     Exit Function
    
47.                 End If
    
48.             Next j
    
49.         Next k
    
50.     Next i
    
51. End Function

複製代碼