[過去ﾛｸﾞ]
Excel VBA 質問スレ Part80 (1002ﾚｽ)
Excel VBA 質問スレ Part80 http://mevius.5ch.net/test/read.cgi/tech/1685489018/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
180: デフォルトの名無しさん [] 2023/10/31(火) 23:39:07.52 ID:0l/KyLnQ バージョンは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で表現できますでしょうか。 何卒、よろしくお願いいたします。 http://mevius.5ch.net/test/read.cgi/tech/1685489018/180
481: デフォルトの名無しさん [] 2024/02/10(土) 22:52:32.27 ID:3oPB1Oyo >>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 http://mevius.5ch.net/test/read.cgi/tech/1685489018/481
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.027s