Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2149 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【69672】特定の文字の個数の取得 man 11/8/19(金) 10:59

【69673】Re:特定の文字の個数の取得 かみちゃん 11/8/19(金) 11:14

【69679】Re:特定の文字の個数の取得 man 11/8/19(金) 21:43


	【69672】特定の文字の個数の取得

man - 11/8/19(金) 10:59 -


	引用なし

	パスワード

もしかすれば、関数等にあるのかもしれませんが、当方が持っている書籍に載っていないので教えてください。

例
あ;か;さし;た
の文字から;の個数を取得し、個数に応じた変数を作成し、各変数にあ、か、さし、たを代入したいのですがどのような関数を使用してコードを作成すれば良いでしょうか？

Excel2007を使用してます。


	【69673】Re:特定の文字の個数の取得

かみちゃん

- 11/8/19(金) 11:14 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>例
>あ;か;さし;た
>の文字から;の個数を取得し、個数に応じた変数を作成し、各変数にあ、か、さし、たを代入したい

以下のよう感じで、配列変数にしてしまうとよいかと思います。

Sub Sample()
　Dim ss As String
　Dim v As Variant
　Dim i As Long
　
　ss = "あ;か;さし;た"
　v = Split(ss, ";")
　For i = 0 To UBound(v)
　　MsgBox v(i)
　Next
End Sub


	【69679】Re:特定の文字の個数の取得

man

- 11/8/19(金) 21:43 -


	引用なし

	パスワード

かみちゃんさん有難うございました。
無事に解決しました


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2149 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free