![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセルでユーザーフォームを作成しています。
「テキストボックス11」に、以下のように、VLOOKUP関数を入れたいのですが、
どのようにしたら良いのか、わかりません。
●入れたい関数は ISERROR関数とVLOOKUP関数を組み合わせたもの。
=if(iserror(vlookup(「コンボボックス1」の値,マスタ!A80:D90,4,false)),""vlookup(「コンボボックス1」の値,マスタ!A80:D90,4,false))
(1)「コンボボックス1」の値を検索値とする。
(2)参照範囲は「マスタ」シートの「A80:D90」
失敗しているVBAは以下の通りです。
Private Sub UserForm_Initialize()
TextBox11.Value = Application.WorksheetFunction.if(iserror(VLookup(ComboBox1.Value, Range("A85:D94"), 4)),"",VLookup(ComboBox1.Value, Range("A85:D94"), 4))
End Sub
教えていただけると助かります。
No.2ベストアンサー
- 回答日時:
#突っ込みドコロが多いので,説明が長くなりました。
「Application.WorksheetFunction」は,それぞれの関数(iserroなりvlookupなり)の「全て」に取り付けなければいけません。
また,ワークシート関数の全ての関数がapplication.worksheetfunctionに用意されているわけではありません。たとえばif関数は含まれていないため,vbaの関数などを代用する必要があります。
どの関数が使えてどの関数は用意が無いのかは,VBA画面で「オブジェクトブラウザ」を利用し,worksheetfunctionクラスの配下にどんな関数が準備されているか見てみることで,確認することができます。
worksheetfunctionを使う勉強のために書き方を練習してみるのもひとつのやり方ですが,多くの場合にはvbaではvbaらしく合理的なプログラムも組めるよう,状況に応じた工夫をします。
#更に注意
VBAで使う以前にVLOOKUP関数自体の正しい使い方についてもきちんと理解しておかないと,当然必要な結果は得られません。次のようなよく失敗するケースについて,理解はされていますか?
○VLOOKUP関数の第4引数を省略した場合,検索対象範囲の左端列は昇順に並べ替えておかないと,正しい結果は得られません
○VLOOKUP関数の検索値として「コンボボックスの値」を取り込むと数字であっても文字列扱いになるため,セルに用意した検索対象範囲の左端列に数値が記入されていた場合に対する検索は失敗します
作成例1:実はこの方法では出来ない
with application.worksheetfunction
userform1.textbox1.value = iif(.iserror(.vlookup(combobox1.value, worksheets("シート名").range("A85:D94"),4)),"", .vlookup(combobox1.value, worksheets("シート名").range("A85:D94"),4))
end with
#検索値が無いなどの場合に,iserrorで逃がしたはずなのに計算が出来ない事を確認
作成例2:検索値が文字列の場合
with application.worksheetfunction
if .countif(worksheets("Sheet1").range("A85:A94"), combobox1.value) > 0 then
userform1.textbox1.value = .vlookup(combobox1.value, worksheets("Sheet1").range("A85:D94"), 4, false)
end if
end with
作成例3:検索値が文字列の場合,かつ検索対象範囲のA列が昇順で並べ替え済みの場合
with application
userform1.textbox1.value = iif(.iserror(.vlookup(combobox1.value, worksheets("シート名").range("A85:D94"),4)),"", .vlookup(combobox1.value, worksheets("シート名").range("A85:D94"),4))
end with
No.3
- 回答日時:
第1点
=VLOOKUP(2,$D$1:$E$3,2)など第1引数にりてらる数値を指定することはOKを確認しました《質問では
ComboBox1.Valueですが。
=VLOOKUP("y",$D$1:$E$3,2)もOKでした。
これが色んな関数でOKかどうかは、確かめておかないといけない。普通は値の入ったセル番地を指定することが多い。
ーー
第2点
IFがVBAにあるからといって、またIsError函数が、VBA函数にあるからといって、あるいは深く考えず、関数の組み合わせのつもりでif(iserror(VLookup と書いたのかもしれないが、こういうエクセル関数の組み合わせは、最初にApplication.WorksheetFunctionをつけたら仕舞い(その効果があるの)ではない。
VLOOKUP函数を実行して、その結果(エラ-値)を変数なりで受けて(一旦受けないなら式全体の前にIFを書き、Thenを添える)これに対し、IFステートメントやIserror関数を用いて、別行(単位)で判定しないとならない。
セルにFormulaとして入れる場合は、シートのセルにに関数を入れるのと同じ形で入れられるが、WorksheetFunction.
は指定した単一の函数しか実行できないと思う。関数の組み合わせやイプは直接Application.WorksheetFunctionのあとにかけないでしょう。
A85以下で値の重複がないのだろうから(セル範囲).Find(What:= 値)(メソッド)などと簡単に書くことも使えるとおもう。
No.1
- 回答日時:
Application.WorksheetFunctionはワークシート関数毎に必要です。
とはいえ何度も使うのは、良くないので数式を分解して
Dim RT As Variant
RT = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("A85:D94"), 4)
If IsError(RT) Then
TextBox11.Value = ""
Else
TextBox11.Value = RT
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Excel(エクセル) マクロを簡潔にしたい 6 2022/09/16 10:37
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセル 指定セル繰り返しマクロ 4 2022/06/06 17:08
- Excel(エクセル) エクセルで値ではなく関数を参照する方法 6 2023/03/19 00:50
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Excel(エクセル) K14のセルにVlookup関数を使い IF(J14="","",VLOOKUP(J14,$B$4: 2 2023/05/17 20:26
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBAのユーザーフォームでVLOOKUP
Visual Basic(VBA)
-
エクセルのユーザーフォームでVLOOKUPと同じ機能をするには?
Excel(エクセル)
-
VLookup関数を使ってラベルに表記させるには?
Visual Basic(VBA)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
6
UserForm1.Showでエラーになります。
工学
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
9
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
10
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBA コンボボックスとテキストボックスを連結させたい
Visual Basic(VBA)
-
13
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
14
Excel VBA でテキストボックスの値をセルA列から検索
その他(プログラミング・Web制作)
-
15
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
16
TextBoxに日付を自動的に入れる
Visual Basic(VBA)
-
17
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
18
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
-
19
vlookupにて、返した値をさらに、他の文字列に変換するには
Excel(エクセル)
-
20
モーダルフォームとモードレスフォーム
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel関数-文字列で自動作成さ...
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシート、Excelでの数...
-
Microsoft Officeの中古は信用...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシートで使う数式を...
-
エクセルでの特別な文字を上に...
-
エクセル日付 文字列の関数がエ...
-
A列とB列を参照してC列に連番を...
-
エクセルVBA、別ブックへ転記す...
-
各ページの1番上の表示について
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
【マクロ】アクティブセルにブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報