[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

180(1): 2023/10/31(火)23:39 ID:0l/KyLnQ(1)調 AAS
バージョンはExceloffice2019です。
「Sheet1」で購入した野菜の一覧を作成します。

　A1:A100に野菜の種類．例：トマト、キュウリ、キャベツ…
　B1:B100に野菜の産地．例：千葉、埼玉‥‥
　C1:C100に野菜の購入年月日．例：2023/10/31
　D1:D100に野菜の価格．例：1,000

「Sheet2」に
　A1:A5に野菜の種類　
　B1:B5に野菜の産地
　を記載したときに
　C1:C5に、「Sheet1」のAとBの条件に合う一番下の行の購入年月日を返す。
　かつ
　D1:D5に、「Sheet1」のAとBの条件に合う一番下の行の価格を返す。

　これをVBAで表現できますでしょうか。
　何卒、よろしくお願いいたします。

---

481: 2024/02/10(土)22:52 ID:3oPB1Oyo(2/5)調 AAS
>>180
ChatGPTで教えてもらった。
これからやってみるｗ

Sub GetVegetableInfo()
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim lastRow As Long
Dim i As Integer

' 「Sheet1」と「Sheet2」を取得
Set sheet1 = Worksheets("Sheet1")
Set sheet2 = Worksheets("Sheet2")

' 「Sheet2」のA1:B5を順番に処理
For i = 1 To 5
' 「Sheet1」で条件に合う最後の行を取得
lastRow = sheet1.Cells(sheet1.Rows.Count, "A").End(xlUp).Row
Do While lastRow > 1 And (sheet1.Cells(lastRow, 1).Value <> sheet2.Cells(i, 1).Value _
Or sheet1.Cells(lastRow, 2).Value <> sheet2.Cells(i, 2).Value)
lastRow = lastRow - 1
Loop

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.047s