• 締切済

    質問日本の「へそ」はどこでしょう?

    • 2014/7/17
    • hutatabino

    こんにちは。

    北海道の「へそ」は富良野なんだそうです。
    では日本の「へそ」はどこでしょう?
    あたりまえの回答はつまらないのでユーモアで。
    ちなみにわたしは静岡、へそで茶をわかすからW
    たのしい回答いただけませんか?

  • 回答

    • 2014/7/17
    • one12

    こんにちは。

    日本のへそは?
    それは

    「兵庫県神崎郡市川町下牛尾」 です。

    理由
     千葉県八街市八街へ と 長崎県対馬市豊玉町曽(そ)のちょうど真ん中だから。
     ちなみに直線距離で1007Km その半分の位置が牛尾です。

    すみません、ユーモア度でなく、地名調査の努力度で評価ください。

    続きを読む

  • 締切済

    質問エクセルのマクロにLEFT関数のような働きはありませんか?

    • 2009/4/26
    • suzubuu

    顧客データから抽出したデータの、書式を整える作業を自動記録したマクロを使ってやっています。
    データの住所欄から、市か郡から下の部分を削除する作業があるのですが、抽出される顧客データは毎日違うので、自動記録のマクロでは出来ないため、この部分は手作業で行なっています。
    この「住所の市または郡から下の部分を削除する作業」をマクロで行なう方法は無いでしょうか?

    自動記録のマクロでは以下のようになっています。
    Cells.Replace What:="○○県××市○○町1-2-3", Replacement:="○○県××市", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=FalseCells.Replace What:="○○県**市△△町4-5-6", Replacement:="○○県**市", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

    マクロに、ワークシート関数の=LEFT(A1,(FIND("市",A1)))と同じ様な働きを記述できればいいのか?とも思うのですが、やり方がわかりません。

    続きを読む

  • 回答

    • 2009/4/26
    • Wendy02
    • ベストアンサー

    こんにちは。

    データベースで調べてみましたが、都道府県のあとの処理は、なかなか完全にはできません。Replace では、思い切って上書きでは、できません。データの横に出して正しくできているか調べるほうがよいです。今の段階では、完ぺきとはいえませんから。

    例として、市が二つ続くのは、全国で3つあります。
    「栃木県今市市」、「三重県四日市市」、「広島県廿日市」です。

    「千葉県八日市場市安久山」は、日市の後の字ではありません。八日市場市が正解です。

    また、「福島県郡山市」 や 「愛知県蒲郡市旭町」 のように、郡のあとに市かありますから、郡山市 蒲郡市が、正解です。「兵庫県神崎郡市川町浅野」や「富山県中新川郡上市町旭町」は、郡のあとに、市が来ますが、神崎郡 新川郡 までです。同じく、「北海道余市郡余市町」の場合は、市のあとに、郡があって、その後に、市がまた来ます。
    余市郡が正解です。

    「鹿児島県日置郡市来町大里」では、郡のあとに、市がきますが、日置郡が正解です。

    エラーチェックは、読み仮名できるような気がしますが、今のところは必要なさそうです。都道府県を区切るならともかく、「市・郡・区」を、関数式で区切るのは少し無理のような気がします。

    今、すべてのものを以下のコードで、正しく区切れているか分かりません。

    出力場所と、データ範囲は、任意です。適当に変えてください。

    '標準モジュール
    '---------------------------------------------

    Sub SplitOverLetters()
      Dim i As Integer, j As Integer, k As Integer
      Dim m As Integer, n As Integer
      Dim c As Variant
      Dim buf As String, buf2 As String, buf3 As String
      Dim ret As String
      Const COL As Integer = 1 '出力先(データに対して何列目・右)
      
      Application.ScreenUpdating = False
      For Each c In Range("A1:A20") 'データ範囲
        If c.Value <> "" Then
          If c.Value Like "*[都道府県]*" Then
            If Mid(c.Value, 4, 1) = "県" Then
              i = 1
            Else
              i = 0
            End If
            buf = Left(c.Value, 3 + i)
            buf2 = Replace(c.Value, Left(c.Value, 3 + i), "")
            i = InStr(buf2, "郡")
            j = InStr(buf2, "市市")
            k = InStr(buf2, "場市")
            m = InStr(buf2, "市")
            n = InStr(buf2, "区")
            If i > 2 Then
              buf3 = Mid(buf2, 1, i)
              ret = buf & buf3
            End If
            If j > 1 And ret = "" Then
              buf3 = Mid(buf2, 1, j + 1)
              ret = buf & buf3
            End If
            If k > 2 And ret = "" Then
              buf3 = Mid(buf2, 1, k + 1)
              ret = buf & buf3
            End If
            If m > 1 And ret = "" Then
              buf3 = Mid(buf2, 1, m)
              ret = buf & buf3
            End If
            If n > 1 And ret = "" Then
              buf3 = Mid(buf2, 1, n)
              ret = buf & buf3
            End If
            c.Offset(, COL).Value = ret
          End If
        End If
        ret = ""
      Next c
      Application.ScreenUpdating = True
    End Sub

    続きを読む

  • 締切済

    質問佐のつく地名

    • 2002/2/8
    • Budori-Neri

     宇佐、須佐、比佐など「~佐」の地名を集めています。ご存知の「~佐」地名を教えてください。

  • 回答

    • 2002/2/8
    • Umada
    • ベストアンサー

    Umadaと申します、小さい頃から地図を見るのが大好きです。
    私の見つけられたものを北から挙げておきます。

    武左(北海道標津郡標津町)
    武左(北海道釧路市)
    浦佐(新潟県南魚沼郡大和町)
    栗佐(長野県更埴市)
    赤佐(静岡県浜北市)
    神津佐(こんざ、三重県度会郡南勢町)
    表佐(おさ、岐阜県不破郡垂井町)
    奈佐(兵庫県豊岡市)
    西古佐(兵庫県篠山市)
    美佐(兵庫県神崎郡市川町)
    伊佐(兵庫県養父郡八鹿町)
    小佐(兵庫県養父郡八鹿町)
    土佐(奈良県高市郡高取町)
    武左(滋賀県近江八幡市)
    和佐(和歌山県和歌山市)
    久佐(広島県府中市)
    山佐(島根県能義郡広瀬町)
    波佐(島根県那賀郡金城町)
    牟佐(岡山県岡山市)
    伊佐(山口県美祢市)
    宇佐(山口県玖珂郡錦町)
    徳佐(山口県阿武郡阿東町)
    由佐(香川県香川郡香南町)
    曰佐(おさ、福岡市南区)
    三佐(大分県大分市)
    伊佐(沖縄県宜野湾市)
    穆佐(むさ、宮崎県東諸県郡高岡町)
    宇佐(北九州市小倉北区)
    稲佐(長崎県長崎市)
    志佐(長崎県松浦市)
    有佐(熊本県八代郡鏡町)
    伊佐(鹿児島県伊佐郡)
    帖佐(ちょうさ、鹿児島県姶良郡姶良町)
    平佐(鹿児島県川内市)

    参考までにsesameさんの回答分に県名をつけておきます。
    安佐(広島)、引佐(静岡)、宇佐(大分、高知)、大佐(岡山)、加佐(京都)、加津佐(長崎)、甲佐(熊本)、須佐(山口)、土佐(高知)、日和佐(徳島)、遊佐(山形)

    続きを読む