エクセルの学校：全文検索：Hyper Estraier：入力規則

Results of 1 - 1 of about 2818 for 入力規則 (0.005 sec.)

[[20051111110846]]: #score: 4284; @digest: 4adda16a77355e0279f5b0e00546f5f7; @id: 18129; @mdate: 2005-11-11T23:28:19Z; @size: 3336; @type: text/plain; #keywords: 日pm (33113), 英字 (13840), pm5 (12932), 角英 (12259), 力限 (11543), 角小 (7778), 大文 (7599), 小文 (6570), 当難 (5390), 全角 (5305), 字→ (5057), 字, (4210), 英数 (3314), 換ソ (2873), 力時 (2624), 字） (2582), 半角 (2458), 語入 (2436), に制 (2248), 制限 (2231), 角に (1807), 月1 (1732), ）→ (1700), 今日 (1643), （全 (1559), 〜a1 (1507), 文字 (1350), 動変 (1278), 変換 (1223), 角で (1192), の小 (1186), 力規 (1030); 『[かな/英数字]をすべて全角になるように制限』（みどかえる）
[ひとつのセルに「かな/英数字」をすべて全角になるように制限をする方法] セル（例えばA3〜A10）に「富士山-H12」といった「かな」や「英数字」をすべて全角で入力できるように制限したいと思っています。想像では、誤って半角や小文字で入力しちゃっても自動で全角に変換される用にしたいのですが、自分では限界がありVBAを作ることが出来ませんでした。ぜひご教示下さい。よろしくお願い致します。 [Excel2003またはExcel2000,Windows2000] ---- A3〜A10に入力規則を設定します。データ-入力規則-日本語入力、ダイアログで日本語入力モードを設定します。 (DAI) ---- DAIさん回答有難うございます。早速入力規則で行ってみました。確かに全角で入力できるようになりました! ですが新たな問題に気づいたのですが小文字を大文字に制限（もしくは変換）することは出来ませんでした。セル（例えばA3〜A10）に全角で、更に英字は大文字に入力限定する・・・（もしくは自動変換）ができるようにするにはどうすればいいのでしょうか? すみませんがお教えいただけますか? よろしくお願い致します。（みどかえる） ---- 質問です。 >小文字を大文字に制限（もしくは変換）することは出来ませんでした。 >セル（例えばA3〜A10）に全角で、更に英字は大文字に入力限定する @ a（全角英字の小文字）→A（全角英字の大文字） A a（半角英字の小文字）→A（半角英字の大文字） B 半角英字→全角英字どれを想定していますか。 (DAI) ---- 説明が下手ですみません。ごめんなさい。はじめの質問時と内容が少し異なってしまうかもですが様は例）→ 今日は1月1日PM5:00 ・・・・（すべて全角、大文字）と漢字と英数字を同じセルに入れる場合、この時人によっては今日は1月1日PM5:00 ・・・（PMが半角になっちゃってる）今日は1月1日PM5:00 ・・・（数字が半角になっちゃってる）今日は1月1日pm5:00 ・・・（PMが半角小文字になっちゃってる）今日は1月1日pm5:00 ・・・（PMが全角小文字になっちゃってる）って異なります。この時どんなに上記のようなかたちで入力をしても、自動で今日は1月1日PM5:00 とすべて全角の大文字で変換されるようにしたいのです。ですので @ a（全角英字の小文字）→A（全角英字の大文字） A a（半角英字の小文字）→A（半角英字の大文字） B 半角英字→全角英字すべて対応できる形が理想です。的確に質問できなくて本当にごめんなさい。よろしくお願い致します。（みどかえる） ---- 「入力時に自動的に」ということですから、相当難しいと思います。（例えば、ATOKみたいな変換ソフトをつくるということになると思います。）英数は、入力規則を設定しておいて、CapsキーをLockしておけば全角大文字になると思いますが、入力時の変換操作でいかようにもなってしまいますから、入力時に注意するしかないと思います。ギブアップの(DAI) ---- 「入力時に自動的に」でなく,小文字,半角で入力しても,別セルに大文字,全角にする,ってことでは,マズイのですよね・・・・ (...) ---- こういうのはいかがですか? Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False With Target.Cells(1, 1) If (Len(.Text)) > 0 Then If IsNumeric(.Value) Or IsDate(.Value) Then .Value = .Text .NumberFormat = "@" End If txt = .Text .Value = StrConv(txt, vbWide) End If End With Application.EnableEvents = True End Sub (seiya) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200511/20051111110846.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ