[ExcelVBA] Mid関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Mid(string, start[, length])

■説明
文字列の途中から指定文字数取得する
第一引数：文字列を指定します。
第二引数：文字列のうち、どの位置から文字数を取得するか指定します。
第三引数：(省略可能)第二引数で指定した位置から何文字返すか指定します。省略時は指定した位置から全ての文字を返します。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Dim str As String  
5.     str = "123あいうabc"  
6.       
7.     Debug.Print (Mid(str, 4, 3)) '4文字目から3文字取得→あいう  
8.   
9.     '参考  
10.     Debug.Print (Left(str, 3))   '左端から3文字取得   →123  
11.     Debug.Print (Right(str, 3))  '右端から3文字取得   →abc  
12. End Sub  

Option Explicit

Sub SampleCode()
    Dim str As String
    str = "123あいうabc"
    
    Debug.Print (Mid(str, 4, 3)) '4文字目から3文字取得→あいう

    '参考
    Debug.Print (Left(str, 3))   '左端から3文字取得   →123
    Debug.Print (Right(str, 3))  '右端から3文字取得   →abc
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧