• ベストアンサー

VBA テキストボックス内の文字列を切り出したい

フォームのテキストボックスに入力した文字列の一文字目だけを 切り出し、変数に格納したいのですが、 切り出す作業がどうしてもできません。 よろしくお願い致します。

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

  • ベストアンサー
  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.1

こういうことですか? Dim wk As String wk = Left(UserForm1.TextBox1.Text, 1) MsgBox(wk) それとも、マクロを「どこに記述すればよいか」というご質問でしょうか それであればForm画面右クリック→コードの表示で開く画面です Private Sub TextBox1_Change()  MsgBox (Left(UserForm1.TextBox1.Text, 1)) End Sub

jiji0721
質問者

お礼

ご回答ありがとうございました。 まさに上記の記述のことでした。 Left(TextBox1, 1) で記述してたので、できませんでした。 本当にありがとうございました。

関連するQ&A

  • VBAのテキストボックスに文字列を貼り付ける方法

    こんにちは エクセルのVBAのユーザーフォーム上に作ったテキストボックスに 他でコピーした文字列(または数値)を貼り付け(ペースト)たいのですが、 テキストボックスのプロパティの項目のどれかを設定すれば可能でしょうか? 現状ではここで、右クリック自体できなくなっています。 使っているのはエクセル2000です。

  • エクセル・VBAでテキストボックスに入力された文字を

    エクセル・VBAでテキストボックスに入力された文字を B列から検索し、結果をユーザーフォームのリストbox に表示したいのですがうまくいきません 検索は部分一致・大文字小文字無視で行いたいです よろしくお願いします

  • VBAのテキストボックスについて

    VBAで作成したユーザーフォームのテキストボックスの中にhtmlのソースを貼り付けて、そのソースの中のtableタグ中から数値を取り出してそれぞれのセルに出力したいと考えていますが、そのようなことはできるのでしょうか。 自分である程度考えているのですが、なにぶん始めたばかりなのものですから、テキストボックス内の文字列をどう処理すればよいのかわかりません。 よろしければ教えてください。

  • VBA テキストボックスの改行

    現在、テキストボックスに入力された文字列を セルに入力するプログラムを作っています。 その際、テキストボックス内で あいうえお[改行] かきすけこ と入力された場合、 セル[A1]あいうえお セル[A2]かきすけこ としたいのですが何か方法はありますか? 回答よろしくお願い致します。

  • Access2010 VBAで文字を数える

    あるデータベースのフォーム内で、テキストボックス内に記載のある任意の文字列の数を数えて変数に格納したいと考えています。 そして、コマンドボタンを押したときに、メッセージボックスで「○件選択しています。」のように表示されるようにしたいと考えています。 色々と検索してみて以下のような記述をしたのですがうまく動いてくれませんでした。(「コンパイルエラー: SubまたはFunctionが定義されていません。」と表示されます。) Dim A As Integer A = Len([txtbox]) - Len(SUBSTITUTE([txtbox], ","))   MsgBox(A & "件の選択しています。") なお、テキストボックス、コマンドボタンは同一のフォーム内においてあります。 また、テキストボックス内で検索したい文字は半角カンマです。 詳しい方がおりましたら、どうぞご教示ください。

  • VBA テキストボックスで日付を変更するとエラー

    VBAにて、ユーザーフォーム上のテキストボックスに初期値として今日の日付が入力されており、さらにそれを任意で変更するというマクロを作成しようとしています。 'テキストボックス2に初期値として今日の日付を入力 Private Sub UserForm_Initialize() TextBox2.Text = Format$(Date, "yyyy/mm/dd") End Sub 'テキストボックス2に入力された日付はdenpyoudateという変数に格納される Private Sub TextBox2_Change() denpyoudate = UserForm2.TextBox2.Value End Sub 入力された日付を変数として利用したいので、上記のようなコードにしたのですが、実際に初期値である今日の日付を編集すると「型が一致しません」というエラーが出てしまいます。 このエラーを回避し、テキストボックスに入力された日付を変数として使用するにはどうすればよいでしょうか?

  • テキストボックスに変数を表示させたい

    access2003です。 フォーム1にテキスト0を配置し vbaで Private Sub Form_Open(Cancel As Integer) Dim 文字列 As String 文字列 = "a" End Sub と作成しました。 このときフォーム1をダブルクリックして開いた時に テキスト0に文字列に代入した変数を表示させるにはどうすればいいのでしょうか? テキスト0のコントロールソースに =[文字列] とやっても #Name? になってしまいます。 どうすれば読み取った変数をテキスト0に表示させることが可能なのでしょうか? よろしくお願い致します。

  • テキストボックスにフォーカスを当てる?

    こんばんは,すみませんよろしくお願いします。 テキストボックスにフォーカスを当てるには,例えば, TextBox1.SetFocus のようにするんだと思うのですが,テキストボックスに初期値が設定されていたときには,上記のようにすると,初期値のテキストの右側に線のようなポインタがテキストコントロール内にでてきます。 しかし,このような状態では,いったん初期値を消さないと,別の値に書き換えることは出来ません。 テキストコントロール内に初期の値として,何らかのテキストが入力されているとき,文字列が選択された状態になっていれば,即,別の値を入力することが出来ますので,ユーザーフォームをshowしたときに,テキストボックス内の初期値 (例えば,「ここに名前を入力してください」などの文字列) を選択した状態にしたいのです。どのようにすれば良いのでしょうか?何度もすみません。

  • テキストボックスフォームフィールドについて

    稟議書のテンプレートを作るのに、テキストボックスフォームフィールドのabボタンを使って入力フォーマットを作ってくれと言われて、ワードの本などでテキストボックスフォームフィールドを調べていますが、本にも、なかなか載っていなくて・・・フォームをダブルクリックすると、ダイアログボックスが出て、既定の文字列などでてきますが、入力してもらう時は、それぞれ、ダブルクリック後ダイアログボックスの既定の文字列に入力してもらうのでしょうか?いまいち使い方がよくわかりません。この機能を使うと、マルマル年マルマル月マルマル日などの年 月 日 がずれずに、入力できるそうなのですが、どのようにabボタンを使い フォームを使って、テンプレートを作り、第三者が入力していけばいいのでしょうか?教えてください。

  • VBA フォームのテキストボックス 1文字検索

    お世話になります。 フォーム上にあるテキストボックスに 文字列を入力したら、リスト?が出るようにしたいです。 シート1のA列に名前リストがあり、 そのリストを参照して、1文字入力したら候補が表示されるよう 組みたいと思っています。 シート1 田中 麻美 佐藤 たける 加藤 美佐 佐々木 瞳 竹井 まどか 木村 かりん 木村 ひろし 佐藤 圭 菊地 美優 田中 麻美 佐藤 たける 加藤 美佐 佐々木 瞳 竹井 まどか 木村 かりん 木村 ひろし 佐藤 圭 菊地 美優 ------------- 上記のようなリストがあったとします。 (リスト内で必ず重複します。) 木 と入力したら、 木村かりん、木村ひろし という候補が出て欲しいと思っています。 http://d.hatena.ne.jp/language_and_engineering/20081125/1227571724 ワークシート上でのプログラムは 上記リンクを参考にすればできるかとは思うのですが、 フォーム上ではできないでしょうか? また、コンボボックスならやり方は何となくわかりますが、 どうしても、テキストボックスでやりたいと思っています。 テキストボックスでも可能かどうか、教えて下さい!

専門家に質問してみよう