109-114 ●『新潮 日本文学小事典』P. 860-861、P. 1003、P. 1019 ※「中村武羅夫」の項( 紅野敏郎 ( こうの・としろう ) )、「 不同調 」の項(紅野敏郎)、「文芸春秋」の項( 保昌 ( ほしょう ) 正夫) ●『 三島由紀夫 研究年表』(安藤 武 西田書店 昭和63年発行)P. 68-77 ●『読ませる技術』(山口文憲 マガジンハウス 平成13年発行)P. Amazon.co.jp: 猿蟹合戦 (Audible Audio Edition): 芥川 龍之介, 青山 桐子, (株)アールアールジェイ: Audible オーディオブック. 59 ■ 参考サイト: ● やぶちゃん版芥川龍之介俳句集四 続 書簡俳句→ ●ウィキペディア/・ 華の乱(令和2年5月26日更新版)→ ・ 松田優作(令和3年2月21日更新版)→ ・ 滝田樗陰(令和3年1月26日更新版)→ ・ 中央公論(令和3年2月19日更新版)→ ・ 改造(雑誌)(平成30年11月24日更新版)→ ・ 村松友視(平成30年4月12日更新版)→ ● 読書メーター/作家の風景→ ※当ページの最終修正年月日 2021. 2. 27 この頁の頭に戻る
こんにちは、宮比ひとしです。 本日は、 芥川龍之介 の 『猿蟹合戦』 を、 昔話に文句つけたい時に読む小説 として紹介します 。 昔話に文句つけたい時に読む小説 さて、昔話に文句つける人っていますよね。 あ、あなたもそのクチ? 隠したってダメですよ。 昔話を聞いたら、文句つけたくて堪んないクチでしょ。 昔話ってさ、ツッコミどころ満載ですんね。 その気持ち分かるよ、分かる。 『桃太郎』なんて、川から流れてきたドデカイ桃に驚愕しながらも、とっ捕まえて食そうとする老婆。 桃を真っ二つにしたら、中から出てた赤ん坊。お前、どんな姿勢で避けたんだ、と。 鬼を退治しに行くのに、お供はまさかの動物三匹。 犬って柴犬? ドーベルマンかシェパードなら尚よいが、まあ分かる。 猿もまあまあ分かる。 ただ、キジ。おめーはだめだ。ここは譲れねー。明らかな戦力外。 なぜこのチョイスをした桃太郎。 裏鬼門か何だか知らねーけど、選ぼうぜ桃さん。人選ならぬ獣選大切よ。 もうね、桃太郎に狂気すら感じちゃいます。 両さんがいちゃもんつけたくなる気持ちも分かりますよ。 昔話って、ほんとツッコミのオンパレード。 なぜ『浦島太郎』は海の中でも呼吸できてるのか、なぜ『シンデレラ』のガラスの靴だけ、12時回っても魔法が解けないとかね。 挙げだしたらキリないですよね。 いちゃもんの玉手箱やー、ってね。 なーんて、昔話にいちゃもんつけたい、つけたい、つけたくてたまんねー。 「なにがたまんねーんだ」つって、珍ぱち先生に怒られそうなそこのあなた!
以上の事を考えてみれば、情状酌量の余地はあったのではないか。せめて執行猶予がついてもよかったのではないか。と私は同情してしまう。 ――とにかく猿と戦ったが最後、蟹は必ず天下のために殺されることだけは事実である。―― 本文からの引用であるが、この事から私は猿=権力者ではないかと思う。君たちもたいてい蟹なんですよ。と締めくくられているのは、そういう意味を含んでいる気がしてならない。権力者に楯突く一般人は、確かに天下のために社会から抹殺されることもあるだろう。だが、他人の成果をまんまとせしめた猿は因果応報の報いを受けた。これだけでも現実よりずっと救いがある、と読了した私は思い、僅かばかり溜飲を下げたのだった。 まぁ個人的に猿は好きだ。あの愛らしくも生々しい瞳が好ましい。ニホンザルも好きだがワオキツネザルが一番好きだ。しかしリスザルも捨てがたい。ちなみに私の実父は、幼い私をリスザルから守るために耳を齧られたと三十路を過ぎた娘にさんざ言い聞かせてくるが、それはまた別の機会があればお話ししたい。そんなに膨らむ話でもないし。
優勝劣敗の世の中にこう云う私憤を洩らすとすれば、愚者にあらずんば狂者である。――と云う非難が多かったらしい。現に商業会議所会頭某男爵のごときは大体上のような意見と共に、蟹の猿を殺したのも多少は流行の危険思想にかぶれたのであろうと論断した。そのせいか蟹の仇打ち以来、某男爵は壮士のほかにも、ブルドッグを十頭飼ったそうである。 かつまた蟹の仇打ちはいわゆる識者の間にも、一向好評を博さなかった。大学教授某博士は倫理学上の見地から、蟹の猿を殺したのは復讐の意志に出たものである、復讐は善と称し難いと云った。それから社会主義の某首領は蟹は柿とか握り飯とか云う私有財産を難有がっていたから、臼や蜂や卵なども反動的思想を持っていたのであろう、事によると尻押しをした…
「エクセルで複数のファイルを1つにまとめることってできないのかな?」 こんな疑問を解消します。 エクセルを使っている中で、「月別に出力されたファイルを1つにまとめる」といったようなケースはよくありますよね。 このような操作をする際に「 それぞれのファイルを開いてから、コピー&ペーストで1つのシートにまとめる 」という操作をして苦労をしているという方も多いのではないでしょうか? 実はこの「複数のファイルを1つにまとめる」という操作はエクセルのパワークエリという機能を使うと非常に簡単に行うことが可能です。 今回はこの「 パワークエリを使って複数のエクセルファイルを1つにまとめる方法 」をご紹介します。 ただ1つにまとまるだけでなく、自動更新もできたりとかなり便利なのでぜひ参考にしてみてください。 動画で見たい方はこちら!
普段の業務で売上表などを作成する際、月ごとや支店別、部署別といったカテゴリーごとに、別々のブックに記録して管理することはありますよね。これらのブックを1つにまとめて集計してほしいと急な依頼を受けたらどうしますか?
質問日時: 2007/02/14 14:54 回答数: 3 件 こんにちは☆ タイトルの通りですが、Excel 2シート(各A4サイズ)をA3用紙1枚に印刷したいのですが、できません。 印刷する2シートを選択→印刷→プロパティ→集約(2ページを1ページに集約)としているのですが… 今の所、それぞれ各1枚ずつ計2枚が印刷されます。 使っているプリンターはRicohのimagio Neo C380 という機種です。 わかる方、ご享受よろしくお願いしますm(_ _)m No. 3 ベストアンサー 回答者: vista2446 回答日時: 2007/02/14 15:57 >印刷する2シートを選択→印刷→プロパティ→集約(2ページを1ページに集約) プリンターで1ページ印刷を指定しても2ページで印刷されてるんですね。オフィス用のプリンターはよく知らないのですが、A3を指定して「割り付け印刷」ってできないですか?確認してみてください。 >その2シートの行や列幅がそれぞれ違う場合に、ネックになりそうで・・・ 1.Excelのカメラ機能で可能です。どちらかのシートで印刷エリアを選択してコピーします。 2.もう一方のシートの貼り付けたいところで、「shift」キーを押しながら「編集」をクリック、「図の貼り付け」または「図のリンク貼り付け」をクリックします。 3.『図』と貼り付けられ、一つのシート上に2つの表が並びます。あとはページ設定でA3にしてください。 36 件 この回答へのお礼 回答ありがとうございますm(_ _)m 「割り付け印刷」の設定がなさそう!?です…. でも教えていただいた, カメラ機能で無事できました! エクセルで２つのシートを１枚の紙で印刷できますか？ -エクセルでＡ４- その他（Microsoft Office） | 教えて!goo. これだと簡単ですね^^ありがとうございました☆ お礼日時:2007/02/14 16:14 No. 2 uc078 回答日時: 2007/02/14 15:45 強引なやり方ですが・・・ 1.シートAにとりあえず、四角のオブジェクトを作る。 2.シートAの印刷したい範囲を選択して「コピー」 3.「1」で作った四角オブジェクトに「貼り付け」 4.そうすると、「2」で選択した範囲がオブジェクトとしてシートAに作られる。 (この時点で、「2」の四角は不要になります) 5.「4」でできたオブジェクトをシートBにコピーして、A3として印刷 とりあえず、印刷だけしたいのであればこれで可能かと。 エクセル2003で実行可能ですが、他でもできたような気がします。 7 教えていただいた方法でできました☆ お礼日時:2007/02/14 16:10 No.
DisplayAlerts = False '集約シートがあるか確認 For Each sh In Sheets If = "集約シート" Then flag = True Exit For Next sh If flag = True Then Dim rc As Integer rc = MsgBox("シート「集約シート」を上書きしますか?" & Chr(13) & "※この処理は戻せません", vbYesNo + vbQuestion, "確認") If rc = vbYes Then 'シート選択 Worksheets("集約シート"). Activate 'シート削除 reenUpdating = True MsgBox "処理前のシート「集約シート」は削除済みです" 'シート追加 before:=Worksheets(1) 'シート名変更 = "集約シート" Set dWS = Worksheets("集約シート") 'ブックを上書き保存 '集約用シートの最終行数に1を代入 d_row = 1 '各シートにコードを実行 For Each sWS In Worksheets 'sWSとdWSのシート名が一致しない場合 If <> Then With edRange 'シートsWSをアクティブにする tivate 'シートの最終セルを選択する ActiveCell. SpecialCells(xlLastCell) '最終セルの行を取得、変数に代入 s_row = '最終行から1行目までを選択 Rows(1 & ":" & s_row) '最終行から1行目までをコピー '集約用シートを選択 '行を選択 Rows(d_row) 'コピーしたデータを貼り付け d_row = (1, 0) End With Next sWS '集約用シートのセルを全削除 Worksheets("集約シート") Shift:=xlUp End Sub コードの特徴 「ファイルを開く」ダイアログを表示した後、キャンセルをクリックした場合、 キャンセル処理される様に対応しています。 セル、行、列に空白がある場合でも、 シート毎のデータが含まれる最終行からA行までをコピーして集約します。 集約用にシート「集約シート」を作成します。 同名シートが既にある場合、同名シートを削除するかの確認ダイアログを表示させ、 削除するかどうかを選択可能です。 Why not register and get more from Qiita?