３時間かかっていた作業が３秒で終わるようになりました-Excelマクロ・VBA

Excelマクロ・VBA達人養成塾 小川です。

先日実施した上級セミナーでのヒトコマ。

達人養成塾修了生の吉国宏之さんが、Facebookでこんな近況を報告くださいました。

３時間かかった作業が３秒で終わるようになりました

マクロや手順書は、あなたがその職場を去ったあとにも、あなたをその職場で口コミしつづけてくれる貴重なツールです。
異動にしろ昇進にしろ退職にしろ、人はいつかその職場を去ります。そのとき、その職場に対して何ができるか。

できることなら、「正の遺産」とでも言えるものを残したいものです。

ところで、ひきつづき、こんなことをおっしゃっていました。

あなたなら、どのようにしてこの課題を解決しますか？

受講生フォローのために作ったFacebookグループでも書きしましたが、第一感、僕が書いてみたくなるのは、以下のプログラム。

Sub hoge()
  Dim condition1 As Boolean
   Dim condition2 As Boolean
   Dim v1 As Variant, v2 As Variant
    Select Case v1
      Case condition1 '[1]
        Case Else
           Select Case v2
              Case codition2
              procedure
           End Select
  End Select
End Sub

[1]のところで、除外する条件を書いておきます。

もうちょい具体的に書くなら。

例えば、セルA1の値が「男性」のときは作業しないということなら、こんな感じ↓。

Sub fuga()
    Select Case Range("A1").Value
        Case "男性"
        Case Else
            Select Case Range("A2").Value
                Case Is > 70
                    Range("B2").Value = "極めて身体能力が高い"
                Case Is > 50
                    Range("B2").Value = "身体能力が高い"
                Case Else
                    Range("B2").Value = "標準か、それ以下。"
            End Select
    End Select
End Sub