Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7547 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38147】文字の指定 みさこ 06/5/27(土) 17:25 質問[未読]
【38148】Re:文字の指定 ぱっせんじゃー 06/5/27(土) 17:35 発言[未読]
【38153】Re:文字の指定 Ｈｉｒｏｓｈｉ 06/5/27(土) 20:33 発言[未読]
【38358】Re:文字の指定 Ｍｉｋｉｋｏ 06/5/31(水) 21:52 質問[未読]
【38361】Re:文字の指定 ぱっせんじゃー 06/5/31(水) 22:05 発言[未読]
【38369】Re:文字の指定 漂流民 06/5/31(水) 23:33 発言[未読]
【38370】Re:文字の指定 Mikiko 06/6/1(木) 6:43 お礼[未読]
【38147】文字の指定
質問  みさこ  - 06/5/27(土) 17:25 -
引用なし
パスワード
   テキストボックスに文字を入力する際
テキスト漢字←ひらがな入力
テキストカタカナ←カタカナ入力
テキスト数字←数字入力
と、入力する文字をあらかじめ指定することはできますか？

よろしくおねがいします。
【38148】Re:文字の指定
発言  ぱっせんじゃー  - 06/5/27(土) 17:35 -
引用なし
パスワード
   プロパティに
IMEMode
というのがあります。

そこでいろいろ設定できます。
【38153】Re:文字の指定
発言  Ｈｉｒｏｓｈｉ  - 06/5/27(土) 20:33 -
引用なし
パスワード
   ▼みさこ さん

横からごめんなさい。私も知りたいのですが･･･
IMEModeのナンバー指定でできるのですが･･･
４は「ひらかな」５は「カタカナ」８は「半角英数字」で出来ますが、コードの書き方が分からないのです。私なりに書きましたが、どなたか４･５･８が順次選択できるようにコードに書き直していただけませんんでしょうか。


>テキストボックスに文字を入力する際
>テキスト漢字←ひらがな入力
>テキストカタカナ←カタカナ入力
>テキスト数字←数字入力
>と、入力する文字をあらかじめ指定することはできますか？

Private Sub CommandButton1_Click()
i = 4
TextBox1.IMEMode = i　　'４は「ひらかな」５はカタカナ８は半角英数字
Cells(65536, 4).End(xlUp).Offset(1) = TextBox1.Value

TextBox1 = ""
TextBox1.SetFocus

End Sub
【38358】Re:文字の指定
質問  Ｍｉｋｉｋｏ  - 06/5/31(水) 21:52 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：

>プロパティに
>IMEMode
>というのがあります。
>
>そこでいろいろ設定できます。

ヒントを頂き、理解できましたが、順次変換を変えていくことはできるのでしょうか。
【38361】Re:文字の指定
発言  ぱっせんじゃー  - 06/5/31(水) 22:05 -
引用なし
パスワード
   こんばんは。

Hiroshiさん、Mikikoさんとも「順次」の意味が
不明確で、回答しようにも回答できないのが現状
です。

もう少し「順次」の意味を分かりやすく説明して
いただけますか？
【38369】Re:文字の指定
発言  漂流民  - 06/5/31(水) 23:33 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
こんばんわ

>Hiroshiさん、Mikikoさんとも「順次」の意味が
>不明確で、回答しようにも回答できないのが現状
>です。
>
>もう少し「順次」の意味を分かりやすく説明して
>いただけますか？
確かに、よく分からないですね。

そのまま、「順次」というのを言葉通り、
”順序通りに”、”順番に”という意味で捉えれるのであれば、

【38153】Re:文字の指定　Ｈｉｒｏｓｈｉ さん：
のを元にするとこういう事かも・・・
（ハズしてたらすいません）

'===============================================================================

Private Sub UserForm_Initialize()

　　TextBox1.IMEMode = 4

End Sub

Private Sub CommandButton1_Click()
　　Dim i As Integer
　　
　　i = TextBox1.IMEMode
　　TextBox1.IMEMode = i　　'４は「ひらかな」５はカタカナ８は半角英数字
　　Cells(65536, 4).End(xlUp).Offset(1) = TextBox1.Value
　　
　　TextBox1 = ""
　　TextBox1.SetFocus
　　
　　If TextBox1.IMEMode = 4 Then
　　　　TextBox1.IMEMode = 5
　　ElseIf TextBox1.IMEMode = 5 Then
　　　　TextBox1.IMEMode = 8
　　ElseIf TextBox1.IMEMode = 8 Then
　　　　TextBox1.IMEMode = 4
　　End If
　　
End Sub

'===============================================================================
【38370】Re:文字の指定
お礼  Mikiko  - 06/6/1(木) 6:43 -
引用なし
パスワード
   ▼漂流民 さん：
▼ぱっせんじゃー さん：

朝から感動です。ありがとう御座いました。
表現が曖昧で失礼しました。
よく分かりました。Initializeの使い方に感心しました。
いちいちプロパティで設定していました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7547 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free