締切済み

ExcelVBA：同じ文字の数を調べるプログラム

2007/12/14 15:17

Excelのプログラムで、テキストボックスに例えば「あかさいおあ」という文字があったとき「あ」の文字の数を調べたいとき、Len、Mid、InStrで一文字ずつ調べる方法以外で簡単に作れるプログラムはあるでしょうか？回答よろしくお願いします。

miya_HN
お礼率100% (1683/1683)

Visual Basic
回答数1
ありがとう数2

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

みんなの回答

pbforce
ベストアンサー率22% (379/1719)

2007/12/14 15:22 回答No.1

「あ」を「」に変換しちゃって、文字数の差を求めればどうでしょう？

質問者

お礼 2007/12/14 18:50

ありがとうございました。

関連するQ&A

ExcelVBA：特殊文字の判定

文字で英字や数字を判定するとき、「文字 Like」を使い、「"[A-Z]"」「"[0-9]"」で判定することができますが、特殊文字の場合はどうなるのでしょうか？例をあげると、例えば、セル「A1」の文字を調べるのに、「α」「β」「γ」「δ」であるかどうか判定したいのですが、そのような場合、 If Mid(Range("A1"), Len(Range("A1")),1) Like "[α][β][γ][δ]" = True Then このようになるのでしょうか？ If Mid(Range("A1"), Len(Range("A1")),1) Like "[α-δ]" = True Then これは使えませんか？回答よろしくお願いします。
ExcelVBA：テキストボックス上のカーソルを動かして選択範囲を指定したときに判定するプログラム

Excelのプログラムでテキストボックス上のカーソルを動かし、テキストボックスの文字が青くなって、選択範囲を終えたとき（マウスを離したとき）に、範囲を選択したかどうか調べるプログラムを作りたいのですがどのようにすればよいのでしょうか？ MouseUpでやってみたのですが、選択しないまま（青くならない）マウスを離すと同じことになってしまうのでこの判定をしたいのですが。回答よろしくお願いします。
テキストボックスに表示できる文字数は

エクセルのアクティブXのテキストボックスに表示できる文字数は何文字ですか？エクセル２０１０です。
エクセル　2007/5/23の文字数が９文字としてカウントされないのはなぜ？

エクセルにて 2007/5/23とセルに書いてあります。そのセルの文字の数をlen関数で数えると９文字と表示されず、５文字となりますが、なぜですか？また'2007/5/23とすると、ちゃんと９文字になりますが、ＶＢＡで’を追加して、ちゃんと９文字と表示されるようにする方法を教えてください。
ExcelVBAのテキストボックスのデータ型

Excelのプログラムで、テキストボックスなどのオブジェクトで入力するときに数値だけとか、文字だけとかにしたいのですがデータ型を扱うプロパティはないでしょうか？回答よろしくお願いします。
文字数の取得方法(Active Basic 4)

タイトルのとおりです。 Active Basicを使ってプログラミングをしているのですが、どうしても文字数の取得方法がわかりません。命令文「Len()」を使えば文字列の「Byte」はわかりますが、文字数が取得できません。何か良い方法はありますか？ (Active Basic 参考プログラム) Dim Str$ As String Str$ = "abc"　　　　'３文字　計３バイト Print Len(Str$) 　　'「３」が表示されます Str$ = "やほ～" 　　'３文字　計６バイト Print Len(Str$) 　　'「６」が表示されます
ExcelVBAで文字列の制御をしたいのですが

セルに５文字の数字を文字列として取り込む入力規制をしているのですが、現段階では小数点を入力してもチェックにはじかれません。小数点その他記号等チェックではじきたいので以下のようなマクロを組みました。 Dim A As String　 ’値の取得用の変数 Dim i As Integer 'ループカウンタ For i = i To 5 '左からi個の数値を取り出す A = Left(target.Text, i) '取り出した数の右側の文字を検索（小数点があるとすればこの位置） If Len(A) = 2 Then A = Right(A, i) End If If Len(A) = 3 Then A = Right(A, i) End If If Len(A) = 4 Then A = Right(A, i) End If If Len(A) = 5 Then A = Right(A, i) End If '取り出した文字が数値以外ならメッセージを表示 If IsNumeric(A) = False Then Call MsgBox("数値以外が入力されています", vbExclamation) Next これでも何とか希望通りの動きはしたのですが、あまりスマートなプログラムに思えません。不勉強で申し訳ありませんが、関数で○文字目、ひと文字だけを検索できるもはないのでしょうか？そうすればスマートにいきそうなのですが... このプログラムをもっとスマートな形にできる方法をご存知の方がいらっしゃれば、ご教授お願いします。
ExcelVBAでテキストボックスに入力制限をする方法

Excelのプログラムで、フォームのテキストボックスに数値のみ入力許可したり、文字のみ入力許可したり、特定の文字のみ入力許可にするなど、入力制限を行う方法はどのようにすればよいでしょうか？回答よろしくお願いします。
excelVBAで、Midの引数をLenで指定できる？

ワークシートSheets1上のセルA1に、次のような文字列があり、 Length 50.0mm この中の、数字の部分だけをユーザーフォームのtextbox1に抜き出したいと思っています。 Length と、単位mmは全ての場合で共通ですが、数字は50.0の場合も5.0の場合もあり、文字数がまちまちです。 textbox1.value=Mid(Sheets("Sheets1").Range("A1").value, 8,Len(Sheets("Sheets1").Range("A1").value-2) のようにMid関数の引数にLen関数を使ったり、 x=Len(Sheets("Sheets1").Range("A1").value textbox1.value=Mid(Sheets("Sheets1").Range("A1").value, 8,x-2) のように変数xを介してみたりしたのですが、mmが表示されてしまいます。（ちなみにLenを使わずx=13と書くと、mmなしの数値だけがうまく表示されます） VBAはトライ＆エラーで使っている状態で、セルの取り扱い(.valueとか.textとか)や変数の宣言はかなり適当です。この辺りが間違っているんでしょうか？？できればMidとLenを使った解決法、それが無理なら他の方法でも結構ですので、ご教授頂けると助かります。よろしくお願いします。
文字数による移動

　VisualBasicにおいて、テキストボックス内にたとえば４文字入力されたら、もう一つのテキストボックスに移る（つまりすぐに入力できるようにする）というプログラムは作れるのでしょうか？　例：テキストボックス１に「1542（４桁）」と入力された瞬間にテキストボックス２に移動し、マウスを動かさずにテキストボックス２に入力する。できるのであればやり方を教えてください。教えてください。
テキストボックスの文字数制限について

エクセル2000でＶＢＡを勉強中の初心者です。ユーザーフォームのテキストボックスに入力できる文字数の制限や、ボックス内での文字の折り返し表示はできるのでしょうか。どなたかご指導いただけないでしょうか。
ExcelVBAでデータ型を判定し、エラー値を返すプログラム

Excelのプログラムでテキストボックスに入力すると、小数点型か判定し、エラーの場合、エラー値を返すようなプログラムを作りたいのですがどのようにしたらいいでしょうか？ a = エラー(CSng(TextBox1.Text)) 多分こんな感じになると思うのですが。あとエラーが出ても特にその後の処理には影響ないので、 On Error Resume Next このように、エラーが出てもいいようにしておけばよいでしょうか？回答よろしくお願いします。
文字数と単語数を数えるプログラム

When in Rome, do as the Romans do. をchar形配列に格納し、文字列に含まれる（空白以外の）文字数と単語数を数え、結果を画面に出力するプログラムがうまくできません。文字数と単語数の数え方がさっぱり… アドバイスしていただけると幸いです。よろしくお願いします
ワードの文字数カウントについて

ワードに文字数カウントツールがありますが、テキストボックスの文字数まではカウントされません。本文および複数のテキストボックスの文字数の合計をカウントできるモードやソフトがあれば教えてください。よろしくお願いします。
VB2008の文字列の操作について

プログラムを最近、始めなければならなくなった初心者です。一行の長い文字列を指定の文字数で分割するプログラムを書かなければならないのですが。どうしても文字数がずれてしまいます。 webを参考に下記のようなプログラムを書いてみました。 Public Class Form1 Public NN As Long = 1 Dim sR As New IO.StreamReader("C:\testtex.DAT",System.Text.Encoding.GetEncoding("shift_jis")) Dim AR As String, AT As String AT = sR.ReadToEnd NN = NN + 指定文字数 AR = Strings.Mid(AT, NN, 指定文字数) TextBox1.Text = AR sR.Close() 文字列は(Shift_jis）型のようです。データの無い部分にはスペースが含まれています。これが原因かは分かりませんが　 Left関数や、Mid関数を利用して分割する方法では文字数がずれてしまいます。 Textpad等のテキスト編集アプリを利用して文字数を調べたところ文字数と桁数に違いがあるようです。文字数と桁数の違いに何かあるような気がするのですが検索してもそれらしきがみつかりません。 LenやLengthで全体の文字数を調べてみたところ全体の文字数もずれているようです。(指定文字数の倍数にならない。TextPadで調べた桁数と1違います。) .DATという拡張子ですが、送られてくるデータがDATという拡張子で送られてくるため原因かもしれないのでそのままにしています。指定文字数ごとに分割することは可能なのでしょうか。可能であればどのような方法でもいいのでご教授ください。よろしくお願いします。
32進数の文字に＋1カウントした値の取得

Access(vba)で32進数の値に＋１カウントした結果を取得したいと考えています。引数、戻り値とも32進数の値の独自関数を作りたいです。例） 11AF00　⇒　11AF01 11AF0Z　⇒　11AF10 11AFZZ　⇒　11AG00 下記のコードを途中まで考えましたが、繰り上がりとか考えてると？？？になってしまいました。どなたかご教授お願いします。 Public Function P36進数カウント(str As String) Const alpha = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim i As Integer Dim keta As Integer keta = Len(str)　　　←桁数分LOOPするとか考えたのですが、ギブアップです。　　Mid(str, i, 1) = Mid(alpha, InStr(alpha, Mid(str, i, 1)) + 1, 1) End Function
テキストボックス内の文字数

具体的にはパワーポイント内の総文字数を知りたいのですが、現在、各テキストボックスからワードにコピペして（D&D)、ワードの文字カウント機能を使って文字数を出しています。もっと効率の良い方法をご存じでしたら是非教えてください！ PPTには、アウトラインはなく、テキストボックスとグラフのみで、送信→ワードも使えません。原始的な作業がこの暑さにはつらいです！よろしくお願いします！！！
ExcelVBAで

EXCEL VBAの開発をしております。標準モジュールから、シート内のコンボボックスやテキストボックスに値を書き込みたいときは、プログラム上、どのように書けばよいのでしょうか？シート内のモジュールなら、ダイレクトにオブジェクト名を書けますが。すみません、初心者なもので・・・。
EXCEL文字数制限

EXCEL文字数制限 EXCELの文字制限ですが制限方法はわかったのですが例）100文字制限にして=LEN(D5)-100　「D5は入力するセル」セルに－100と表示。上記の－100を「あと100文字入力できます」みたいな設定はできるのでしょうか？以上、わかる方教えて下さい。
エクエル/ASCで半角化すると文字数が増える！？

エクセル200です。全角カタカナで濁点や半濁点があるものをASC関数で半角化すると、文字数が増えます！？たとえば =LEN("パパ")　は2を返しますが、=LEN(ASC("パパ"))　は4を返します。なぜなの？

ExcelVBA：同じ文字の数を調べるプログラム

みんなの回答

お礼 2007/12/14 18:50

関連するQ&A

ExcelVBA：特殊文字の判定

ExcelVBA：テキストボックス上のカーソルを動かして選択範囲を指定したときに判定するプログラム

テキストボックスに表示できる文字数は

エクセル　2007/5/23の文字数が９文字としてカウントされないのはなぜ？

ExcelVBAのテキストボックスのデータ型

文字数の取得方法(Active Basic 4)

ExcelVBAで文字列の制御をしたいのですが

ExcelVBAでテキストボックスに入力制限をする方法

excelVBAで、Midの引数をLenで指定できる？

文字数による移動

テキストボックスの文字数制限について

ExcelVBAでデータ型を判定し、エラー値を返すプログラム

文字数と単語数を数えるプログラム

ワードの文字数カウントについて

VB2008の文字列の操作について

32進数の文字に＋1カウントした値の取得

テキストボックス内の文字数

ExcelVBAで

EXCEL文字数制限

エクエル/ASCで半角化すると文字数が増える！？

注目のQ&A

カテゴリ
一覧

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

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

ExcelVBA：同じ文字の数を調べるプログラム

みんなの回答

お礼 2007/12/14 18:50

関連するQ&A

ExcelVBA：特殊文字の判定

ExcelVBA：テキストボックス上のカーソルを動かして選択範囲を指定したときに判定するプログラム

テキストボックスに表示できる文字数は

エクセル 2007/5/23の文字数が９文字としてカウントされないのはなぜ？

ExcelVBAのテキストボックスのデータ型

文字数の取得方法(Active Basic 4)

ExcelVBAで文字列の制御をしたいのですが

ExcelVBAでテキストボックスに入力制限をする方法

excelVBAで、Midの引数をLenで指定できる？

文字数による移動

テキストボックスの文字数制限について

ExcelVBAでデータ型を判定し、エラー値を返すプログラム

文字数と単語数を数えるプログラム

ワードの文字数カウントについて

VB2008の文字列の操作について

32進数の文字に＋1カウントした値の取得

テキストボックス内の文字数

ExcelVBAで

EXCEL文字数制限

エクエル/ASCで半角化すると文字数が増える！？

注目のQ&A

カテゴリ 一覧

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

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

エクセル　2007/5/23の文字数が９文字としてカウントされないのはなぜ？

カテゴリ
一覧

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