VBAを使用してExcelセル内の文字列の単語数を特定する

「今日は14ドル、昨日は13ドル」というテキストのセルがあります。
ExcelでVBAを使用して、これを「今日11.33ユーロ、昨日10.52ユーロ」に変換するにはどうすればよいですか？

アイデア：テキスト内のスペースの場所に基づいて、VBAは次のことができます。

   a) identify the word order of each word within the cell [ex. '14' is word 
      3, 'dollars' is word 4] 
   b) identify whether the following word was 'dollars' and 
   c) if so, multiply the previous word times the conversion factor of .81. 

ただし、これをコードに組み込む方法に固執しています。助けて、スーパーユーザー！

変換率のルックアップテーブルを使用する場合、VBAは必要ありません。

VBAを使用する場合、「考えてみて」、最新のコンバージョン率を引き下げることを考えます。または、データの取得元に応じて、特定の日付を使用してそれを行うことができます。

これを通して作業することで、VBAの可能性についての知識も広がります。

特定のWebサイトからの最新のデータを使用する例を次に示しますが、たくさんあります。この場合、APIキーは無料です。自分で申し込む必要があります。

'Set reference to Microsoft winHTTP Services 5.0
'You'll need to install a JSON converter, or perhaps parse the csv output
'You could also parse this simple JSON using Regular Expressions
Option Explicit
Option Compare Text
Function ConvertInText(S As String) As String
    Dim V As Variant, W As Variant
    Dim DT As Date
    Dim I As Long

V = Split(S, " ")
For I = 0 To UBound(V)
    If V(I) = "Dollars" Then
        V(I) = "Euros"
        V(I - 1) = Format(USDtoEUR(CCur(V(I - 1))), "0.00")
    End If
Next I

ConvertInText = Join(V)
End Function

Private Function USDtoEUR(DOL As Currency) As Currency
    Const myAPI As String = "apikey=xxxxxxxxxxxxx"
    Const sURL As String = "https://www.alphavantage.co/query?function=CURRENCY_EXCHANGE_RATE&from_currency=USD&to_currency=EUR&"
    Dim httpRequest As WinHttpRequest
    Dim strJSON As String, JSON As Object

Set httpRequest = New WinHttpRequest
With httpRequest
    .Open "Get", sURL & myAPI
    .Send
    .WaitForResponse
    strJSON = .ResponseText
End With
Set httpRequest = Nothing

Set JSON = parsejson(strJSON)

USDtoEUR = JSON("Realtime Currency Exchange Rate")("5. Exchange Rate") * DOL

End Function

このVBAコードは、コマンドボタンまたはマクロとして試すことができます。

Private Sub CommandButton1_Click()

i = 8

str1 = Range("A2").Value

str1 = Mid(str1, 1, i - 1) & Replace(str1, "14 dollars today and 13 dollars", "11.33 euros today and 10.52 euros", Start:=i)

Range("A4").Value = str1


End Sub