kjdhbgikaer

Option Explicit

'カードの中身に黄色を追加・・・ver. ゲーム(1)_2
'keep作成終わり ・・・・・・・ver. ゲーム(1)_3 / / / / 20170328
'wild作成終わり ・・・・・・・ver. ゲーム(1)_5 / / / / 20170329
'vanish作成終わり・・・・・・・ver. ゲーム(1)_6 / / / / 20170329
'F/Yield作成終わり  ・・・・・ver. ゲーム(1)_7 / / / / 20170329
'com  作成始まり  ・・・・・ver. this  / / / / / / 20170402


'前カードアーカイブ表示実装完了in Range("da").value
'前カードの枚数を無限化実装完了




Dim c As Long

Sub Sample()

  Call finishgame

  Dim a, aa, h, j As Long
   Dim i As Long, myNum As Long
   Dim myFlag(1 To 78) As Boolean
   Dim zencard() As String
   Dim maisu, player As Long
   Dim fielda As Range
   Dim fieldb As Range
   Range("a1") = "PLAYER1"
   Range("o7") = "PLAYER2"
   Range("o5") = "PLAYER1"
   Range("b1") = "PLAYER2"
   Range("j2") = "準  デ"
   Range("k2") = "ッ  キ"
   Range("j25") = "ル ー ル"
   Range("k25") = "説 明"
   Range("j3") = "PLAYER1"
   Range("k3") = "PLAYER2"
   Range("P5") = "カードをめくる1"
   Range("P7") = "カードをめくる2"
   Range("P9") = "ターン終了"
   Range("P43") = "ゲーム終了"
   Range("P39") = "ゲーム開始"
   Range("a9:b44") = ""
   Range("o2:q2") = ""
   Range("AKB48").Copy Range("q5")
   Range("j2").HorizontalAlignment = xlCenter
   Range("k2").HorizontalAlignment = xlCenter
   Range("j25").HorizontalAlignment = xlCenter
   Range("k25").HorizontalAlignment = xlCenter
   Range("p2").HorizontalAlignment = xlCenter
   Range("p9").HorizontalAlignment = xlCenter
   Range("p21").HorizontalAlignment = xlCenter
   Range("p13").HorizontalAlignment = xlCenter
   Range("p15").HorizontalAlignment = xlCenter
   Range("b2:b22").Interior.ColorIndex = 0
   Range("a2:a22").Interior.ColorIndex = 0

  Range("p13") = "王手!!"
   Range("p15") = "UNO!!!"

  Range("j26") = "基礎"
   Range("k26") = "応用"
   Range("j28") = "( 文 字 カ ー ド )"
   Range("j29") = "K(keep)"
   Range("k29") = "H(help)"
   Range("j30") = "W(Wild)"
   Range("k30") = "D(Draw2)"
   Range("j31") = "N(Nuisance)"
   Range("j32") = "C(thisCardall)"
   Range("j43") = "↑見たい項目を左クリック!"
   
   
   Set fielda = Range("a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54")
   Set fieldb = Range("b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,b27,b28,b29,b30,b31,b32,b33,b34,b35,b36,b37,b38,b39,b40,b41,b42,b43,b44,b45,b46,b47,b48,b49,b50,b51,b52,b53,b54")


  maisu = 78
   player = 2
   ReDim zencard(maisu)
   
   
   
   For a = 0 To 9
       Sheets("Sheet2").Cells(a + 1, 1).Value = "青" & a
       Sheets("Sheet2").Cells(a + 11, 1).Value = "赤" & a
       Sheets("Sheet2").Cells(a + 21, 1).Value = "緑" & a
       Sheets("Sheet2").Cells(a + 31, 1).Value = "黄" & a
               
   Next a
   
       Sheets("sheet2").Cells(41, 1) = "青D"
       Sheets("sheet2").Cells(42, 1) = "赤D"
       Sheets("sheet2").Cells(43, 1) = "緑D"
       Sheets("sheet2").Cells(44, 1) = "黄D"
       Sheets("sheet2").Cells(45, 1) = "青K"
       Sheets("sheet2").Cells(46, 1) = "赤K"
       Sheets("sheet2").Cells(47, 1) = "緑K"
       Sheets("sheet2").Cells(48, 1) = "黄K"
       Sheets("sheet2").Cells(55, 1) = "色赤H"
       Sheets("sheet2").Cells(56, 1) = "色青H"
       Sheets("sheet2").Cells(57, 1) = "色緑H"
       Sheets("sheet2").Cells(58, 1) = "色黄H"
       Sheets("sheet2").Cells(59, 1) = "赤N"
       Sheets("sheet2").Cells(60, 1) = "青N"
       Sheets("sheet2").Cells(61, 1) = "緑N"
       Sheets("sheet2").Cells(62, 1) = "黄N"
       Sheets("sheet2").Cells(63, 1) = "赤C"
       Sheets("sheet2").Cells(64, 1) = "青C"
       Sheets("sheet2").Cells(65, 1) = "緑C"
       Sheets("sheet2").Cells(66, 1) = "黄C"
       Sheets("sheet2").Cells(67, 1) = "赤V"
       Sheets("sheet2").Cells(68, 1) = "青V"
       Sheets("sheet2").Cells(69, 1) = "緑V"
       Sheets("sheet2").Cells(70, 1) = "黄V"
       Sheets("sheet2").Cells(71, 1) = "赤F"
       Sheets("sheet2").Cells(72, 1) = "青F"
       Sheets("sheet2").Cells(73, 1) = "緑F"
       Sheets("sheet2").Cells(74, 1) = "黄F"
       Sheets("sheet2").Cells(75, 1) = "赤Y"
       Sheets("sheet2").Cells(76, 1) = "青Y"
       Sheets("sheet2").Cells(77, 1) = "緑Y"
       Sheets("sheet2").Cells(78, 1) = "黄Y"
       
   
   For a = 0 To 5
       Sheets("Sheet2").Cells(a + 49, 1).Value = "色W"
   Next a
   
   
   
   For j = 1 To maisu
       '配列zencardに残りの前カードを全部格納
       zencard(j) = Range("cw" & j).Value
   Next j
   
   Range("h15").Borders.LineStyle = True
   Range("p5").Borders.LineStyle = True
   Range("p7").Borders.LineStyle = True
   Range("p9").Borders.LineStyle = True
   Range("p39").Borders.LineStyle = True
   Range("p43").Borders.LineStyle = True
   Range("p13").Borders.LineStyle = True
   Range("p15").Borders.LineStyle = True
   Range("j2:k23").BorderAround Weight:=xlThin
   Range("j2:k2").BorderAround Weight:=xlThin
   Range("j25:k42").BorderAround Weight:=xlThin
   Range("j25:k25").BorderAround Weight:=xlThin


  '乱数系列を初期化
   Randomize
   
   For i = 1 To 7
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("a" & i + 1) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
       
   Next i
   
   For i = 8 To 15
       If i > 7 And i < 15 Then
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("b" & i - 6) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""

      End If
       
   If i = 15 Then
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("h15") = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
       End If
   Next i
   
   For i = 16 To 17
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("j" & i - 12) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
   Next i
       
   For i = 18 To 19
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("k" & i - 14) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
   Next i
   
   For i = 20 To 21
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("v" & i + 37) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
   Next i
   
   For i = 22 To 23
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       
       Range("w" & i + 35) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
   Next i
   
   For i = 24 To maisu
       Do
           '乱数=Int((最大値 - 最小値 +1 ) * Rnd + 最小値)
           myNum = Int((maisu - 1 + 1) * Rnd + 1)
       Loop Until myFlag(myNum) = False
       
       Cells(i, 100).Value = myNum
       myFlag(myNum) = True
       Range("cw" & i - 23) = Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i))
       Sheets("Sheet2").Range("a" & Sheets("Sheet1").Range("cv" & i)) = ""
   Next i
   
   
   
   Range("o2") = "現在は"
   Range("p2") = "PLAYER 1"
   Range("q2") = "のターンです"
   Call turn

  
   MsgBox2 "カードの配布が終了しました。" & vbCrLf & "ゲームを開始します。"
   Range("da1").Value = Range("h15").Value
       
   Call オセロ準備
   
   'MsgBox2 maisu
   'MsgBox2 LBound(zencard) & vbCrLf & UBound(zencard)



  
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)

  Dim turn As Long
   Dim h, nu As Long
   Dim fielda, fieldb As Range
   Dim nsearch1, nsearch2 As Range
   Set fielda = Range("a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54")
   Set fieldb = Range("b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,b27,b28,b29,b30,b31,b32,b33,b34,b35,b36,b37,b38,b39,b40,b41,b42,b43,b44,b45,b46,b47,b48,b49,b50,b51,b52,b53,b54")
   Set nsearch1 = Range("a2:a27").Find(what:="N")
   Set nsearch2 = Range("b2:b27").Find(what:="N")
   
   
       
       If Range("p2") = "PLAYER 1" Then
           If target.Row <= 22 And target.Row >= 2 And target.Column = 2 Then
               MsgBox2 "違うプレイヤーのカードです"
           ElseIf target.Row <= 23 And target.Row >= 4 And target.Column = 11 Then
               MsgBox2 "違うプレイヤーのカードです"
           ElseIf Left(target.Value, 1) = Left(Range("h15").Value, 1) Or Right(target.Value, 1) = Right(Range("h15").Value, 1) Or Left(target.Value, 1) = "色" Then
               MsgBox2 " 前カード" & vbCrLf & Range("h15").Value
               MsgBox2 "出すカード" & vbCrLf & target.Value
               
               If nsearch1 Is Nothing Then
                   If Left(target.Value, 1) = "色" Then
                   
                   
                           If Right(target.Value, 1) = "W" Then
                               MsgBox "Wild"
                               Call wild
                           End If
                       
                           If Right(target.Value, 1) = "H" Then
                               MsgBox "Help"
                               Range("ad14").Value = target.Value
                               Call help
                           End If
                   End If
               ElseIf Left(target.Value, 1) <> "色" Then
               
               Else
                   MsgBox "Nuisanceカードを持っているため、そのカードは出せません。"
                   cancel = True
                   Exit Sub

              End If
               
               If Range("h14").Value = "↓次の色↓" Then
                   If Right(Range("h15").Value, 1) <> "_" Then
                       Range("h15").Value = target.Value
                   End If
               End If
               cancel = True
               If Right(Range("h15").Value, 1) = "_" Then
                   If Range("h14").Value = "↓次の色↓" Then
                       target.Value = ""
                       Range("h14").Value = ""
                   Else
                       Range("h15").Value = target.Value
                   End If
               Else
                   Range("h15").Value = target.Value
               End If
               target.Value = ""
               If Range("h13") <> "" Then
                   Range("h15").Value = Range("h13").Value
                   Range("h13").Value = ""

              End If
               
               
               If Right(Range("h15").Value, 1) = "D" Then
                   MsgBox "draw2"
                   Call draw2
               End If
               
               If Right(Range("h15").Value, 1) = "K" Then
                   MsgBox "Keep"
                   Call keep
               End If
               
               If Right(Range("h15").Value, 1) = "N" Then
                   MsgBox "Nuisance"
                   Call nuisance
               End If
                           
               If Right(Range("h15").Value, 1) = "C" Then
                   MsgBox "thisCard all"
                   Call thiscardall
               End If
                   
               If Right(Range("h15").Value, 1) = "V" Then
                   MsgBox "Vanish"
                   Call vanish
               End If
               
               If Right(Range("h15").Value, 1) = "F" Then
                   MsgBox "Force"
                   Call force
               End If

              If Right(Range("h15").Value, 1) = "Y" Then
                   MsgBox "Yield"
                   Call yield
               End If
               
               
           ElseIf target.Value = "" Then
               MsgBox2 "正しいセルをダブルクリックしてください。"
           Else
               MsgBox2 "色も数字も違うので出せません"
           
           End If
       MsgBox "カードを出しました"
       Range("r53").Select
       End If
           
       If Range("p2") = "PLAYER 2" Then
           If target.Row <= 22 And target.Row >= 2 And target.Column = 1 Then
               MsgBox2 "違うプレイヤーのカードです"
           ElseIf Left(target.Value, 1) = Left(Range("h15").Value, 1) Or Right(target.Value, 1) = Right(Range("h15").Value, 1) Or Left(target.Value, 1) = "色" Then
               MsgBox2 " 前カード" & vbCrLf & Range("h15").Value
               MsgBox2 "出すカード" & vbCrLf & target.Value
               
               If nsearch1 Is Nothing Then
                   If Left(target.Value, 1) = "色" Then
                   
                   
                           If Right(target.Value, 1) = "W" Then
                               MsgBox "Wild"
                               Call wild
                           End If
                       
                           If Right(target.Value, 1) = "H" Then
                               MsgBox "Help"
                               Call help
                           End If
                   End If
               ElseIf Left(target.Value, 1) <> "色" Then
               
               Else
                   MsgBox "Nuisanceカードを持っているため、そのカードは出せません。"
                   cancel = True
                   Exit Sub

              End If
               
               Range("da1").Value = Range("h15").Value
               If Range("h14").Value = "↓次の色↓" Then
                   If Right(Range("h15").Value, 1) <> "_" Then
                       Range("h15").Value = target.Value
                   End If
               End If
               cancel = True
               If Right(Range("h15").Value, 1) = "_" Then
                   If Range("h14").Value = "↓次の色↓" Then
                       target.Value = ""
                       Range("h14").Value = ""
                   Else
                       Range("h15").Value = target.Value
                   End If
               Else
                   Range("h15").Value = target.Value
               End If
               target.Value = ""
               If Range("h13") <> "" Then
                   Range("h15").Value = Range("h13").Value
                   Range("h13").Value = ""

              End If
               
               
               If Right(Range("h15").Value, 1) = "D" Then
                   MsgBox "draw2"
                   Call draw2
               End If
               
               If Right(Range("h15").Value, 1) = "K" Then
                   MsgBox "Keep"
                   Call keep
               End If
               
               If Right(Range("h15").Value, 1) = "N" Then
                   MsgBox "Nuisance"
                   Call nuisance
               End If
                           
               If Right(Range("h15").Value, 1) = "C" Then
                   MsgBox "thisCard all"
                   Call thiscardall
               End If
                   
               If Right(Range("h15").Value, 1) = "V" Then
                   MsgBox "Vanish"
                   Call vanish
               End If

              If Right(Range("h15").Value, 1) = "F" Then
                   MsgBox "Force"
                   Call force
               End If
                               
               If Right(Range("h15").Value, 1) = "Y" Then
                   MsgBox "Yield"
                   Call yield
               End If

              
               
           ElseIf target.Value = "" Then
               MsgBox2 "正しいセルをダブルクリックしてください。"
           Else
               MsgBox2 "色も数字も違うので出せません"

          
           End If
       End If
       
Dim flag As Long
flag = 0
For h = 2 To 78
  If Range("a" & h) = "" Or Range("b" & h) = "" Then
   
   Else
       flag = 1
   End If
Next h

If flag = 0 Then
  Dim winner As String
   winner = Range("p2")
   MsgBox winner & "の勝ちです。"
   Call finishgamerial
End If

Call kiroku

          
End Sub

Private Sub worksheet_beforerightclick(ByVal target As Range, cancel As Boolean)

  Dim b As Long
   Dim aroundcount As Long
   Dim Sheet3 As Worksheet
   Set Sheet3 = Worksheets("Sheet3")
   'P5セル・P7セルを左クリックしたら

  If target.Row = 5 And target.Column = 16 Or target.Row = 7 And target.Column = 16 Then
       c = c + 1
       For b = 0 To 78
           If target.Value = "カードをめくる1" Then
               If Range("a" & b + 2).Value = "" Then
                   'MsgBox c
                   Range("a" & b + 2).Value = Range("cw" & c).Value
                   'Range("cw" & b + 1).Value = ""
                   Exit For
               Else
               
               End If
           Else
               If Range("b" & b + 2).Value = "" Then
                   'MsgBox c
                   Range("b" & b + 2).Value = Range("cw" & c).Value
                   'Range("cw" & b + 1).Value = ""
                   Exit For
               Else
           
               End If
           End If
       Next b
       cancel = True
       If c = 59 Then
           aroundcount = aroundcount + 1
           c = 0
           MsgBox "前カードが" & aroundcount + 1 & "周目に入ります。"
       End If
   End If
   
   
   'P9セルを左クリックしたら
   If target.Row = 9 And target.Column = 16 Then
   MsgBox3 "ターンを終了します。"
       Range("h15").Value = Replace(Range("h15").Value, "色", "")
       Call turnchange
       cancel = True
       If Left(Range("p2").Value, 1) = "C" Then
           Call comturn
       End If
   End If

  'P43セルを左クリックしたら
   If target.Row = 43 And target.Column = 16 Then
   MsgBox2 "ゲームを終了します。" & vbCrLf & "もう一度やるにはF5キーを押してください"
       Call finishgame
       cancel = True
       Range("P39") = "ゲーム開始"
       Range("p39").Borders.LineStyle = True
   End If
   
   'P39セルを左クリックしたら
   If target.Row = 39 And target.Column = 16 Then
       Call Sample
       cancel = True
   End If
   
   'j26セルを左クリックしたら
   If target.Row = 26 And target.Column = 10 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます1"
       MsgBox "「基礎」ルールを表示しています。" & vbCrLf & "市販のUNOのルールがわからない人はこちらを参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If
   
   'k26セルを左クリックしたら
   If target.Row = 26 And target.Column = 11 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます2"
       MsgBox "「応用」ルールを表示しています。" & vbCrLf & "市販のUNOのルールはわかる人はこちらを参照してください。" & vbCrLf & "市販のUNOには存在しないルールを書いています。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If
   
   'j29セルを左クリックしたら
   If target.Row = 29 And target.Column = 10 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます3"
       MsgBox "「Keep」に関するルールを表示しています。" & vbCrLf & "Keepのルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If
   
   'k29セルを左クリックしたら
   If target.Row = 29 And target.Column = 11 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます4"
       MsgBox "「Help」に関するルールを表示しています。" & vbCrLf & "Helpのルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If

  'j30セルを左クリックしたら
   If target.Row = 30 And target.Column = 10 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます5"
       MsgBox "「Wild」に関するルールを表示しています。" & vbCrLf & "Wildのルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If

  'k30セルを左クリックしたら
   If target.Row = 30 And target.Column = 11 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます6"
       MsgBox "「Draw2」に関するルールを表示しています。" & vbCrLf & "Draw2のルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If

  'j31セルを左クリックしたら
   If target.Row = 31 And target.Column = 10 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます7"
       MsgBox "「Nuisance」に関するルールを表示しています。" & vbCrLf & "Nuisanceのルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If
   
       'j32セルを左クリックしたら
   If target.Row = 32 And target.Column = 10 Then
   
       Worksheets("Sheet3").Activate
       Sheet3.Range("A1").Select
       Sheet3.Range("a1") = "ここにルールを書きます8"
       MsgBox "「thisCardall」に関するルールを表示しています。" & vbCrLf & "thisCardallのルールがわからなくなったら参照してください。" & vbCrLf & "読み終わったらOKを押してください。" & vbCrLf & "ゲームのシートに戻ります。"
       Worksheets("Sheet1").Activate
       cancel = True
   
   End If


  'p13セルを左クリックしたら
   If target.Row = 13 And target.Column = 16 Then
   
       If Range("p2") = "PLAYER 1" Then
   
           If Range("q5").Value = "" Then
               Range("q5").Value = "王手です"
               Range("q5").Interior.ColorIndex = 1
               Range("q5").Font.ColorIndex = 2
           Else
               Range("q5").Value = ""
               Range("q5").Interior.ColorIndex = 0
               Range("q5").Font.ColorIndex = 1

              
           End If
       ElseIf Range("p2") = "PLAYER 2" Then
           If Range("q7").Value = "" Then
               Range("q7").Value = "王手です"
               Range("q7").Interior.ColorIndex = 1
               Range("q7").Font.ColorIndex = 2
           Else
               Range("q7").Value = ""
               Range("q7").Interior.ColorIndex = 0
               Range("q7").Font.ColorIndex = 1
           End If
           
           
       End If
           
   
       cancel = True
   End If
   
   'p15セルを左クリックしたら
   If target.Row = 15 And target.Column = 16 Then
   
       If Range("p2") = "PLAYER 1" Then
   
           If Range("q5").Value = "" Then
               Range("q5").Value = "UNOです"
               Range("q5").Interior.ColorIndex = 1
               Range("q5").Font.ColorIndex = 2
           Else
               Range("q5").Value = ""
               Range("q5").Interior.ColorIndex = 0
               Range("q5").Font.ColorIndex = 1

              
           End If
       ElseIf Range("p2") = "PLAYER 2" Then
           If Range("q7").Value = "" Then
               Range("q7").Value = "UNOです"
               Range("q7").Interior.ColorIndex = 1
               Range("q7").Font.ColorIndex = 2
           Else
               Range("q7").Value = ""
               Range("q7").Interior.ColorIndex = 0
               Range("q7").Font.ColorIndex = 1
           End If
       End If
   
       cancel = True
   End If

  
End Sub

Sub turn()

  If Range("p2") = "PLAYER 1" Then
       Range("a2:a100").Interior.ColorIndex = 0
       Range("b2:b100").Interior.ColorIndex = 1
       Range("n2").Value = "●"
       Range("r2").Value = "○"
   End If

End Sub

Sub turnchange()

  If Range("p2") = "PLAYER 1" Then
       Range("a2:a100").Interior.ColorIndex = 1
       Range("b2:b100").Interior.ColorIndex = 0
       Range("p2") = "PLAYER 2"
       Range("n2").Value = "○"
       Range("r2").Value = "●"
               
   ElseIf Range("p2") = "PLAYER 2" Then
       Range("a2:a100").Interior.ColorIndex = 0
       Range("b2:b100").Interior.ColorIndex = 1
       Range("p2") = "PLAYER1"
       Range("n2").Value = "●"
       Range("r2").Value = "○"

  End If
   
End Sub

Sub finishgame()

  Range("AKB48").Copy Range("a1:db100")
   c = 0

End Sub

Sub finishgamerial()

  Range("b2:b100").Interior.ColorIndex = 0
   Range("a2:a100").Interior.ColorIndex = 0
   MsgBox "試合が終了しました。" & vbCrLf & "敗北したプレイヤーの残りのカードを表示しています" & vbCrLf & "OKを押すと全部終了します"

  Range("AKB48").Copy Range("a1:db100")

  c = 0

End Sub

Sub comturn()

  Dim b As Long
   Dim com1search1, com1search2 As Range
   Dim com1col, com1num As String
   If Range("p2").Value = "COM1" Then
       MsgBox2 "COM1のターンです。" & vbCrLf & "OKを押すとCOMがカードを出します。"
       com1col = Left(Range("h15").Value, 1)
       com1num = Right(Range("h15").Value, 1)
       Set com1search1 = Range("c2:c80").Find(what:=com1col)
       Set com1search2 = Range("c2:c80").Find(what:=com1num)
       If com1search1 Is Nothing Then
           If com1search2 Is Nothing Then
               c = c + 1
               For b = 0 To 78
                   If Range("c" & b + 2).Value = "" Then
                       Range("c" & b + 2).Value = Range("cw" & c).Value
                       MsgBox2 "1枚引きました。"
                       Exit For
                   Else
                   
                   End If
               Next b
           Else
               com1search2.Select
               Range("h15").Value = com1search2
               Selection.ClearContents
           End If
       Else
           com1search1.Select
           Range("h15").Value = com1search1
           Selection.ClearContents
       End If
       If com1search1 Is Nothing Then
           If com1search2 Is Nothing Then
           
           Else
           MsgBox2 "カードを出しました。"
           End If
       Else
           MsgBox2 "カードを出しました。"
       End If
       Call kiroku
       Call turnend
   End If
               

      

End Sub

Sub draw2()
  Dim b As Long
       c = c + 1
       For b = 0 To 78
           If Range("p2").Value = "PLAYER 1" Then
               If Range("b" & b + 2).Value = "" Then
                   MsgBox2 "Draw2が出されました。" & vbCrLf & "PLAYER2のデッキにカードを2枚追加します。" & vbCrLf & "一番最初の空白セルおよびその1つ下のセルにカードが追加されます。"
                   Range("b" & b + 2).Value = Range("cw" & c).Value
                   c = c + 1
                   Range("b" & b + 3).Value = ""
                   Range("b" & b + 3).Value = Range("cw" & c).Value
                   Exit For
               Else
               
               End If
           Else
               If Range("a" & b + 2).Value = "" Then
                   MsgBox2 "Draw2が出されました。" & vbCrLf & "PLAYER1のデッキにカードを2枚追加します。" & vbCrLf & "一番最初の空白セルおよびその1つ下のセルにカードが追加されます。"
                   Range("a" & b + 2).Value = Range("cw" & c).Value
                   c = c + 1
                   Range("a" & b + 3).Value = ""
                   Range("a" & b + 3).Value = Range("cw" & c).Value
                   Exit For
               Else
           
               End If
           End If
       Next b
   

End Sub

Sub keep()
  Dim b As Long
       c = c + 1
       For b = 0 To 78
           If Range("p2").Value = "PLAYER 1" Then
               If Range("j" & b + 2).Value = "" Then
                   MsgBox2 "keepが出されました。" & vbCrLf & "PLAYER1の準デッキにカードを2枚追加します。" & vbCrLf & "一番最初の空白セルおよびその1つ下のセルにカードが追加されます。"
                   Range("j" & b + 2).Value = Range("cw" & c).Value
                   c = c + 1
                   Range("j" & b + 3).Value = Range("cw" & c).Value
                   Exit For
               Else
               
               End If
           Else
               If Range("k" & b + 2).Value = "" Then
                   MsgBox2 "keepが出されました。" & vbCrLf & "PLAYER2の準デッキにカードを2枚追加します。" & vbCrLf & "一番最初の空白セルおよびその1つ下のセルにカードが追加されます。"
                   Range("k" & b + 2).Value = Range("cw" & c).Value
                   c = c + 1
                   Range("k" & b + 3).Value = Range("cw" & c).Value
                   Exit For
               Else
           
               End If
           End If
       Next b
   
End Sub

Sub wild()

  Dim wildcolor As String
   
   MsgBox "wildが出されました。色を指定します。" & vbCrLf & "次の画面で、色を入力してください。" & vbCrLf & "「赤」「青」「緑」「黄」以外を入力するとエラーになります"
' Do
      wildcolor = InputBox("色を入力してください。「赤」「青」「緑」「黄」")
' Loop While wildcolor <> "赤" Or "青" Or "緑" Or "黄"
  MsgBox wildcolor & "色に設定しました。"
   Range("h15").Value = wildcolor & "_"
   Range("h14").Value = "↓次の色↓"

End Sub

Sub help()

  Dim doublehelp As String
   
   If Right(Range("h15").Value, 1) = "H" And Left(Range("h15").Value, 1) = "色" Then
       
   Call kiroku
       
       MsgBox "Helpが2枚出されました。" & vbCrLf & "デッキの中で好きなカードを1枚捨てることができます。" & vbCrLf & "捨てたいカードを入力して選んでください。"
       doublehelp = InputBox("捨てたいカードが入力されているセルを半角で入力してください")
       'If Range(doublehelp).Value <> "" Or Left(doublehelp, 1) <> "a" Or Left(doublehelp, 1) <> "A" Or doublehelp = "a1" Or doublehelp = "A1" Or Len(doublehelp) <> 2 Then
       If Range(doublehelp).Value = "" Then
' Do While Range(doublehelp).Value <> "" Or Left(doublehelp, 1) <> "a" Or Left(doublehelp, 1) <> "A" Or doublehelp = "a1" Or doublehelp = "A1"
          Do While Range(doublehelp).Value = ""
               doublehelp = InputBox("もう一度、捨てたいカードが入力されているセル半角で入力して下さい。")
           Loop
       Else

          MsgBox "セル「" & doublehelp & "」に入力されているカードを捨てます。"
           Range("h13").Value = Range(doublehelp).Value
       End If
       
       
       Range(doublehelp).Value = ""
       If Right(Range(doublehelp).Value, 1) = "H" Then
           Range(doublehelp).Value = ""
       End If

  Else
   
   End If
   

End Sub

Sub nuisance()

  MsgBox2 "効果はなにもありません。"

End Sub

Sub thiscardall()

  Dim cc, ccount As Long
   Dim col As String
   Dim ctop As String
   Dim csearch As Range
   If Range("p2").Value = "PLAYER 1" Then
       col = Left(Range("h15").Value, 1)
       Set csearch = Range("a2:a40").Find(what:=col)
       If csearch Is Nothing Then
           MsgBox2 "捨てられるカードはありませんでした。"
       Else
           csearch.Select
           MsgBox "あなたのデッキの中に" & col & "色のカードが見つかりましたので、" & vbCrLf & "それらをすべて出すことができます。出す際、一番上にするカードを1枚選択してください。" & vbCrLf & "それがH15セルに入力されます。"
           ctop = InputBox("一番上にしたいカードが入力されているセルを半角で入力してください")
           MsgBox "セル「" & ctop & "」に入力されているカードを一番上にします。"
           Range("h15").Value = Range(ctop).Value
           Range(ctop).Value = ""
           For cc = 2 To 40
               If Left(Range("a" & cc).Value, 1) = col Then
                   ccount = ccount + 1
                   Range("a" & cc).Value = ""
               End If
           Next cc
           MsgBox "合計" & ccount + 1 & "枚のカードを捨てました。"
       End If
   Else
       col = Left(Range("h15").Value, 1)
       Set csearch = Range("b2:b40").Find(what:=col)
       If csearch Is Nothing Then
           MsgBox2 "捨てられるカードはありませんでした。"
       Else
           csearch.Select
           MsgBox "あなたのデッキの中に" & col & "色のカードが見つかりましたので、" & vbCrLf & "それらをすべて出すことができます。出す際、一番上にするカードを1枚選択してください。" & vbCrLf & "それがH15セルに入力されます。"
           ctop = InputBox("一番上にしたいカードが入力されているセルを半角で入力してください")
           MsgBox "セル「" & ctop & "」に入力されているカードを一番上にします。"
           Range("h15").Value = Range(ctop).Value
           Range(ctop).Value = ""
           For cc = 2 To 40
               If Left(Range("b" & cc).Value, 1) = col Then
                   ccount = ccount + 1
                   Range("b" & cc).Value = ""
               End If
           Next cc
           MsgBox "合計" & ccount + 1 & "枚のカードを捨てました。"
       End If
   End If


End Sub

Sub vanish()

  Dim vv As Long
   Dim vsearch As Range
   Dim vcsearch As Range
   Dim colorc As String
   If Range("p2").Value = "PLAYER 1" Then
       Set vsearch = Range("b2:b40").Find(what:="C")
       If vsearch Is Nothing Then
           MsgBox2 "次のターンのプレイヤーはthisCardallを所持していません。" & vbCrLf & "したがって、効果はなにもありません。"
       Else
           vsearch.Select
           colorc = Left(Selection.Value, 1)
           MsgBox "ご覧のように、次のターンのプレイヤーは" & vbCrLf & "現在表示されているセルにthisCardallを所持しています。" & vbCrLf & "従って、そのプレイヤーのthisCardallとそのthisCardallの色の「あなたのデッキのカード」がすべて消えます。" & vbCrLf & "この作業によりそのプレイヤーのカードが全部なくなった場合、" & vbCrLf & "そのプレイヤーの勝ちとなり、あなたは敗北します。ご了承ください。"
           Selection.Value = ""
           Set vcsearch = Range("b2:b40").Find(what:=colorc)
           If vcsearch Is Nothing Then
               MsgBox2 "あなたのデッキを検索した結果、" & vbCrLf & "どうやら今回はあなたに効果はないようです。"
           Else
               MsgBox "捨てるカードが見つかりましたのでそれらをすべて捨てます。"
               For vv = 2 To 40
                   If Left(Range("a" & vv).Value, 1) = colorc Then
                       Range("a" & vv).Value = ""
                   End If
               Next vv
           End If
       End If
   Else
       Set vsearch = Range("a2:a40").Find(what:="C")
       If vsearch Is Nothing Then
           MsgBox2 "次のターンのプレイヤーはthisCardallを所持していません。" & vbCrLf & "したがって、効果はなにもありません。"
       Else
           vsearch.Select
           colorc = Left(Selection.Value, 1)
           MsgBox "ご覧のように、次のターンのプレイヤーは" & vbCrLf & "現在表示されているセルにthisCardallを所持しています。" & vbCrLf & "従って、そのプレイヤーのthisCardallとそのthisCardallの色の「あなたのデッキのカード」がすべて消えます。" & vbCrLf & "この作業によりそのプレイヤーのカードが全部なくなった場合、" & vbCrLf & "そのプレイヤーの勝ちとなり、あなたは敗北します。ご了承ください。"
           Selection.Value = ""
           Set vcsearch = Range("a2:a40").Find(what:=colorc)
           If vcsearch Is Nothing Then
               MsgBox2 "あなたのデッキを検索した結果、" & vbCrLf & "どうやら今回はあなたに効果はないようです。"
           Else
               MsgBox "捨てるカードが見つかりましたのでそれらをすべて捨てます。"
               For vv = 2 To 40
                   If Left(Range("b" & vv).Value, 1) = colorc Then
                       Range("b" & vv).Value = ""
                   End If
               Next vv
           End If
       End If
   End If
       


End Sub

Sub force()

  Dim ff, fcount As Long
   Dim fsearch As Range
   Dim fdoublehelp As String
   If Range("p2").Value = "PLAYER 1" Then
       Set fsearch = Range("b2:b40").Find(what:="H")
       If fsearch Is Nothing Then
           MsgBox2 "次のターンのプレイヤーはHelpを所持していません。" & vbCrLf & "したがって、効果はなにもありません。"
       Else
           fsearch.Select
           MsgBox "ご覧のように、次のターンのプレイヤーは" & vbCrLf & "現在表示されているセルにHelpを所持しています。" & vbCrLf & "従って、そのプレイヤーのHelpがすべて消えます。" & vbCrLf & "この作業によりそのプレイヤーのカードが全部なくなった場合、" & vbCrLf & "そのプレイヤーの勝ちとなり、あなたは敗北します。ご了承ください。"
           For ff = 2 To 40
               If Right(Range("b" & ff).Value, 1) = "H" Then
                   fcount = fcount + 1
                   Range("b" & ff).Value = ""
               End If
           Next ff
           If fcount > 1 Then
               MsgBox "いま次のターンのプレイヤーが2枚以上のHelpを捨てたので、その効果として、" & vbCrLf & "あなたが1枚好きなカードを捨てることが出来ます。" & vbCrLf & "捨てたいカードのセルを半角で入力して下さい。" & vbCrLf & "なお、効果のある文字カードを出した場合、その効果は発揮されます。"
               fdoublehelp = InputBox("捨てたいカードが入力されているセルを半角で入力してください")
               MsgBox "セル「" & fdoublehelp & "」に入力されているカードを捨てます。"
               Range("h15").Value = Range(fdoublehelp).Value
               Range(fdoublehelp).Value = ""
           End If
           
       End If
   Else
       Set fsearch = Range("a2:a40").Find(what:="H")
       If fsearch Is Nothing Then
           MsgBox2 "次のターンのプレイヤーはHelpを所持していません。" & vbCrLf & "したがって、効果はなにもありません。"
       Else
           fsearch.Select
           MsgBox "ご覧のように、次のターンのプレイヤーは" & vbCrLf & "現在表示されているセルにHelpを所持しています。" & vbCrLf & "従って、そのプレイヤーのHelpがすべて消えます。" & vbCrLf & "この作業によりそのプレイヤーのカードが全部なくなった場合、" & vbCrLf & "そのプレイヤーの勝ちとなり、あなたは敗北します。ご了承ください。"
           For ff = 2 To 40
               If Right(Range("a" & ff).Value, 1) = "H" Then
                   fcount = fcount + 1
                   Range("a" & ff).Value = ""
               End If
           Next ff
           If fcount > 1 Then
               MsgBox "いま次のターンのプレイヤーが2枚以上のHelpを捨てたので、その効果として、" & vbCrLf & "あなたが1枚好きなカードを捨てることが出来ます。" & vbCrLf & "捨てたいカードのセルを半角で入力して下さい。" & vbCrLf & "なお、効果のある文字カードを出した場合、その効果は発揮されます。"
               fdoublehelp = InputBox("捨てたいカードが入力されているセルを半角で入力してください")
               MsgBox "セル「" & fdoublehelp & "」に入力されているカードを捨てます。"
               Range("h15").Value = Range(fdoublehelp).Value
               Range(fdoublehelp).Value = ""
           End If
           
       End If
   End If
   
End Sub

Sub yield()

  Dim yy As Long
   Dim nyield As String
   If Range("p2").Value = "PLAYER 1" Then
       For yy = 2 To 80
           If Right(Range("a" & yy).Value, 1) = "N" Then
               MsgBox "あなたはNuisanceを持っているので、1枚だけ、次のターンのプレイヤーに譲渡することが出来ます。" & vbCrLf & "その他のNuisanceカードは消えます。" & vbCrLf & "譲渡されたカードはB2セルに置かれます。B2セルにカードがあった場合はそのカードは消えます。"
               nyield = InputBox("譲渡するカードを半角で入力して下さい。")
               If Right(Range(nyield).Value, 1) <> "N" Then
                   Do While Right(Range(nyield).Value, 1) <> "N"
                       nyield = InputBox("もう一度、譲渡するカードが入力されているセルを半角で入力して下さい。")
                   Loop
               Else
                   Range("b2").Value = Range(nyield).Value
                   Range(nyield).Value = ""
                   Range("b2").Interior.ColorIndex = 1
               End If
           Else
               MsgBox "効果はありませんでした。"
           End If
       Next yy
   Else
       For yy = 2 To 80
           If Right(Range("b" & yy).Value, 1) = "N" Then
               MsgBox "あなたはNuisanceを持っているので、1枚だけ、次のターンのプレイヤーに譲渡することが出来ます。" & vbCrLf & "その他のNuisanceカードは消えます。" & vbCrLf & "譲渡されたカードはB2セルに置かれます。B2セルにカードがあった場合はそのカードは消えます。"
               nyield = InputBox("譲渡するカードを半角で入力して下さい。")
               If Right(Range(nyield).Value, 1) <> "N" Then
                   Do While Right(Range(nyield).Value, 1) <> "N"
                       nyield = InputBox("もう一度、譲渡するカードが入力されているセルを半角で入力して下さい。")
                   Loop
               Else
                   Range("b2").Value = Range(nyield).Value
                   Range(nyield).Value = ""
                   Range("b2").Interior.ColorIndex = 1
               End If
           Else
               MsgBox "効果はありませんでした。"
           End If
       Next yy
   End If

End Sub

Sub turnend()

  MsgBox3 "ターンを終了します。"
       Range("h15").Value = Replace(Range("h15").Value, "色", "")
       Call turnchange


End Sub

Sub kiroku()

  Range("da1").CurrentRegion.Select
   Range("da1").CurrentRegion.Cut Selection.Offset(1, 0)
   Range("da1").Value = Range("h15").Value
   If Range("p2") = "PLAYER 1" Then
       Range("db1").Value = "1 _"
   ElseIf Range("p2") = "PLAYER 2" Then
       Range("db1").Value = "_ 2"
   Else
       Range("db1").Value = "COM1"

  End If
   Range("h15").Select


End Sub

Sub オセロ準備()

  Dim a As String
       Range("s54:z61").BorderAround Weight:=xlThin
       Range("aa54").Value = "●"
       Range("aa55").Value = "○"
       a = Range("v57").Value
       Range("v57").Value = Range("aa55").Value + a
       a = Range("v58").Value
       Range("v58").Value = Range("aa54").Value + a
       a = Range("w58").Value
       Range("w58").Value = Range("aa55").Value + a
       a = Range("w57").Value
       Range("w57").Value = Range("aa54").Value + a
       
       Range("s54").Select

End Sub

Sub ishiokihantei()

  Dim a As Long
   Dim ishisearch As Range
   Dim firstcell As Range
   Dim b, bb, c, d, dd As String
   Set ishisearch = Range("s54:z61").Find(what:="*")
   If ishisearch Is Nothing Then
       MsgBox "石が置ける場所がないようです"
   Else
       Set firstcell = ishisearch
   End If
   
   Do
       d = ishisearch.Address
       Set ishisearch = Range("s54:z61").FindNext(ishisearch)
       Range(d).Select
       b = Left(Range("n2").Value, 1)  'bに検索セルの石の色を格納
       bb = Left(Range("r2").Value, 1) 'bbに検索セルと逆の石の色を格納
       Selection.Offset(-1, 0).Select
       Range(d).Select
       MsgBox Left(Selection.Offset(1, 0), 1)
           If Selection.Offset(-1, 0) = "" And Left(Selection.Offset(1, 0), 1) <> bb Then '上
               dd = Selection.Offset(-1, 0).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(-1, -1) = "" And Left(Selection.Offset(1, 1), 1) <> bb Then '左上
               dd = Selection.Offset(-1, -1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(0, -1) = "" And Left(Selection.Offset(0, 1), 1) <> bb Then '左
               dd = Selection.Offset(0, -1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(1, -1) = "" And Left(Selection.Offset(-1, 1), 1) <> bb Then '左下
               dd = Selection.Offset(1, -1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(1, 0) = "" And Left(Selection.Offset(0, 1), 1) <> bb Then '下
               dd = Selection.Offset(1, 0).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(1, 1) = "" And Left(Selection.Offset(-1, -1), 1) <> bb Then '右下
               dd = Selection.Offset(1, 1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(0, 1) = "" And Left(Selection.Offset(0, -1), 1) <> bb Then '右
               dd = Selection.Offset(0, 1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select
           End If
           If Selection.Offset(-1, 1) = "" And Left(Selection.Offset(1, -1), 1) <> bb Then '右上
               dd = Selection.Offset(-1, 1).Address
               Range(dd).Select
               MsgBox dd
               Range(d).Select

          End If
           
           
       If firstcell.Address = ishisearch.Address Then
           Exit Do
       End If
       
   Loop
       dd = Replace(dd, "$", "")
       'MsgBox dd
   

End Sub


  • 最終更新:2017-05-31 17:32:38

このWIKIを編集するにはパスワード入力が必要です

認証パスワード