□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| Findに纏わる質問 | |
|---|---|
[194939] Findに纏わる質問- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ くろさき -(2022/05/30(14:42)) □U R L/ Findでその値があったら処理をしていますが、
ここに複数条件を加えたいです。
例えば、Findで見つかった値かつCells(同行番号,5).valueが"リンゴ"だったら
はどう書いたらいいですか？
ちなみに、
If Not Findcell Is Nothing And Sheets("Sheet1").Cells(Findcell.Row,5).Value
= "リンゴ" Then
と書くと
「オブジェクト変数またはwithブロック変数が設定されていません」とエラーになります。
ちなみに、And Sheets("Sheet1").Cells(Findcell.Row,5).Valueを取るとエラーはおきません。
※FindcellはSheets("Sheet1")のA列です。
宜しくお願いします。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194940] Re[1]: Findに纏わる質問- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/05/30(16:54)) □U R L/ ＞If Not Findcell Is Nothing And Sheets("Sheet1").Cells(Findcell.Row,5).Value
＞ = "リンゴ" Then
一目の話ですが、And以降は、FindcellがNothingじゃない場合に可能な判定ですから、
1文で書くのは無理があります。
2段構えで
If Not Findcell Is Nothing Then
If Sheets("Sheet1").Cells(Findcell.Row,5).Value = "リンゴ" Then
End If
End If
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194941] （削除）- ■記事引用/メール受信=OFF■ □投稿者/ / -(2022/05/30(17:28)) □U R L/ この記事は削除されました | |
[194943] Re[3]: （削除）- ■  / 記事引用/メール受信=OFF■
□投稿者/ くろさき -(2022/05/30(18:04)) □U R L/ 半平太様 この度はお返事頂きまして誠にありがとうございます。 半平太様の仰るとおり致しましたところ 問題が解決できました。ありがとうございました。 まだまだ勉強が足りず恥ずかしい限りです。 また質問させて頂きますが、どうぞ宜しくお願いします。 | |