【Excel VBA】同じセルにある２つの変動数を個々に取得したい

Question

前提・実現したいこと

セキュリティソフトのバージョン管理するためのExcelで使用しているマクロを回収することになり、
今まで１つのソフトバージョン管理だったのが２つ管理に増え、リスト表の配置変更は禁止の状況です。

Aのソフトなら左の値を、Bのソフトなら右の値を　と個々に取得したい場合のやり方を質問したいです。
例(左にAソフトのバージョン、右にBソフトのバージョンがありこれは同一セルに入っている)
現行　5000
改修　5000/3000

試したこと

A1にソフト名、B1に問題の値として

Dim BV As Integer 'Bソフト(右)を入れる変数
If Range(A1).Value = "Bソフト"　Then
   BV=InStrRev(Range(B1).Value , "/") '右から/までの文字数取得
   Range(C1).Value = Mid(Range(B1).Value , BV -1) 'C1へB1右だけの値を出力
Else
   'LenでB1の総文字数取得後InStrRevで取得した数字を引く、その数字をC1へ出力予定。
EndIf

書き方などはあまり気にしないでください。
やってることとしては
・If文でBソフトなら右側の取得、Aソフトなら右側文字数を用いて左側を取得する　流れです。

発生している問題

必ず４桁とわかっていれば楽なのですがバージョンアップして５桁になることを考えて作っているため作り方がわからなくなっています。
特にこの形じゃないといけないわけではないので他に同一セル内の2つの値をここに取得する方法があればご教授いただきたく思います。

Answer 1

Option Explicit

Sub test()
    Dim sType As String
    Dim vVersion As Variant
    Dim i As Long
    
    sType = ActiveSheet.Range("A1").Value
    vVersion = Split(ActiveSheet.Range("B1").Value, "/")
    
    Select Case sType
        Case "Aソフト": i = 0
        Case "Bソフト": i = 1
    End Select
    
    MsgBox sType & " : Ver." & vVersion(i)
End Sub

こんな感じとか。。。。

Comments

[FoxSonne]

回答ありがとうございます。
セレクトケースは初めて見たので調べながら組み込めるか試して見ます！

Answer 2

関数にしておくと、いいでしょう。
可読性かあがりますし、仕様が変更になった場合（例えばソフトが３種類にふえたとか）でも関数のみの改修ですみます。

Public Function GetVersion(Soft As String, Versions As String) As String
    Dim aVersions As String
    aVersions = Split(Versions, "/")
    
    Dim i As Long
    Select Case Soft
    Case "Aソフト": i = 0
    Case "Bソフト": i = 1
    Case Else: Exit Function
    End Select

    GetVersion = aVersions(i)
End Function

Sub test()
    Range("C1").Value = GetVersion(Range("A1").Value, Range("B1").Value)
End Sub

　
また、セルに式として設定することも可能です。

=GetVersion(A1,B1)

Comments

[FoxSonne]

回答ありがとうございます。
なるほど、確かに関数化大事ですね、今後の改修のためと説明して組み込めるよう相談して実施してみます！

Answer 3

Aのソフトなら左の値を、Bのソフトなら右の値を取得できるようにしてみました。

Sub hoge()
  Dim BV As Integer
  BV = InStrRev(Range("B1").Value, "/") '最も右にある”/"までの左からの文字数取得
  If Range("A1").Value = "Bソフト" Then
    Range("C1").Value = Mid(Range("B1").Value, BV + 1)  'C1へB1右だけの値を出力
  ElseIf Range("A1").Value = "Aソフト" Then
    Range("C1").Value = Left(Range("B1").Value, BV - 1) 'C1へB1左だけの値を出力
  End If
End Sub

Comments

[FoxSonne]

回答ありがとうございます。
教えていただいた形だとリストの使用でエラーになってしまったので右の数字はright関数で乗りきりました。

[TanakaHiroaki]

right関数を使ったのですね。お疲れさまでした。