VLOOKUPの結果を関数ではなく、値として保存

質問

質問させてください。

現在使用しているEXCELファイルでは、企業番号を手入力すると、
VLOOKUP関数で、対象先のリストから企業名を取得し表示させています。
(対象企業はたくさんあり、一社づつ企業番号を手入力しています。）

ただし、この対象先のリストが月次で更新され一部の会社が翌月にそのリストからなくなるため、
Excelで、その会社の名称がNAとなってしいます。
そこで、会社の名称を、VLOOKUP関数の結果を関数としてではなく、
値としてセルに保存したいと思っています。

VBAを使用すれば、以下のようなコードで対応はできることはわかりました。

Cells(8, 8).Value = WorksheetFunction.VLookup(Range("B3"), Range("C7:D11"), 2, 0)

ただし、この方法はVBAを起動して自分でコードを記述する必要があり、難易度が高く、
所属する部ではこの方法でのExcelの実装ができません。
Excelの画面からだけで、上記のようなことを実現できる方法はあるのでしょうか？
自分でソースをかかないのであれば問題なく、マクロの記録等はOKです。

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

回答No.2

keithin · ベストアンサー

元のご相談は
＞自分でソースをかかないのであれば問題なく、マクロの記録等はOKです。

という要求でしたので，「マクロは使う」けど「マクロをユーザーが起動する必要が無い，マクロが勝手に起動して必要なことを自動でやってくれる」方法をご案内しました。

ご自身はマクロは使えると言うことなので，今回使用したようなイベントプロシジャについてもご了解済みの事と思いますが，話が違って「そもそもマクロは全部ダメよ」という事でしたら，手動でコピーして形式を選んで値にして貼り付けてください。

＃参考
お勧めはしませんが，こんな方法もあります。

状況：
たとえば今，Ｈ８セルに
=VLOOKUP(B3,C7:D11,2,FALSE)
と記入されている

ご相談の状況説明により，リストとなるＣ７：Ｄ１１は計算の後にクリアされてしまいＢ３に該当するデータが見つからないエラーが発生する。

準備：
ブックを開く
エクセルのオプションで計算方法欄にある「反復計算」のチェックを入れておく

手順：
Ｂ３をまず先に空っぽにしておく
Ｈ８の数式を
=IF(B3="","",IF(ISERROR(VLOOKUP(B3,C7:D11,2,FALSE)),H8,VLOOKUP(B3,C7:D11,2,FALSE)))
と書き換える

動作確認：
Ｂ３にデータを記入し，正常に計算できることを確認する
Ｃ７：Ｄ１１からＢ３に該当するデータを削除若しくは編集し，従来ならエラーになったが，値が保持されることを確認する。

お礼

お礼が遅くなりました。ありがとうございます。
色々奥が深くて勉強になります。

回答No.1

keithin

＞ただし…

自分ではマクロが書けないので，コピー貼り付ければ使えるよう丸ごと全部教えてもらえれば大丈夫。
と言いたかったのか
自作マクロは全然ダメよ。
と言いたかったのか
どういうことでしょう？

作成例１：
新しいマクロの記録を開始する
マクロの記録先は「作業中のブック」にする
所定のセルに所定のVLOOKUP関数を実際に記入する
所定のセルをコピーする
所定のセルに形式を選んで貼り付けで値のみ貼り付けて値化する
マクロの記録を終了する

シート上にオートシェイプなどでボタン絵柄を配置する
右クリックしてマクロの登録で，記録したマクロを登録する。
所定のセルに企業番号を記入し，マクロボタンをクリックすると，所定の企業名を所定のセルに記入してくれる。

作成例２：
シート名タブを右クリックしてコードの表示を開始する
現れたシートに下記をコピー貼り付ける

private sub worksheet_Change(byval Target as excel.range)
if application.intersect(target, range("B3")) is nothing then exit sub
cells(8, 8) = application.vlookup(range("B3"), range("C7:D11"), 2, false)
end sub

ファイルメニューから終了してエクセルに戻る

アナタが書いてみたサンプルマクロに従い，Ｂ３セルに企業番号を記入すると，マクロが自動起動してVLOOKUPした結果を所定のセル（８の８）に書き入れてくれます。

お礼

回答ありがとうございます。またお返事が遅くなり申し訳ございません。

この件について正確に述べますと、
まず問題をかかえていたのは、私の妹になります。そして妹から相談をうけたのが私になります。

私自身はマクロプログラム等はできる人間なので、VBAを使えば簡単だよとサンプルを作って送ってあげたのですが、妹の職場はVBAなんて使える人がいないのでダメと却下されてしまいました。
（ボタンやVBAコード全般すべてがだめだとのこと）

そこで、EXCELの画面からだけで実装できる方法がないかないかとここで質問させて頂いた次第です。
普通に考えるとできなそうですが、ここで質問したらミラクルがおきるんじゃないかと思ったのですが難しそうですね

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