|
はじめまして、
一応、解決はしているのですが
どうも気になって・・・
まず、コードを出します。
dim nandemoR as range,namae as string 'namaeは顧客名
'range("顧客リスト").address → $A$2:$C$51
for each nandemoR in range("顧客リスト").columns(2)
if nandemoR.value = namae then
msgbox "登録済みです"
exit sub
end if
next nandemoR
こんなコードを書いたら
ifでエラーが出てしまいました。
nandemoR in range("顧客リスト").offset(,1).resize(,1)
に書き換えると上手く行くのですが・・・なぜ?
columnsのバージョンとoffsetのバージョンのアドレスを調べてみたのですが
どちらも $B$2:$B$51 と表示されます。
ちなみにcolumnsのバージョンの
nandemoR.valueはなぜか配列に・・・
結局offsetを使っているのですが
気になって食事も喉を通りません;;
|
|