すべてのカテゴリ

現在電話サービスを2件出品しています。ABAは、料金設定を1分あたり100円、120円、180円、220円と4っのパターンで試行してみました。結果としては、いずれの料金でも購入される。今現在は、140円／分です。Ｂは、出品間もないサービスで、1分あたり300円で1件購入される。今現在は、200円／分です。以上の試行から、料金の設定はどうする？となります。ココナラ出品者のなかで、こんな試行をしているのは自分くらいだと思います。とりあえず、今現在の料金設定でいきます。なぜか他の出品者の多くは100円／分が多いですね。なぜ？たぶん、実績づくりのためにでしょうか？または、自信に対しての不安でしょうか？ご提案です。出品者の皆様料金設定を見直しましょう！CatOlin暑いので涼し気に金魚

自己啓発っぽいネタです。少しでもやったら褒めるなかなか最初の一歩が踏み出せない人っていますよね。あなたはどうでしょうか？偉そうに言うわけではないのですが、多分、色々出来てやれる人って、踏み出すハードルが低いんですよね。ハードルがないわけではないけども、躊躇してないわけでもないけど、動いているというか。焦ってそれで半生のたこ焼きを食べる（笑）こともあるかもしれませんが、それはまあそういうこともあるくらいで。では、そのハードルをどう低くするかですが、・イメージとしては、やるハードルは最初が一番高い。・やると着手数（成功数ではなく失敗数、試行数全て含む）毎にハードルが減っていく・ケチをつけてくる人もいるのだけど、スルーで良い（批判との違いは、愛があるかどうかですかね。改善点やよくするでも罵倒などはしないので。そのあたりかなり明確にわかります）・褒めてくる人もいたら大感謝で・基本的１回やったら褒める。自分で自分を褒める。そんな感じで低くする感じです。少しとは、１秒でも、道具を持ったり、今までと違う行動を取った。そういうことでいいんですよ。それでOK。褒めましょう。やるとやる気が出てくる大事なことなのですが、やる気ってやらないとでてこないです。やる気をまってやるんではないんですね。やっているからやる気がでる。だから、やる気がないからやらないは当たり前で、普通です。やっている人がやる気があるのは、その性質ではなくて、やっているからです。くどいですが、やる気はやると出るので、やらない時にやる気がどうかはまず考えるのはやめてみてください。で、やる気はどこかにおいておくか、スマホを遠ざけるように

またオンライン授業を始めなくてはならない先生方も多いことでしょう。第5波の経験をいかして、進めることができます。先生方も、児童生徒も保護者もだいぶ慣れてきました。しかし、そうはいっても、疲れます。原因はいろいろあります。例えば、親御さんがつきっきりでじていらっしゃるお宅もあります。反対に、自宅にいる児童生徒の生活音が入り込んできたりするせいで、教室にいる児童の集中が切れることもしばしば。教室ならば、児童の理解度も、その雰囲気から一目瞭然なのだけれども、オンラインは、把握が難しい。また、慣れないけれども、「双方向」な授業にしなければならないような雰囲気があって、先生ご自身が困惑している。オンライン授業や双方向な授業展開は、誰しもがまだまだ実践試行なのに、教員へのプレッシャーは、大きいm・・・。そこで、提案。学年担任が2人以上な場合、教科担任にしましょう。そのほうが教員の負担は、二分の一、三分の一、四人いれば、四分の一です。急に分担するのは、その時は大変手間取ります。しかし、40任に配信するのも、80人に配信するのも、120人に配信するのも同じです。(双方向を重視するならな、別ですが・・・)このほうが、事前の準備をしっかりできます。「質の高い授業を提供すること」ができます。先生方も、少し自信を持って進めることができます。加えて、算数専科や理科専科がいるならば、依頼しましょう。そのための専科制です。提案するときは、自分がつらいからではなく、「質の高い授業を提供したいんです。親御さんも見ていらっしゃいますし。」といってみましょう。私の勤務校は、この方法で、今日から再スタート。先生方は、

左の表にデータを入力して、作成のボタンをクリックすると、そのデータに基づく、ベジェ曲線を描画します。表には、Ｘ、Ｙの１０組の位置情報を入力します。Option Explicit Option Base 0 Public Sub ベジェ曲線作成マクロ()     Const BEZIXPOS = 200 　　　　　　　'ベジェ曲線オフセットＸ     Const BEZIYPOS = 80 　　　　　　　  '       　                    Ｙ     Const BEZIBAIR = 2                           'ベジェ曲線描画倍率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, strDat As String     Dim celData As Cell, sngBezi(9, 1) As Single     If ActiveDocument.Tables.Count < 1 Then Exit Sub     '     With ActiveDocument.Tables(1)          '*セルデータ取り込み          For Each celData In .Range.Cells              strDat = celData.Range.Text              sngBez