「ウィ~ン ガシャン ウィーン ガシャン」
「先生、なにやってるんですか?」
「おぉ、ゲール君。新しくPCを買ったんじゃ」
「またですかぁ」
「うむ、学会に行くとき用にな、ネットPCというやつを買ってみた」
「あら、PCとは思えない大胆なデザイン」
「そうじゃろ?このデザインが気に入ってな。他より少々高かったがこれにした」
「でも、どちらかと言うと女性向けじゃないですか?」
「うむ、赤が基調で派手なデザインじゃからなぁ」
「あら、キーボードも真っ赤です」
「そうなんじゃ。キーボードまでデザインされたPCはなかなかない」
「ふ~ん」
「これから、セットアップするところじゃ」
「何を言ってるんですか!仕事をしてください」
「え~?」
「そのPCの代金はどこから出てると思ってるんですか?」
「それは、そのぅ・・・」
「お待ちの相談者の方、ど~ぞ~」
Option Explicit
Sub SeparateValue()
Dim myRow As Long
Dim i As Long
With ActiveSheet
myRow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To myRow
.Cells(i, 3).Value = Extracted_Value(.Cells(i, 2).Value)
.Cells(i, 4).Value = Extracted_Unit(.Cells(i, 2).Value)
Next i
End With
End Sub
Function Extracted_Value(myTarget As String) As Variant
Dim myValue As Double
myValue = Val(myTarget)
Extracted_Value = myValue
End Function
Function Extracted_Unit(myTarget As String) As Variant
Dim myValue As Double
Dim myUnit As String
myValue = Val(myTarget)
myUnit = Replace(myTarget, myValue, "")
Extracted_Unit = myUnit
End Function
「先生、結構いけてるマクロだと思います」
「そうじゃな」
「このままでいいような気もします」
「うむ、では、そう言うことで、一件落着!」
「おいおい!」
「え?」
「いけてるマクロだとは思いますが、患者さんの悩みは解決しなければいけません」
「やっぱり?」
「そりゃそうです」
「どうしても?」
「クリニックの収入が減ります」
「うむ」
「お正月の餅が買えなくなります」
「それは、困る」
「でしょ?はい、お仕事、お仕事」
「そうじゃな」