Excel Maniacs

第１３５回 将棋盤で石数え

将棋盤で孫と遊ぶ　　第2弾！！
碁石数え
縦横でつながった碁石は何個ですか？
斜めでは、碁石はつながってると見なしません
2カ所につながった石がある場合は多い方のグループを答えとします
3個、3個ならば・・・・３・・・とか、、
ばらばらで、1個、1個、1個　なら、、、１です。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ｼﾞｮｰ3さん出題）

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

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

尚、解答締め切りは０９／０８（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

教員のためのコンピュータ活用術 No.5 下線に丸数字

【´･ω･`】:問題文に下線を引いて番号をつけて・・・

　　　　　　でも、後から考えたら、下線を増やしたい、減らしたいなんていうのは

　　　　　　よくあること・・・

　　　　　　でも、下線に番号を振り直すのは面倒だし、よく間違える・・・

（●｀ε´●）：間違えるのはおまえだけだろ？！

【´･ω･`】:・・・ということで「下線に丸数字」というのをSuper Play Lite（一太郎マクロ）で

　　　　　　作ってみた・・・

（●｀ε´●）：なんで今更、一太郎マクロなんだ？

【´･ω･`】:「一太郎マクロ」という検索キーワードで覗きに来てくれる人もいるみたいだし・・・

　　　　　　戯れに作ってみたというところかな？

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

マクロ名：下線に番号

機能：下線（華麗に示す下線） に丸数字の番号を振ります。下線を増やしたり、減らしたりするとそれに合わせて丸数字を振り直します。ただし、下線の数は20本まで。

下線に番号をダウンロード 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!選択範囲の下線（リスト２番目の実線）に丸数字の番号を
!!ふるマクロ。下線の数は２０本まで。
!!2012/08/27　くまぷー
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

declare variable $Bango(1 to 20)
ErrorBreakMode(0,0,0)

EndOfRange()
%Pe=getPage()
%Re=getRow()

WarningMode(0)

setBango()

For %i = 1 To 20
 文字全置換(.検索文字列=$Bango(%i),.置換文字列="",.あいまい検索=0)
Next

%Cnt=1

SearchStyle(1,2,3) 
Do While SearchStyleResult()
   CancelAllRange()
   SelectStyle(1,2)
   ContinueSearch
   If %i=%Cnt+1 or %Pe < getPage() Or %Re < GetRow() then
        WarningMode(1)
    　　Exit Do
    　　Stop　
   End if
   %Cnt=%Cnt+1
Loop
JumpSearchStyle(1,2,3) 
%i=1
Do While SearchStyleResult()

    CancelAllRange()
    挿入($Bango(%i))
    SelectStyle(1, 2)
   
    %i=%i+1
   
    If %i=%Cnt+1 then
     WarningMode(1)
     Stop
    End if
   ContinueSearch
Loop
WarningMode(１)

Sub setBango()
   $Bango(1) = "①"
   $Bango(2) = "②"
   $Bango(3) = "③"
   $Bango(4) = "④"
   $Bango(5) = "⑤"
   $Bango(6) = "⑥"
   $Bango(7) = "⑦"
   $Bango(8) = "⑧"
   $Bango(9) = "⑨"
   $Bango(10) = "⑩"
   $Bango(11) = "⑪"
   $Bango(12) = "⑫"
   $Bango(13) = "⑬"
   $Bango(14) = "⑭"
   $Bango(15) = "⑮"
   $Bango(16) = "⑯"
   $Bango(17) = "⑰"
   $Bango(18) = "⑱"
   $Bango(19) = "⑲"
   $Bango(20) = "⑳"
End Sub

 

 

第１３４回 将棋盤と数字 解答例

 

出題者案：72文字です。
 
{=SUM(OFFSET(B2:D4,SUM((D4:F6=0)*ROW(1:3)),SUM((D4:F6=0)*COLUMN(A:C))))}
 
 
 
回答者案も67文字と大差なく、
 
皆さんの解答の途中経過でしょうから、・・・・・完敗です。　（ジョー３さん）