• 締切済み

エクセルの文字数制限 ~以上は消える ようにしたい

エクセルの文字数制限ですが ネットで見たら~以上入力数制限で エラー文字が出ると言うのはありますが 私は ~以上入力数制限で ~以上は消去したいのですが どうしたらよいですか?

  • dazai
  • お礼率0% (0/574)

みんなの回答

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんにちは! 別セル表示ではなく、入力したセルそのもので処理したい訳ですよね? VBAになりますが一例です。 仮にA列でそのような操作をするとします。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに ↓のコードをコピー&ペースト → Excel画面に戻りA列に文字列を入力してみてください。 (とりあえず10文字としています) Private Sub Worksheet_Change(ByVal Target As Range) 'この行から With Target If .Column = 1 And .Count = 1 Then If Len(.Value) > 10 Then '←10文字を超える場合 .Value = Left(.Value, 10) End If End If End With End Sub 'この行まで こんな感じではどうでしょうか?m(_ _)m

関連するQ&A

  • EXCEL文字数制限

    EXCEL文字数制限 EXCELの文字制限ですが 制限方法はわかったのですが 例)100文字制限にして=LEN(D5)-100 「D5は入力するセル」セルに-100と表示。 上記の-100を「あと100文字入力できます」みたいな設定はできるのでしょうか? 以上、わかる方教えて下さい。

  • エクセルでセルの文字数を制限できますか?

    エクセルで一つのセルに40文字以内と制限したいのですが、 (40文字以上入力したくありません) 良いやり方はありますか?

  • エクセルの文字制限からの文字消去は?

    エクセル2007を使用していますが、現在セル内に60~100程の文字が入っております。 それを50文字に制限し、セル内の50以上の文字を消去したいのです。 例えば 60文字の入っているセルを 50文字制限にして、その差の文字の10文字を自動で消去したいのですが どうすればいいでしょうか?

  • EXCEL入力規則で文字数制限

    EXCEL2002です。 A列に入力規則をかけ、全角20文字、半角40文字以内にしたいと思っています。 「エクセル技道場→入力規則→全角5文字、半角10文字」を参考にさせていただき、以下の式で入力規則のユーザー設定を行いました。 =AND(ISTEXT(A1),LENB(A1)<=40) この場合、最初の文字が半角の場合に制限数以下でもエラーメッセージが出てしまいます。 最初の文字が全角でも半角でも制限数以下であればエラーメッセージが出ないようにする方法はありますか? よろしくお願いします。 http://www2.odn.ne.jp/excel/waza/validation.html#SEC10

  • EXCELでセルに入れる文字数の制限

    文章が入力されてるエクセルデータがあります。 セルに入る文字数を常に一定にしてプリントアウトしたいです。 (Wordだと一行何文字と指定できるとおもうのですが) もう出来上っているエクセルデータから、セルに入れる文字を制限数までとし、それを超えたら自動的に消される方法はありますか? マクロを張り込まないとできないのでしょうか? 私はマクロのプログラムが全く書けないのでそれができません。 どうしたらよいでしょうか? 使う方が初心者なので、出来るだけその人が手をかけないようプログラムを作るか、設定したいのですが・・ ちなみにエクセルの機能で、入力規則はもう出来上ってるデータには適用されないようなので、それ以外でお願いします。

  • 文字数の制限について

    TextBoxの文字数の制限が上手くいかなくて困っています。 ◆問題点1 最大入力文字数を、半角は50文字、全角は25文字と設定したいです。 下記の質問を参考にし、キーボード入力の制限をかけることが出来ました。 質問:テキストボックスへの文字の入力について http://oshiete1.goo.ne.jp/kotaeru.php3?q=287224 しかし、最大文字数が入力されているときに「貼り付け」を行うと 設定以上の文字数が入力されてしまいます。 入力文字数+貼り付け文字数が、最大入力文字数よりも長ければ、 コピーを禁止したいのですが、何か良い方法はございますか? ◆問題点2 MaxLengthに設定した最大文字数よりも1文字分長く、入力できてしまいます。 MaxLength = 4 と設定したTextBox(仮に「Text1」とします)に半角文字を4文字分入力します。 (このとき、ぴったし4文字分キーボードを押下します。) 次に半角文字2文字分をコピーし、Text1のなかの1文字をドラックして貼り付けます。 (ドラックする文字は最後尾以外です。) 上記手順を行うと、Text1には5文字分入力されてしまいます。 どのような処理を行えば、"4文字まで"と必ず制限できますか? 問題点1、2のどちらか一つでも構いませんので、対処法を教えていただけますか? 宜しくお願いいたします。 なお、環境は Microsoft Windows 2000 Microsoft Visual Basic 6.0 です。

  • エクセル2007で文字入力数の制限について質問です

    エクセル2007で文字入力数の制限について質問です 全角と半角が混在した文章で全角は1文字、半角は0.5文字で計算して 合計で20文字以内とか設定できませんか? 「データの入力規則」では出来なそうなので。。。 また、20.5文字以内という設定は可能ですか? 簡単な関数でせいげんできれば助かります ご回答よろしくお願いします

  • EXCELでセルに入れる文字数の制限

    EXCELで文章と表が混在している書式をつくっています。 その時なのですが、セルに入る文字数を常に一定にしたいのです。 (Wordだと一行何文字と指定できるとおもうのですが) セルに入れる文字を制限数までとし、それを超えたら入力できないように設定できる方法はありますか? マクロを張り込まないとできないのでしょうか? 私はマクロのプログラムが全く書けないのでそれができません。 どうしたらよいでしょうか? また、その方法があるとして、それは結合させたセルにも有効でしょうか? ちなみに、EXCELにワードを張り込むという方法ではない方法を探しています。 よろしくお願いいたします。

  • Excel 文字数に制限あり??

    Excel 「CONCATENATE」文字数に制限あり?? 「B列からF列」までに入力された数字・文字・数式を、同じシート内の「H列」にて1行に表示させるため数式を入れていますが、文字数が255文字を(スペース含む)超えると【#VALUE!】(値のエラー)が出ます。 このエラーを回避し、正しく表示させる方法はありますでしょうか? ======================================================== *B列、D列、F列  数字、文字など、直接入力されています(空のセルあり) *C列、E列(参照先のセルが空白の場合あり)  =IF(ISERROR(INDIRECT("'シート名'!D2")),"",INDIRECT("'シート名'!D2")) *H列  =CONCATENATE(TEXT(B2,";;;@"),TEXT(C2,";;;@"),TEXT(D2,";;;@"),TEXT(E2,";;;@"),TEXT(F2,";;;@")) ======================================================== 分かりにくい説明ですみません。 よろしくお願いいたします。 環境 Win XP /Excel 2003

  • ACCESS 入力文字数制限

    初歩的だとは思うのですが フォームで、テキストの入力文字数を制限したいのですが、 方法が良く分からず、出来るのかどうかもわかりません。 エラーチェックとかではなく、たとえば3文字以上ぜったい入れられないように。 (HTMLで言うところのmaxlengthみたいな感じで・・) どなたか教えてください。お願いします。

専門家に質問してみよう