検索結果

今、いろいろとニュースになってますが、 皆さんが漫画とかの原作者だった場合にテレビドラマ化したいとテレビ局から依頼が来た場合はみなさんならどういう対応をしますか？ あくまで想像にはなりますけども、私だったら漫画とテレビドラマは別物と考えて、テレビ局や脚本家の好きなようにやらせるかなっておもいます。 違っても問題ないと考えそうですし。

間違えて同じ本を買ってしまって捨てようかと思ったのですが、奇跡的に(？) 改版だったのですが 改版って言っても内容はほとんど同じですかね？ ちなみに内容が歴史の話なので別に捨てなくてもいい気もしますが。

今、大学4年生なのですが、単位のことで相談があります。 私の大学には、卒業論文があります。字数は、4万字です。社会学部です。公立です。 そこで、卒業論文の単位がもらえなかった場合は、留年決定なのでしょうか？ 何か、救済措置があるのでしょうか？ 卒論指導教官とは、ゼミ生の中でも中が良好なほうです。先生は、東京大学法学部大学院卒業だそうです。

GOOGLEストリートビューに自分の家が写っていたのですが・・・。 自分の家が写っていたのは感動物だったのですが、表札までクッキリ写っていてイヤな感じがするのですが、これを消してもらうことってできるのでしょうか？ 家そのものはいいとしても、表札はやめてもらいたいのですが・・・。

ファイル名をエクセルにリスト化するマクロの応用 こんにちは。 以下に示しますマクロは フォルダ内の名前や作成日等（サブディレクトリを含む）を エクセルにリスト化するもので 以前同サイト内で教えて頂きました。 現在このマクロでは シート１のAセルにフォルダのパスを入力して実行すると、 シート２にフォルダ内の情報がリスト化されます。 このマクロでは１つのフォルダ内の情報をリスト化することが可能ですが、 今回は更に、 エクセルのA列にフォルダのパスを複数個入力し、 それらのフォルダ内の情報を、それぞれ別シートに 一気にリスト化したいと考えています。 ご存じの方がいらっしゃいましたら よろしくお願いいたします。 プログラミングに関する知識はほとんどありません… 具体的に、どこに何を入力するのかを教えていただけると嬉しいです。 お手数をおかけし、すいません。 ※以下は以前nicotinismさんに回答いただいたマクロを 参考にさせていただいております。 Sub makeFileList() 　　Call fileList 　　MsgBox "終了しました" Columns.AutoFit 'すべての列幅を自動調整する End Sub 　　 Function fileList(Optional trgDir As String = "", Optional fCnt As Long = 0) 　　On Error GoTo err 　　Dim objFs As Object 　　Dim objDir As Object 　　Dim objFile As Object 　　Dim i As Long 　　 　　Set objFs = CreateObject("Scripting.FileSystemObject") 　　 　　If trgDir = "" Then 　　　　Set objDir = objFs.Getfolder(Sheets("sheet1").Range("a1")) 　　Else 　　　　Set objDir = objFs.Getfolder(trgDir) 　　End If 　　 　　Set objFile = objDir.Files 　　　　 　　With Sheets("sheet2") 　　　　For Each objFile In objDir.Files 　　　　　　　　fCnt = fCnt + 1 .Cells(fCnt, 1).Offset(1, 0) = fCnt .Cells(fCnt, 2).Offset(1, 0) = objFile.DateCreated .Cells(fCnt, 3).Offset(1, 0) = objFile.DateLastModified .Cells(fCnt, 4).Offset(1, 0) = objFile.Path .Range("A1").Value = "Ｎｏ" .Range("B1").Value = "作成日" .Range("C1").Value = "更新日" .Range("D1").Value = "ファイル名" 　　　　Next objFile 　　　　 　　　　For Each objDir In objDir.SubFolders 　　　　　　If objDir.Attributes <> 22 Then　　 'システムフォルダ除外 　　　　　　　　　　 　　　　　　　　　　'--------------サブフォルダの再帰検索 　　　　　　　　　　　　Call fileList(objDir.Path, fCnt) 　　　　　　　　　　'--------------サブフォルダの再帰検索 　　　　　　　　 　　　　　　End If 　　　　Next objDir 　　End With 　　 　　Set objFile = Nothing 　　Set objDir = Nothing 　　Set objFs = Nothing Exit Function err: 　　Select Case err.Number 　　　　Case 76 ' path がない 　　　　　　MsgBox "path 指定が間違っています" 　　　　Case Else 　　　　　　MsgBox err.Number & vbCrLf & err.Description 　　End Select 　　 　　Set objFile = Nothing 　　Set objDir = Nothing 　　Set objFs = Nothing End Function

神林長平の　敵は海賊 海賊版　が8月10日に出版されましたが、 中身は、以前も同じタイトルで出ていますが、何か違いがあうのでしょうか？ 同じなら、本屋さんに注文する必要もないし・・・ 違うなら、注文して買わねば！！と思っています。 ちなみに、アプロも可愛いけど、ラジェンドラが好きです。

国会図書館て　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　今まで出版された本は　すべて収蔵されているのですか。絶版になったものもみられるのですか？　　　　　　　　　　　　

漫画の初版について。 今漫画を１００冊程所持していますが、私はアニメからはまることが多く、漫画に手を出しても初版じゃないことが多いです。よく初版マニアの人は初版以外は価値がない。初版を持っていると人より早くその作品を知った優越感に浸れる。書店に初版がなかったらオークションや古本やで初版を購入する。と言う方々がいます。確かに私も出来るなら全て初版で集めたいです。やはり価値があるような気がしますし、絶版本の初版なら尚更気分が良くなるのも分かります。しかし、過去の作品が好きになった場合、初版の漫画や小説を手に入れるのはほぼ不可能だと思います。だからと言って買わずにいるというのも頑固すぎる気もしますし。これから出る新刊は初版で集めることも可能ですが、過去の作品までオークションなどを利用して初版で購入しようとするとお金をかかります。どうしたら好きな漫画を全て初版で手に入れることが出来るのでしょう？初版を手に入れるということは、読むまでは内容が分からないので何が面白い作品なのかも分かりません。片っ端から調べて気になった漫画や小説を購入するのも大変ですし。やはり初版にこだわるのはデメリットが多すぎるのでしょうか？

本日、本屋でたまたま目に付きました。 一瞬、キルゾーンのヘルガスト兵と錯覚してしまう様な（て言うよりもそのまんまだった）感じの表紙でした。 気になり調べてみたのですが、イマイチ情報不足です。 wikiも見てみたのですが、どのような漫画なのかは書いてありませんでした。 他のサイトも見てみたのですが、イマイチ分かりませんでした。 非常に興味のある作品なのですが、一冊がとてもお高いのです。 ですので後悔しない為にも是非とも購入前にどのような漫画か知っておきたいのです。 どなたか教えてください、ネタバレは抜きでお願いします・・

トライク(三輪)について 詳しい方お願いします。 トライクは普通免許で乗れるし二人乗りが出来るので購入を考えていますが、取扱い店も激少で情報が薄いです。 近くに販売しているところも無く、ネットを見ると運搬は何処かの運送会社止めと書いてありました。 そこからの輸送方法や費用、手続き関係も判らずどうしたものやらと・・・・ そもそも、中国製が多い様ですが品質的にはどうなのでしょう？ 完成品で１５０ＣＣ～２００ＣＣが総額１５万円～２５万円位で考えております。 実際に乗られている方がいましたらアドバイスをお願いします。

電撃文庫MAGAZINEについてお聞きしたいのですが この本に掲載されている小説は、すでにある作品の外伝?のような ものが掲載されているんでしょうか？ そもそもこのような、小説が連載されている雑誌というもの がいまいち分かってなくて… それでもう一つお聞きしたいのですが ライトノベルは何かの雑誌（上に挙げたような）に掲載されてから小説で出版という形なのですか？ それともいきなり出版という形ですか？

国家公務員二種の問題集からの質問です。（記述が妥当かどうかを問う問題です） (1)問題：最高裁判所は、地方公共団体の長、議員等の選挙権は、国民主権の原則から日本国籍保有者に限られ、立法措置により、永住資格を有する存留外国人に選挙権を付与することは認められないと判示した。 解答：誤り　参政権は性質上認められないが、地方公共団体の選挙権は、法律で永住者等に付与することが認められる。 私の質問：今、地方公共団体に外国人参政権を与えるか問題になっていますよね？でも選挙権は法律つくれば付与できるけど、参政権はだめってこの問題集はいっているのですよね？今ニュースで問題になっているのはどうゆうことなんでしょう？？よろしくお願いします。

北里大学　２００９年から抜粋した小論文です（三段階で評価されます） 『あなたが一番大切にしていることはどのようなことですか』 人が生きてゆく上で大切なことはたくさんある。では、その中で私が最も大切にしていることは何であろうか。 　様々な場面において大切にしていることは、異なってくるが、多くの場面において使われるものがある。それは、我々の感情を表現する笑顔である。私は今まで生きてきた中で色々な場面を通して、笑顔の影響を学んできた。日常生活で、多くの人々がさりげなく見せてきて、単純なもののように見えるかもしれないが、実際は笑顔によって多くの効果をもららしてきている。 　笑う事は単に我々を楽しませるものではない。ある精神科医の方が笑顔について話していたことを、私は興味深く耳を傾けた。笑顔を作ることにより、脳が活性化され、血糖値も下がり、ストレスを減らしてくれる効果があるそうだ。私はその話を聞き笑顔について考えた。実際に笑顔になることによって、私の嫌いな作業を円滑に進むことができる。それだけではなく、その場に知人等がいたら、私だけでなく、その場にいる方も自然に笑顔になっているシチュレーションをしばしば思い返す。ゆえに、自分の健康状態だけでなく、相手の健康状態まで向上させるということだ。その上話し相手に良い印象を与えてくれる。学校や社会では、人と接する機会が多く、できるだけ、私の印象を良く受け入れてもらいたいのが本音である。そこで、笑顔で話すことにより、人とのコミュニケーションが上手にとれるかもしれないと思う。 　これまでの経験により、私は笑顔でいることが一番大切にしていることである。 私は小論文が本当に苦手で、どうしようもないです。 参考書を買い、精読しましたがこのざまです やはりもう伸びることはないでしょうか？ (1)アドバイス頂けたら幸いです。そして直すならどこをどのようにまで指摘してくださるとうれしいです (2)このお題から考えると持論ですよね？ 時期も時期なんで、中傷は控えてください お願いします!!!

１シート内にまとめられているデータを分割してコピーし、それを別の複数のシートにペーストする方法があれば、教えて下さい。 例えば、学校の成績を、教科ごとに表示するシートから、生徒ごとに表示するシートへとデータをコピーする、なんていう場合を想定して下さい。 ＜教科のシート＞ シート１：国語のテストの点数表（生徒１～３の点数の一覧） シート２：数学のテストの点数表（生徒１～３の点数の一覧） シート３：英語のテストの点数表（生徒１～３の点数の一覧） ＜生徒のシート＞ シート１０１：生徒１の英数国の点数 シート１０２：生徒２の英数国の点数 シート１０３：生徒３の英数国の点数 という場合、 シート１から、生徒１の国語の点数をコピーし、シート１０１へペースト。 シート１から、生徒２の国語の点数をコピーし、シート１０２へペースト。 シート１から、生徒３の国語の点数をコピーし、シート１０３へペースト。 シート２から、生徒１の数学のテンスをコピーし、シート１０１へペースト。 シート２から、生徒２の数学の点数をコピーし、シート１０２へペースト。 シート２から、生徒３の数学の点数をコピーし、シート１０３へペースト。 シート３から、生徒１の英語の点数をコピーし、シート１０１へペースト。 シート３から、生徒２の英語の点数をコピーし、シート１０２へペースト。 シート３から、生徒３の英語の点数をコピーし、シート１０３へペースト。 という具合に、コピー・ペーストを『自動化』して、行いたいのですが、 このようなことは可能でしょうか？ （実際のデータは、教科数も生徒数も、もっと沢山あります。） 方法としては、マクロ（ＶＢＡ）を利用したものでも結構です。 どなたかお詳しい方、お力をお貸し下さい。 必ずお返事致します。（ポイント付与も確実に行います。）

＠コスメのようにユーザーが採点を付けられるような仕組みをPHPで書くことは可能でしょうか？ もし可能なら、参考となるサイトや書籍を教えて頂けると嬉しいです。 当方、まだPHPを勉強しはじめたばかりの素人ですが、意欲はありますので、よろしくお願いします。

発注と納品の確認マクロを作成しました。 Sheet1の列を検索して、Sheet2にあればその数字のあるセルを赤くするのですが、 それを以下のように変更することは可能でしょうか？ Sheet1の列を検索して、Sheet2にあれば、Sheet2上でその数字をカットして隣のB列に上から順番にペーストします。 宜しくお願いします。 Sub 発注と納品の確認マクロ() Dim Ws1 As Worksheet Dim Ws2 As Worksheet Dim myRange1 As Range Dim myRange2 As Range Dim c1 As Range Dim c2 As Range Dim myCt As Long Set Ws1 = Worksheets("Sheet1") Set Ws2 = Worksheets("Sheet2") Set myRange1 = Ws1.Range("A1", Ws1.Cells(Rows.Count, "A").End(xlUp)) Set myRange2 = Ws2.Range("A1", Ws2.Cells(Rows.Count, "A").End(xlUp)) For Each c1 In myRange1 myCt = 0 For Each c2 In myRange2 If c2.Value = c1.Value Then If myCt = 0 Then c2.Interior.ColorIndex = 3 Else c2.Interior.ColorIndex = 43 End If myCt = myCt + 1 End If Next c2 If myCt = 0 Then c1.Interior.ColorIndex = 6 Next c1 Set Ws1 = Nothing Set Ws2 = Nothing Set myRange1 = Nothing Set myRange2 = Nothing End Sub

自分的には「バーティミアス」に出てくる悪魔、バーティミアスがストライクでした。 パイレーツオブカリビアンのジャックスパロウも好きです。 そんな感じで、主人公やその他の登場人物が魅力的な小説を探しています。 ジャンルは問いません。皆さんの思う、主人公が魅力的な小説を教えてください。

エクセルＶＢＡ　重複を表示したい2 以下ではたいへんお世話になりありがとうございました。 http://okwave.jp/qa/q5849885.html 上記に関連する質問をさせていただきます。 下記に提示したコードを修正して、以下のようなコードに変えたいと考えています。 「Ｂ列で重複したデータがあれば、そのすべてを左隣のデータと一緒に表示したい」 添付した図だと、 1小沢一郎 7〃 8〃 4鈴木一郎 6〃 以上のような感じです。 アドバイスよろしくお願いします。 Sub TEST() Dim myRange As Range Dim 同一flag As Boolean Dim MsgStr As String m_Rows = Range("b" & Rows.Count).End(xlUp).Row For Each myRange In Range("b2:b" & m_Rows) If WorksheetFunction.CountIf(Range("b2:b4000"), myRange) > 1 Then If 同一flag = False Then 同一flag = True If InStr(1, MsgStr, myRange) = 0 Then MsgStr = MsgStr & myRange.Offset(0, -1).Value & myRange & vbCrLf End If End If Next If 同一flag = True Then MsgBox "同姓同名あり" & Chr(13) & _ "確認してください" & Chr(13) & _ vbCrLf & MsgStr Else End If End Sub

不可知とは　どういうことですか？ 　不可知とは　どういうことか　よく分からなくなりました。たすけてください。 　世の中には　いまは未知だがいづれ人間の科学の力で知るようになるという場合を含めて　可知の領域があると考えられます。 　では　不可知とは　どういうことを言うのでしょう？ 　経験世界は　すべてけっきょく可知なのではないですか？　ですよね？ 　そして経験世界を超えるところは　不可知なのではなく　そうではなく　《可知か不可知かどちらであるかが分からない》のではないですか？ 　あるいは別の言い方で問います。 　何かが不可知だと分かったとしたとき　それは　どういう事態なのか？　可知の領域に限界があると知られたことですか？ 　その限界とはいったいどういうことですか？　可知の世界について限界があるのを知ったとはどういうことですか？ 　　さらに問いかえるなら　可知の世界の限界が分かってその限界を超えたところが　不可知だとするというのですけれど　なぜそれが不可知だと分かるのですか？　なぜ未知であるだけではないと分かるのですが？ 　　

ベルセルクという漫画について、質問です。 閲覧ありがとうございます。 僕はデモンズソウル(PS3のダークファンタジーRPG)が好きで、購入以来やりこんでいるものです。 で、それの攻略サイトをみていたら「ベルセルクという漫画が元ネタ」的な記載がありました。(多分なのですが) 自分は漫画も好きなので検索したところ、現在34卷(間違っていたらすみません)まで出ているとのことでした。 自分は学生＋自宅の本棚が決壊しかかっていて、それに加え34卷の評判がいまいち？でした。 そこで質問なのですが (1)これは一巻から話がずっと続いているものですか？途中で、～編とかそういうのはありませんか？ 例えばジョジョは二部、三部、四部を知らずに読んでも話がつながっていない(細かいとこで繋がってはいますが、通常のマンガとは形態が少し違いますよね)から読んでも楽しめると思います。(知っていたら更に面白いのは、当たり前ですが) (2)やはり通して読んでいかないと面白くないですか？ (3)皆さん的に、この漫画はオススメでしょうか？ (4)もし、よろしければ皆さんのオススメ漫画を教えてください。 幅広く教えていただけると、ありがたいです。 回答お待ちしています。