Excel Maniacs

教員のためのコンピュータ活用術 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

 

 

悪児さんの漢字書取問題挑戦７－２

　このブログの一太郎マクロ関連の記事は今までに

書きためたものを再掲示したものであった。しかし、前回の

「余計な改行文字を削除」からはリアルタイムで書いたものである。

当然、今回のものもリアルタイムの記事である。

　さてお題は久しぶりの漢字書取問題作成マクロである。

悪児さんの第７弾である。今回の売りは・・・

悪児は（）の不要化で対抗することにしました。

　あらかじめ括弧で囲んだ漢字を変換するには、

対象となる漢字を括弧で囲まなくてはならない、

　どうせマクロ化するならそこまで自動化しましょうよ。ということです。

　もちろん、頭から順に指定しなくても、ちゃんと登場順に

番号が振られますよ。(^^)ゞ

・・・ということである。ということで早速、DLして試してみた。

動きも軽快でこれは面白い。くまぷーは何パターンか

試してみた。

すると・・・

　悪い児は悪児です
　悪い児は悪児です

・・・で検証したとき、下の順で（　）をつけていくと

　　１．悪い児は（悪児）です
　　　　悪い児は悪児です

　　２．悪い児は（悪児）です
　　　　悪い（児）は悪児です

　　３．（悪）い児は（悪児）です
　　　　悪い（児）は悪児です

・・・つまり、１行目の「悪児」、２行目の「児」、１行目の「悪」の順に

（　　）をつけていくと下のようになってしまうのだ。

　１．（①あく）い（③こ）は（②あくじ）です
　　（①あく）い（③こ）は（②あくじ）です

①．悪   ②．悪児   ③．児   

悪児さんは「頭から順に指定しなくても、ちゃんと登場順に

番号が振られますよ。(^^)ゞ」と仰っているのだから

おそらくこういう結果になるはずではないのだろうか？

１．（①あく）い（②こ）は（③あくじ）です
　　（①あく）い（②こ）は（③あくじ）です

①．悪   ②．児　③．悪児 

   

簡易カレンダー作成マクロ

このサイトは「教員のための三四郎活用術」なのですがこの頃、とんと三四郎が話題に上ってきません。すっかり、三四郎から遠ざかってしまっています。 　さて一太郎Q&A掲示板を何気なく見たら、何やらくまぷーにも答えられそうな質問がありました。ここの掲示板には以前一度、回答をしました。一太郎に関する質問に回答するのは初めてだったので、ドキドキだったのですが質問者にほったらかしにされてしまい悲しかったのですが、マナーの悪い人ばかりではなかろうとついまた回答をしてしまいました。すると今度はすぐにレスが付いたのでニコニコです。

名称：簡易カレンダー作成マクロ 免責：このマクロの使用によっていかなる損害が生じようと、一切責任は負いません。あらかじめご承知の上ご使用下さい。 使用法：マクロを実行すると「範囲指定」が求められますので 平成19年2月 のような文字列を選択してください。 すると下のようにカレンダーが作られます。 * * * * * * *Taro_Calendar.lzhをダウンロード （2007/02/12) ちなみに下が簡易カレンダー作成マクロのコードです。 プロポーショナルフォントだと数字がきちんと並ばないので最後にわざわざ範囲選択して等幅フォントに変えています。（コードNo.1） !!（コードNo.1） Range?() %Str=GetString %Nen=Mid(%Str(1) , 3 , 2) %Tuki=Right(%Str(1),3) If left(%Tuki,1) = "年" Or left(%Tuki,1) = " " Or left(%Tuki,1) = "　"Then         %Tuki = Mid(%Tuki,2,1) Else         %Tuki = Left(%Tuki,2) End If %Nen = %Nen + 1988 %Pos=DayOfWeek( %Nen , %Tuki, 1 ) %Cnt=7-%Pos+1 下 行頭 %MyRow=GetRow %MyCol=GetColumn %MyPage=GetPage Insert("日 月 火 水 木 金 土",1) %Num={" 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9",10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31} !!閏年判定 %IsLeapYear=False If %Nen Mod 4 =0 Then         %IsLeapYear= True End If If %Nen Mod 100 =0 Then         %IsLeapYear= False End If If %Nen Mod 400 =0 Then         %IsLeapYear= True End If !!月末最終日 Select Case %Tuki         Case 1,3,5,7,8,10,12                 %最終日        =31         Case 4,6,9,11                 %最終日        =30         Case 2                 If %IsLeapYear =True Then                         %最終日        =29                 Else                         %最終日        =28                 End If End Select Jump(,,(%Pos -1)* 3+1) For %i = 1 to %最終日         Insert(%Num(%i))         右(1)         If %Cnt-%i=0 Then                 Jump(,,%MyCol)                 下                 %Cnt=%Cnt+7         End If Next %MyPage2=GetPage %MyRow2=GetRow %MyCol2=GetColumn Jump(%MyPage,%MyRow,%MyCol) RangeMode(1) RangeStart Jump(%MyPage2,%MyRow2,%MyCol2) RangeEnd フォント(.和文フォント名="ＭＳ ゴシック",.欧文フォント名=10) しかし、InputCharacter（）を使って予めフォントを指定すれば、コードNo.1のように後からフォントを変更する必要はありませんでした。 !!コードNo.２ Range?() %Str=GetString %Nen=Mid(%Str(1) , 3 , 2) %Tuki=Right(%Str(1),3) If left(%Tuki,1) = "年" Or left(%Tuki,1) = " " Or left(%Tuki,1) = "　"Then         %Tuki = Mid(%Tuki,2,1) Else         %Tuki = Left(%Tuki,2) End If %Nen = %Nen + 1988 %Pos=DayOfWeek( %Nen , %Tuki, 1 ) %Cnt=7-%Pos+1 下 行頭 %MyRow=GetRow %MyCol=GetColumn %MyPage=GetPage Insert("日 月 火 水 木 金 土",1) %Num={" 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9",10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31} !!閏年判定 %IsLeapYear=False If %Nen Mod 4 =0 Then         %IsLeapYear= True End If If %Nen Mod 100 =0 Then         %IsLeapYear= False End If If %Nen Mod 400 =0 Then         %IsLeapYear= True End If !!月末最終日 Select Case %Tuki         Case 1,3,5,7,8,10,12                 %最終日        =31         Case 4,6,9,11                 %最終日        =30         Case 2                 If %IsLeapYear =True Then                         %最終日        =29                 Else                         %最終日        =28                 End If End Select Jump(,,(%Pos -1)* 3+1) For %i = 1 to %最終日 　　　 InputCharacter(.和文フォント名="ＭＳ ゴシック",.欧文フォント名=10)         Insert(%Num(%i))         右(1)         If %Cnt-%i=0 Then                 Jump(,,%MyCol)                 下                 %Cnt=%Cnt+7         End If Next （2007/03/09　追記)