EXCEL2003 VBA

質問

ＥＸＣＥＬで文字を入力する際にセルに入力できる文字数を決めておき、それ以上の文字数の場合は下のセルに移動するＶＢＡは可能でしょうか。可能でしたら教えていただけますでしょうか。よろしくお願いいたします。

回答No.4

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選び
現れたシートに下記をコピー貼り付けとくと

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim h As Range
　On Error Resume Next
　For Each h In Application.Intersect(Target, Range("A1:A10"))
　　If Len(h) > 10 Then
　　h.Offset(1) = Mid(h, 11, Len(h))
　　h = Left(h, 10)
　　End If
　Next
End Sub

たとえばＡ１：Ａ１０のセル範囲で，入力した言葉を１０文字ずつ下に落として切りそろえます。

お礼

丁寧な回答ありがとうございました。コードまで記載していただき感謝しております。早速、実行してみます。お手数をおかけしました。ありがとうございました。今後もよろしくお願いいたします。

補足

早速実行してみました。うまくできました。ありがとうございました。

回答No.3

imogasi

エクセルVBAの取り扱うレベルを超えた仕組み、APIというウインドウズの基礎的な仕組みを使わないと文字入力は、そに都度に、とらえられません。ですからVBAレベルでは不可能。（ゲームなどで必要になるこういう仕組みはない。）
Enterキーを押して（など）セルの値になってからならVBAでチェックできる。
ーー
既にご指摘のように「入力規則」でもチェックできる、（文字列（長さ指定）ー次の値より小さいー最大値など）。
これも入力を確定（Enterなど）してからチェックされる
ーー
もっと色々勉強するまでは、あきらめ、上記で我慢すること。

お礼

回答とご指摘ありがとうございました。いろいろ勉強します。ご指摘のように勉強し直します。ありがとうございました。

回答No.2

noname#137073

入力規則ではいけないのでしょうか。
http://www2.odn.ne.jp/excel/waza/validation.html#SEC7

お礼

回答ありがとうございました。ＥＸＣＥＬにはいろいろな技があることを知りました。勉強し直します。ありがとうございました。

回答No.1

DreamyCat

セルの編集中（文字入力中）はVBAは動作しませんので
不可能です。

お礼

早速の回答ありがとうございました。ＶＢＡについて勉強します。お手数をおかけしました。