一汁一菜 TOSY

ArcasさんのYAKKAINA PUZZLE、苦戦しています。

<以下、ネタばれ注意です> 矢印あわせではまりました。
いろいろと試してみるのですが、うまく矢印と色が合わない...。
しばらく悩みましたが、うまくいきませんでした。

仕方なく、力技に。ExcelのVBAで、プログラムを組んで解くことにしました。
さんざん悩んで、ようやく、並べ方はわかりました!
でも、向きがわからず。いまだに悩んでいます。
うーん、今度の週末にでも行けたらいいなと思っているのですが、解けるのだろうか??



以下、少しネタばれですが、VBAの一部です。これを作るのに一日いっぱいかかりました...。
(判定の部分は掲載していません)
この難しいパズルをすぐに解いてしまうジオキャッシャーの方々、すごいです。







Const n As Integer = 9 '生成する順列数
Dim k As Integer
Dim p(n) As Integer
Dim dir1, dir2, dir3, dir4 As Integer


Sub permutation()
  Dim i As Integer
  k = 26 '表示する位置
  For i = 1 To n
    p(i) = i
  Next i
  perm 1
End Sub
Private Sub perm(i As Integer)
  Dim j, t As Integer
  If i < n Then
   For j = i To n
     t = p(i): p(i) = p(j): p(j) = t
     perm i + 1
     t = p(i): p(i) = p(j): p(j) = t
   Next j
  Else
     checkMatch
  End If

End Sub

Private Sub checkMatch()
    Dim j As Integer
   
   
    Dim match As Boolean
   
   
    For dir1 = 1 To 2
        For dir2 = 1 To 2
            For dir3 = 1 To 2
                For dir4 = 1 To 2
                    match = checkCoincide
                    If match = True Then
                        For j = 1 To n
                            Cells(k, j + 1).Value = p(j)
                        Next j
                        Cells(k, 11).Value = dir1
                        Cells(k, 12).Value = dir2
                        Cells(k, 13).Value = dir3
                        Cells(k, 14).Value = dir4
                    End If
                   
                Next dir4
            Next dir3
        Next dir2
    Next dir1

End Sub