ベストアンサー

vba関数　変数の中に該当の文字がいくつあるか

2013/02/11 08:21

vba関数　変数の中に該当の文字がいくつあるかを取得するには？ Sub Sample() Dim moji As String moji = "aiuuueou" MsgBox "uは4つです" End Sub こんな感じで、moji という変数の中にuはいくつあるかを取得する方法はありますか？

HHNVTOYXLU4
お礼率100% (46/46)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2013/02/11 08:40 回答No.1

定石で。 msgbox "uは" & len(moji) - len(replace(moji, "u", "")) & "文字です"

質問者

お礼 2013/02/11 15:54

できましたーご回答ありがとうございます。

関連するQ&A

定数と変数、どちらを使った方がいいか？

vbaの勉強中なので教えてください。 Sub 定数を使った場合() Const moji = "あああ" MsgBox moji End Sub Sub 変数を使った場合() Dim moji As String moji = "あああ" MsgBox moji End Sub 二つのサンプルは答えは一緒なのですがプログラムを作るにおいてどちらを使った方が良いのでしょうか？このサンプルならどっちでもいいのでしょうか？
ifステートメント　大文字も小文字も区別なく

Sub test() Dim moji As String moji = "a" If moji = "A" Then MsgBox "Aかaです" End If End Sub これだと、変数が小文字のaだからmsgboxが表示されません。小文字も大文字も区別なく認識させるにはどうすればいいでしょうか？バイナリモードになってるようです。 Replace関数の場合は、vbTextCompareを付ければ Sub Sample() Dim moji As String moji = "ａ" Debug.Print Replace(moji, "A", "b", , , vbTextCompare) End Sub このように大文字小文字区別なく置換できますがこのような事をifステートメントでやる方法を教えてください。
Const　に　dim　は使えない？

標準モジュールに ''''''''''''''''''''''''''''''''''''''''''' Dim Const moji As String = "a" Sub test1() MsgBox moji End Sub Sub test2() Dim Const moji As String = "a" MsgBox moji End Sub ''''''''''''''''''''''''''''''''''''''''''' とするとエラーになりますが ''''''''''''''''''''''''''''''''''''''''''' Public Const moji As String = "a" Sub test3() MsgBox moji End Sub ''''''''''''''''''''''''''''''''''''''''''' なら大丈夫です。 Const に対してdimは使えないのでしょうか？
グローバル変数などについて

Option Explicit Dim str1 As String '・・・(1) Sub テスト() Dim str2 As String '・・・(2) str1 = "テスト1" str2 = "テスト2" MsgBox str1 MsgBox str2 End Sub (1)はグローバル変数と言うとの事ですが (2)は何変数と言うのでしょうか？ローカル変数ですか？また、(1)がdimではなく、 Public str1 As String となった場合でも、プロシージャーの外にあれば、グローバル変数と言うのでしょうか？
VBA　変数にアスタリスクが含んでるかどうか

変数にアスタリスクが含んでるかどうかをＩＦステートメントで取得するには？ Sub test() Dim mystr As String mystr = "*/" If mystr Like "*" Then MsgBox "mystrはアスタリスクを含んでます。" End If End Sub このようなことをしたい場合、 mystr = "*/" でも mystr = "/" でも、結局は*が、どの文字でも含まれると認識してしまいます。変数にアスタリスクが含まれてるかどうかを判定する方法を教えてください。
ｖｂａの　変数の宣言　記号は使えない？

ｖｂａの　変数の宣言　記号は使えない？ Sub test1() dim st @ End Sub みたいに変数の型を As String ではなく記号で表現ってできないんでしたっけ？エラーになってしまいます。
vbaで配列に値を格納する場合

vbaで配列に値を格納する場合変数の宣言はどちらを使った方が良いのでしょうか？ Sub Sample1() Dim i As Long Dim myStr As String Dim tmp() As String myStr = "a,i,u,e,o" tmp = Split(myStr, ",") End Sub か Sub Sample1() Dim i As Long Dim myStr As String Dim tmp As Variant myStr = "a,i,u,e,o" tmp = Split(myStr, ",") End Sub でも問題なく動くのですが、 Variant型での宣言はあまりしない方が良いですか？あと Dim tmp() As String ならエラーにならないのですが Dim tmp　As String だとエラーになってしまう理由がよくわからないので教えて頂けますか？
VBAでワイルドカードを使った文字列検索

初めて投稿いたします。環境は、WinXP Access2000 下記のVBAモジュールで、文字列検索がヒットしません。数字の比較でヒットするのはナゼでしょうか？ちなみに、変数に導入したのは、全角半角どちらも入れてみました。この疑問・・・どなたか解決お願いします。 Sub TEST() Dim AAA As String Dim BBB As String Dim YYY As String AAA = "０" BBB = "２" YYY = AAA & BBB Select Case YYY Case "０*" MsgBox "ココを通り過ぎないで！" Case "１５" MsgBox "やったね" Case Is > 0 MsgBox "なぜかココでヒットします？？" End Select End Sub
変数に特定の文字が含まれているなら（VBA）

以前に質問した http://oshiete1.goo.ne.jp/qa4407128.html とは違うのですが変数"あいうえお"に "あ"が含まれているなら "含まれています"と表示したいです。 Sub test() Dim strmoji As String strmoji = "あいうえお" If Find(strmoji) Like "*あ*" Then MsgBox "含まれています" End If End Sub 部分的に考えてみたのですが「Sub、Function、または Property が定義されていません。(Error 35)」が出てしまいます。ご教授よろしくお願い致します。
配列のメリットは？

下記のコードは同じ動作をします。 Sub 普通() Dim moji1 As String Dim moji2 As String moji1 = Range("a1").Value moji2 = Range("a2").Value MsgBox moji1 & moji2 End Sub --------------------------------------------- Sub 配列() Dim moji(2) As String moji(1) = Range("a1").Value moji(2) = Range("a2").Value MsgBox moji(1) & moji(2) End Sub こういう場合は配列を使ったほうがいいのでしょうか？それとも配列は避けたほうがいいのでしょうか？
参照渡しをする時は、渡される側は違う変数を使う？

参照渡しをする時は、渡される側は違う変数を使うべきなのでしょうか？ＶＢＡのお勉強をしているのですが Sub test1() Dim mystr As String mystr = "a" Call test2(mystr) Call test3(mystr) End Sub Sub test2(ByRef mystr As String) MsgBox mystr End Sub Sub test3(ByRef mystr2 As String) MsgBox mystr2 End Sub この場合、test2とtest3ではどちらを使ったほうがいいのでしょうか？ test3は、mystr2 というmystrとは違う変数を使っていますが、 test2は、test1のmystrと同じ変数を使っています。 test1と同じ変数を使おうが違う変数を使おうがどちらにしろ (ByRef 変数名 As String) で宣言するから、変わらないのでしょうか？
VBAでプロシージャ間のデータを渡したい

VBAでプロシージャ間のデータを渡したい main関数の中でget_Recordという関数を呼んでいます。この中でアクセスのテーブルからデータを取得して、「this_Hensuu」という変数に格納します。やりたいことは、get_Recordで取得した変数をmain関数の中で利用したいです。 main()関数外で変数を宣言してグローバル変数とすれば解決するのはわかりますが、その他の方法でmain関数に値を渡すことは可能でしょうか？ Sub main() Dim x = 10 Call get_Record(x) ... ... end sub Sub get_Record(Byref x As Integer) Dim rs As Dao.recordset Dim this_Hensuu As String Dim this_Hensuu2 As String get_SQL As String get_SQL ="" get_SQL="Select * from TABLE1 where ID='" & x & "'" rs = Openrecordset(get_SQL,opendynaset) this_Hensuu = rs!名前 this_Hensuu = rs!名前2 end sub
フォルダの中のファイル数を取得するには　vba

手作業でフォルダのプロパティからファイルの数を確認することはできるのですが VBAで（FSOなど）、該当のフォルダの中に何個ファイルが入ってるかを確認するコードはありますか？ Sub test() Dim MyFileName As String Dim MyFolderName As String Dim i As Long MyFolderName = "\○○\icon" MyFileName = Dir(MyFolderName & "\*.*") Do While MyFileName <> "" MyFileName = Dir() i = i + 1 Loop MsgBox i End Sub このようなコードを作ってみたのですが、画像のように実際に目で確認したファイル数と一致しません。正しい数が取得できるvbaコードはありますか？
サブフォームに変数を代入し、RecordSourceの値を取得したい

サブフォームに変数を代入し、RecordSourceの値を取得したいのですがうまくいきません。 Sub test1() Dim サブフォーム As String Dim フォーム　As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource End Sub ******************************************************************* Sub test2() Dim サブフォーム As String Dim フォーム　As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource MsgBox Forms(フォーム).Controls(サブフォーム).RecordSource End Sub オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) ******************************************************************* Sub test3() Dim サブフォーム As String Dim フォーム As String フォーム = "土台" サブフォーム = "フォーム1" MsgBox Forms(サブフォーム).RecordSource End Sub 実行時エラー'2450' マクロの式またはVisual　Basic　コート゛で参照されている　'フォーム名'フォームが見つかりません。 ******************************************************************* test1～3のうち test1のみはうまくいくのですが変数を代入したいです。ヘルフ゜のには Forms![受注]![受注サブフォーム].Formとなってますがこれじゃ変数を代入できないですよね。どうすればサブフォームに変数を代入しつつ、RecordSourceの値を取得できるのでしょうか？よろしくお願いします。
VBAのプロシージャーと変数の名前の区別について

VBAの初心者です。教えてください。 Sub ex() Dim a As Integer Dim b As Integer a = 2 a a, b MsgBox b End Sub Sub a(a As Integer, b As Integer) b = a End Sub 上記のプログラムを実行するとうまくいきません。VBAのプロシージャーと変数って同じ名前を使うとだめなのですか？教えてください。
変数の中の特定の文字の出現回数を取得したい。

Sub test01() Dim mystr As String mystr = "a1a2a3" Debug.Print WorksheetFunction.CountA(mystr, "a") End Sub のようなコードを作りました。 mystrの中に３つの「a」があります。なので、CountA関数を使えば、3が返ると思ったのですが、2が返りました。なぜ3ではなく2が返るのでしょうか？ CountA関数でなくてもいいので、変数の中の特定の文字の出現回数を取得するコードを教えてください。
EXCEL VBA WEEKDAY関数

weekday関数について質問です。 Sub test() MsgBox Weekday(#2/19/2009#) End Sub 上記プログラムを参考に2009年2月i日の曜日を返すように下記プログラムを作成したのですが、うまくいきません。変数iの箇所に原因があると思うのですがどのようにしたら解決できますでしょうか？？ Sub test() dim i as string i=15 MsgBox Weekday(#2/i/2009#) End Sub 解決策、できましたら参考となるプログラムをお教えください。よろしくお願いいたします。
変数の中身がアルファベットだけなのか取得するには

変数がアルファベットだけか取得するには？ Sub test() Dim mystr As String mystr = "abc" If ？？？　Then MsgBox "アルファベットだけです" End If End Sub のように、変数の中身がアルファベットだけなのか取得するにはどうすればいいでしょうか？ひらがな、カタカナ、漢字、記号を含んでいるかどうかを評価したいです。
変数の宣言(s As String)で良い理由

vbaについてしつもんです。標準モジュールで Option Explicit Dim s As String Sub test1() Call test2("qqq") End Sub Sub test2(s As String) MsgBox s End Sub としたのですが、もしかしてDim s As Stringって必要ないのでしょうか？あってもなくても動きます。 (s As String)があるからDim s As Stringは不要なのですか？だとしたら、(s As String)に　dim　や　publicをつけなくて良い理由を教えてください。
vbaでCountIf関数を使いたい（エクセル）

A1セルにa-a-aがはいっています。この場合aは３つですよね。これをvbaで取得するコードを作っているのですがうまくできません。 Sub test() Dim myStr As String myStr = "a" MsgBox WorksheetFunction.CountIf(Cells(1, 1), "*" & myStr & "*") End Sub これをすると、なぜか１が返ってきます。 Aは３つあるのになぜ１が返るのでしょうか？ A1にaaaaaを入れて実行しても1が返ります。

vba関数　変数の中に該当の文字がいくつあるか

質問者が選んだベストアンサー

お礼 2013/02/11 15:54

関連するQ&A

定数と変数、どちらを使った方がいいか？

ifステートメント　大文字も小文字も区別なく

Const　に　dim　は使えない？

グローバル変数などについて

VBA　変数にアスタリスクが含んでるかどうか

ｖｂａの　変数の宣言　記号は使えない？

vbaで配列に値を格納する場合

VBAでワイルドカードを使った文字列検索

変数に特定の文字が含まれているなら（VBA）

配列のメリットは？

参照渡しをする時は、渡される側は違う変数を使う？

VBAでプロシージャ間のデータを渡したい

フォルダの中のファイル数を取得するには　vba

サブフォームに変数を代入し、RecordSourceの値を取得したい

VBAのプロシージャーと変数の名前の区別について

変数の中の特定の文字の出現回数を取得したい。

EXCEL VBA WEEKDAY関数

変数の中身がアルファベットだけなのか取得するには

変数の宣言(s As String)で良い理由

vbaでCountIf関数を使いたい（エクセル）

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vba関数 変数の中に該当の文字がいくつあるか

質問者が選んだベストアンサー

お礼 2013/02/11 15:54

関連するQ&A

定数と変数、どちらを使った方がいいか？

ifステートメント 大文字も小文字も区別なく

Const に dim は使えない？

グローバル変数などについて

VBA 変数にアスタリスクが含んでるかどうか

ｖｂａの 変数の宣言 記号は使えない？

vbaで配列に値を格納する場合

VBAでワイルドカードを使った文字列検索

変数に特定の文字が含まれているなら（VBA）

配列のメリットは？

参照渡しをする時は、渡される側は違う変数を使う？

VBAでプロシージャ間のデータを渡したい

フォルダの中のファイル数を取得するには vba

サブフォームに変数を代入し、RecordSourceの値を取得したい

VBAのプロシージャーと変数の名前の区別について

変数の中の特定の文字の出現回数を取得したい。

EXCEL VBA WEEKDAY関数

変数の中身がアルファベットだけなのか取得するには

変数の宣言(s As String)で良い理由

vbaでCountIf関数を使いたい（エクセル）

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vba関数　変数の中に該当の文字がいくつあるか

ifステートメント　大文字も小文字も区別なく

Const　に　dim　は使えない？

VBA　変数にアスタリスクが含んでるかどうか

ｖｂａの　変数の宣言　記号は使えない？

フォルダの中のファイル数を取得するには　vba

カテゴリ
一覧

専門家に質問してみよう
専門家登録