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

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

[[20080227155334]]: #score: 4286; @digest: fb25c03480b1706402e96676e1e3a381; @id: 36405; @mdate: 2008-02-28T08:40:05Z; @size: 4206; @type: text/plain; #keywords: ーァ (20578), 角カ (11183), ア- (10338), ンー (8350), ッ]+ (7748), ァ]+ (7748), カナ (7050), カタ (6560), 語入 (6092), 力] (5890), タカ (5758), ジ] (5237), 全角 (3538), 本語 (2324), ナの (2238), 弥太 (2090), 半角 (2012), 角、 (1955), 記: (1931), 日本 (1866), 力規 (1805), 規則 (1662), ーメ (1613), pattern (1580), target (1464), enableevents (1396), 類: (1371), vbscript (1334), 用意 (1289), （弥 (1032), タブ (1004), 入力 (939); 『セルの入力設定』（teru）
セルの入力をカタカナで固定するにはどうしたらよいでしょうか?? ---- 入力規則の日本語入力? カタカナ全般でなく全角、半角で分かれるようですが。 BJ ---- 日本語入力半角、全角両方教えて欲しいです。すみません・ ---- 全角カタカナにしても、半角カタカナや英数字は入力できてしまいますね。他はこれといった方法が思いつきません、というか解りません。すみません。 BJ ---- 入力規則の数式自体に長い式を入れる方法もあるようですがここではD,E列にリストを用意してvlookupを利用します。D,E列は一つの例です。 D E 1 アア 2 イイ 3 ウウ 4 エエ 5 オオ 6 カカ 7 キキ 8 クク以下、ワヲンまで用意し、濁音や長音も必要ならそれらも用意。 入力規則を設定する範囲を選択して（例えばA1:A10）データメニューから[入力規則]→[設定]タブで入力値の種類:ユーザー設定数式の欄に: =A1=VLOOKUP(A1,$D$1:$D$46,1,0) ↑vlookupの範囲は全角カタカナのリストの範囲に適宜修正 OKボタン。この時「数式はエラーと判断されます。続けますか?」と出るので「はい」を選択。もう一度[入力規則]から[エラーメッセージ]タブで「タイトル」や「エラーメッセージ」を設定。 [日本語入力]タブで「全角カタカナ」選択して OK 半角カタカナも別列に同様手順で設定しvlookupの範囲を修正。 [エラーメッセージ]以下も半角用に設定。全角、半角を分けないのならリストを一列にまとめる。この場合、[日本語入力]タブでの設定は全角、半角2つ同時の設定はできないようです。あいうえお...等のひらがなもリストを用意すれば同じように出来ると思います。 入力規則はあまり使わないし、簡単に試しただけですが、とりあえずこれで規則設定出来るようです。どっかで不具合が出たらスミマセン。（jun53） ---- やはりダメなようです。一文字入力に限定されるようです。他の方の回答をお待ちください。ごめんなさい。（jun53） ---- 実用的でないかもしれまへんが、こんな方法はあります。全角カタカナのばやいです。 \Sheet1/（そのシートのですヨ）シートタブを右クリック→コードの表示→下のコードをコピペ戻ってA列に何か入力してみてくらはい。(A列限定になってます）（弥太郎） '----------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub With CreateObject("vbscript.regexp") .Pattern = "^[ア-ンーァヴ]+$" '訂正 If Not .test(Target) Then Application.EnableEvents = False MsgBox "全角カナしか入力でけまへん" Target = "" Target.Select Application.EnableEvents = True Exit Sub End If End With End Sub ---- あっ、ラーメンが・・・^^ ていせぇ、ていせぇ（汗（弥太郎） ---- ついでに半角カナのみの分も。両方OKのばやいは、[ の中に両方を書き込みます。注意すべきは同じシートでチェンジイベントは一シート一つに限られます。（弥太郎） '----------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub With CreateObject("vbscript.regexp") .Pattern = "^[ア-ンﾞﾟーァ-ョッ]+$" If Not .test(Target) Then Application.EnableEvents = False MsgBox "半角カナしか入力でけまへん" Target = "" Target.Select Application.EnableEvents = True Exit Sub End If End With End Sub ---- .Pattern = "^[ア-ンーァ]+$ としないと全角カナの小文字のアが入らないのは私だけでしょうか? ィ〜ォは入るのに。。。（dack） ---- dackはん、検証おおきに〜^^。ほんまでんなぁ。ほかにも不具合があるかもしれまへん。（汗もちょっと試してみますワ。（弥太郎） ---- 出てきた出てきた。ヴァージニアのヴがヒットしまへん。追加しときまっさ。（弥太郎） ---- 横から失礼シート全体を反転させて「データ」「入力規則」「日本語入力」から「全角カタカナ」を指定したあとに「ツール」「保護」「シートの保護」等で保護してしまえば他人が打つときには全角カタカナになりそうですがこんな単純では駄目? （やまもと）追記:すいません。「ツール」以下は忘れてください。<m(__)m>勘違いですさらに追記:上の方にちゃんと記述がありましたね。読み飛ばしてしまいました。失礼しました ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200802/20080227155334.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ