• 質問東日本大震災で北上川というところが49キロほど先まで津波がきたといいますが、被害がでたのは何キロ先ま

    • 2018/6/20
    • ゆーちえ

    東日本大震災で北上川というところが49キロほど先まで津波がきたといいますが、被害がでたのは何キロ先までなのですか?
    北上川という川はとても大きい川なのでしょうか?

  • 回答

    • 2018/6/20
    • カズパッパ

    被害、下記が参考になれば。

    https://r.nikkei.com/article/DGXNASFK0100L_R00C1 …


    北上川は、
    岩手県および宮城県を流れる一級河川。
    北上川水系の本流。
    流路延長249km


    日本のおもな川ランキング 長さ
    理科年表 平成23年

    順位 河川名 長さ
    1. 信濃川(しなのがわ) 367 km
    2. 利根川(とねがわ) 322 km
    3. 石狩川(いしかりがわ) 268 km
    4. 天塩川(てしおがわ) 256 km
    5.---- 北上川(きたかみがわ) 249 km----
    6. 阿武隈川(あぶくまがわ)239 km
    7. 最上川(もがみがわ) 229 km
    - 木曽川(きそがわ) 229 km
    9. 天竜川(てんりゅうがわ)213 km
    10 阿賀野川(あがのがわ) 210 km
    ********************
    番外編↓
    ナイル川 6,650 km
    6千…(⊙_☉)
    どんだけ長いの!?
    日本列島2つ分か!( ̄□ ̄;)!!
    ********************余談でした( ˊᵕˋ ;)

    北上川 写真付けましたが見づらかったらゴメン。

    続きを読む

  • 締切済

    質問みなさんの何々県といえば何々、と言うやつを教えてください! 例えば 香川ならうどん! 大阪ならお好み

    • 2018/6/6
    • hyotttoko

    みなさんの何々県といえば何々、と言うやつを教えてください!

    例えば
    香川ならうどん!
    大阪ならお好み焼き!

    など、教えてください!!

  • 回答

    • 2018/6/8
    • siphonjet5

    例えば、青森県➡︎林檎
    岩手県➡︎三陸、南部鉄器
    三重県➡︎伊勢うどん、伊勢神宮、伊勢海老、忍者
    千葉県➡︎菜の花、私鉄が多過ぎる、落花生、ディズニーランド
    愛知県➡︎TOYOTA,赤味噌、セーラー服、名古屋城、名古屋嬢
    大阪府➡︎在日の多さ、関西弁、USJ,たこ焼き、粉物、お好み焼き、電車が古過ぎる、うどんが美味しい!
    福岡県➡︎豚骨、屋台、モデル
    岡山県➡︎吉備団子、マスカット
    沖縄県➡︎青緑色の海、ハイビスカス

    続きを読む

  • 締切済

    質問Excelで都道府県から入力している住所の データをコピぺして別のExcelに貼り付けた際に都道府県

    • 2018/5/31
    • あいす38

    Excelで都道府県から入力している住所の
    データをコピぺして別のExcelに貼り付けた際に都道府県を抜いて入力する関数が知りたいです。

    どのように関数を組めば良いのでしょうか?

    今現在、セルA1に一度貼り付け、セルB1に都道府県を抜いて入力できる関数が組んであります。
    直接、セルB1に貼り付けて、都道府県を抜きたいです。

    よろしくお願いします(><)

  • 回答

    • 2018/6/1
    • fujillin

    こんにちは

    少し無理やり感はありますが、VBAで対処してみました。

    ※ ご質問にある、B1セルだけを対象とするようにしてあります。
    ※ 都道府県名は漢字表記にのみ対応しています。
    ※ 以下を、対象とするシートのシートモジュールにコピペしてみてください。

    B1セルに都道府県付きで入力すると、都道府県名が削除されます。
    (実在しない都道府県名や都道府県名なしの場合は、何もしません)

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim prefName, i As Integer
    Dim p As String, s As String

    If Target.Address <> "$B$1" Or Target.Value = "" Then Exit Sub
    s = Trim(Target.Value)
    prefName = Split("北海道,青森県,岩手県,宮城県,秋田県,山形県,福島県,茨城県,栃木県,群馬県,埼玉県,千葉県,東京都,神奈川県,新潟県,富山県,石川県,福井県,山梨県,長野県,岐阜県,静岡県,愛知県,三重県,滋賀県,京都府,大阪府,兵庫県,奈良県,和歌山県,鳥取県,島根県,岡山県,広島県,山口県,徳島県,香川県,愛媛県,高知県,福岡県,佐賀県,長崎県,熊本県,大分県,宮崎県,鹿児島県,沖縄県", ",")

    For i = LBound(prefName) To UBound(prefName)
     p = prefName(i)
     If Left(s, Len(p)) = p Then
      Application.EnableEvents = False
      Target.Value = Trim(Mid(s, Len(p) + 1))
      Application.EnableEvents = True
      Exit For
     End If
    Next i
    End Sub

    続きを読む

  • 締切済

    質問岩手県か出来れば東北でいわなが釣れる場所教えて下さい。 後、おすすめの餌や釣り方も教えて欲しいです。

    • 2018/5/29
    • masaki.yuuki

    岩手県か出来れば東北でいわなが釣れる場所教えて下さい。
    後、おすすめの餌や釣り方も教えて欲しいです。
    今度の休み友達と釣りに行きたいです。

  • 回答

    • 2018/5/29
    • nyosuke

    イワナといえば高い山の渓流などをイメージしそうですが
    水温が低い川なら家の裏の川とか海に近い川などにも棲んで
    います さらにいうと海にもいますが・・・基本的に陸封された
    ものがイワナなのでとりあえず水温が低く水のきれいな川なら
    いる可能性があります ある程度大きな石や岩場があり魚の隠れる
    ような場所があり水が少しでもたまってるようなところが
    ねらい目です またよく日が当たる沢より少し薄暗いような
    沢のほうが狙いめかと思います

    エサですが基本はキジ(ミミズ)で釣れます
    ネギ畑のそばのネギが捨ててあるところとか掘ると
    たくさん取れます 釣具屋でも売っていますが・・・
    虫系だと私のお勧めはコオロギです
    羽のないメスはそのままオスは羽を取って流します
    砂利の駐車場にいけばたくさんいます
    後はイタドリ虫も比較的取りやすい餌です
    面白いのは赤とんぼ、羽をとってしっぽに
    チョンがけして流すと水面を割ってイワナが
    赤とんぼに食らいつきます なんとも迫力ある
    光景が見られます

    東北だとアメマスが主です
    やや緑がかった体色に大きめの白斑が特徴です
    大きさは尺を楽に超えるものもいます
    ので非力なタックルだとばらす可能性もあるかと

    続きを読む

  • 締切済

    質問エクセルの関数で困ってます

    • 2018/5/28
    • こにやん

    =IF(J4="青森県",IF(Q4<=200,22,IF(Q4>200,21,"")))の様に
    青森県単体では、計算できるのですが 同じセルに 他岩手県や秋田県がでるには…

  • 回答

    • 2018/5/28
    • t_fumiaki
    • ベストアンサー

    青森県では無かった場合の処理は行なわないとなってる。
    そこを、岩手県だったら、とか、秋田県だったら、を追加して行く。

    =IF(J4="青森県",IF(Q4<=200,22,IF(Q4>200,21,"")),
    IF(J4="岩手県",IF(Q4<=200,22,IF(Q4>200,21,"")),

    ・)

    続きを読む

  • 締切済

    質問VBA マクロ エクセルシートの保存について。

    • 2018/5/28
    • あかねチン

    お世話になります。取引先記入フォームがあり、ボタン(CB3)を押すと、自動でエクセルシートが保存される様にしたいのですが、下記の様なコードを書いたのですが、
    どうしてもうまくいきません。

    保存先フォルダは、北海道東北や関東甲信、東海近畿といったふうに分けてあります。
    更に、そのフォルダの中に、北海道東北なら、北海道・青森県・岩手県...とフォルダがあります。
    フォームの(6,B)には県名。(5,B)には、顧客名が入ります。
    その値から、自動的に県フォルダに分けられ、顧客名で保存したいのです。
    更に、同じ顧客名で新たな情報を保存する場合、シート1・2・3...といった具合に
    シートが追加されて、保存したいのです。
    どなたか、よろしくお願いします。

    Private Sub CB3_Click()

    UserForm1.Hide
    Dim folderName As String
    Dim saveFolder As String
    Dim saveBook As String
    Dim Bname As Variant
    Dim sh1 As Worksheet
    Dim subFolder As String
    Dim customer As String
    Dim newbook As Boolean

    Set sh1 = Worksheets("新規問合せ")

    Bname = Array("北海道東北", "関東甲信", "近畿東海", "北陸信越")


    '既存フォルダの存在チェック
    If Dir(folderName, vbDirectory) = "" Then
    MsgBox (folderName & "が存在しません")

    Exit Sub

    End If

    'サブフォルダの存在チェック

    If Dir(saveFolder, vbDirectory) = "" Then
    MsgBox (saveFolder & "が存在しません")

    Exit Sub

    End If

    subFolder = sh1.Cells(6, "B").Value
    customer = sh1.Cells(5, "B").Value


    '保存先フォルダーを設定
    saveFolder = "\\Server\共有\02_営業部\営業ツール\新規問い合わせ\都道府県別\" &
    Bname(Range("I8").Value - 1)


    saveBook = Worksheets("新規問合せ").Range("I8").Value

    saveBook = saveFolder & "\" & customer & ".xlsx"


    '既存のブックが存在するならそれをオープンし、なければ新規作成する

    If Dir(saveBook, vbNormal) <> "" Then
    Workbooks.Open saveBook
    newbook = False

    Else

    Workbooks.Add
    newbook = True

    End If

    With ActiveWorkbook

    'Sheet1を対象ブックへコピー
    ThisWorkbook.Worksheets("新規問合せ").Copy before:=.Worksheets(1)

    '新規ブックには、Sheet1,2,3があるので削除する
    If newbook = True Then

    Application.DisplayAlerts = False 'シート削除時の警告を出さない
    .Worksheets("新規問合せ").Delete 'Sheet1削除

    Application.DisplayAlerts = True

    End If

    'シート名を"Sheet"+連番に設定
    .Worksheets(1).Name = "Sheet" & .Worksheets.Count

    '新規ファイルなら名前を付けて保存
    If newbook = True Then

    .SaveAs Filename:=saveBook

    Else
    .Save

    End If
    .Close

    End With

    MsgBox (saveBook & "へコピー完了")
    Range("B2").Select

    End Sub

    続きを読む

  • 回答

    • 2018/5/28
    • よろずやkinchan

    >どうしてもうまくいきません。
    質問内容が漠然としています。
    どこがどううまくないのか、一つずつ質問しましょうね。

  • 締切済

    質問岩手県での求人

    • 2018/5/23
    • hanakon07

    岩手県での正社員の求人を探す場合は、どの媒体で情報を得ていますか? ハローワーク以外で教えてください。

  • 回答

    • 2018/5/27
    • Lescault

    地域新聞みたいなものにも載ってましたね。
    あとはネットや街なかの張り紙とかもでも。

  • 締切済

    質問5月21日は「小学校開校の日」。お子さんを勉強させるならどんな小学校がいいですか?

    • 2018/5/21
    • 今日のお題_by教えてgoo

    5月21日は「小学校開校の日」。お子さんを勉強させるならどんな小学校がいいですか?
    (1869年(明治2年)日本初の近代小学校としての開校式が、京都の上京第二十七番組小学校(後の柳池(りゅうち)小)で行われた。創設者熊谷直孝(くまがいなおたか)を初め、多くの寄付や献金が、町衆の向学の気風をさらに高めた。正門横の「日本最初小学校」と記された石碑は、町衆の教育にかける熱意を今に伝えている。)

    -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
    過去のお題はこちら
    https://oshiete.goo.ne.jp/profile/542222559/hist …

    続きを読む

  • 回答

    • 2018/5/22
    • 山水海

    俺らぁ、子供や孫所か、恋人も居ねえ唐変木のサフタギで言う立場では無いが勉強させる小学校としては、当方の母校でも在る岩手県の田舎町の山田町立大沢小学校が良いなぁ!

  • 締切済

    質問県名と県庁所在地名が違う県を 書いていって下さい!

    • 2018/5/15
    • 炙っちゃったカルビ

    県名と県庁所在地名が違う県を
    書いていって下さい!

  • 回答

    • 2018/5/15
    • born1960
    • ベストアンサー

    北海道(札幌市)岩手県(盛岡市)宮城県(仙台市)茨城県(水戸市)栃木県(宇都宮市)
    群馬県(前橋市)埼玉県・・・これはひらがなで「さいたま市」なので読みは同じだけに微妙(笑)神奈川県(横浜市)山梨県(甲府市)石川県(金沢市)愛知県(名古屋市)
    三重県(津市)滋賀県(大津市)兵庫県(神戸市)島根県(松江市)香川県(高松市)
    愛媛県(松山市)沖縄県(那覇市)

    続きを読む

  • 締切済

    質問グレイテストショーマンの上映は終了しちゃいましたか‥?? 4月くらいに行こうとしたらもうレイトショー

    • 2018/5/13
    • じろううう

    グレイテストショーマンの上映は終了しちゃいましたか‥??
    4月くらいに行こうとしたらもうレイトショーしかやってなくて諦めました。

    もうやってないですかね(T_T)泣
    ちなみに東北ですが、地方で上演期間って違うものなのですか?

  • 回答

    • 2018/5/15
    • -___

    東北では10館で上映中(岩手県1館、宮城県4館、秋田県1館、山形県2館、福島県2館)。ただし、10館のうち7館は5月17日(木)で上映終了の予定です。詳しくは各劇場の公式サイトの上映スケジュールページをご覧ください。18日以降のスケジュールは、今日・明日発表する劇場が多いのではないでしょうかね。
    https://movie.walkerplus.com/mv63466/schedule/
    https://movie.walkerplus.com/mv63466/schedule/R_ …

    『グレイテスト・ショーマン』みたいな大作映画は、全国一斉公開です。上映期間は3、4週間ぐらいが一般的ですが、ヒットしていればさらに上映が続きます。続きますが、新しい映画も次々と公開されますので、その分1日の上映回数は減っていきます。質問者さんが書かれてるようにレイトショーのみになったりとかね。『グレイテスト・ショーマン』は2月16日公開でしたので、今は13週目ですね。

    続きを読む