自己紹介します。 ヒナタザウルスです! Twitter @hinata_saurus 現役病院ソーシャルワーカー/MSW/社会福祉士/社会福祉協議会、ベンチャー企業を経て現在。 〇おまけ→ホームページを2社管理/保育園第三者委員/デイサービス運営推進会議委員/調理師免許あり。 経験シェアと啓蒙のため、特定を避けた形でブログを開始しました! 医療と福祉の素敵な連携を目指して‼︎
(ガオウリ・5歳) おしゃれをしていたと思います。トリケラトプスの角や、ステゴサウルスの板状のプレート、カムイサウルス のトサカもおしゃれのひとつですね。 【質問7】 恐竜の生息地の環境はどのようにして予想したのですか? (かたザウルス・12歳) 生活していた環境は、骨からではわかりにくいです。今回のぬりえで背景を描くのに困ったと思います。骨が埋まっていた地層を調べるとその環境がわかり、そこから推測します。 【質問8】 私は恐竜が大好きです。そして、よく恐竜の絵を描きます。でも、骨格から描くということはあまりしたことがなくとても難しいです。とくに筋肉の付け方が難しいです。現生の生物で、いちばん恐竜に近くて参考になる動物はなんですか? (伊藤小都音・11歳) どの動物も参考になります。ただ、あえていうと恐竜に近い動物、つまりワニ類と鳥類です。しっかりと観察して、骨ぬりえに取り入れていきましょう。 【質問9】 私は恐竜が大好きで、絵もよく書きます。恐竜の色についてなのですが、ある程度は描くひとの自由でいいというようなことを、本などで読んだことがあるのですが、それでも、この色はナシかな、という色はありますか? ザウルススマホ受け - かすかべ・つねさん工房. (伊藤小都音・11歳) 動物にはいろんな色が使われています。使ってはいけない色というより、どのような色がどのような動物に使われているか、そして恐竜がどの動物に似た生活をしていたかを想像して復元画を描いてください。 【質問10】 恐竜学者になって一番楽しかった仕事は何ですか? (明彦・8歳) いろんな楽しみがありますが、こうやって皆さんの手によって復元された絵を見ているのもすごく楽しいです。 恐竜 骨ぬりえ 【定価】本体1250円(税別) 【発売日】 2020年7月27日 【サイズ】A4判 【ISBN】9784041086506
今日は食育ではなく育児に関する内容です。 読み聞かせが良いと聞いてやってみたものの、何歳まで続ければ良いんだろう。。。 小学生になって文字も覚えたんだから、そろそろ自分で読むようになって欲しい! って、思いませんか? 私も娘が赤ちゃんの頃からつい最近までほぼ毎日読んであげていましたが、ある本をきっかけに自分で読むようになってくれたので、紹介したいと思います。 ちなみに娘は7歳の小学1年生。 最初に買ったのは にじいろフェアリー しずくちゃん③(人型) 本屋で『好きなの選んでいいよ〜』で見つけてきたのがきっかけで大ハマり。 何度も何度も笑いながら読んで、枕元に大切そうに置いていたので『これはチャンス!』と思い、1と2も続けて購入。 しずく型のしずくちゃんが、しずくの森に降りてきて人型になり、お友達がたくさんできるお話。キャラ濃いめ。 お出かけの際にタブレットではなく、しずくちゃんを持っていくようになったほど! ※娘は酔わないので、車でも平気で読んでいます。 その後、学校の図書館で借りている本が面白いというので、それも購入。 ほねほねザウルスシリーズ けっこう前からあるものらしく、中古で手に入るのでありがたい! これも彼女にとってはゲラゲラ笑うくらいツボらしく、4冊買って枕元に積み上がっています。 ホネの恐竜とかが出てきます。全部ホネ(笑) 3人?(ホネ?)の主人公が冒険するお話! 潰れたネジも外せる。あると便利な「ネジザウルスGT」【いつモノコト】-Impress Watch. これがきっかけで、持っていた本を色々探しては自分で読むようになりました。 でもびっくりしたのが、ほねほね、めっちゃ文字多いんですよね! 『ママも読んでみー』と言われましたが、読めませんでした! いやー、あの量はムリだわ。 この2つの本、共通点があって どちらも 漫画風 なんですね。 絵本と漫画の間、みたいな? 筋書きと吹き出しのセリフがあり もちろん全ページ絵があるので パラパラめくってもだいたい分かるような。 何か、漫画はまだ早いかなーと思っていたけど、こんな可愛いお話があるんだなと知れて良かった。 漫画=鬼滅、ワンピースってイメージが強くて(笑) 個人的には大好きなんですけどね。 読み聞かせのゴールは、 子どもが本を好きになって自分から読むようになること。 だと思っていたので、とりあえず到着!。。。かな? なんと言っても スマホやタブレットに勝ったのが 嬉しかった! いつまで続くか分からんけどね。 もしエンドレス読み聞かせに疲れたら、時期を見て漫画!という手もありかもしれませんよ。 娘はしずくちゃん、ホネホネだけではなく、ルルとララシリーズなどのお話がメインの本も自分で読み切れるようになってきました。 『Newsがわかる』の漫画コーナーも好きです。 こちらもオススメ★アフロ先生おもしろい。 ちなみに、しずく型のイラストの『しずくちゃんシリーズ』は30巻以上あり。 ご参考までに。 ↓ホームページはこちら↓ お越しいただければ嬉しいです。 ご予約は公式LINEからがスムーズです お問い合わせ方法 ------------------------------- ① LINE公式アカウント登録 ⇒ 登録後、左下のキーボードボタンを押す ⇒ メッセージを入力、送信 ② メールフォーム お名前・電話番号等の入力を お願いしています。 ここをクリックでフォームにとびます。 ③ お電話での問い合わせ ※営業・セールスの方はお断りしています 090-3827-4919 (受付時間) 平日10:00-18:00 電話に出れない時がありますので 留守番電話にメッセージをお願いします。 メッセージのない場合は折返しいたしません。
~ MSW(医療ソーシャルワーカー)のオハナシ ~ 初めまして!ヒナタザウルスです。 今回は私のブログに足を運んでいただきありがとうございます。 私は現在、社会福祉士で病院ソーシャルワーカー(通称:MSW)として働きながらブログやTwitterを使ってMSWに関する情報を中心に発信を行っています。 MSWとは主に入院や通院されている患者様が、地域や家庭において生活を送ることができるよう、ソーシャルワーカーの立場から、介護保険制度、生活保護制度などを活用しながら、支援する専門職のことを言います。 しかし、MSWとして働く上で思うのは「まだまだMSWという仕事が認知されていない」ということです。書店でMSWに関する本を購入しても学術的な内容のものばかりで、どのような働き方をするのかということが描かれているものは非常に少ないです。 それでも、私が読んで良いなと思った本に関しては、ドンドン紹介していきたいと思います。 私自身も実際に勤務してから「こんなこともするの! ?」と驚くようなことが何度もありました。 このブログでは「MSWに興味があるけれど情報が少ない」と悩んでいる方に向けて基礎的な部分からより実務的な事例まで発信していきます。 私が経験したこと、学んだことを発信すると共に、読んで学びになった本なども紹介していきたいと思っています。 ・MSWってどんな人がなるの? ・MSWで実際に起きた事例 ・MSWって何をはするの? ・おススメの本はある? ゾイドはどこで道を誤ったか？～「ゾイドバトルストーリー」一覧で振り返る～. (本の紹介はMSWに関するものも、関しないものも紹介させていただきます。) など、ブログとして書いていこうと思っています。 事例の紹介も多くしていきたいので、特定を避けるために、私個人の情報も極力発信せず、オリジナルキャラクターで書きます。 よろしければ、ブログを書く理由や、私の過去についてお話ししている、 エピソード0【MSWになったきっかけ?】 、 【コラム】私がブログを書く3つの理由 を読んでいただきたいです。 記事は、 「知識編」 、 「事例編」 、 「コラム」 、 「本の紹介」 、 医療系ドラマの感想 の5パートに分かれて書いていきます! これからMSWを目指す方の参考に少しでもなれば幸いです。 また、直接はMSWに関係のないような本でも、本を読むことが好きなので、特に病院が舞台となる小説や、病院にまつわる本で私が紹介できるようなものがあれば、積極的に紹介していきたいと思っています。 同様に、病院や医療が関係のあるドラマに関しての感想などのブログにしていけたらと思います。 よろしくお願いいたします‼ ヒナタザウルスってだれ?
to 28 Aug. 」と書いてくださってます。 ご親切に有り難いです(/ _;) しかし僕は僕の都合でこの親切心を裏切る形になってしまいました(/ _;) 本当に申し訳ございません。 でもこのバナーはこのまま引き続き使わさせていただきます! だってめちゃくちゃカッコイイんですもん! F岡からの「悪役をイメージして作ってください」なんて無理な注文受けて、よくもまぁここまでダークなデザインに落とし込んでくれたなぁ…と本当に感謝してます! 色々書きましたが、F岡からのお知らせは以上です。 繰り返しになりますが… 開催期間 製作:2021年4月20日〜2021年9月24日(金) 投票:2021年9月25日〜2021年10月1日(金) 優勝者発表:2021年10月2日(土) に延長・変更となりました。 重要なお知らせであるため、宜しければリブログで拡散していただけると幸いです。 こんな情けないコンペ主催ではありますが、これ以上の失態が起きないよう全力で務めさせていただきます。 参加者の皆さんに対しましては、行く先に不安を感じさせてしまい大変申し訳ございません。 そして読者の方々も「言い訳するなよ」と思わせ、読んでいて萎えさせてしまい本当にすみません。 甘っちょろい考えではありますが、それでも楽しみでいてくれるのであれば、今後もF岡を・参加者皆さんを・何より【敵機コンペ】自体を応援していただきますよう… いや……応援していただけるよう頑張りますので見ていてください!! どうぞ宜しくお願い致します。
予報では台風8号の接近と雨注意報だったが大したことも無かった。お陰で夕方までエァコン無しで、久し振りに快適。今日は厚35×幅100mmのけやき板材で、何とかザウルスのスマホ受けを切り抜く。3mmバンドソーで切り抜くが、さすがにケヤキは堅い。ちょっと無理して小さなカーブでバッシン。
こんにちは。 お久しぶりです、F岡です。 【敵機コンペ】参加の皆様に重大なお知らせがあります。 『開催期間の延長を致します』 超個人的な理由なので謝らせてください。 「F岡が間に合いません」 ……順を追ってちゃんと説明しますので、コンペ参加者の皆さん、そしてコンペを楽しみにしてらっしゃる読者の方々、どうか最後まで読んでいただくよう宜しくお願い致します。 《延長理由》 ①主催者F岡が間に合わない ②皆さんの作品紹介する時間をちゃんと取りたい ③そもそもアメブロアプリへのイン率が減った 『①主催者F岡が間に合わない』 間に合わない言い訳をさせてもらえるならば… コロナのワクチン接種、F岡は1回目も2回目も打ち終わりました。 で、その1回目・2回目共々副反応の高熱に悩まされ、予定していた模型時間がパーになりました(/ _;) 2回目の接種日は1回目と同じ曜日・同じ時間になるよう予約段階で組まれており、模型時間(休日)を回避することは不可能でした。 1回目・2回目共々1日で治らず、2日もへばっておりました。 特に2回目の発熱は地獄で、ほぼ39度代、最高40. 2度。 脳味噌が脈打ってるような、万力で締め付けられてるような頭痛が毎秒頻繁し、身体の節々も痛くて家の中歩くことさえも、トイレでパンツ下ろすことさえも辛かったです。 さらには左膝を疲労骨折してしまい、通院を余儀なくされ、これまた貴重な模型時間が…(・・;) MRIを撮ったら、膝内側が完全に割れてました。 単に製作スピード遅いってのもありますが、諸々の事情でこの1ヵ月は思うように進んでおりません。 『②皆さんの作品紹介する時間をちゃんと取りたい』 前回も主催を務めさせていただきましたGBNコンペで、僕は参加者全員の作品を当ブログで紹介しました。 「その人の自作品に対する想いを汲んで紹介を代行する」 あれは至福の時でした♪ 今回の敵機コンペでもそれがしたい! でもそれする時間がない(><) (あれを書くには調べるのに結構な時間がかかるのです) GBNコンペでも製作期間中に完成記事上げていただくレギュレーションになっているので、僕が製作途中であっても即対応して紹介記事書くようにしてましたが、今回の敵機コンペでは難しそうです(・・;) 開催期間延長したとしても、1作品1記事での紹介は時間的に無理な気がしてます(. _. ) なので参加作品全部の紹介を1記事もしくは2記事にまとめて書こうかなと思ってます。 予定はあくまで未定ですが。 『③そもそもアメブロアプリへのイン率が減った』 模型時間が取れない ↓ 書く事がない ↓ アメブロアプリの起動が減る ↓ 皆さんの製作記を読み飛ばす ↓ サークルへのイン率も減っている という悪循環が起きてしまってます。 いえね、自分が書く事なくってもアプリ起動して皆さんのブログ読んだりコメント残したりしてますよ。 でもね、それもやはり頻度が下がりました。 これは宜しくない!
PageSetup. PrintArea = "A1:D4" ActiveSheet. PrintArea = False 4行目はPrintAreaで指定している範囲を初期化するためのものです。 初期化しないと、連続して印刷したときにA1:D4の範囲指定が残ってしまい、印刷に影響が出るからです。 「Sheet1」というシート名の「A1~C2」の範囲を指定して印刷します。 Sub sample7 () WorkSheets ( "Sheet1"). PrintArea = "A1:C2" WorkSheets ( "Sheet1"). PrintArea = False シートの最終行を取得して、その最終行までを印刷範囲として指定します。 なお、この事例ではA列の最終行を取得しています。 Sub Sample8 () Dim cmax As Long cmax = Worksheets ( "Sheet3"). Range ( "A65536")( xlUp). Row With Worksheets ( "Sheet3"). PrintArea = "A1:E" & cmax. PrintOut. PrintArea = False End With 1枚のシート中で、複数ページにまたがる場合、ページ数を指定して印刷することができます。 印刷ページの指定方法は、PrintOutに以下を書き足します。 From:="印刷開始ページ番号" To:= "印刷終了ページ番号" 以下の事例は1~3ページ目まで印刷します。 Sub sample9 () ActiveSheet. PrintOut From: = 1, To: = 3 印刷設定をして印刷する 事例10|印刷範囲を一枚に収める|FitToPagesWide, FitToPagesTallを使う 事例11|印刷サイズをA4に選択する|PaperSizeを使う 事例12|印刷サイズをA3に選択する|PaperSizeを使う 事例13|印刷を縦向きに設定する|xlPortraitを使う 事例14|印刷を横向きに設定する|xlLandscapeを使う 印刷範囲を1枚に収めたい場合は、PrintOutに以下を書き足します。. 簡単マクロ！値を変更しながらの連続印刷. FitToPagesWide =1 |横方向で1ページになるように縮小. FitToPagesTall =1 |縦方向で1ページになるように縮小 Sub Sample10 () With ActiveSheet.
最終更新日:2021-01-25 印刷範囲の設定・印刷範囲のクリア 印刷に不必要なデータが含まれているワークシートの場合、適切なセル範囲を印刷範囲として設定します。 印刷範囲を設定するには、WorkSheetオブジェクトの PageSetupオブジェクトのPrintAreaプロパティ を使用します。 VBAでの印刷およびPageSetupオブジェクトの詳細については以下を参照してください。 第71回. 印刷(PrintOut)|VBA入門 シートの内容をマクロVBAで印刷する場合は、PrintOutメソッドを使用します。このPrintOutメソッドが使える対象オブジェクトは複数あります、ブック、シート、セル、それぞれにPrintOutメソッドが存在するので、印刷範囲によって使い分けてください。 第72回. 印刷プレビュー(PrintPreview)|VBA入門 VBAで印刷プレビューを表示するには、PrintPreviewメソッドを使用する方法と、PrintOutメソッドを使用する方法があります。PrintPreviewメソッドとPrintOutメソッドが使える対象オブジェクトは複数あります。ブック、シート、セル、それぞれにPrintPreviewメソッドとPrintOu… 第139回. 印刷範囲の設定・印刷範囲のクリア｜VBA技術解説. エクスポート(PDF/XPS)|VBA入門 シートの内容をPDF/XPS出力するには、VBAではExportAsFixedFormatメソッドを使用します。このメソッドが使える対象オブジェクトは複数あります、ブック、シート、セル、それぞれにExportAsFixedFormatメソッドが存在するので、印刷範囲によって使い分けてください。 第73回.
Dialogs(xlDialogPrint) 印刷タイアログを表示します。 こちらをご参照ください。 印刷総ページ数の取得 これで総ページ数は取得できますが、PrintOutが対応している幅広いオブジェクトには対応できません。 印刷対象の各シートの印刷ページ数を事前にチェックするような、事故防止策が必要になる場合もあるでしょう。 PageSetupについては、以下で詳しく解説します。 第73回. ページ設定(PageSetup) VBAで印刷のページ設定をするには、PageSetupオブジェクトのプロパィを設定することで行います。基本的には、事前に印刷するシートのページ設定をしておくことが望ましいのですが、VBAで作成したシート等、事前にページ設定することができない場合はマクロVBAで印刷のページ設定をします。 間違った印刷を大量に行わないわない為には マクロVBAで印刷できるようにすると大変便利ではありますが、 その反面、間違った印刷を大量に行ってしまうといった事故も発生します。 処理方法(複数ドキュメントを順に印刷するような場合)によっては難しい場合もありますが、 可能な限り印刷プレビューを経由させるようにした方が印刷のトラブルは減ります。 印刷内容によって、適宜判断したほうが良いでしょう。 同じテーマ「 マクロVBA入門 」の記事 第68回. シートの保護、ブックの保護(Protect) 第69回. シートの非表示(Visible, Hidden) 第70回. ウィンド枠の固定(FreezePanes) 第72回. マクロVBAの印刷(PrintOut)の事例15｜範囲,印刷設定,サイズ変更,印刷向き縦横 - パソコンスキルの教科書. 印刷プレビュー(PrintPreview) 第139回. エクスポート(PDF/XPS) 第73回. ページ設定(PageSetup, PageBreak) 第74回. ファイルを開くダイアログ(GetOpenFilename) 第75回. 名前を付けて保存ダイアログ(GetSaveAsFilename) 第76回. ファイルダイアログ(FileDialog) 第77回. 組み込みダイアログ(Dialogs, xlDialogPrint) 新着記事 NEW ・・・ 新着記事一覧を見る 在庫を減らせ!毎日棚卸ししろ!|エクセル雑感 (2021-07-05) 日付型と通貨型のValueとValue2について|エクセル雑感 (2021-06-26) DXってなんだ?
PrintOut ページ番号を指定してシートを印刷するサンプルコード 今回のVBAコードはページ番号を指定してExcelの指定したシートを印刷する マクロ になります。尚、今回は引数を指定しています。 Sheets("Sheet1"). PrintOut From:=1, To:=3 実行結果 1ページから3ページまで印刷します。 解説 Sheetsコレクションオブジェクトの PrintOut には、 引数From に「 1 」を 引数To に「 3 」を設定しています。 引数From は、 印刷を開始するページの番号 を 引数To は、 印刷を終了するページの番号 を設定になります。こちらの処理では、 1ページから3ページまで 印刷します。 また、こちらでは 名前付き引数 を使用して引数設定していますが、 「, (カンマ)」区切り での設定は以下のようになりますので、参考にしてください。 Sheets. Sheets("Sheet1"). PrintOut 1, 3 印刷プレビューで確認してからシートを印刷するサンプルコード 今回のVBAコードは印刷プレビューで確認してからExcelの指定したシートを印刷する マクロ になります。尚、今回は引数を指定しています。 Sheets("Sheet1"). PrintOut Preview:=True 実行結果 印刷をする前に印刷プレビューを実行してから「Sheet1」シートを印刷します。 解説 Sheetsコレクションオブジェクトの PrintOut には、引数Previewに「 True 」を設定しています。 引数Preview は、 印刷をする前に印刷プレビューを実行 するかの設定になります。こちらを「True」で設定することで印刷プレビューを実行してから「Sheet1」シートが印刷されます。 選択セル範囲を印刷するサンプルコード 今回のVBAコードは選択セル範囲を印刷する マクロ になります。 Sheets("Sheet1")("B2:D7") Selection. PrintOut Preview:=True 実行結果 「B2~D7」セル範囲を印刷します。 解説 Rangeオブジェクト の Selectメソッド で「B2~D7」のセル範囲を選択しています。次に Selectionプロパティ で選択しているセル範囲のオブジェクトに対して PrintOut の引数Previewに「 True 」を設定しています。これにより「B2~D7」のセル範囲だけを選択して印刷します。 まとめ 今回は、Sheetコレクションオブジェクトの PrintOutメソッド を利用して、Excelの 指定したシートを印刷 にする方法について解説しました。次回は、エクセルVBAでExcelシートを保護する方法について解説します。 エクセルVBAの印刷設定一覧 印刷する用紙のサイズを設定する 印刷するページの余白を設定する 印刷する先頭ページの番号を設定する 用紙のヘッダー・フッターに情報を設定する 印刷範囲を設定する 印刷プレビューを表示する シートを印刷する
こちらでは、 Sheetオブジェクト の PrintOutメソッド を利用して、Excelの指定したシートを印刷する方法について解説しています。 メソッド とは、 オブジェクト を操作する命令文のことで オブジェクトの動作 になります。 メソッドを利用するにはオブジェクト名とメソッド名の間に「. (ピリオド)」で結んで記述します。 オブジェクト名. メソッド名 目次 はじめに 利用するメソッドについて PrintOutメソッド 引数省略で指定したシートを印刷するサンプルコード 実行結果 解説 ページ番号を指定してシートを印刷するサンプルコード 実行結果 解説 印刷プレビューで確認してからシートを印刷するサンプルコード 実行結果 解説 選択セル範囲を印刷するサンプルコード 実行結果 解説 まとめ エクセルVBAの印刷設定一覧 はじめに こちらでは、 PrintOutメソッド を利用したExcelの 指定したシートを印刷 する方法について解説します。今回は、Sheetsコレクションオブジェクトの PrintOutメソッド を利用しますが、 PrintOutメソッド はSheetsコレクションオブジェクト以外でも利用されますので、どのオブジェクトで利用できるかも確認してください。 利用するメソッドについて 今回利用するメソッドは以下になります。 PrintOutメソッド PrintOutメソッドとは Sheetsコレクションオブジェクトの PrintOutメソッド は 指定されたシートを印刷 します。 Sheets("シート名"). PrintOut 引数 Sheets(インデックス番号). PrintOut 引数 引数省略で指定したシートを印刷するサンプルコード 今回のVBAコードは引数省略でExcelの指定したシートを印刷する マクロ になります。尚、今回指定する引数は省略しています。 Sub sample() Sheets("Sheet1"). PrintOut End Sub 実行結果 「Sheet1」シートを印刷します。 解説 sample プロシージャ の Subステートメント に引数は設定されていません。Sheetsコレクションオブジェクトには「 Sheet1 」シートが設定されています。そして、「Sheet1」シートオブジェクトの PrintOutメソッド には、引数が省略されていますので、処理を実行すると「Sheet1」シートが 通常の印刷設定で印刷 されます。最後は Endステートメント を利用してsampleプロシージャを終了させます。 Sheetsコレクションオブジェクトは、「シート名」で設定しましたが「 インデックス番号 」でも設定ができます。以下は「インデックス番号」で設定した内容になりますので、参考にしてください。 Sheets(1).