No.4ベストアンサー
- 回答日時:
どんなものか作ってみました。
writeModeで横書き、縦書きを指定します。
maxColはA列からこの列数分、この機能が働きます。
maxRowは縦書きの時、折り返す最下段の行です。
シートのコードウインドウに貼り付けます。ご参考に。
Const writeMode = 1 '横書き=1、縦書き=2
Const maxCol = 10 '列(文字)数制限値
Const maxRow = 10 '行(文字)数制限値。縦書きで有効
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > maxCol Then Exit Sub
Dim moji As String '入力文字
On Error GoTo ErrorHandler
moji = Target.Value
With Application
.EnableEvents = False: Range(Target.Address) = Left(moji, 1)
.EnableEvents = True '2文字目以降があれば繰り返しChangeイベントを起こす
With Target
Select Case writeMode
Case 1 '横書き
If .Column < maxCol Then
Range(.Address).Offset(0, 1).Select '右のセル
Else
Range(.Address).Offset(1, 1 - maxCol).Select '次の行
End If
Case 2 '縦書き
If .Row < maxRow Then
Range(.Address).Offset(1, 0).Select '下のセル
Else
Range(.Address).Offset(1 - maxRow, -1).Select '前の列
End If
End Select
End With
If Len(moji) > 1 Then Selection = Right(moji, Len(moji) - 1)
End With
Exit Sub
ErrorHandler:
Application.EnableEvents = True
End Sub
No.3
- 回答日時:
VBAならこんな感じでしょうか。
動作確認 WIN98SE+EXCEL200
やってみるとおもしろいですね。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLen As Integer, myRow As Integer
Dim mySt As String
On Error GoTo Errhand
If Len(Range(Target.Address)) < 2 Then Exit Sub '1文字なら実行しない
myLen = Len(Range(Target.Address)) '入力(変換後)文字数
mySt = Range(Target.Address).Value '入力済み(変換後)値
myRow = Range(Target.Address).Row '現在の行数
rtnCul = 100 '横マス上限
Application.EnableEvents = False
For i = 1 To myLen
Range(Target.Address).Offset(, i - 1).Value = _
Mid(mySt, i, 1)
Next i
Cells(myRow, rtnCul).End(xlToLeft).Offset(, 1).Select
Errhand:
Application.EnableEvents = True
End Sub
しかし、本来ならばWORDを使用された方がいいでしょう。
No.2
- 回答日時:
質問の意味が違ったらごめんなさい。
文字を入力したい部分全部に範囲選択。
文字を入力して、Enterすれば、いいのでは?
どこでもいいですけど、
たとえば、A4~A10までドラッグして範囲選択して
文字入力して漢字変換し終わったら、Enter、
漢字変換し終わったら、Enterです。
方向キーを押したりクリックしたりしたら、解除されてしまいますが、
この方法なら、別に、
漢字一文字二文字気にする必要なんてないと思いますが。
ご回答有難うございました。お手数をお掛けしました。
ただ私が思ったのは、例えばA4セルにカーソルを置いて
「あさひが」と入力し、「朝日が」と確定させるため、ENTERキーを押したとき、A4に「朝」、B4に「日」、C4に「が」と入力されカーソルがD4に移るといいな。桝目原稿として使えるし、罫線やエクセルの中の機能が使えて良いなと思っています。表の演算など、自由にできそうです。WORDの機能に不満があるということです。今後ともよろしく。
No.1
- 回答日時:
【Enter】の代わりに【Tab】キーを使用するか、
<ツール>→<オプション>→<編集>
で、入力後に移動するセルの方向を指定できますよ。
如何でしょう。。。
早速ご回答ありがとうございます。
質問の表現がまずかったと反省していますが、
(1)単漢字の変換のとき
ENTERやTABなしに、(漢字変換確定のEN TER入力で次ぎの右隣列に移ること。
(2)2文字以上の語句等を変換のとき、確定のENTE R入力でその語句を次ぎ次ぎと1列1文字に分解し て自動的にセットして、次ぎの右隣列に移ること。
を出来ないかと思っていました。もし出来ればエクセルの
シートがマス目原稿用紙+エクセル機能となるので便利です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Excel(エクセル) Excel 365 フリーズ 頻発 エクセルのセルの中に日本語の文章を全角半角和文英文数字を混ぜて入 3 2022/12/12 15:09
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 【エクセル】文中に別シートのセルの内容を自動入力したい 6 2022/11/17 11:30
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- 会計ソフト・業務用ソフト エクセルの文章の修正法について 3 2023/06/23 10:03
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) エクセルに代わる 表入力ツールについて 3 2022/12/21 21:19
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの入力規則で2列表示したい
-
複数の文字列のいずれかが含ま...
-
Excel上でのデータ数字が連番で...
-
別のセルに値が入力されたら、...
-
HYPERLINKとADDRESSとMATCHの組...
-
数式が入ったセルを含めて、数...
-
列の数字に100をかけたい
-
入退社日より各月末の在籍者数...
-
【EXCEL】指定したセルの値を他...
-
エクセル:横長の表を改行して...
-
SUMに含まれる範囲から特定のセ...
-
エクセルで住所の番地順に並べ...
-
「Exel」で、指定した列が...
-
アルファベットを含む数をエク...
-
スペースとスペースの間の文字...
-
エクセルで、毎日の走行距離(...
-
エクセルで2行まとめて並び替...
-
エクセル セル内の文字数を超え...
-
エクセルのsumifでかけ算してか...
-
エクセルで公平にチーム分けす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
列の数字に100をかけたい
-
スペースとスペースの間の文字...
-
別のセルに値が入力されたら、...
-
エクセルで表示されている数字...
-
エクセルでセルの値分の個数の...
-
エクセル:横長の表を改行して...
-
[関数について]わかる方教えて...
-
エクセル関数に詳しい方教えて...
-
エクセルで、毎日の走行距離(...
-
エクセルのsumifでかけ算してか...
-
HYPERLINKとADDRESSとMATCHの組...
-
エクセルで曜日に応じた文字を...
-
入退社日より各月末の在籍者数...
-
エクセルで1列全部10倍したい
-
エクセルで小数を含む数値の抽出
おすすめ情報