エクセルで列ごとに半角、全角が自動的に切り替わる方法ありませんか

質問

エクセルである列に全角で名前を打ち込んだ後に隣の列に半角数字を打ち込み、その隣の列にまた半角、そして次の列に半角で打ち込むといった作業をする場合に、いちいち全角半角を切り替えなくても列ごとにこの列は半角で打ち込め、次の列は全角といったふうに指定しておくことはできますでしょうか？
何か方法がありましたら教えて頂けたら幸いです。

回答No.3

ASIMOV · ベストアンサー

＞日本のバージョンではないらしいです

下記のマクロは、日本語バージョンで作成したものですが
これが、正常に動くのであれば、可能性があります
動かなければ、そのエクセルでは無理かもしれません
（一応、A1セルが「ひらがな」、B1セルが「カタカナ」になれば正常）
--------------------------------------
Sub Macro1()
　　Range("A1").Select
　　With Selection.Validation
　　　　.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
　　　　:=xlBetween
　　　　.IMEMode = xlIMEModeHiragana
　　End With
　　Range("B1").Select
　　With Selection.Validation
　　　　.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
　　　　:=xlBetween
　　　　.IMEMode = xlIMEModeKatakana
　　End With
End Sub

お礼

ありがとうございました。
こちらのマクロも試して見ましたがだめでした。
他のパソコンだと動くのですが、今使っているものでは動きません。
やはり日本語入力規則がもともとついていないものはダメなのでしょうか。。

回答No.2

gyouda1114

データ→入力規則→日本語入力→半角英数

お礼

ありがとうございます。
これでやろうと思ったのですが、どうやら日本語入力のタブがもともと入っていないみたいで。。（日本のバージョンではないらしいです）
他の方法は何かありますでしょうか？？

回答No.1

kozai00

こんばんわ。
お尋ねの件でしたら入力規制を使われたらいかかでしょうか？
列ごとにデータ→入力規制→日本語入力→半角英数あるいは全角英数と設定しておけば一度ずつ切り替えることはありません。

頑張ってくださいね。

お礼

ありがとうございます。
試してみたのですが、日本語入力のタブがなくどうやらもともと入っていないタイプのものみたいです。
他に何か方法はないのでしょうか