Excel Maniacs

Wordマクロ ：下線に記号

【´･ω･`】:試験問題を作る時に

　　　　　問題文に下線を引いて番号をつけて・・・

　　　　　でも、後から考えたら・・・

　　　　　下線を増やしたい、減らしたい

　　　　　なんていうのは、よくあること・・・

　　　　　でも・・・

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

 

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

 

 

Wordマクロ

マクロ名：下線に記号

機能：下線（下例に示す下線） に丸数字の番号等を振ります。

下線を増やしたり、減らしたりするとそれに合わせて丸数字等を振り直します。

ただし、下線の数は20本まで。

 

★使用法

マクロを作用させたい部分を選択してマクロ「下線に記号」を実行する。

WdUnderLIne01をダウンロード

 

★同時に処理できる下線の種類を増やした改良版を公開しました。（2022／05／17）

Excel Maniacs: Wordマクロ ：下線に記号　改良版 (typepad.jp)

 

参考：一太郎版　Excel Maniacs: 教員のためのコンピュータ活用術　No.5 　下線に丸数字 (typepad.jp)

Reading Progress in Microsoft Teams：Excel

【´･ω･`】：こんなリクエストがあった。

 

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

Microsoft Teams というサービスを教育活動で使うようになりました。

その機能の一つに、「音声の練習」というものがあります。
音読すると、AIが評価します。
https://www.youtube.com/watch?v=NilBP_YwXDw

その評価の集計を「Excelにエクスポート」できます。

私たちが使っている生徒名簿に、集計結果を転記したいのです。

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

 

【´･ω･`】：「Excelにエクスポート」した表は下のようなカンジだ。

 

 

 

【´･ω･`】：C列（メールアドレス）が学習者、D列が課題名、H列が評価を表している。

（●｀ε´●）：どこが問題なんだ？

【´･ω･`】：C列（メールアドレス）の重複を無くして、課題名ごとに評価を振り分けたいという事らしい。

（●｀ε´●）：下のような表を作りたいということか？

【´･ω･`】：そう。　　　　

 

 

（●｀ε´●）：瞬殺だな。

【´･ω･`】：

うん、　集計ファイル(main.xlsx)のG2に下記の数式を入力し、必要な範囲にコピペすればいい。

=SUMPRODUCT(($F2='[data.xlsx]Reading Progress'!$C$2:'[data.xlsx]Reading Progress'!$C$2:$C$113)*(G$1='[data.xlsx]Reading Progress'!$D$2:$D$113)*('[data.xlsx]Reading Progress'!$H$2:$H$113))

【蛇足】数式の意味

=SUMPRODUCT((main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)*(評価値範囲))

A＝Bが真ならば1，偽ならば0になる。

従がってmain.xlsxのメールアドレス=data.xlsxのメールアドレスとmain.xlsxの課題名=data.xlsxの課題名が共に成立する時

=(main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)

=1*1

・・・となる。

しかし、main.xlsxのメールアドレス=data.xlsxのメールアドレスとmain.xlsxの課題名=data.xlsxの課題名が共に成立するのは

評価値範囲では一つしかない。

残りの＝(main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)は

=0*0

=0*1

=1*0

・・・のどれかになるのだ。

よって・・・

 

=SUMPRODUCT((main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)*(評価値範囲))

＝0+0+0+･･･+1*1*評価値

＝評価値

 

・・・となる。

 

 

参考ファイル： Mainをダウンロード（main.xlsx 集計用）

　　　　　　　 Dataをダウンロード（data.xlsx Reading Progress in Microsoft Teamsよりエクスポート）

 

使用上の注意：main.xlsxとdata.xlsxは同じフォルダにいれて使ってください。

 

★改訂版を公開しました。（2022/05/12）

Excel Maniacs: Reading Progress in Microsoft をExcelで集計 改訂版 (typepad.jp)

戯れてExcel・・・漢字-かな-ローマ字変換マクロ2

【´･ω･`】：「さらに戯れてExcel・・・漢字-ローマ字変換マクロ」に下のようなコメントがあった。

　　　　　別に難しいことではないので、すぐにコメント欄にやり方を答えてやったのだが・・・　

 

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

くまぷー先生　調子に乗って、リクエスト・・・

だめならスルーしてください。

名字を大文字表記にするマクロを・・・お戯れに・・・作っていただくことはできませんか。
。
今日、スピコンでした。出場者一覧がそのような表記になっていて、とても見やすかったのです。

　　HABU　Yoshiharu

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

 

（●｀ε´●）：「マクロを・・・」って言ってるぞ！！お前の回答は関数だろ？！

　　　　　　本当に注意力がないな！！

 

【´･ω･`】：じゃ、マクロでも全然難しくないから、下にマクロ版を晒しておくよ。

 

 

Kanatoroman_ver4.xlsをダウンロード

使用法はこちらを参照