先人は疫病にどう対処したか。江戸時代に流行した感染症(疱瘡・麻疹・インフルエンザ・コレラ)への幕府の対応策を通して、江戸が都市崩壊の危機をいかにして脱したのか、感染症流行時の「江戸の危機管理術」を解き明かす。【「TRC MARC」の商品解説】 "持続化給付金"は、わずか12日間で給付完了! 江戸時代にも、日本は感染症(天然痘・麻疹・インフルエンザ・コレラ)に苦しめられた。 とりわけ、人口100万超の「過密都市」江戸は被害を最も受けやすかったが、都市崩壊のような事態には至らなかった。 時の幕府が、医療政策と社会福祉政策に力を入れたからである。 徳川吉宗、松平定信らは感染拡大にどう対処したのか? 当時の"持続化給付金"の財源と給付対象は? 【まんがグリム童話 吉原華の乱が8/5まで無料】まんが王国|無料で漫画(コミック)を試し読み[巻](作者:岡田純子). ワクチンはどのように普及したのか? 現代に通底するトピックを織り交ぜながら、江戸の町がいかにして危機を脱したかを解き明かす。 【目次】 プロローグ 感染症の歴史 第1章 江戸の疫病と医療環境 第2章 将軍徳川吉宗の医療改革と小石川養生所の設立 第3章 江戸町会所の"持続化給付金" 第4章 幕末のコレラ騒動と攘夷運動の高揚 第5章 種痘の普及と蘭方医術の解禁 エピローグ 感染防止と経済活動の維持 【著者プロフィール】 安藤優一郎(あんどう ゆういちろう) 1965年、千葉県生まれ。歴史家。文学博士(早稲田大学)。早稲田大学教育学部卒業。同大学院文学研究科博士後期課程満期退学。 主に江戸をテーマとして執筆・講演活動を展開、「JR東日本・大人の休日倶楽部」などの講師を務める。 『大名屋敷の謎』『江戸っ子の意地』(ともに集英社新書)『渋沢栄一と勝海舟』(朝日新書)『お殿様の人事異動』(日経プレミアシリーズ)『江戸の不動産』(文春新書)など著書多数。 【商品解説】 "持続化給付金"は、わずか12日間で給付完了! 江戸時代にも、日本は感染症(天然痘・麻疹・インフルエンザ・コレラ)に苦しめられた。 とりわけ、人口100万超の「過密都市」江戸は被害を最も受けやすかったが、都市崩壊のような事態には至らなかった。 時の幕府が、医療政策と社会福祉政策に力を入れたからである。 徳川吉宗、松平定信らは感染拡大にどう対処したのか? 当時の"持続化給付金"の財源と給付対象は? ワクチンはどのように普及したのか? 現代に通底するトピックを織り交ぜながら、江戸の町がいかにして危機を脱したかを解き明かす。 【目次】 プロローグ 感染症の歴史 第1章 江戸の疫病と医療環境 第2章 将軍徳川吉宗の医療改革と小石川養生所の設立 第3章 江戸町会所の"持続化給付金" 第4章 幕末のコレラ騒動と攘夷運動の高揚 第5章 種痘の普及と蘭方医術の解禁 エピローグ 感染防止と経済活動の維持 【著者プロフィール】 安藤優一郎(あんどう ゆういちろう) 1965年、千葉県生まれ。歴史家。文学博士(早稲田大学)。早稲田大学教育学部卒業。同大学院文学研究科博士後期課程満期退学。 主に江戸をテーマとして執筆・講演活動を展開、「JR東日本・大人の休日倶楽部」などの講師を務める。 『大名屋敷の謎』『江戸っ子の意地』(ともに集英社新書)『渋沢栄一と勝海舟』(朝日新書)『お殿様の人事異動』(日経プレミアシリーズ)『江戸の不動産』(文春新書)など著書多数。 【本の内容】
電子図書化を希望しますが、 8人中、7人の方がこのレビューが役に立ったと投票しています。 投稿者: vanilla - この投稿者のレビュー一覧を見る 過去作品を含め、一頁表示の電子図書にしてほしい。かきコマ割り式は読みにくいです。 バタバタ青春劇 4人中、4人の方がこのレビューが役に立ったと投票しています。 投稿者: 咲耶子 - この投稿者のレビュー一覧を見る ジタバタ大騒動の二人ですけど、大騒動しながらも気持ちが通じたみたいですよ。 マキちゃん、ちゃんとコミュ取れるようになった?って思ったら、初対面の人はやっぱり駄目とか成長してるんだかしてないんだか。 リア充だと思ってた新庄くんも実はそうでもなかったことが分かったり。 二人で夜を過ごすページ数が半端なく多いですよ。それでこの厚さか・・・って納得。 それにしても文字が多い・・・ちょっとした文庫本読んだくらいのボリューム。 鮫島&笹原兄カプもちょいちょい絡んで来て、二人のことも分かって楽しかった。 待望 1人中、1人の方がこのレビューが役に立ったと投票しています。 投稿者: koharuko - この投稿者のレビュー一覧を見る このシリーズは気軽に読めて好きです。前回から空いてしまいましたが………他の方のレビューにもある通り、鮫島くんも合わせていいので続けて欲しいです。 完結!! (悲) 1人中、1人の方がこのレビューが役に立ったと投票しています。 投稿者: daifuku - この投稿者のレビュー一覧を見る 何度か読み返した後、話数のfinal lesson. に気付き大ショックでした。 鮫島くんと笹原くんとの合本でもいいので続きが読みたいです。腰乃さんの作品の中でこのシリーズが一番好きなので寂しいです。 また数年かかってもいいから出ないかな~。 3年越しの続き 1人中、1人の方がこのレビューが役に立ったと投票しています。 投稿者: rumo - この投稿者のレビュー一覧を見る さすがに待たされすぎた… しかし3年間の待ちぼうけをすっかり忘れるほど密度の詰まった最終巻でした! 腰乃先生にしか描けない最初から最後までドタバタがかわいくておかしくて笑えてそして胸キュンです! タイトル逆転でもう1冊出して欲しい! リア充とオタクの高校生同士。 1人中、1人の方がこのレビューが役に立ったと投票しています。 『鮫島くんと笹原くん』の笹原くんの弟君のお話し。 オタク男子の笹原くん、自分とは真逆のリア充新庄くんの相談を受けてるうちに感情が傾いてしまいます。 笹原弟のオタクらしい一途さが健気に見えてきます。 早く二巻が出ないかな。 腰乃さん好き!
最新巻 まいん(著), かぼちゃ(イラスト) / HJ NOVELS 作品情報 ついに蓮弥達を乗せてクリンゲを発進した戦艦は、一路魔王の待つ魔族領へと駒を進めることとなった。再度姿を現すカレン、行く手を遮る見えない壁や魔王側戦力の襲撃を潜り抜けつつ蓮弥達は魔王城を目指す。そして始まる勇者達と魔王の戦い。それは決戦と呼ばれるものになるはずであったのだが……。やりたい放題異世界冒険譚、決戦でもやりたい放題の18巻!! もっとみる 商品情報 以下の製品には非対応です 続巻自動購入はいかがですか? 続巻自動購入をご利用いただくと、次の巻から自動的にお届けいたします。今なら優待ポイントが2倍になるおトクなキャンペーン実施中!
また、他に送る方法がありますか? Excel エクセル テキストボックスの編集内容が、「元に戻す」「やり直し」出来ない テキストボックスの内容を編集した後に、「元に戻す」「やり直し」ボタンを押しても 編集内容が変わらないのですが何か設定はあるのでしょうか? テキストボックス自体の移動や線種を変更などは元に戻したり出来ます。 文書の変更だけが反映されません。 バージョンは2003です。 お願いします。 Excel 先ほどの質問に不備があったので投稿しなおしました。 エクセルのマクロについてです。 3つのブックが立ち上がっているときに、 3つのブックすべてのSheet1の1, 2行とA列を削除した後に、3つのブックのSheet1の後ろにシートを100枚(名前は1, 2, 3, ・・・, 100)追加するマクロを作っていただけませんか?
TextBoxes("Text Box 17") = ption ption = "" Private Sub UserForm_Initialize() 'UserForm表示される時にText Box 17の内容をUserFormのLabel1に抽出します。 ption = ActiveSheet. TextBoxes("Text Box 17") はじめは、ラベルにLabel1と表示されていますが、使用すると消えます。 ユーザーフォーム、コマンドボタンの表示文字は先の回答の図のように書き換えることも出来ます。 (書き換えは、各コントロールのCaptionプロパティです) テキスト入力時の改行はShift+Enterで改行できます。入力時の文字がボタンを押すとText Box 17に入力されます。 などで出来ます。 No. 5 回答日時: 2019/12/11 02:42 Inputbox なら 標準モジュールで Dim strExist As String strExist = ActiveSheet. TextBoxes("Text Box 17") ActiveSheet. TextBoxes("Text Box 17") = strExist & InputBox("Text Box 17を編集します。") UserFormを作成した場合、Formモジュールに CommandButton1とTextBox1、Label1を配置して画像の様に Private Sub UserForm_Initialize() 'UserForm表示される時にText Box 17の内容をUserFormのTextBox1に抽出します。 = ActiveSheet. TextBoxes("Text Box 17") Private Sub CommandButton1_Click() 'ボタンを押すとUserForm. テキストボックスの書式. TextBox1のテキストがText Box 17に入力されます。 ActiveSheet. TextBoxes("Text Box 17") = いずれにしても、入力作業が発せしますね。処理的にどうでしょうか? >セルP4に入力した文字をテキストボックスの書式そのままに反映させる こちらの方が、合理的な気がしますが、、、 下記の場合、Text Box 17の既存のテキストが入らないので工夫が必要です。 コードを書くのは、対象のシートモジュールです。 Private Sub Worksheet_Change(ByVal Target As Range) If > 1 Then Exit Sub If dress = "$P$4" Then ActiveSheet.
TextBoxes("Text Box 17") = End If 以上 3通りのサンプルです。 回答ありがとうございます! きっと素敵な手段なんでしょうが、後半難しくて頭が付いていかず……前半は試したら思い通りの形になりました! 補足を追加させていただいたのですが、こちらはできたりしますでしょうか。。 お礼日時:2019/12/13 19:05 No. 2、No. 3 の補足 なぜ「InputBox関数」を使わず「InputBoxメソッド」を使ったかというと「キャンセル」ボタンを押したときと、空欄で「OK」ボタンを押したときの動作を分けたかったからです。 たくさん丁寧にありがとうございました、、試したらできました! 【エクセル2007】チェックボックスの作り方とテキスト編集方法 | Excel使い方ガイドブック. お礼日時:2019/12/13 19:02 No. 2 の訂正です 「選択状態にしないとテキストボックスの値を得る事が出来ない」は勘違いの様です。 「Shapes」を使ったのが悪かったようです「TextBoxes」なら可能でした。(hotosys 様 感謝) Sub sample2() 戻り値 = putBox(Prompt:="名前を入力してください。", Title:="名前編集", Default:=ActiveSheet. TextBoxes("Text Box 17")) If Not 戻り値 = False Then ActiveSheet. TextBoxes("Text Box 17") = 戻り値 もしかしたらこんな事でしょうか? If Not 戻り値 = False Then = 戻り値 ※ 動作しないようでしたら「Text Box 17」を「TextBox 17」にしてみて下さい(何もしなければ「Text」と「Box」の間にスペースは入らないので…) ※ 選択状態にしないとテキストボックスの値を得る事が出来ないので、最後にアクティブセルを選択してごまかしています。 ※「Title:="名前編集", 」は省いても問題ありません。(省くときは終わりの「, 」も省くのを忘れないように) No. 1 hotosys 回答日時: 2019/12/11 00:50 不明な部分がありますが、これでどうでしょうか。 ActiveSheet. TextBoxes("Text Box 17") = InputBox("文字列=") 試したらできました!
ホーム Microsoft Office Excel Excelの操作や設定 2020年9月28日 エクセルのシートに挿入されているチェックボックスやフォームコントロールを選択する方法をまとめました。 チェックボックスの例でいうと、チェックしたいのではなくてチェックボックスそのものを選択したいという場合の操作方法です。 移動させたりテキストを編集した場合には紹介する方法で選択してみてください。 チェックしたいんじゃないんだよ!!