セルに文字を入れる！
'
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellchk, CellsData As Range
Set CellsData = Range("D2:D20") '表の範囲を把握します。
If Intersect(Target, CellsData) Is Nothing Then 'セルの変更が無いか判定します。
Exit Sub 'セルの変更がなければ、何もしない。
Else
'セルの変更が有った場合
With Cells(Target.Row, Target.Column) '変更したセルを位置を把握します。
.ClearComments 'コメントを削除します。
.AddComment
.Comment.Text Text:="" & .Value
'
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters.Font.Size = 10
.Characters.Font.Bold = True
End With
End With
End If
End Sub
'
0612練習
<table border="3">
<tr>
<th>2次措置</th>
<th>グループ</th>
<th>商材1</th>
<th>商材2</th>
<th>商材3</th>
<th>シンIPドメ,地域</th>
<th>シン出品地域</th>
<th>ログIPドメ</th>
<th>ログUA</th>
<th>ログTZ</th>
<th>ログ要素</th>
<th>H名義</th>
<th>Hメアド</th>
<th>他特徴①</th>
<th>他特徴②</th>
<th>他特徴③</th>
<th>その他①</th>
<th>その他②</th>
<th>その他③</th>
<th>その他④</th>
</tr>
<tr>
<td>1データ1-1</td>
<td>1データ1-2</td>
<td>1データ1-3</td>
<td>1データ1-4</td>
<td>1データ1-5</td>
<td>1データ1-6</td>
<td>1データ1-7</td>
<td>1データ1-8</td>
<td>1データ1-9</td>
<td>1データ1-10</td>
<td>1データ1-11</td>
<td>1データ1-12</td>
<td>1データ1-13</td>
<td>1データ1-14</td>
<td>1データ1-15</td>
<td>1データ1-16</td>
<td>1データ1-17</td>
<td>1データ1-18</td>
<td>1データ1-19</td>
<td>1データ1-20</td>
</tr>
<tr>
<td>2データ1-1</td>
<td>2データ1-2</td>
<td>2データ1-3</td>
<td>2データ1-4</td>
<td>2データ1-5</td>
<td>2データ1-6</td>
<td>2データ1-7</td>
<td>2データ1-8</td>
<td>2データ1-9</td>
<td>2データ1-10</td>
<td>2データ1-11</td>
<td>2データ1-12</td>
<td>2データ1-13</td>
<td>2データ1-14</td>
<td>2データ1-15</td>
<td>2データ1-16</td>
<td>2データ1-17</td>
<td>2データ1-18</td>
<td>2データ1-19</td>
<td>2データ1-20</td>
</tr>
<tr>
<td>3データ1-1</td>
<td>3データ1-2</td>
<td>3データ1-3</td>
<td>3データ1-4</td>
<td>3データ1-5</td>
<td>3データ1-6</td>
<td>3データ1-7</td>
<td>3データ1-8</td>
<td>3データ1-9</td>
<td>3データ1-10</td>
<td>3データ1-11</td>
<td>3データ1-12</td>
<td>3データ1-13</td>
<td>3データ1-14</td>
<td>3データ1-15</td>
<td>3データ1-16</td>
<td>3データ1-17</td>
<td>3データ1-18</td>
<td>3データ1-19</td>
<td>3データ1-20</td>
</tr>
</table>
頭痛さん
体調不良を理由に、月の休みが5日以上の方は
一般的にみて、休み過ぎと思われて仕方ないと思います。
体調が悪いときに、お休みをすることは悪いことではありません。
しかしながら、連日続く場合には、業務に影響が出ます。また、今日も休むのかな...などその方に対する信用がなくなります。
弊社はメールでの勤怠報告としていますが、
数日欠勤が続くことが見込まれる場合や、勤怠メールには記載しにくい事項がある場合などは、適宜上長へ電話連絡を試みるとして良いと思います。
そのことを理解している人としていなさそうな方がいるようなので、
責任感をもった対応を改めてお願いしたいものです。
上記は前置きです。今月は頭痛起因での欠勤が多い印象でした。
頭痛は突発的に発症している方や、慢性的に付き合っている方がいらっしゃいます。
自身の頭痛がどういった種類に当たるのか、ぜひ確認していただきたいです。
片頭痛か、緊張性頭痛かであっても、
温めた方がいいか冷ました方がいいか対処法が異なることもあります。
また、気候や気圧などの気象の変化で頭痛を起こすことがあります。耳マッサージが効果があるかもしれません。
（以下参考になりそうなサイト）
https://www.nhk.or.jp/kenko/special/headache/sp_1.html
https://kenko.sawai.co.jp/healthcare/200909-01.html
https://www.kobayashi.co.jp/brand/teirakku/mechanism.html
めも
3月はウクライナで起こっていることで世界情勢が不安定になっていたり、
東北を中心に大きな地震も発生したり、
とても大きな事柄が多かった月のように思えます。
心も知らず知らずの内に気づついているかもしれません...
体調ケアはもちろんのこと、
心のケアもお忘れなく、心身ともに万全な状態をキープしていきましょう。
寒暖差や、花粉の飛散量増加の時季にもなります。
名言や格言など素敵な言葉に触れることで、
気持ちを前向きにしたり心に安らぎやエネルギーを与えることも出来ますし、
ご友人やご家族、同僚におしゃべりすることで、スッキリしたり新たな気付きがあったりします。
1on1面談時間がとれていませんが、
もし相談したいことやお話ししたいことがありましたら、
管理者はいつでも時間を作りますので遠慮泣くお知らせください...！
（面談予定あり、←確認予定）
【お悔み】リンちゃん
昨日2/8早朝、実家で飼っていました愛犬のリンが亡くなりました。
死に目に会えず、容体が一気に悪くなったようです。
月曜にちょっとおかしいとのことで連絡はもらっており、
翌日とその次の日も休みだったため、最期かもとの思いから急遽帰省することとしましたが、間に合わず。
少し前から、弱ってきている感じを受けており、
両親からも話は聞いていましたが、やはり悲しいものですね、、。
お利口さんって子ではなかったけど、
おバカさんでうちの家を明るく？雰囲気を良いものに変えてくれた大切な存在です。
リンちゃんにとっては苦しい時間も多かったのかもしれなくて申し訳ないけど、
とても綺麗な死に顔で、今にも起き上がって遊ぼうとしてくるんじゃないかと思うほどでした。
死んでいるのがウソみたいで、何とも言えない感情だったが、
ピクリとも動かず、やっぱり死んじゃったんだな…と思うばかり。
リンがいてくれたおかげで、豊かな人生を増やすことができた。
リンにとってはどうだったかな、あんまりかまってあげられていないのは自覚しているけど、
少しでも楽しいと思っている人生、犬生だったらいいな。
リンのいなくなった家はとても静か、戻ってきてほしいなんて傲慢なことは言わないけど、
天国でゆっくりまったり、ご飯をがつがつ食べながら、たまーに見守っててもらえたらいいなあ。
ありがとう。
自分が死んだときに、リンがまだ覚えててくれたら迎えに来て。
＜メモ＞ストレス軽減法①
ストレス軽減法①
PCの背景設定を「風景画像」などに変更するのがいいかもです。
好きな背景でもよいですが、風景画像のほうがリラックス効果があるようです。
デスクトップを凝視することは少ないと思いますが、
焦りや気持ちが落ちつかない日などは、ひと呼吸置くために、
いったんデスクトップへ切り替え背景画像を少しみて、落ち着かせてから作業を行うのもいいかもです。
PCのモニターの設定について、高さや明るさなどは調整が可能です。
ご自身にあった、使いやすい状態に変更いただいて問題ありません。
（大きく設定を変更した際は、ある程度デフォルトに近い状態に戻すようにしましょう）
やり方＞
モニター右側底面にコントロールボタンが4つあるので、右から二番目の「メニュー」を2回押す。
輝度とコントラスト設定＞
輝度＝モニターの明るさ
コントラスト＝明るい部分と暗い部分の差
おすすめの数値＞＞＞
日中（輝度：70％、コントラスト：45％）
夜間（輝度：20％、コントラスト：45％）
色設定＞
標準：モニターのデフォルトカラー
ComfortView：画面から放射される青色光レベルを低減
ムービー：動画に適したカラー
ゲーム：ゲームアプリに適したカラー
暖色：赤/黄色を強く表示
寒色：青色を強く表示
ユーザーカラー：手動でカラー設定を調整
