Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11803 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14123】大文字と小文字の判定して名前を表示 ＶＢＡ初心者 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:大文字と小文字の判定して名前を表示（... ＶＢＡ初心者 04/5/21(金) 15:05 お礼[未読]
【14123】大文字と小文字の判定して名前を表示
質問  ＶＢＡ初心者  - 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 さん、ＶＢＡ初心者さん、こんにちは。

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:大文字と小文字の判定して名前を表示...
お礼  ＶＢＡ初心者  - 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),""),"")」

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

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11803 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free