Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11765 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14282】郵便番号のハイフン トミ 04/5/25(火) 15:06 質問[未読]
【14283】Re:郵便番号のハイフン IROC 04/5/25(火) 15:17 回答[未読]
【14286】Re:郵便番号のハイフン トミ 04/5/25(火) 15:27 発言[未読]
【14285】Re:郵便番号のハイフン ちゃっぴ 04/5/25(火) 15:22 回答[未読]
【14304】Re:郵便番号のハイフン トミ 04/5/25(火) 16:49 発言[未読]
【14305】Re:郵便番号のハイフン ちゃっぴ 04/5/25(火) 16:53 回答[未読]
【14282】郵便番号のハイフン
質問  トミ  - 04/5/25(火) 15:06 -
引用なし
パスワード
   教えてください。

ユーザフォーム上で名簿一覧表を作成しています。
郵便番号を入力するTextBoxが一つあります。
maxlengthで7桁まで入力可として設定してあります。
ユーザフォームを起動後、TextBox内の3桁、4桁目にハイフンを
表示・固定させる方法はあるのでしょうか？

TextBox内でxxx-xxxxと可能な場合、ハイフンを外したxxxxxxx　7桁数字だけ
を指定セル内へ登録したいと考えています。
コンボボックス使用。セルH列へ登録。

お願いいたします。
【14283】Re:郵便番号のハイフン
回答  IROC  - 04/5/25(火) 15:17 -
引用なし
パスワード
   >ハイフンを外したxxxxxxx　7桁数字だけを指定セル内へ登録したいと考えています。

であれば、

>maxlengthで7桁まで入力可として設定してあります。

だけで良いのでは？

ハイフンが入る必要はないですよね？
【14285】Re:郵便番号のハイフン
回答  ちゃっぴ  - 04/5/25(火) 15:22 -
引用なし
パスワード
   >ユーザフォームを起動後、TextBox内の3桁、4桁目にハイフンを
>表示・固定させる方法はあるのでしょうか？

TextBoxを2つに分割してラベルで"-"を表示させる方が簡単では？
【14286】Re:郵便番号のハイフン
発言  トミ  - 04/5/25(火) 15:27 -
引用なし
パスワード
   IROC さん

返答ありがとうございます。

今の現状でも問題はありませんが、
個人で使用するわけではなく、他大勢で使用したいと考えている為、見栄えを
良くしたいこと。
ユーザフォーム上の指定TextBox郵便番号から住所検索をかけたいこと。

ハイフンがあった方が良いのではないかと考えた次第です。
【14304】Re:郵便番号のハイフン
発言  トミ  - 04/5/25(火) 16:49 -
引用なし
パスワード
   ちゃっぴ さん
返信ありがとうございます。

>>ユーザフォームを起動後、TextBox内の3桁、4桁目にハイフンを
>>表示・固定させる方法はあるのでしょうか？
>
>TextBoxを2つに分割してラベルで"-"を表示させる方が簡単では？

2つにする方法も考えました。
仮にTextBoxA、TextBoxBを作成したとして、普通に7桁の数字を連続で
入力する事は可能でしょうか。

Tab移動、マウスでカーソル移動という事を避けて入力できる方法を
探しています。
イメージ的に思いついたのは、一つのTextBoxの中にハイフンを自動的に
固定させる方法だと思ったからです。

後、郵便番号で住所検索もできる機能を追加したいと考えております。
【14305】Re:郵便番号のハイフン
回答  ちゃっぴ  - 04/5/25(火) 16:53 -
引用なし
パスワード
   >Tab移動、マウスでカーソル移動という事を避けて入力できる方法を
>探しています。

TabIndexとMaxLengthプロパティを設定しておいて
AutoTabをTrueにすれば出来ると思いますが･･･
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11765 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free