投稿者: Junko N | ページ 3

局所麻酔で日帰り手術②

で、手術は局所麻酔で日帰り。って言われたから
結構気楽に構えて、病院行ったら、ガッツリ手術室じゃないか！
手術着に着替えて何なら私が思ってる以上に手術着ひっぺがされて(涙)
心の準備が～～～～～って半べそでした。
ついでに、手術中の局所麻酔の効きがわるくて
電気メスで神経引きつる～！みたいなことなるし。びっくりした・・・
(神経とかはさわってないんだろうけど、そんな感覚でした）
局所麻酔だと、縫合の時がすごい違和感。
引っ張られてすっごい気持ち悪かったなぁ。
身体的負担は少ないだろうけど、精神的に結構凹んだ。

術後は冷やして安静にしてね～って言われて、
素直にお家へ直帰して冷やしまくって絶対安静！を貫いたら
痛みどめ、寝る前に飲んだだけで大丈夫だった♪
寝るまでは麻酔が何時間後に切れるのか、聞けばよかった・・・
って凄い後悔してたけど、幸い恐れてた痛みもなく眠れました♪

翌日、ドレーンを抜いてシャワーもOKって言われて
4㎝ってか、5㎝程切開してたのに、意外と治るの早いんだ～って驚き。
年齢の割に回復速いのかも！？とか、勝手に勘違いして喜んでます。
でも２～３ヶ月は傷が引きつるって言われて、
引っ張りすぎて破けたらどうしよ～みたいな、
新たな不安を抱えたヘナチョコ具合・・・

まだまだひよっこだわ～ﾊﾊﾊ

局所麻酔で日帰り手術①

以前、皮下腫瘍摘出手術なるものを受けた。
手術を受ける3ヶ月半前に異変を感じて
最初は虫刺されかな～位にポツっと何かできて、
痛い様な痒い様な。

ちょうど、トレッキングから帰った日だったから
虫刺されってことで放置してたんだけど。
3ヶ月も経つと、はっきりわかるサイズに成長しちゃって
しかも、それまで痛くも痒くもなかったのに、
ちょっと痒いぞ・・・？って
こぇぇ。。。寝てる間に掻いて、破れたらどうしよ～って
急に焦って病院行ったの。

触診しておそらく粉瘤かな。って言われたけど
念のためCT撮りましょうね。って撮ることに。
結果的には、深部にまでは達してないから、
切開して摘出後生検しましょう～って話になった。
小さな穴をあけて中身を摘出するのかな～位に思ってたら
まさかの4㎝切開だって。
直径1㎝位になると切開しないと無理なのかな～
でも症例も多い病院だし、大丈夫だよね・・・ってことでお願いしました。

放置して死ぬようなものじゃない。と勝手に思ってるんだけど
先生が取りましょうね。って言うんだから、取っちゃおう。
成長し続けても困るしね。

（②に続きます）

立射

先日、初めて立射を体験
まだ、矢番えもまともに出来ない状態だけど
ひとまずは一度やってみて。と先生に連れられて射場へ。
巻藁（まきわら）を使っていきなり立射。
ただ、坐射の一連の動作どころか、入退場の体配すら
ままならないのにどうしていいのかと困惑(^^ゞ
先生が手取り足取り指導はしてくれるけど、
動作の流れを全く判ってないから・・・・申し訳ない。

どうにかこうにか、気持ち良く弓(7kg)を引かせてもらいました。
「おぉ～飛んだ！こんなにざくっとささるんだ～♪」って
（ど素人で用語知らなくてすみません・・・）
ちょっと感激でした。
実際に矢を放って、なんとなく、あぁ射法八節はここで生きるのか。
みたいな実感と、体配全然覚えられてないなーって実感で
モチベーション上がりました♪
それにしても先生ほめ上手。。。頑張りたくなっちゃう。

personal.xlsbは編集のためロックされています

Excel を使っているとき、判らないまま、VBAを使って
次にExcelを立ち上げると、たまに出ちゃうこれ・・・↓

「personal.xlsbは編集のためロックされています」

一体なんなんだろ・・・マクロの保存方法が悪いのかな。
最近また出始めたんで、面倒くさくなって強制的に削除した。

ファイルのありかは
C:\Users\AppData\Roaming\Microsoft\Excel\XLSTART
削除して、Excel立ち上げてみた。メッセージ無く無事動いた。

この面倒な症状が出ないようにするには次からどうしたらいいんだろ。
ちゃんと調べよう。。。

Mighty-Thor バトルロイヤルを見たんだけど

数日前に公開された「マイティ・ソーバトルロイヤル」
なぜか、前作からムキムキ筋肉のソーにはまってしまった。
顔はそんなに好みじゃないんだけど、あの腕と胸板の厚さにヤラレタ？
何でかな～って考えながら見てると、どうも無敵の強さに
安心して見てられるって部分が大きいみたい。
刺されても、つぶされても、特にエグイ描写もなく、痛がってもない。
そのあたりの無敵感と、何があってもどうにかするんだろうな。って安定感w
映画見てハラハラドキドキしない物を求めるのは申し訳ないんだけどね。
目の保養しつつ、楽しめる映画の方がいい。(普段の生活に疲れてるもんで）

で、今回のバトルロイヤル、前作のちょっとラブロマンスから一転
今回は兄弟愛コメディって要素が強い。
ソー（クリス・ヘムズワース）とロキ（トム・ヒドルストン）の
今まで、(一方的にだけど）寝首を掻く勢いだった兄弟関係から一転
甘い掛け合いが何とも笑えてキュンキュンだった。

uBlock Origin を入れてみた

uBlockOriginchromeでadblockを入れて使ってたけど、vivaldi使い始めてから
やたら広告表示されるな～と思ってたら、adblock入れてなかったわ～
と今更ながら気が付いた。早速、adblockってvivaldiでも使えるのかな？
って素朴な疑問・・・で検索したら、
今はそれより強力なuBlock Originって物があるらしい。

早速それを追加してみた。
凄い♪めっちゃ画面シンプルになった～♪
有用な広告ならいいけど、微妙に職場にはそぐわないものも多かったので
とっても快適になりました♪

IchigoJam! なにこれ、絶対欲しい～！

これ、めっちゃ気になる。
IchigoJam

イチゴジャムって、
なんかすごい面白そう。
まだしっかりサイトは確認してないけど、
基盤をはんだ付けして、コンピューターをいちから作れる。
なんか夏休みの工作！のノリからそのまま
プログラミングを楽しく学べそう。
PCを1台買う必要なく、まずはお試し程度に与えられるのは
めっちゃ助かる！

これ、絶対買おうっと！

それってなんなんだ。

スーパーチャージャーって・・・

最近、そろそろ車の乗り換えたいなって検討し始めたものの
具体的に車種を絞り込んだりしてなかったし、購入時期も考えてなかったのに
気が付いたら車検時期が目の前に・・・ついでに10万キロ超えそう・・・

「これ、車検受けてあと2年乗ったら余裕で10万キロ超える・・・汗」

となると、もう値段が付く間に売り飛ばすか、値段がつかなくなって、
動かなくなるまで本気で乗りつぶすか・・・なんだけど
車検は2年ごとに10万程度かかる。10万キロ超えたら値段つかない・・・
もう、いい加減飽きてきた(愛着がなくなった)・・・
だったら、値段がついてる内にまずは売り飛ばしてしまおう。
ってことになった。
新車購入の予定だったけど、いきなり過ぎて、決められない！
それに、納車だって１～２か月かかるんだもん、今更あがいても仕方ない。
色々試乗したりしたいのにすぐに決めろって言われても
これから先少なくとも5年（いや、10年）は乗るんだもん
ゆっくり決めさせてほしい！
ってことで、なぜか(諸般の事情により）中古車でつなぐ・・・話になった。

そこで、出てきた言葉がスーパーチャージャー

そこの中古車販売店長が推してくる車の売り込みポイントが
「やっぱり、スーパーチャージャーついてますからね！」で
素人なもんで、「なんやねんそれ・・・」ってレベル。

じゃぁ、それで。って購入決めたものの、
スーパーチャージャー気になって調べてみたら、
最近は搭載されてる車の製造してないやん！！！
日本(特に街乗り)ではあんまり必要ない機能やんっっっ・・・
ってことで、いいのか悪いのかわかんない機能に堕ちちゃった私。
ま、実生活で必要な車種とはズレた選択したから
ひとまずは1回目の車検まで乗ったら、要検討。
それまでに、ちゃんと自分の生活スタイルに見合った車種を選ぶことにして。
数か月～2年後くらいまでのちょっとした贅沢だわ～
もう無駄遣いしないっっ！

VivaldiでMy blogを始めたけど WordPressに苦戦？

よく判んないわ。
何がって、vivaldi経由で使ってるWordPress 使える機能が限られてるのかな？
プラグインとか、テーマのインストール方法が判んない。
そもそも、プラグインはダッシュボードにアイコンが無いから使えないの？
ド素人すぎて、判らない・・・
プラグインとか入れなくても、vivaldi使う人は
自力でそういうのとか作っちゃう人たちなの？？

一意の値になる数値の組み合わせを探すには・・・

ナップザック関数

年度末になるとどーしても使う必要が出てきてしまうナップザック関数
一時的に必要に迫られて使うから、どーしても忘れちゃうのでメモしときます。

' knapsack総当たり
' 目標値と一致する物をすべて求める
Const N = 20 ' データの数
Dim wa(N) As Long

Sub knap_main()
Dim w As Long, wmax As Long
Dim i As Integer, j As Long, k As Integer
Dim y1 As Integer, y2 As Integer
Dim b As Long

y1 = 1 ' A1:Anにデータを入れておく
y2 = y1 + 1 ' B列以降が結果
For i = 1 To N
wa(i) = Cells(i, y1).Value
Next

wmax = Cells(33, y1).Value ' A33に目標値を入れておく
For j = 1 To 2 ^ N - 1
w = 0
b = 1
For k = 1 To N
If j And b Then w = w + wa(k)
b = b + b
Next
If w = wmax Then
b = 1
For k = 1 To N
If j And b Then Cells(k, y2).Value = wa(k)
b = b + b
Next
y2 = y2 + 1
End If
Next

End Sub

ちなみに（y1=）に指定する数字はA,B,C,D～の列で左から数えた順になるから
データの入っている列の番号をここで指定すればA列にデータが無くてもOK
但し、結果を表示する部分（y2=）は上記ではy1の右隣以降を指定しているので、空欄にしておく必要がある。
上記太字部分に注意すること。
ついでに、できるだけ少ない組合せで探したい場合は別の方法を考える？
（ど素人なので、自分用のメモです・・・）