FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

睡眠薬に耐性ができた?

 ★ 薬漬け ★ 
 どうもおはようございます。٩(●˙▿˙●)۶おはよ♡
 阿良々木です。ふぁーん٩(๑´0`๑)۶眠いです、けど寝れない( ^ω^)・・・
 なんとなく、今飲んでる薬を列挙してみました。
 最近、早朝覚醒するもので・・・、何となくです。
 
 (精神科)
 薬品名称                    用量  単位
 バルプロ酸ナトリウムSR錠200mg「アメル」 5   錠
 エビリファイ錠12mg             1   錠
 フルニトラゼパム錠1mg「アメル」       1   錠
 ブロチゾラムM錠0.25「EMEC」      1   錠
 クエチアピン錠100mg「EE」        1   錠
 リーマス錠200                4   錠
 (内科)
 薬品名称                    用量  単位
 アルプリノール錠100mg「サワイ」      2   錠
 アムロジピン錠2.5mg「アメル」       2   錠
 タナトリル錠5                 2   錠
 インデラル錠10mg              2   錠

 あらためてみるとかなりの量です∠ ̄゜◦。)。◦。◦。
 それでは又・・・
 

ブログランキング・にほんブログ村へ
にほんブログ村
スポンサーサイト

やっと

 ★ 母が退院 ★ 
 どうもこんばんわ。阿良々木です。
 先日入院した母が今日退院出来ました。Σd(´∀`)
 でもまあ、退院したといっても完全復帰とはいかず、食事制限とか色々あります。
 そんな訳で、母の食事をどうするかという問題なんですが(´・ω・|||)
 近所に住んでいる姉が面倒見てくれることになりました。
 しかし、自分の食事は今後も自分で何とかしなければなりません。(* ̄▽ ̄)
 しかしまぁ、検査入院だけで長期入院にならなくてよかったです。
 

 それから、昨日の記事で書いた☆になったモツゴの件ですが…
 今日見たらもう一匹☆になっていました。
 (メ・ん・)生存者がいるのかとガサゴソ実施
 メダカが一匹生きてました。((^-^)/)
 早速ビオに引っ越し。
 でも、その後何度ガサガサしても網に入るのは枯葉だけでした。
 

 今日の仕事…
 BD-Rを焼くだけ
 でもデータ量は約60G
 時間かかるのでやりたくないのですが
 年度末だし放置するわけにもいかずBD-R4枚焼きました(´・ω・|||)
 USBでデータ移動するのと焼くのに時間が結構かかります。
 その間、待ってるだけ( ^ω^)・・・

 ↓どのフォルダとどのフォルダを組み合わせれば一枚に焼けるとかやってます。
 http://arakurikaesiki.blog.fc2.com/blog-entry-214.html 
 ↑以外に重宝してます。
 欠点:フォルダでなくドライブを選択するとエラーになること…
 (職場のやつはエラートラップかけてます)
 

 それでは又・・・
 

ブログランキング・にほんブログ村へ
にほんブログ村

生きてた?

 ★ でも死んでたorz ★ 
 どうも。こんばんわ阿良々木(アラクリカエシキ)でーす。

 ついさっき、なんとなぁく胸騒ぎがして金魚池覗いてみたら…

 モツゴが一匹☆になって浮いていました。

 死体を見て最初の感想は「生きてたんだ、全滅じゃなかったのか…」

 でもまあ、死んでるんですけどね。

 全滅したと思ってたけど生きてたんだ、死んでますけど。
 
 明日仕事から帰ったら埋葬してやろうと思います。

 あと、他にも生きてる個体がいるかもしれないので

 明日か土曜日に再びガサゴソしてみようと思います。
 
 なんだか、もどかしい気分です。

 それではまた( ^ω^)・・・

ブログランキング・にほんブログ村へ
にほんブログ村

なかなか

 ★ 伝わらない ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日は先週から作ってた「送付状」のエクセルファイルを少し弄って。
 これ以上詰め込むと使いづらくなるなと思い制作作業はひとまず終了。
 それで、ファイルの置き場所とこんなの作ったのでよかったら使ってください的な回覧文書をまわしたのですが( ^ω^)・・・
 ファイルメーカーが当面使えることもあり反応はいまいち(´・ω・`)
 一応、不明な点があれば僕までとしていたのですが・・・
 問い合わせてきたのはは一人。
 その同僚はファイルメーカーが使えなくなるかもしれないなら、今から乗り換えるとのこと。
 それで使い方を説明したんですけど…

 これがなかなか難しいんです。 伝わらない…

 自分ではできるだけ直感的に操作できるように工夫してみたんですけど、伝わりませんでした。
 説明する前に、
 
 「シートをコピーして使うんですか?」

 「ファイルメーカーみたいに前のデータ見れないんですか?」

 「・・・・ですか?」

 正直言って少し疲れました。
 でもまあ、まだファイルメーカーが使えるので誰も使わないだろうとも思っていたので嬉しくもあります。
 あしたはパワポかHTMLでヘルプファイル作ろうかなぁ
 いや、明日は診察日で昼から休むし先でいいや
 それではまた… 

ブログランキング・にほんブログ村へ
にほんブログ村

昔の自分に感心した(厭きれた)

 ★ WriteLine ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日は金曜日に引き続き送付状のエクセルファイルを弄ってみました。
 内容は別ファイルで作成するようにしていたテンプレートファイル(HTML形式)を送付状のファイルから直に作成するようにするというもの。
 使用するのはTextStreamオブジェクトのWriteLineメソッドで、参考にしたのはOfficeTANAKA先生の下記のページだったと思います。(随分昔に作ったので記憶は曖昧です…)

 http://officetanaka.net/excel/vba/filesystemobject/textstream13.htm
 
 ちなみに下は1年チョット前にそのファイルを作成していた頃の記事です。
 今回もコード載せようかと思ったんですが、とにかく長いコードなので…
 いや。難しいコードではないんですが、WriteLineメソッドでHTMLのタグやJavaScriptのコードも書いたりかなり力技なもので長いんですよ。

 http://arakurikaesiki.blog.fc2.com/blog-entry-135.html

 ↓こんな感じでCSSまで書き込んでます。(;・∀・)
 
WriteLine.jpg

 ↑昔の自分に感心したというか呆れてしまいます。ハァーこれまだ長いんですよ( ^ω^)・・・
 まあ、今日の作業は基本コピペで大半は済んだので見た目ほど手間がかかるわけではないんですけどね。
 それではまた・・・
  

ブログランキング・にほんブログ村へ
にほんブログ村

サバイバー

 ★ モツゴ3匹、メダカ6匹、タナゴ0匹 ★ 
 今日は暖かくていいですね。
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 午前中病院に行って、午後は何しようということで、再び金魚の池をガサゴソしてみました。
 結果はモツゴが3匹、メダカが6匹生き残っていました。( ;∀;)
 全滅したと思っていたのですが、あっタナゴは全滅みたいです。
 袋で見たときはタナゴが一番サイズ大きかったのに何故だろうという感じです。
 とにかく、全滅じゃなくて良かったです。
 金魚だけでなく、今日のガサゴソからも逃れたつわものがひっそりと大きくなって再会できたら嬉しいです。
 本当は、本当の河川や水路でガサゴソしたいのですが、自分の知っていたポイントは皆護岸工事やなんかで魚影が消えました。新しいポイントもエリアを広げれば見つかるかもしれませんが今の自分にはその気力はありません。
ハァ…でもやっぱり外でガザゴソしたいです。

それでは失礼します。
 
 

ブログランキング・にほんブログ村へ
にほんブログ村

今日の仕事?

 ★ 今時、紙の送付状 ★ 
  ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日の職場での過ごし方(時間の潰し方)についてです。
 今回はエクセルで送付状を作ることにしました。
 メール等が普及しFAXや紙の送付状は減っていますがその作成に挑戦。
 うちの部署ではファイルメーカーで送付状を作成しています。
 なので、上司から言われた主なファイルをエクセルで再現するということなのですよ。
 再現するポイントは2つ。
 ・履歴を残せること。
 ・履歴をコピーして新規作成できること。
 
 新規機能が2つ
 ・テンプレートの登録ができること。
 ・INDIRECT関数を使って「請求書在中」、「見積書在中」等のスタンプを表示。
 ここはOffice TANAKA先生の下記ページを参考に作成しました。
 http://officetanaka.net/excel/function/tips/tips14.htm
 
 作成するシートは3つ
 ・FORM:様式兼入力用シート
 ・LOG:FORMで入力したデータを履歴として保存するシート。
 ・PART:コンボボックス用等の値リスト用シート

 使用するユーザーフォーム(ダイアログ)も三つ
 ・Adddlg:データ入力用フォーム。
 ・Serchdlg:履歴検索用フォーム
 ・Datadlg:検索結果を表示しシートFORMに転記するフォーム
 
 やる事は結構あって、形にするのに丸一日かかりました。
 だから、一日でやるから・・・(´・ω・`)
 まあ、ダイアログは他のファイルからインポートし使用しましたし。
 思ったより、時間かかりませんでした。
 来週は何しよう・・・(´・ω・`)
 それでは失礼します。
 

ブログランキング・にほんブログ村へ
にほんブログ村

(メ・ん・)? 2匹?

  モツゴ ★★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 昨日に比べれば寒さが少し和らいだ?まだ寒いですけど。
 それで、今日仕事から帰ってきて、池を確認・・・
 昨日はほとんど姿を見せなかった川魚MIXの面々ですが…
 今日は直ぐに見つかりました
 モツゴが2匹・・・
 
 腹を向けて浮いていました。
 
 白い腹なので底土とのコントラストでよく目立ちます。 

 ☆二つです。(´-ω-`)

 池から掬って側のシダの茂みの中へ埋葬。

 餌を撒いてみるも反応なし。

 昨日は寒さで諦めたガサゴソを決行!!

 ガサゴソ (メ・ん・)?
 
 ガサゴソ ガサゴソ 
 
 (メ・ん・)?アレ?

 ・・・捕れたのはモツゴ1匹

 他はどこに行った?
 
 どうやら金魚の胃袋に消えたみたいです゚(゚´Д`゚)゚  たぶん

 捕れたモツゴは睡蓮鉢で楊貴妃と同居させる事にしました。

 それではまた・・・
 
 

ブログランキング・にほんブログ村へ
にほんブログ村

川魚MIX 50匹?

 ★ どこに隠れてる? ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日は春分の日なのですが、それにしては寒い{{ (>_<) }}ですね。
 それで先日購入した「川魚MIX」なのですが・・・
 小魚が群れてたら絵になるだろうなぁ~とか期待していたのですが…
 姿がさっぱり見えません。
 底土(泥)の色と魚のサイズ(~2cm程度)もあるのでしょうがその姿を見つけるのは困難を極めます。最初は金魚にみんな食べられたのかと思いました。実際サイズの小さなものは食べられたのかもしれません。(´Д`;)
 ただ、よーく見てると小さな影が動いたような気がします
 試しに餌をやってみると4,5匹水面に顔をだします(それまで何処にいたんだ)。
 写真を撮ろうとしたんですが薬のせいで手ブレが非道くて(手ブレ補正じゃ追いつかない)うまく撮れませんでした。
 まあ、まったく居ないわけではないのですが、50匹もいるはずなのに寂しいです。
 池を網でガサゴソして睡蓮鉢に引越ししようかな・・・
 あっ、ガサゴソ楽しそうだな・・・
 でも今日は寒いのでやりません。
 それではまた・・・ 

ブログランキング・にほんブログ村へ
にほんブログ村

ドラッグ

 ★ ドラッグ アンド ドロップ ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日も職場でエクセルいじってました。この前はコピペ、エクセルのユーザーフォームで右クリックしたら「貼り付け」のメニューを表示するようしたのですが今日はクリップボードからテキストを取得し、ドラッグ アンド ドロップで編集できるように機能を一部変更してみました。
Private Sub CommandButton1_Click()

Dim ClipBoard As Variant

ClipBoard = Application.ClipboardFormats
'クリップボードが空か調べる。
If ClipBoard(1) = -1 Then
MsgBox "クリップボードは空です。"
Exit Sub
End If
'空じゃなかった場合
With New MSForms.DataObject
.GetFromClipboard
TextBox1.Value = .GetText
End With
Application.CutCopyMode = False

End Sub

 職場では気付かなかったのですが、記事を書くため自宅でコード打ってテストしていたら、下のような実行時エラーがヽ(´Д`;)ノ
ERROR.jpg
 こんな時は慌てずに(^。^)y-.。o○
 構造体が無効、ブログ用に画面コピーとってたらエラーが出たので
 「vba クリップボード 画像」で検索
 たどり着いたのがOfficeTANAKA先生のこのページ
 http://officetanaka.net/excel/vba/tips/tips20.htm
 サンプルコードを参考に下記のコードを追加、取り敢えずエラーはでなくなりました。( ゚д゚)ホッ!
If ClipBoard(1) = xlClipboardFormatBitmap Then
MsgBox "クリップボードの中身は画像です。"
Exit Sub
End If
 明日は職場でこの部分修正しようと思います。
 でも、あんまり時間かからないなぁ、なにしよっかなぁ
 憂鬱だなぁ
 考えても仕方がないですし、明日のことは明日考えようと思います。
 それではまた・・・ 

ブログランキング・にほんブログ村へ
にほんブログ村
FC2カウンター
阿良々木''@_掲示板 NEW
入口
RSSリンクの表示
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/ビオトープ/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク
らくがき
新着記事
トップページ Jan 01, 2030
PLUS COFFEE Oct 10, 2018
アキネトン追加 Sep 27, 2018
操作性.… Sep 23, 2018
まわりに危機感がないと… Sep 19, 2018
異世界魔王と召喚少女の奴隷魔術 四月は君の嘘 Sep 18, 2018
その一言で Sep 13, 2018
住所と名前を書いてハンコを押す Sep 12, 2018
残高が… Sep 12, 2018
リクは基本無しでお願いします(笑) Sep 10, 2018
カテゴリ
カレンダー
02 | 2018/03 | 04
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
アクセスランキング
[ジャンルランキング]
ブログ
6727位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
401位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。