新着質問

①中国（中華人民共和国）の東北大学出版社が出版した本を入手したいのですが、紀伊国屋書店に頼んでも、入手できませんでした。入手方法をご存知の方がおられましたなら、教えて下さい。また遼寧大学出版社の出版した本についても　その入手法がお分かりの方がおられたら、教えて下さい。どちらも原書（中国語で書かれたもの）の日本語訳の本です。②また　それら２つの出版社のメールアドレス（電子郵件）が分かっているのですが、そのアドレスにメールを出したら、届くのでしょうか？　③あるいは　その出版社の所在地（住所）も分かっているのですが、そこに国際郵便で手紙を出したら、届くのでしょうか？　以上、ご存知の方がおられらたアドバイスをよろしくお願いします。

お詳しい方宜しくお願い致します。 一番初めにコードを提供して頂けた方にAmazonギフトコード3,000円提供します。 急ぎでどうしてもエラーがないコードが知りたい為です。 Excelで"全体"と"分析"シート以外のシート(ここでは”A”とB”)を"全体"シートに転記したいです。(添付ファイルはAシートしか載せていません) 以下のコードをマクロで実行すると"全体"シートに集計はちゃんとされていますが、エラーが出ます。 実行時エラー'1004': 'Select' メソッドは失敗しました '_Worksheet'オブジェクト 最初のシートのcellsの行数カウントとシート選択部分が間違えているのが原因のようですが、コードが分からなくて・・・以下、VBAです。 ----------------------------------------------------------- Sub 複数シートのデータを1枚のシートにまとめる_シートオプションあり() '複数シートを１枚 '全体シートがあるか調べる Dim 貼付シート As Worksheet, あり As Boolean For Each 貼付シート In Worksheets If 貼付シート.Name = "全体" Then あり = True Exit For End If Next 貼付シート ' "全体"が存在しなければメッセージを表示して処理を終了 If あり = False Then MsgBox "貼り付けシートがありません。終了します。", vbInformation, "エラー" Exit Sub End If 'シートの内容クリア Worksheets("全体").Select Range("A1").CurrentRegion.Clear '各シートで処理をする Dim 枚数 As Long, シート As Worksheet 枚数 = 0 Dim 除外辞書 As Object, 対象辞書 As Object, 配列 As Variant Dim 除外配列 As Variant, 対象配列 As Variant, 数 As Long Set 除外辞書 = CreateObject("Scripting.Dictionary") Set 対象辞書 = CreateObject("Scripting.Dictionary") '除外配列に、除外対象を代入 配列 = Split("全体,分析", ",") 除外配列 = 配列 For 数 = 0 To UBound(除外配列) 除外辞書.Add 除外配列(数), "除外" Next 数 'シート名が除外辞書になければ、対象辞書に加える For Each シート In Worksheets If Not 除外辞書.Exists(シート.Name) Then 対象辞書.Add シート.Name, "対象" End If Next シート '対象のキーを、配列に入れる 対象配列 = 対象辞書.keys '配列に入れた対象に、順次処理をする For Each シート In Worksheets(対象配列) Call 複数シートのデータを1枚のシートにまとめる(シート, 枚数) Next End Sub Sub 複数シートのデータを1枚のシートにまとめる(シート As Worksheet, 枚数 As Long) '複数シートを１枚 Application.ScreenUpdating = False ' 画面描画を停止 Application.DisplayAlerts = False ' 警告表示を停止 Dim 右下セル As String, セル範囲 As String, 貼り付け先範囲 As Range, 貼り付け先セル As String 'シートが"全体"ではない場合、"全体"にデータを貼り付ける If シート.Name <> "全体" Then 枚数 = 枚数 + 1 'コピーする範囲を取得 シート.Select Dim 最終行 As Long '表の最終行を決定 最終行 = Cells(Rows.Count, Range("G5").Column).End(xlUp).Row セル範囲 = "A5" & ":" & Cells(最終行, Range("P5").Column).Address(False, False) If 枚数 = 1 Then シート.Range(セル範囲).Copy Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteValues Else '表全体の末端を右下セルとして取得 Worksheets("全体").Select Range("A1").CurrentRegion.Select 右下セル = Cells(Selection.Row + Selection.Rows.Count - 1, Range("A1").Column).Address(False, False) 貼り付け先セル = Worksheets("全体").Range(右下セル).Offset(1, 0).Address(False, False) シート.Range(セル範囲).Offset(1, 0).Resize(Range(セル範囲).Rows.Count - 1).Copy Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteValues End If End If Worksheets("全体").Activate Application.DisplayAlerts = True ' 警告表示を再開 Application.ScreenUpdating = True ' 画面描画を再開 End Sub

男の俺が気にしても仕方ないけど詮索したくなりました クラス担任なったり部活の顧問になると年の近いせいか 「卒業したら彼女になってください」 「未来のお嫁さんになってください」 と告白されることは良くあるみたいです もちろん10人の女性が同じくとは言いませんが、何人もの教え子から告白される。そんなシーンだけ見ると女性教師からみたら夢のような心地、極楽気分ですか？

添付画像の謎解きの解き方を教えてください。 答えは「シガツ」らしいんですが…

プリポケサービスについて ファミリーマートの給与働いた分の先払いシステム。プリポケですが、例えば夜勤などをやり、１日てま仮に一万。３日働いて三万とします このうち何割、なんパーセントが振り込まれるのか教えてください 話によると店舗によりちがうとか聞きましたが。

メルカリで、よく仕事用のものを買う事があるのですが、確定申告に添付するには、どの部分をプリントして添付すればよいのでしょうか？

私の家の近所に元スーパーの居抜き店舗を利用した高齢者を集めてプレゼントがもらえる催眠商法の会場が先月オープンしました。オープン当日から何日間は高校の後輩と行ってみるか？と行ってインスタントラーメン等をゲットしてきました。来場者は高齢者ばかりで私と後輩は場違いな場所でした。 私と後輩、後輩の友人S君と3人で温泉に行った際にS君が親戚が毎日、催眠商法の会場(以下会場)に行っては沢山のプレゼントをもらってきては僕の家の空き部屋を倉庫みたいにして使われているという悩みの相談を受けました。S君の家は一軒家で3年前に母が亡くなり、遺産相続で家を相続していまして、S君の兄と姉は結婚して独立、S君が1人で住んでいます。S君の親戚はS君の亡くなった母の妹(S君の大叔母)で近所の賃貸アパートに住んでいて生活保護者とのこと。 とにかく、家には持って帰れないから置かせてくれと無理矢理プレゼントをS君の家の空き部屋に置いていて、押し入れは満杯らしいです。 亡くなったS君の母の兄弟は上に兄と姉、下に弟と妹がいます。誰に相談をしても関わりたくないとのこと。 S君の大叔母は生活保護のケースワーカーに沢山のプレゼントが家にあれば不審と思われるからS君の家を無理矢理倉庫として利用していると想像出来ます。 S君は市役所の生活保護の部署に連絡すべきですか？

NS150/KAWを使っていますが、この前初期化する前までは、入れられたんですが、初期化した後はなぜか入れられなくなりました。 ｓモードにもなってないですし、インストーラは表示されるんですが、インストールボタンが表示されません。 クロームで検索したいのですが、この場合は、ブックマークでの固定しか無理でしょうか？ よろしくお願いいたします。

失礼します。Youtube再生中に他のアプリの通知音が鳴った時に一時的にYoutubeの音量が下がりますが、これを下がらなくする方法はないでしょうか？　宜しくお願い致します。 端末はAndroidで「aquos sense6 SH-54B」です。

■製品名を記入してください。 【　　　　　DCP-J582N　　　】 ■どのようなことでお困りでしょうか？ 　相談したいこと、トラブルに至った経緯、試したこと、エラーなどを教えてください。 【　　　　wifi環境を変えたら印刷できない　　　　　　　　　　　　　　　　　　　　】 ■お使いの環境について教えてください。 ・パソコンもしくはスマートフォンのOSは何ですか？ （例）Windows・MacOS・iOS・Android 【　　　　Windows 　　　　】 ・どのように接続されていますか？ （例）有線LAN・無線LAN・USBケーブル・bluetooth 【　　　　無線LAN　　　　】 ・関連するソフト・アプリがあれば教えてください。 【　　　　　　　　】 ・電話回線の種類は何ですか？ （例）アナログ回線・ISDN回線・ひかり回線・IP電話 【　　　　　　　　】 --------------------------------------------- ※以下は記入いただく必要はありません。 ■閲覧していたFAQのタイトル 【インクジェット/レーザー プリンター】お困りごとナビ　パソコン印刷できない｜ブラザー ■閲覧していたFAQのURL https://faq.brother.co.jp/app/answers/detail/a_id/13074 ※OKWAVEより補足：「ブラザー製品」についての質問です。

できるだけ多くの回答をいただけると嬉しいです。 (初めて使うサイトなので何か至らない点がありましたらすみません) １　年齢 ２　性別 ３　推しV(女性)は誰か ４　推しの魅力　 ５　好きなキャラ設定 ６　理想のVtuber象(髪型、洋服、デザイン、性格、容姿、年齢など)

愛猫(1歳)が晴れて妊娠しました。 現在妊娠50日目、3匹出産の予定です。 獣医師の診察も受け、経過も順調です。 猫は基本的に安産で、下手に人間が介入してしまうと、育児放棄してしまう危険性もあるみたいで、見守るスタンスで十分だと獣医師から言われています。 とはいえ、万が一に備えて色々と準備をしているのですが、出産間近になってきたら雄猫はケージに入れておく方がよいのかなど迷います。 獣医師からはあまり人間側が神経質にならずにおおらかに、という構えでよいとは言われていますが。 もちろん、24時間診療緊急手術対応の病院は調べていて連携してのぞみます。 雄猫の扱いも基本的に放置していてよいものでしょうか。 どなたか見守る経験された方いらっしゃいますか。いらっしゃいましたら、激励のお言葉などいただけると幸いです。

みんなにバカバカバカバカ言われるのでぎゃふんと言わせてやりたいのです！ フェルマーの最終定理とかわかったら頭いいねってみんながひれ伏せますか？？

通勤に定期券を使用するため、モバイルICOCAで定期券を購入しようと考えたのですが ・iPhoneで購入する。 ・Apple Watchで購入する。 の2択なら、どちらの方が日頃ストレスなく通勤できるのか教えていただきたいです。 よろしくお願いいたします。

旧１０００系から見て新１０００は孫で、３０００系は娘。 　３０００系から見て新１０００系は息子で、旧１０００系は父親。 　新１０００系から見て３０００系は母親で、旧１０００系は自分が見たことが無いおじいちゃん。 　　　 という感じもありませんか？？　 また母親の３０００系が他界してから、今現在は息子の新１０００系が自立して一人で井の頭線を支えながら回しているというのも、家庭を支えているのと同じような感じもありませんか？

【美容師さんに質問です】電動トリマーの耳の上の産毛を剃るための縦型のミニ電動トリマーを知っていたら教えてください。 家電量販店には刃が本体の側面に付いている電動ミニトリマーしか売っておらず、欲しいのは本体の先に刃が付いた本体上部に刃があるミニトリマーです。 売っていますか？ 幅は狭いほど良いです。 よろしくお願いします。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆王Ver.27/筆王ZEROなど） ＝＝＝ご記入ください＝＝＝ 筆王Ver28を購入ダウンロードしたのにエラーがでて解凍できない ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ ▼お困りごとの詳細、エラーなど（例：ダウンロード後筆王Ver.27を開こうとしたらエラーが出て、インストール出来ないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

３月末で、課を離任された課長向けに送別会の幹事を任されました。元々その方は、課の立ち上げに貢献してくださっていたそうです。 去年の４月からは私の課と５：５で他の課の兼務でした。 しかし、今年の４月からはこちらは１、兼務先が９となるそうです（たまにアドバイスする程度） その場合送別会メールは、以下のような始まり方で良いのでしょうか。完全に離任するわけでもないようなので、文章に悩んでいます・・ 「課の立ち上げから携わっていた〇〇課長が、３月末付で〇〇課メインから離任されたため、送別会を開催することとなりました。奮ってご参加ください。」

東大のいとこと話すと、こいつ頭悪いなと思うのですが、これは例外だと思います。 普通は高学歴の人と喋ると何か違いを感じますか？

　。似たような問題ですが(2)が解けません。互除法ではもちろん解けます。 (1) 　　92x + 197y = 1 　　197y = -92x + 1 　　197y≡1 (mod 92) 　　197≡13, 197y≡13y(mod 92) 　　13y≡1 (mod 92) 　　13y≡1-92 (mod 92) 　　13y≡91 (mod 92) 　　y≡7 (2) 　　92x + 57y = 1 　　92x = -57 + 1 　　92x≡1 (mod 57) 　　92≡35, 92x≡35x (mod 57) 　　35x≡1 (mod 57) 　ここから、いろいろ試しているのですが、うまい変形が見つかりません。