レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

金子　伊智郎さんの投稿

(投稿ID: 3454)

問題[2]ですが、B11="東京都町田市○×123-1", B12="福島県郡山市○×123-1" などと入れてテストしましたが前者ばＮＧ，後者はＯＫでした。
ですので若干改修してみました。
他にもうまくいかないケース（千葉県市原市など）は多々あると思いますが
このセンテンスでは全パターンを網羅するマクロを作成する(=品質を高める)のが目的ではないと理解しておりますのでこれで良しとします。

Sub bunkatsu2()
    Dim gyo
    Dim todofuken_idx
    Dim shikugun_idx
    Dim jyusho
    
    For gyo = 2 To 12
        jyusho = Range("B" & gyo).Value
        If Left(jyusho, 3) = "東京都" Then
            todofuken_idx = Len("東京都")
        ElseIf Left(jyusho, 3) = "北海道" Then
            todofuken_idx = Len("北海道")
        ElseIf Left(jyusho, 3) = "大阪府" Then
            todofuken_idx = Len("大阪府")
        ElseIf Left(jyusho, 3) = "京都府" Then
            todofuken_idx = Len("京都府")
        ElseIf InStr(jyusho, "県") > 0 Then
            todofuken_idx = InStr(jyusho, "県")
        End If
        Range("C" & gyo).Value = Left(jyusho, todofuken_idx)
    
        If InStr(todofuken_idx + 1, jyusho, "町田市") > 0 Then
            shikugun_idx = InStr(jyusho, "町田市") + 2
        ElseIf InStr(todofuken_idx + 1, jyusho, "村") > 0 Then
            shikugun_idx = InStr(jyusho, "村")
        ElseIf InStr(todofuken_idx + 1, jyusho, "町") > 0 Then
            shikugun_idx = InStr(jyusho, "町")
        ElseIf InStr(todofuken_idx + 1, jyusho, "区") > 0 Then
            shikugun_idx = InStr(jyusho, "区")
        ElseIf InStr(todofuken_idx + 1, jyusho, "市") > 0 Then
            shikugun_idx = InStr(jyusho, "市")
        ElseIf InStr(todofuken_idx + 1, jyusho, "郡") > 0 Then
            shikugun_idx = InStr(jyusho, "郡")
        End If
        
        Range("D" & gyo).Value = Mid(jyusho, todofuken_idx + 1, shikugun_idx - todofuken_idx)
        Range("E" & gyo).Value = Mid(jyusho, shikugun_idx + 1)
    
    Next

End Sub

2017/09/26 22:50

小川慶一さんのコメント

(コメントID: 4920)

金子　伊智郎さん:

> このセンテンスでは全パターンを網羅するマクロを作成する(=品質を高める)のが目的ではないと理解しておりますのでこれで良しとします。

ですね。
実際のところ、そういうところまで作り込んだマクロを書くべきか？マクロにはざっとした処理だけさせて、細かい修正は手作業でするか？は、実務上の要請次第です。

手作業でなおすなら、たとえば、『「市」や「町」という文字が2つ以上見つかった場合には、どっかの列に「×」と記入する』、そして、あとは、目視や、ショートカットキー [Ctrl] + [↑] または [↓] でその列に記入された値を調査していく、という感じでマクロに支援させるというのもあります。

いただいたサンプルについても、 Select Case 文や Split関数といった発展編１、発展編２で学べるノウハウを組み合わせるとより華麗にすっきりとした、メンテナンス性高いコードで書き上げられるようになります。

ひきつづきお楽しみください☆

2017/09/29 01:33

金子　伊智郎さんのコメント

(コメントID: 4927)

小川慶一さん:

コメントありがとうございます。
参考になりますし納得しています。
完璧なものに近づけようとするとコストと時間を消費しますし、
コードも複雑になりがちです。
後々メンテする際にも本人しか直せないマクロ、もしくは本人で
あっても直せないマクロになってしまうのでは、という危惧があります。
凝ろうと思ったらいくらでも凝ったものは作れるため、要件・要求に
応じたバランス感覚は重要だと思っております。
ひとりよがりのプログラマだけが満足するだけのものは避けないと
と思っています。

> 金子　伊智郎さん:
>
> > このセンテンスでは全パターンを網羅するマクロを作成する(=品質を高める)のが目的ではないと理解しておりますのでこれで良しとします。
>
> ですね。
> 実際のところ、そういうところまで作り込んだマクロを書くべきか？マクロにはざっとした処理だけさせて、細かい修正は手作業でするか？は、実務上の要請次第です。
>
> 手作業でなおすなら、たとえば、『「市」や「町」という文字が2つ以上見つかった場合には、どっかの列に「×」と記入する』、そして、あとは、目視や、ショートカットキー [Ctrl] + [↑] または [↓] でその列に記入された値を調査していく、という感じでマクロに支援させるというのもあります。
>
> いただいたサンプルについても、 Select Case 文や Split関数といった発展編１、発展編２で学べるノウハウを組み合わせるとより華麗にすっきりとした、メンテナンス性高いコードで書き上げられるようになります。
>
> ひきつづきお楽しみください☆

2017/09/29 01:58

小川慶一さんのコメント

(コメントID: 4930)

金子　伊智郎さん:

パレートの法則（8:2の法則）が参考になります。
8割の改善であれば2割のコストでできます。
10割の改善をしようと思うと、10割のコストがかかります。
「残り2割の改善に、8割のコストがかかる」ということですね。

ですので、実務では、「8割の改善」をしたらそれ以上ムリに仕組み化しようとはせず、手元のリソースを使って別のことの改善をするほうが有利です。

ざっくりしたモデルで考えると：

[1] 1つの仕事を10割マクロ化する→10のコスト
[2] 1つの仕事を 8割マクロ化する→ 2のコスト

ということですので、[2]より、以下が言えるかもしれません。

[結論] 5つの仕事を 8割マクロ化する→10のコスト

↑
...というのは、ウソです。詭弁ですので信用しないように。

なぜなら、5つの仕事があったとしたら、パレートの法則によれば、そのうち本当にビジネス上のインパクトの有る仕事は1つだけなので。

考え方の参考にはなるかとは思いましたので、半分冗談で、あえてこんな試算を示してみましたヾ(´ー｀)ﾉ

長くなりましたので、このへんで...。

> 小川慶一さん:
>
> コメントありがとうございます。
> 参考になりますし納得しています。
> 完璧なものに近づけようとするとコストと時間を消費しますし、
> コードも複雑になりがちです。
> 後々メンテする際にも本人しか直せないマクロ、もしくは本人で
> あっても直せないマクロになってしまうのでは、という危惧があります。
> 凝ろうと思ったらいくらでも凝ったものは作れるため、要件・要求に
> 応じたバランス感覚は重要だと思っております。
> ひとりよがりのプログラマだけが満足するだけのものは避けないと
> と思っています。

2017/09/29 05:42