Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11792 / 13646 ツリー ←次へ | 前へ→

【14123】大文字と小文字の判定して名前を表示 VBA初心者 04/5/21(金) 12:59 質問[未読]
【14124】Re:大文字と小文字の判定して名前を表示 Jaka 04/5/21(金) 13:24 回答[未読]
【14125】Re:大文字と小文字の判定して名前を表示 Jaka 04/5/21(金) 13:43 回答[未読]
【14127】Re:大文字と小文字の判定して名前を表示(... ichinose 04/5/21(金) 13:50 発言[未読]
【14131】Re:大文字と小文字の判定して名前を表示(... VBA初心者 04/5/21(金) 15:05 お礼[未読]

【14123】大文字と小文字の判定して名前を表示
質問  VBA初心者  - 04/5/21(金) 12:59 -

引用なし
パスワード
   以下のようなことができるのか、
お分かりの方教えて下さい。
あるシートが以下のようになっていたとします。
B列,C列,D列,E列の表示形式は標準。

=========================================

 B列  C列  D列   E列
 ===  =====  ====  ====
1 A1  アイウ  10   テスト
2 A2  カキク  A1   アイウ
3 :   :   A2   カキク
4 :   :   A3   サシス
5 :   :   A4   タチツ
6 :   :   A5   ナニヌ 

=========================================
D列,E列は非表示となっており、
B列のみ入力可能。
C列はB列に対応する名前をD列とE列
よりVLOOKUPで検索して表示しています。
以下がC3の計算式です。
IF(ISERROR(VLOOKUP(B3,D:E,2,FALSE)),"",VLOOKUP(B3,D:E,2))

上記のような場合、B列に小文字でa1と入力されると
C列には本来は何も表示しないようにしたいのですが
"A1"が入力された時と同じようにC列に値が表示されていしまいます。

上記のようなケースを回避する方法が
わからなくて困っております。
どなたかご存知の方、教えて下さい。

以上宜しくお願いします。

【14124】Re:大文字と小文字の判定して名前を表示
回答  Jaka  - 04/5/21(金) 13:24 -

引用なし
パスワード
   こんにちは。
これ組み込んでみてください。

=IF(CODE(TEXT(UPPER(B3),"@"))=CODE(TEXT(B3,"@")),"大文字","違う")

【14125】Re:大文字と小文字の判定して名前を表示
回答  Jaka  - 04/5/21(金) 13:43 -

引用なし
パスワード
   >=IF(CODE(TEXT(UPPER(B3),"@"))=CODE(TEXT(B3,"@")),"大文字","違う")

すみません。
これだけで良いです。
=IF(CODE(UPPER(B3))=CODE(B3),"大文字","違う")

【14127】Re:大文字と小文字の判定して名前を表示...
発言  ichinose  - 04/5/21(金) 13:50 -

引用なし
パスワード
   Jaka さん、VBA初心者さん、こんにちは。

exact関数を使用しても大文字と小文字を区別してくれます。

セルb1の例で

「=IF(NOT(ISERROR(VLOOKUP(B1,$D:$D,1,FALSE))),IF(EXACT(B1,VLOOKUP(B1,$D:$D,1,FALSE))=TRUE,VLOOKUP(B1,$D:$E,2,FALSE),""),"")」

確認して下さい

【14131】Re:大文字と小文字の判定して名前を表示...
お礼  VBA初心者  - 04/5/21(金) 15:05 -

引用なし
パスワード
   Jaka さん ichinose さん
こんにちは。

>「=IF(NOT(ISERROR(VLOOKUP(B1,$D:$D,1,FALSE))),IF(EXACT(B1,VLOOKUP(B1,$D:$D,1,FALSE))=TRUE,VLOOKUP(B1,$D:$E,2,FALSE),""),"")」

上の計算式を埋め込んだところ、
うまくいきました。
できなくて困っていたので
助かりました。

ありがとうございました。

11792 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free