そして、しばらくごろごろしていましたが、眠くないので、3時過ぎにいつものように起床。
ランニングマシンは30分で辞めるつもりでしたが、何とか45分走りました。
今日は体が少し重く、走るのが少し辛かったです。
スピードを上げているわけではないので、呼吸が乱れるようなことはありませんが、「早く時間にならないかなあ」なんて考えながら走っていました。
今日は7時前に会社に到着。
その後、香織ちゃんにセブンイレブンで住民票、印鑑証明など必要な書類を取ってもらいました。
香織ちゃんは8時過ぎに眼科に行くためにカラちゃんと外出。
今日は初めて9時から、全体で朝礼を行いました。
もちろんZoomを繋いでの朝礼です。
今日は事務所と他に4箇所繋いでいました。
挨拶練習の時は、当然ですがタイムラグが出ます。
それがばらばらで出るのでなんともおかしな感じがしました。
そして、9時40分。
私が仕事をしていたら、「電話が繋がらず、休日のメッセージが流れる」との連絡。
電話の設定はいつも香織ちゃんが行っていますが、今日は眼科に通院でいません。
でもダメ元で携帯電話に連絡。
交換機に入る方法を聞いてまずは一安心。
しかし、交換機の中に入っても、7月20日が休日という設定はされていません。
でもメッセージは流れてしまいます。
仕方が無いので、交換機の日付を7月15日に変更。
すると無事に電話が繋がるようになりました。
やれやれよかったです。
でも、朝用事があり、ラビットに電話をした人は、すみませんでした。
Excelでマクロを書く方法
マクロを新規で作成する場合Altキーを押しながらLを押します。
Tabキーで「マクロ」に移動し、enterキーを押します。
マクロ名には「test1」と入力します。
Tabキーで「作成」に移動し、enterキーを押します。
これで、コードが書ける画面が表示されます。
Sub test()
End Sub
この間にコードを記述します。
Sub test()
msgbox("こんにちは")
End Sub
F5キーを押して、マクロを実行すると
「こんにちは」と表示されます。
1から30までの合計を計算し、画面に表示する。
Sub test()
'変数の定義
Dim i
Dim x
Dim y
'初期値のセット
x = 30
y = 0
' ループ
For i = 1 To x
y = y + i
Next
MsgBox ("合計は" & y)
End Sub
