Excel VBA質問箱 IV

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

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


7546 / 13644 ツリー ←次へ | 前へ→

【38147】文字の指定 みさこ 06/5/27(土) 17:25 質問[未読]
【38148】Re:文字の指定 ぱっせんじゃー 06/5/27(土) 17:35 発言[未読]
【38153】Re:文字の指定 Hiroshi 06/5/27(土) 20:33 発言[未読]
【38358】Re:文字の指定 Mikiko 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:文字の指定
発言  Hiroshi  - 06/5/27(土) 20:33 -

引用なし
パスワード
   ▼みさこ さん

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


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

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

TextBox1 = ""
TextBox1.SetFocus

End Sub

【38358】Re:文字の指定
質問  Mikiko  - 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:文字の指定 Hiroshi さん:
のを元にするとこういう事かも・・・
(ハズしてたらすいません)

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

Private Sub UserForm_Initialize()

  TextBox1.IMEMode = 4

End Sub

Private Sub CommandButton1_Click()
  Dim i As Integer
  
  i = TextBox1.IMEMode
  TextBox1.IMEMode = i  '4は「ひらかな」5はカタカナ8は半角英数字
  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の使い方に感心しました。
いちいちプロパティで設定していました。

7546 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free