返回列表 上一主題 發帖

DDE動態資料如何使用HLOOKUP

corcovado886

帖子
13 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
WINDOWS 7 
軟體版本
HOME 
閱讀權限
10 
性別
男 
註冊時間
2015-10-25 
最後登錄
2023-8-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-11-1 21:01 | 只看該作者

DDE動態資料如何使用HLOOKUP

在DDE動態資料裡，每一段時間的分時記錄，分別計算出MAX值，
但有辦法查找所對應的儲存格嗎？

試了LOOKUP、OFFSET、MATCH，都沒辦法成功，
好像要純數字或文字才能查找，裡面有寫公式的話，不知道有沒有辦法....




DDE_LOOKUP.zip (67.71 KB)
收藏 分享

corcovado886

帖子
13 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
WINDOWS 7 
軟體版本
HOME 
閱讀權限
10 
性別
男 
註冊時間
2015-10-25 
最後登錄
2023-8-18 
6#
發表於 2015-11-2 20:27 | 只看該作者
回復 5# corcovado886
  後來自己亂試解決了，在AA欄另外計算Min值，
然後將同樣的公式複製到AB欄，往下一拉就計算出對應值了。

但這是預先在每一列寫好公式，有沒有辦法固定顯示在一個欄位呢？ (例如 儲存格Y9)

TOP

corcovado886

帖子
13 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
WINDOWS 7 
軟體版本
HOME 
閱讀權限
10 
性別
男 
註冊時間
2015-10-25 
最後登錄
2023-8-18 
5#
發表於 2015-11-2 20:17 | 只看該作者
回復 4# hcm19522
感謝大家的留言，版上好多excel大師 ！
好像hcm19522 大大的才是正解，因為A10:V10 不一定是照遞增順序排列。

如果要在AA11儲存格加上Min值呢？
因為公式有點複雜，不知道怎麼將下列的Max值改成最小值
=HLOOKUP(Y11,CHOOSE({1;2},OFFSET(A$10,ROW(A1),,,22),A$10:V$10),2,)

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-22 

熱烈參與勳章
4#
發表於 2015-11-2 12:46 | 只看該作者
硬要用HLOOKUP  參考
Z11=HLOOKUP(Y11,CHOOSE({1;2},OFFSET(A$10,ROW(A1),,,22),A$10:V$10),2,)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
3#
發表於 2015-11-2 11:42 | 只看該作者
Z11:
=IF(COUNT(A11:V11),MATCH(Y11,A11:V11,),"")

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2015-11-2 11:04 | 只看該作者
回復 1# corcovado886


    直接寫在vba裡面可以嗎？
  1. Sub 自動記錄()
  2. If uMode = 0 Then Exit Sub
  3. If Time > TimeValue(EndTime) Then '收盤時間以後不執行
  4.     Sht1.[W4] = "已過收盤"
  5.     uMode = 0
  6.     Exit Sub
  7. End If
  8. Sht1.Range("W2") = Time '當前時間（時間碼表）
  9. '----------------------------------------------------------
  10. '每１分鐘記錄，５分鐘則改為 Mod 5
  11. If Second(Time) Mod 3 = 0 Then
  12.    xRow = Sht1.Range("A65536").End(xlUp).Row + 1
  13.    If xRow < 11 Then xRow = 11
  14.    Sht1.Range("A" & xRow & ":V" & xRow).Value = Sht1.Range("A2:V2").Value
  15.    Sht1.Range("W" & xRow).Value = Time
  16.    Mx = Application.Max(Sht1.Range("a" & xRow & ":v" & xRow))
  17.    Sht1.Range("Y" & xRow).Value = Mx
  18.    Ans = Sht1.Range("a" & xRow & ":v" & xRow).Find(Mx, , , xlWhole).Address
  19.    Sht1.Range("Z" & xRow).Value = Range(Ans).Column
  20.    '------------------------------------------------
  21.    If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
  22.       ActiveWindow.ScrollRow = xRow - 12 '讓最新資料保持在可見視窗中
  23.    End If
  24.    ThisWorkbook.Save   '存檔
  25. End If
  26. Application.OnTime Now + TimeValue("00:00:01"), "自動記錄"   '每一秒遞迴一次
  27. End Sub
複製代碼

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題