| 
    
     |  | マッキ− さん、おはようございます。 
 >こんにちは。私は、マクロの全くの初心者ですが、地元地区の役員を任せられたの
 >で、日々の収入支出表入力をダイアログより入力しようと本の例題を参考にしなが
 >ら、只今、エクセルにチャレンジ中で、途中ですが、下記のプログラムを作成しま
 >した。ですが、
 >「kigou = Application.WorksheetFunction.VLookup(Trim(Str(TextBox4)), Trim
 >(Str(Worksheets("分類").Range("分分類"))), 3, False)」
 >のところでエラ−になり、色々調べてもチンプンカンプンでわかりません。
 
 「型が違います」というエラーですね。
 
 ”分類”というシート上の"分分類"という名前の範囲でVLOOKUP
 
 Application.WorksheetFunction.VLookup(Trim(TextBox4.Text)), Worksheets("分類").Range("分分類"), 3, False)
 
 範囲「分分類」のキー(一番左の列)が数値の場合は、Val(Trim(TextBox4.Text)))とVal関数で数値に変えて試してみてください。
 
 |  |