急にひらがなが入力出来なくなりました。
小文字の英語しか入力できません。どうしたらよいのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

k_ebaさんに加えて、


無変換キーとか前候補とかのスペースキーの周りのキーを押しませんでした?
    • good
    • 0

単純な回答で済みません。


半角/全角キーかaltキー+半角/全角キーを押すと入力出来ませんか?
何かあれば補足して下さい。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QエクセルVBA 文字を入力したら右へ移動 文字を入力せずにエンターを押しても右へ移動させたい

以前こちらで教えていただき、
以下のように文字を入力したら、右へ移動するようにしました。

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveCell.Offset(-1, 1).Select '入力をしたら右にセルが移動する

End Sub


上記コードでは、deleteを押すと セルが、右上に移動してしまって
困っています。
そこで、以下のようにしてみました。
Private Sub Worksheet_Activate()

Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End Sub

すると、今度は、別のエクセルデータを開いても右へセルが移動してしまい、
その都度オプションでカーソルの移動を下へ変更しなければいけなくなってしまいました。

やりたいことは、
決められた一つのファイルでのみ、エンターを押す、もしくは文字を入力する、DELETEを押す
上記の作業の後、セルが右へ1つ移動するというようにしたいのですが、
どのようにしたらよいでしょうか?

以前こちらで教えていただき、
以下のように文字を入力したら、右へ移動するようにしました。

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveCell.Offset(-1, 1).Select '入力をしたら右にセルが移動する

End Sub


上記コードでは、deleteを押すと セルが、右上に移動してしまって
困っています。
そこで、以下のようにしてみました。
Private Sub Worksheet_Activate()

Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End ...続きを読む

Aベストアンサー

こんにちは。

既存のApplication.MoveAfterReturn、Application.MoveAfterReturnDirection
を扱う記述やWorksheet_Changeイベント等すべてを排除した上で、
ThisWorkbook モジュールに以下の記述を貼り付けます。
この方法であれば、
 ブックを閉じた後、
 同時に開いた他のブックで作業する時、
既定の下方向へのカーソル移動へと設定を戻します。
コードを貼付けた直後は、Workbook_WindowActivate
が呼び出されるまで何もしませんから、
最初だけ、
Application.MoveAfterReturnDirection = xlToRightを別の方法で実行するか、
他のブックを開いて、アクティブブックを切り替える等して試してください。
尚、Application.MoveAfterReturnは変更する必要のないプロパティです。


' ' /// ThisWorkbook モジュール
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  Application.MoveAfterReturnDirection = xlDown
End Sub
' ' ///


> 決められた一つのファイルでのみ、エンターを押す、もしくは文字を入力する、DELETEを押す
> 上記の作業の後、セルが右へ1つ移動するというようにしたいのですが、

「DELETEを押す」タイミングでカーソルを移動する、というのは、
Windowsでは馴染みのない挙動なので、意図を量りかねています。
通常は、[DEL]→[ENTER]キーという2つのストロークで、
カーソルを移動するものだと思います。
(これでも2ストロークですから、他の処理よりは手数少ない訳ですし)
ということで、差し当たり、
「DELETEを押す」タイミングでカーソルを移動することについては、
今回、何もしていません。
やるとすれば、Application.OnKey メソッドあたりを扱うことになると思いますが、
管理的に難しめです。
何故、その機能が必要なのか、補足説明頂ければ、
それに合わせた形で再度検討してみます。
取り敢えず、以上です。

こんにちは。

既存のApplication.MoveAfterReturn、Application.MoveAfterReturnDirection
を扱う記述やWorksheet_Changeイベント等すべてを排除した上で、
ThisWorkbook モジュールに以下の記述を貼り付けます。
この方法であれば、
 ブックを閉じた後、
 同時に開いた他のブックで作業する時、
既定の下方向へのカーソル移動へと設定を戻します。
コードを貼付けた直後は、Workbook_WindowActivate
が呼び出されるまで何もしませんから、
最初だけ、
Application.MoveAfterReturnDirection = xlT...続きを読む

Q任意のセルを検索窓にして文字(ひらがな)を入力すると既記入のセルを探しそのセルの横のセルに飛びたい

当方、エクセル2013 です。ほとんど初心者です。
表題のような事って出来るでしょうか?いちいちマウスを使うこと無く出来れば良いなと思っております。
画像で言いますとA1に「かけふ」といれるとD5に飛び、ここに数字を入れると又、勝手にカーソルがA1に戻る。って出来ないでしょうか?教えて下さい。

Aベストアンサー

こんばんは!
VBAでの操作になりますが、一例です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Column = 1 Then
If .Value <> "" Then
Set c = Range("C:C").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1).Select
Else
MsgBox "Not Found"
.Select
End If
End If
Else
If IsNumeric(.Value) Then
Range("A1").Select
Selection.ClearContents
Else
MsgBox "数値を入力してください"
.Select
End If
End If
End With
End Sub 'この行まで//

こんな感じではどうでしょうか?m(_ _)m

こんばんは!
VBAでの操作になりますが、一例です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
...続きを読む

Qエクセルの「入力規則」→「リスト」の機能を、あるセルに使った時に、そのセルにリスト以外の文字も入力出来るようにするには?

エクセルの「入力規則」→「入力値の値」の
「リスト」の機能は便利な機能だと思いますが、
急遽、リスト以外の文字も入れなければいけない事態が
あった場合に、他の文字が入力できなかったりします。
私がファイルを全て管理す分にはリストの範囲を
広げたり修正したりできるのでいいのですが、
他の(あまりエクセルを使った事がない)人が
使う場合に、他の文字をいれたい場合に、入れれないで
戸惑ってしまうかもしれません。
ドロップダウンで文字を選択する機能も残しつつ、
手入力も出来るように機能を追加する事はできますでしょうか?

Aベストアンサー

実は私も同じことで以前なやんだのですが、実は単純に
リストを設定する際に、「エラーメッセージ」タブをクリック⇒「不正なデータが入力されたらエラーメッセージを表示する」に入ってるチェックをはずす、これで、リストから選ぶまた、リストにない値を入力するということができるようになります。

Q文字を入力したら数値が自動入力!(エクセル)

いつもお世話になっています。

例えばA列の1行目に「りんご」と入力(若しくはリストの中から選択)すれば、B列の1行目には自動的に「5」と数値が入力されるという仕組みを教えて頂ければと思います。
因みにA列1行目に入力する文字(上記の例では「りんご」)が仮にA列の1行目以外に入力しても、それに対応し、数値を出せるようにしたいのです。(例:A列5行目に「りんご」を入力すると、B列5行目に数値の「5」が表示)

以上の説明で分かりにくいかもしれませんが、宜しくお願いします。

Aベストアンサー

こんばんは。

1.「りんご」と「5」の関係を表す対応表が存在する場合
  B列に IF 関数 と Vlookup 関数を入れ子で記述
2.1.対応表が無い場合
  B列に IF 関数を記述
3.B列に数式を入力せず空欄のままにしておきたい場合
  マクロを記述

上記はアバウトですが、詳細がわかれば具体的な回答が可能と思います。

Qエクセルで、(あ)ひらがな入力や(ア)全角カナで入力をしても、、

エクセルで、(あ)ひらがな入力や(ア)全角カナで入力をしても、そのセルには、常に、半角のカナ(aア)で表示させることは出来るでしょうか?

Aベストアンサー

(1)複数のセルを入力し終わってから、まとめて修正するのか
(2)全角かな(カナ)の入力を入力時に防ぐのか
(3)強制的にエクセルが半角にするのか
それと
(A)入力したセルで変換を行うのか
(B)別(列等の)セルでも良いのか
がはっきり認識し質問で表現してますか。
それぐらい微妙な質問てんなんです。
(3)は、ないと思います。
(1)(B)なら関数でASCでできます。
(2)は入力規則を使います。
(A)でやるのは、VBAのセルのChangeイベントでStrConv関数でvbNarrowを指定すればできるでしょう。


このカテゴリの人気Q&Aランキング

おすすめ情報