Board logo

標題: [發問] 依據資料表中最大值與最小值中自動帶出相關資料 [打印本頁]
作者: marklos    時間: 2015-11-23 10:09     標題: 依據資料表中最大值與最小值中自動帶出相關資料

本帖最後由 marklos 於 2015-11-23 10:16 編輯

依據資料表中最大值與最小值中自動帶出相同欄位的相關資料

依據資料表中最小值 帶出其前兩欄位的數據 , 並填寫在G12 與H12 欄位
[attach]22558[/attach]
依據資料表中最大值 帶出其前兩欄位的數據 , 並填寫在G10 與H10 欄位
[attach]22559[/attach]
依據資料表中最大值 帶出其前兩欄位的數據 , 並填寫在G10 與H10 欄位
[attach]22560[/attach]
[attach]22561[/attach]

謝謝
作者: GBKEE    時間: 2015-11-23 11:01

回復 1# marklos
試試看
  1. Sub Ex()
  2.     Dim Rng As Range, xMax As Double, xMin As Double, m As Variant
  3.     With Sheets("VBNB")
  4.         m = .Range("i" & Rows.Count).End(xlUp).Row
  5.         Set Rng = .Range("i14:" & "i" & m) '資料範圍
  6.         xMax = Application.Max(Rng)
  7.         m = Application.Match(xMax, Rng, 0)
  8.         Set m = Rng.Cells(m).EntireRow
  9.         .Range("g10") = m.Range("g1")
  10.         .Range("h10") = m.Range("h1")
  11.         .Range("i10") = xMax
  12.         xMin = Application.Min(Rng)
  13.         m = Application.Match(xMin, Rng, 0)
  14.         Set m = Rng.Cells(m).EntireRow
  15.         .Range("g12") = m.Range("g1")
  16.         .Range("h12") = m.Range("h1")
  17.         .Range("i12") = xMin
  18.     End With
  19. End Sub
複製代碼
作者: hcm19522    時間: 2015-11-23 11:09

I10{=INDEX(I:I,MATCH(MAX($I15:$I999),$I15:$I999,)+14)
陣列 再複製G10 ,H10
作者: marklos    時間: 2015-11-23 14:08

本帖最後由 marklos 於 2015-11-23 14:19 編輯

版主謝謝你的幫忙
但如果要在不同的工作表內執行的話 ~ 要怎麼做 ?
另外 在附件中另一個工作表內 , 不同格式的狀態下 , 也是要取得相關數據 , 那要怎麼做 ?
謝謝
作者: marklos    時間: 2015-11-23 14:30

回復 3# hcm19522


    謝謝你 ~這方法也可以 !
作者: marklos    時間: 2015-11-23 15:47

本帖最後由 marklos 於 2015-11-23 15:48 編輯

回復 2# GBKEE


    版主謝謝你的幫忙
但如果要在不同的工作表內都能執行的話 ~ 要怎麼做 ?
另外 在附件中另一個工作表內 , 不同格式的狀態下 , 也是要都能取得相關數據 , 那要怎麼做 ?
謝謝
作者: GBKEE    時間: 2015-11-24 07:14

回復 6# marklos
不同的工作表內都能執行的話 ~ 要怎麼做
要有規律性可一式到底,不然要量身訂作
  1. Sub Ex()
  2.     Dim Rng As Range, xMax As Double, m As Variant
  3.     With Sheets("VC")
  4.         m = .Range("J" & Rows.Count).End(xlUp).Row
  5.         Set Rng = .Range("J4:" & "J" & m) '資料範圍
  6.         xMax = Application.Max(Rng)
  7.         m = Application.Match(xMax, Rng, 0)
  8.         Set m = Rng.Cells(m).EntireRow
  9.         m.Select
  10.         .Range("J2") = xMax
  11.         .Range("D2") = m.Range("D1")
  12.         .Range("H2") = m.Range("H1")
  13.     End With
  14. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)