Excel Maniacs

新・関数で出来ますか~？ 第6回 第7回 解答例

★考え方

　盤面の駒はAA18：AD98の表、特にAB列の数値により表示されます。

そこでAB列の数値を参照して数式を作ります。例えばAB18の

数値を見れば、王の表示位置がわかります。

 

王の表示列：=MOD(AB18,9)+1　（盤面左からの列数）

王の表示行：=INT(AB18/9)-1　（ワークシートの行数）

 

飛車・角の位置も同様です。

 

飛車1の表示列：=MOD(AB19,9)+1　（盤面左からの列数）

飛車1の表示行：=INT(AB19/9)-1　（ワークシートの行数）

飛車2の表示列：=MOD(AB20,9)+1　（盤面左からの列数）

飛車2の表示行：=INT(AB20/9)-1　（ワークシートの行数）

角1の表示列：=MOD(AB21,9)+1　（盤面左からの列数）

角1の表示行：=INT(AB21/9)-1　（ワークシートの行数）

角2の表示列：=MOD(AB22,9)+1　（盤面左からの列数）

角2の表示行：=INT(22/9)-1　（ワークシートの行数）

 

【第６回の解答例】

王手となるのは・・・

「王」と「飛車1」の列位置が等しい

「王」と「飛車1」の行位置が等しい

「王」と「飛車2」の列位置が等しい

「王」と「飛車2」の行位置が等しい

・・・上の4条件の少なくとも一つが成り立てばよいから・・・

=OR(MOD(AB18,9)+1=MOD(AB19,9)+1, MOD(AB18,9)+1=MOD(AB20,9)+1, INT(AB18/9)-1 =INT(AB19/9)-1,INT(AB18/9)-1=INT(AB20/9)-1)

整理すると

=OR(MOD(AB18,9)=MOD(AB19,9), MOD(AB18,9)=MOD(AB20,9), INT(AB18/9) =INT(AB19/9),INT(AB18/9)=INT(AB20/9))

よって

=IF(OR(MOD(AB18,9)=MOD(AB19,9),MOD(AB18,9)=MOD(AB20,9),INT(AB18/9)=INT(AB19/9),INT(AB18/9)=INT(AB20/9)),"王手！","")

 

【第7回の解答例】

角で王手の場合は、角と王を結ぶ直線と盤面の横線のなす角（θ）が４５度の時である。

すなわちtanθ=±1の時である。

よってtanθ^2= 1

　なんだかんだで整理して・・・(^^ゞ　　　←学生なら減点間違いなし　m(__)m

=IF(OR((MOD(AB18,9)-MOD(AB21,9))^2=(INT(AB18/9)-INT(AB21/9))^2,(MOD(AB18,9)-MOD(AB22,9))^2=(INT(AB18/9)-INT(AB22/9))^2),"王手！","")

 

新・関数で出来ますか~？ 第8回 王手飛車！

【問題】　王・飛車(青色)はくまぷーの駒。

黒い角はあなたの駒。F9を押してください。

３枚の駒の位置が変わります。角が「王手飛車取り」の位置に

来たら、セルZ9に「王手飛車！」と表示させてください。

ただし、下図の場合は飛車取りではあるが王手ではないので除外する。

また下図の場合は王手ではあるが飛車取りではないので除外する。

解答用参考ファイル： 20170811をダウンロード

※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。

***********************************************************************

解答発表は8/12（土）8/14(月）　8/19(土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

*********************************************************************

★sakudaさんからチエック用のファイルを頂きました。

お使いください。

20170811VBAをダウンロード

マクロ入り回答シートの使用法  
  
 １．問題シートコピーボタン 
  ボタンを押すと、ブックの最後に新しい問題シートが追加されます。
  この際、現在のシートをそのままコピーしますので、回答欄の式やその他に入れたゴミもそのままになります
  従って、不要なものは手動で消してください。
  
 2．実行開始ボタン 
  チェックを開始します。
  ①チェック回数はループ回数欄で指定できます。
  ②上限は特にありませんが、空欄のままだと1000とみなします。
  　（画面の更新を殺してありませんので、1000回ですと1分くらいかかります）
  ③「王手飛車で停止」にチェックが入っていると、王手飛車のところでコードの実行を終了します。
  ④「誤判定無視」にチェックが入っていると、誤判定が起こってもそのまま継続します。
  　（チェックがない場合、ダイアローグが出て、続行と終了を選択できます。）
  ⑤チェック対象はZ9セルのみです。またチェックの際何か文字が入っていれば、王手飛車！とみなします。
  　（！が漢字でもアスキーでも良いようにしたためです。　極端な話、X一文字でも王手飛車！入っているとみなします）

 



　　　　　　　　　　　　　　　　　　　

新・関数で出来ますか~？ 第7回 角で王手！

【問題】　王(青色)はjyo3の王。

２枚の角はあなたの駒。F9を押してください。

３枚の駒の位置が変わります。角が「王手」の位置に

来たら、セルZ9に「王手！」と表示させてください。

　　　　　　　　　　　　　　　　　　　（ジョー3さん出題）

解答用参考ファイル： 20170808をダウンロード

※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。

***********************************************************************

解答発表は8/12（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

　尚、状況によっては第8回の問題を8/12（土）の前に出題します。m(__)m

***********************************************************************