Excel2000 VBA 文字列操作 メモ1 [Excel2000 VBA 文字列操作]
文字列の最後の一文字を削除する
文字数=Len(文字列)
new文字列=left(文字列,文字数-1) 2文字なら2
カンマ区切り文字を展開する
利用方法 山田一郎を山田と一郎に分けるには、山田(手動でカンマを入れる)一郎 でマクロを実行すると、山田と一郎に展開できる
Sub カンマ区切り文字列を展開()
'
'選択したカンマ区切り文字を右側に展開する
'
Dim 文字列 As Variant
Dim 文字 As Variant
Dim i As Integer
Dim cell_row As Integer
Dim cell_column As Integer
'アクティブセルの行列を調べる
cell_row = ActiveCell.Row
cell_column = ActiveCell.Column
'Split関数 for each で展開
文字列 = Split(ActiveCell, ",")
For Each 文字 In 文字列
Cells(cell_row, cell_column + i) = 文字
i = i + 1
Next
End Sub
Split(文字列,区切り文字)
For Each 変数(要素) In グループ(配列) ・・・・ Next
文字列の特定の文字を置き換える(置換)
- post_no = Replace(post_no, "-", "") 「-」を「Null ""」にする
- 例 123-4567 → 1234567
文字列から1文字づつ取り出す
- mojiretu(count)=mid(mojiretu(0),1,1)
- 例
- mijiretu(0)=abcd
- for count=1 to 4
- mojiretu(count)=mid(mojiretu(0),count,1)
- next count
- 結果 mijiretu(0)=abcd mojiretu(1)=a mojiretu(2)=b mojiretu(3)=c mojiretu(4)=d
文字数を調べる
- 文字数=Len(文字列)
- Len("あいうえお")は 5(文字)
文字列検索 InStr(検索文字列,検索文字)
- InStr("ABCDEFDD","D") は4 最初に見つかった位置
文字列の左から2文字取り出す
- 左2文字=left(文字列,2)
- Left("あいうえお",2) は 「あい」
文字列の右から2文字取り出す
- 右2文字=right(文字列,2)
- Right("あいうえお",2) は 「えお」
文字列を左から検索して最初に見つかった位置を調べる
- tel_no = InStr("012-34-5678","-") -の位置を調べる
- tel_no は 4
- InStr(検索開始位置、検索文字列、検索文字(列))
コメント 0