なまもの

 ★ 届きました ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 なまもの届いたので続きです。(´∀`*) 
CIMG0034.jpg
 箱を開けるとこんな感じ
CIMG0039.jpg
 中を確認すると、ぱっと見でメダカ、タナゴ、モツゴの3種類後ほかにもいるかもしれません。
CIMG0043.jpg
 でもって現在水温調節中です。∧_∧
CIMG0045.jpg
  そしてブログの更新作業してたら水温調節もそろそろいい時間になってきました。なので、(≧∇≦)/ 

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

昨日届いてた?・・・

 ★ 14::00~16:00 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
先日の記事でも書いた川魚MIXですが、昨日届いたけど不在にしてたので不在連絡票が入っていて、先ほど気づきました。
 早速連絡したらこのあと2時から4時に再配達してくれるとのこと( ´ ▽ ` )ノ
 でも、1日郵便局で保管されその間に★になってないか心配です。
 季節によって内容は異なるとのことなので楽しみです。
 タナゴの群れとかいいなぁ、モツゴも欲しい。川にガサゴソしにいって網をあげる瞬間に似ています。
 いまは1時前、早ければあと1時間くらいで届きます。
 (メ・ん・)?玄関から呼び声がする。まさか、早すぎる。
 
 ------------薬屋さんでした、紛らわしい…
 それでは届いたら続き書きます。
 

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

どうしよう

 ★ すんごい久しぶりの自炊開始 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 恥ずかしながら四十代半ばにして未婚、母親と同居し炊事洗濯は親任せという情けない暮らしぶりをしている僕なのですが。最近体調を崩していた母が昨日ついに入院。
 といっても半ば検査入院で期間はどれくらいになるか分りませんが。
 そんなわけで、学生時代以来の久しぶりの自炊生活開始です。(´Д`;)
 今朝は簡単なものを作ってみました。
 ・ピザトースト
 ・ベーコンエッグ
 ・ポタージュ
 ・コーヒー 以上です。
朝飯
 まあ、食事は何とかなりそうなのですが、問題は洗濯、学生時代は洗濯も自分でしていました。でもその頃使っていたものに比べうちの洗濯機はやたらボタンが多い…正直使い方が分かりません。
 また、洗濯できるのは土日くらい、なので今日はワイシャツと下着類だとかを買い込みにいきます。
 それではまた・・・(*^-^*)ノ~~マタネー
 

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

コピペ

 ★ 右クリック ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日は、一昨日一応完成させたエクセルファイルを試しに使ってみることにしました。
 やることは業務用システムを開いてデータをコピーエクセルに画面を切り替えてデータの貼り付け、それで気づいたのがUserFormに配置したテキストボックスは右クリックからショートカットメニューを表示して貼り付けができないこと。
 自分はショートカットキー(Ctrl+V)で十分な気もするのですが、「右クリックで貼り付けできないの?」という意見は出てきそうです。
 早速ネットで検索し素晴らしい記事を発見しました。(≧∇≦)/

 mi-yuとExcelさんの↓の記事を参考に作業開始。
 http://miyu-excel.seesaa.net/article/404902852.html
 下記のコードが上記のサンプルコードに比べ短いのは職場が個人の端末とネット閲覧用の端末が分けてあり又USBメモリの接続も制限されているので簡単にコピペできないためです。
 それに「貼り付け」に限定したほうが業務上都合が良いと判断しました。
 また、コピペでなく手打ちすると、VBEに入力候補が表示されるのでとても勉強になります。 
 

  標準モジュールに下記のコードを入力。

 Sub Right_Paste()
SendKeys "^V" '貼り付け
 End Sub

 Sub Right_Menu()
Dim myPopup As Variant

Set myPopup = Application.CommandBars.Add _
    (Position:=msoBarPopup, temporary:=True)

With myPopup
With .Controls.Add
.Caption = "貼り付け"
.OnAction = "Right_Paste"
.FaceId = 22
End With
.ShowPopup
.Delete
End With

Set myPopup = Nothing

 End Sub

 フォームのモジュールに下記コードを入力。

 Private Sub TextBox1_MouseUp(-略-)
  '右クリックしたらメニューを表示
  If Button = 2 Then
  Right_Menu
  End If
 End Sub

 

 上ではTextBox1だけですが実際にはもっと沢山あり一手間でした。
 そんなわけで、二つの意味でコピペしたいけど出来ない一日でした。
 それではまた(o・・o)/~ 

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

体調が・・・

 ★ 好調のち不調 ★ 
 ご訪問 ありがとうございます。阿良々木(アラクリカエシキ)です。
 昨日は久しぶりにブログを更新(広告消しただけ)しましたが
 昨日書いたとおり手が震えるので途中で書くのをやめてしまいました。
 それで、昨日は体調が良かったのでそのへんのこと書こうかと思ったのですが、今日は一変して絶不調_:(´◇` 」∠ ):_、仕事も早退してしまいました。
 復職後の悩みは、仕事が無いこと、倒れる前は憧れてたんですけど(^^;
 実際に仕事がないと時間が過ぎません。それが結構辛いんです。
 最近調子が良かったのは自分好みの仕事があったからです。
 うちの職場のOSは現在Windows7で、サポート終了に備えてWindows10へ変更することが決まっているのですがうちの部署で使っているFileMaker Pro 13がWin10では動作未検証でサポート対象外(動くかも知れないんですけど)
 そんで、上司から仰せつかったのがファイルメーカーで使っている主要なファイルをエクセルで代用品を作れというもの、カード型データベースソフトのファイルメーカーをアクセスならまだしも表計算ソフトのエクセルで再現しろというのはハードルが高いです。結構な無茶振りです(´;ω;`)
 ですが昨日一応形になりました(´∀`*) ベータ版ですが…
 ユーザーフォームとVBA(マクロ)を駆使してなんとか作りました。
 まあ、共有ブック特有の競合の問題とか残ってますが(・・;)
 やれることはやりました。やりつくしました
 (自分の持てる技術の範囲ですが…)
 で、やりすぎました。もっとゆっくりやればよかったです。
 その結果今日の体調不良による早退(寝たら治りましたけど)
 明日は職場で何しよう(m´・ω・`)m
 話しは変わりますが、てか変えます、今日ア○ゾンで【生体】川魚MIX Sサイズ 2cm~4cm前後 50匹 エサ用 生餌 川魚 淡水魚 (コイ、フナ、モロコ、モツゴ、タナゴ等その時により様々)を注文しました。昨年リセットした池で飼おうとおもいます。
 楽しみです(((o(*゚▽゚*)o)))
 それでは(≧∇≦)/
 

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

そろそろ

 ★ 2018年 最初の更新が広告消し・・・(´・ω・`) ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 といっても去年の暮れから2ヶ月半も放置しておいたのですが・・・
 今年最初の更新は広告消し・・・(´・ω・`)
 まぁ、更新しなかったのには理由がありまして
 薬減らしたら手の震えが非道くなって、まともに文字を打つことが出来ませんでした。
 今も大差ありません。
 書きたいことはまだあるんですが、手が言うことを聞いてくれない。(´-ω-`)
 今回は広告消しだけということで、それではまた(o・・o)/~ 

ブログランキング・にほんブログ村へ
にほんブログ村
訪問者さま
カレンダー
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
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
1997位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
68位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム