システムwiki

満了した状態で値を挿入します

SMuneeb 解決済 最終更新日:2021-06-15 02:15

こんにちは

範囲(「E5:E1000」)の場合は「CG-VII」または「CG-VIII」のような値がある場合、ユーザーは「X」、「Y」、「Z」のような値を入力できます.範囲( "i5:i1000")範囲( "i5:i1000")はロックされます.

返信リスト(回答:4)

3 #
Jeovany

こんにちはSmuneeb

次のようにしてみてください

1-範囲 "i5:i1000"

を選択

2-次の式

でデータ検証を適用する

=または(isNumber( "CG-VII"、E5))、isNumber(find( "CG-VIII"、E5)))

下の写真のように

3---ONCE列eの対応するセルが "CG-VII"または "CG-VIII"

のような値がない場合、範囲内の任意の値を入力できないことをユーザーにしていません.

下の写真のように

これが

を助けることを願っています

安全な滞在、健康的な

応答3# ->にスキップ
4 #
SMuneeb

こんにちはJeovany

しかし、私は、CG-VIIまたはCG-VIIIを発見した場合、「大文字に変換することもできます)「X」「Y」および「Z」の値が承認または入力されていることをお勧めします.範囲内(「E5:E1000」).

このソリューションをワークシート変更イベントで参照してください.

応答4# ->にスキップ
2 #
Jeovany

RE:"...ワークシート変更イベントのこの解決策を参照してください..."

は驚きではありません.あなたの元の投稿にそれを言うべきです.

私はあなたがVBAを持つ熟練したExcelユーザーを考えます、

あなたはあなたの知識を示しました.

あなたはすでにあなたの質問に対する答えを持っています.

1年前、正規表現(正規表現)を使用して入力データ検証に関する3つのスレッドを投稿しました(正規表現)

大文字でテキストLENGHTを制限します

答えはそこにあります.

安全な滞在、健康的な

√
応答2# ->にスキップ
1 #
SMuneeb

こんにちは

あなたの提案によって私は以下のものを与えられた解決策を見つけました

プライベートサブワークシート(範囲としてのBYVALターゲット)
範囲としてのDIM RNG、範囲の範囲としてセル VARIATT

ブール値
application.enableEvents= false
交差しない場合(ターゲット、Me.Range( "I5:I1004"))は何も
RNG= Intersectを設定します(ターゲット、Me.Range( "I5:I1004"))
RNGの各セルについて
'1つのアルファベットを大文字で変更するのに役立ちます
Len(セル)= 1の場合
cell.value= ucase(cell.value)

の場合は終了 次のセル

の場合は終了 v=交差(範囲( "I5:I1004")、ターゲット).cells(1).value
v= ""であれば、exithiThandler
v<>"m"とv<>"f"とv<>"" ""の場合、
f= true

の場合は終了 fl
の場合 target.select
MSGBOX「この<」&v&「>このセルには挿入できません！」、VBEXCKCLAMENT target.clearContents

の場合は終了 target.offset(0、-4).value= "" goto exithandler
target.offset(0、-4).value<>"cg-vii"が
target.offset(0、-4).value<>"cg-viii"が
target.locked= true
target.clearContents


target.locked= false

の場合は終了
の場合は終了 Exithandler:
application.enableEvents= true
終了SUB

あなたのガイダンスの全体的な感謝と私はあなたのサポートに常に敬意を表しています.

関連質問