ユーザーフォームの入力時のマクロについて

質問

いつもお世話になります。

Windows7 excell2010 です。
今まさにVBAをやり出してあまりわかっていませんが下記のようにまでになったところです。

ご指導をいただきたいのは、
参照図にあるUserForm1に入力するとき、
「日付」　ime が　半角数値
「顧客名」ime が　ひらがな
「売上」　ime が　半角数値
を自動的にする　マクロ　を記述したいです。

ご指導いたたければ幸いです。

下記のようなマクロが記述されています。
※UserForm1 コード表示
Private Sub CommandButton1_Click()
n = 1
Do
n = n + 1
Loop While Cells(n, 1) <> ""
Cells(n, 1) = UserForm1.TextBox1.Text
Cells(n, 2) = UserForm1.TextBox2.Text
Cells(n, 3) = UserForm1.TextBox3.Text
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End
End Sub
※標準モジュール
Sub FormSample()
Do
UserForm1.Show
Loop
End Sub

Sub Test()
MsgBox "ボタンによるマクロの実行"
End Sub

回答No.2

mi-tan · ベストアンサー

ＩＭＥの設定だけなら、
ＶＢＥのプロパティウィンドウで各オブジェクトに
設定するのはいかがでしょうか？

お礼

コードとプロパティの両方で設定ましたら「TRUE」が表示され
その後試行錯誤の結果、プロパティのみに設定するとうまくゆきました。
誠に有難うございました。

補足

ご指導いただいて下記のようにしました。
※プロパティ
Cells(n, 1)の所 fmIMEModeAlpha
Cells(n, 2)の所 fmIMEModeHiragana
Cells(n, 3)の所 fmIMEModeAlpha
※コード
Private Sub CommandButton1_Click()
n = 1
Do
n = n + 1
Loop While Cells(n, 1) <> ""
Cells(n, 1) = UserForm1.TextBox1.IMEMode = fmIMEModeAlpha
Cells(n, 2) = UserForm1.TextBox2.IMEMode = fmIMEModeHiragana
Cells(n, 3) = UserForm1.TextBox3.IMEMode = fmIMEModeAlpha
Unload Me
End Sub

変更しましたがいずれの場合も
入力したセルには　TRUE と表示されます。
パソコンのデスクトップのIMEツールバーは確かに変わります。

再度ご指導いただけませんか。

回答No.1

kybo

TextBox1が日付、TextBox2が顧客名、TextBox3が売上だとすると、

TextBox1.IMEMode = 2
TextBox2.IMEMode = 4
TextBox3.IMEMode = 2

の様にします。

お礼

プロパティは　ノーコントロールに設定して試しましたがうまくゆきませんでした。
ご指導には感謝します。
ありがとうございました。

補足

ご指導いただいて下記のようにしました。
※プロパティ
Cells(n, 1)の所 fmIMEModeAlpha
Cells(n, 2)の所 fmIMEModeHiragana
Cells(n, 3)の所 fmIMEModeAlpha
※コード
Private Sub CommandButton1_Click()
n = 1
Do
n = n + 1
Loop While Cells(n, 1) <> ""
Cells(n, 1) = UserForm1.TextBox1.IMEMode = fmIMEModeAlpha
Cells(n, 2) = UserForm1.TextBox2.IMEMode = fmIMEModeHiragana
Cells(n, 3) = UserForm1.TextBox3.IMEMode = fmIMEModeAlpha
Unload Me
End Sub

変更しましたがいずれの場合も
入力したセルには　TRUE と表示されます。
パソコンのデスクトップのIMEツールバーは確かに変わります。

再度ご指導いただけませんか。