![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
> ”型番”というセルから下方向に型番をセットしていきwpの表から単価を検出するものです。
> 2度目の同じ型番の時、yen1がnothingになっていました。
> 1度目は検出出来たのに何故でしょう?
1度目に検出した後に、検出したセルの内容を書き換えているから。
> Set yen1 = ActiveSheet.Cells.Find(What:=kata, lookat:=xlWhole)
> If Not yen1 Is Nothing Then
> yen1 = Cells(yen1.Row, 5) '←ここで書き換えている
実際にwpの表を確かめてみてください。
ご回答ありがとうございます。
wpの表、確かめました。
本当に!書き換えてありました!
"="にすると書き換えられてしまうのですか??
書き換えずに代入する方法はありませんか?
初歩的な事かもしれませんが、教えて頂けると助かります。
No.4
- 回答日時:
> "="にすると書き換えられてしまうのですか??
??? 当然です。そのための"="です。
> Set yen1 = ActiveSheet.Cells.Find(What:=kata, lookat:=xlWhole)
としているのですから、yen1はオブジェクト変数で、この場合はセル扱いです。
Cells(1, 1)とかRange("A1")とかと同じ扱いです。
実際には、検索でヒットしたセルですが。
Cells(1, 1) = Cells(yen1.Row, 5)
と書いたら、A1に値が書き込まれるように、
yen1 = Cells(yen1.Row, 5)
と書いたら、検索したセルに値が書き込まれます。
なぜ、同じ変数を使っているのでしょうか?
普通は、別に変数を用意するものです。
ActiveSheet.Cells.Find(What:=kata, lookat:=xlWhole)= Cells(yen1.Row, 5)
になってしまうということなんですね。
>なぜ、同じ変数を使っているのでしょうか?
代入していけば値だけ入れ替わって使えると思っていたものですから。
変数を替えてチャレンジしてみます。
ありがとうございました。
No.1
- 回答日時:
現状のコードをアップしてみてください。
この回答への補足
マクロはこの様になっています。
”型番”というセルから下方向に型番をセットしていきwpの表から単価を検出するものです。
2度目の同じ型番の時、yen1がnothingになっていました。
1度目は検出出来たのに何故でしょう?
For w = 1 To m
kata = kataban.Offset(w, 0).Value
If kata = "" Then GoTo Forend
'単価の検索
Windows(wp).Activate
Set yen1 = ActiveSheet.Cells.Find(What:=kata, lookat:=xlWhole)
If Not yen1 Is Nothing Then
yen1 = Cells(yen1.Row, 5)
Set yen2 = ActiveSheet.Cells.Find(What:=kata, lookat:=xlWhole)
If Not yen2 Is Nothing Then
yen2 = Cells(yen2.Row, 7)
End If
End If
'単価の入力
Windows(wb).Activate
If Not yen1 Is Nothing Then
tanka1.Offset(w, 0) = yen1
If Not yen2 Is Nothing Then
tanka2.Offset(w, 0) = yen2
End If
End If
Forend:
Next w
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Excel(エクセル) エクセルのセル値に対応してマクロを実行する方法を教えてください セルA1が「1」の時にマクロ名「マク 2 2022/06/19 18:45
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Visual Basic(VBA) vbaマクロについて 次のようなマクロを組みたいです。 自分は初心者なので全くわかりません。 詳しく 8 2023/05/18 18:38
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ベンジル位とは何なのでしょうか?
-
濃度換算について(mg/m3→ppm)
-
p-ニトロアニリンからの、パラ...
-
スチレンと臭素の反応
-
フタル酸だけ特別にイソ、テレ...
-
H3CとCH3の違い
-
[サリチル酸・アセチルサリチル...
-
ナフトールの配向性
-
杏仁豆腐にニトロベンゼン入っ...
-
ベンゼンになった過マンガン酸...
-
biphenylの立体構造
-
Chem3Dでフェロセンの書き方に...
-
ベンジンの構造式
-
パラニトロフェノールについて...
-
フェノールやクレゾールの酸性...
-
p-エチルトルエンの酸化
-
CHEM sketch の使い方について
-
ニトロベンゼン
-
亀のこ型した分子構造の描き方
-
塩化ベンゼンジアゾニウムの化...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ベンジル位とは何なのでしょうか?
-
濃度換算について(mg/m3→ppm)
-
杏仁豆腐にニトロベンゼン入っ...
-
フタル酸だけ特別にイソ、テレ...
-
ナフトールの配向性
-
塩酸-マグネシウム反応
-
ベンゼンのlewis構造式
-
[サリチル酸・アセチルサリチル...
-
パラニトロフェノールについて...
-
H3CとCH3の違い
-
キサントプロテイン反応について
-
フェノールやクレゾールの酸性...
-
物質の違いについて。
-
Chem3Dでフェロセンの書き方に...
-
官能基について
-
化合物の名前を教えてください
-
PETとPENの違いについて
-
p-ニトロアニリンからの、パラ...
-
ベンゼンになった過マンガン酸...
-
化学工学で、図積分法の使い方...
おすすめ情報