Excel VBAについて教えてください

質問

Excel VBAについてお尋ねします。

Excelで勘定元帳を作っているのですが、シート名に
「1-現金」
「2-普通預金」
などとなっています。

この場合に、Excel VBAで
「-」の前後、つまり、「1-現金」の場合は
「1」「現金」を取り出すコマンドをご存知の方教えてください。

回答No.4

Masato_a

すみません。間違えてました。

正しくは下記です。

Dim strValue As String
strValue = ActiveCell.Value

Dim i
i = InStr(1, strValue, "-") ' "-"の位置

Dim Bangou As String
Dim Data As String
Bangou = Left(strValue, i - 1) '番号の部分
Data = Mid$(strValue, i + 1) 'データの部分
　　　　　　　　　　　ここを間違えてました。

回答No.3

Masato_a

以下のコードを試して見てください。
単純明快です。

Dim strValue As String
strValue = ActiveCell.Value

Dim i
i = InStr(1, strValue, "-") ' "-"の位置

Dim Bangou As String
Dim Data As String
Bangou = Left(strValue, i - 1) '番号の部分
Data = Mid$(strValue, i + 1, 3) 'データの部分

回答No.2

nishi6

科目はたくさんあると思いますので、蛇足ですが。。。

Dim mySht As String 'シート名
Dim myKanjoNo, myKanjoName As String '科目、科目名
mySht = Sheets(1).Name 'シート番号を指定
myKanjoNo = Left(mySht, InStr(mySht, "-") - 1)
myKanjoName = Right(mySht, Len(mySht) - InStr(mySht, "-"))

回答No.1

bin-chan

一番目のシートを選択した後、
Sheets(1).Nameを参照することでシート名が取得できます。
「（１）はｎ番目です」
これをmidb$で分解してください。

ここでは Dim strTemp As String で宣言した文字列変数で受け取ったとします。
strTemp = Sheets(1).Name

’数字の取り出し
変数ａ = Midb(strTemp,1,1)
’科目名の取り出し
変数 = Midb(strTemp,3,30)

ＥＸＣＥＬ２０００ならSplitが利用できるので
セパレータに"-"を指定すると
文字列を簡単に分解できます。