Excel Maniacs

教員のためのコンピュータ活用術 No.3 簡易数式作成

ワードで数式を書くのは面倒だと思う方へお奨めです。

複雑な数式を作ることはできませんが、下の例のようなレベルのものならば一発です！！

★使用法

１．範囲を選択する

２．簡易数式作成.VBSをダブルクリックする と下のように数式が整形される。

ちなみにフォントはTimes New Romanを使っています。

 

 

メモ：指数は１桁に限る。

VBS_NO_03（簡易数式作成）をダウンロード

 

 

整序問題作成マクロⅡ（１）

　以前、整序問題作成マクロをワードで作って

公開しましたところ、評判がかなりよくて作者としては

嬉しい限りです。

　さて、その際にある方から以下のようなご意見を頂きました。

（要約）整序問題を作る時に単語をグループ化出来るように

して欲しい。

　つまり、整序問題作成マクロでは

　下のような英文が・・・

＊

＊

１．範囲選択をする。

＊

＊

＊

２．メニューをツール、マクロ、マクロと辿りダイアログボックスを出しShuffle_Writeを実行すると以下のようになる。

＊

＊

・・・という機能だったのですが

例えば,全ての単語をばらばらにするのではなく a beautiful lady は

ひとまとめしておきたいならば下図のようにその語句を

半角のかっこで囲む・・・

＊

*

*

*

・・・そして範囲選択してマクロを実行すると

*

*

＋

＊

＊

・・・上図のようになる。

＋

★整序問題作成マクロⅡの仕様

「整序問題作成マクロ」の機能に加えて単語のグループ化の

機能をもつ。グループ化する単語は半角のかっこで囲む。

（続く）

暗号化・復号化(8)

　下のコードは文字列を生の文字コードに（マクロ暗号化）、生の文字コードを文字列に変換するコード（マクロ復号化）です。生の文字コードでは

ダメだというならば前回、書いたとおり「０～９、A～F」を適当な文字に

置換するコードを「マクロ暗号化」の最後に付け加えるという手もあります。

（その時には、マクロ「復号化」の頭にもとの文字に戻す処理を

加えて下さい）

'------------------------------------------------------------

Sub 暗号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long

   
    CharaCnt = Selection.Characters.Count
   
   
    For i = 1 To CharaCnt
        If (AscW(Mid(Selection.Text, i, 1)) > 30) Or (AscW(Mid(Selection.Text, i, 1)) < 0) Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum
            Selection.Collapse
            Selection.MoveRight wdCharacter, 1, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub

'------------------------------------------------------------
Sub 復号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long
   
   
    CharaCnt = Selection.Characters.Count
   
    For i = 1 To CharaCnt
        If AscW(Mid(Selection.Text, i, 1)) > 30 Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum \ 4
            Selection.Collapse
            Selection.MoveRight wdCharacter, 4, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub