Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-2 20:54 | 只看該作者

[發問] Activecell問題

我想問, 從一個table找出最大的值
然後想令找出來的最大值為activecell,
我想要知道這個activecell的位置資訊(指的是這個值在table裡的資訊),以便後續作業

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2011-11-2 22:07 | 只看該作者

回復 1# Helain
建議你提供一下範例檔案,
這樣大家才能知道你所謂的 Table 到底是個 Excel 資料呢,
還是類似 SQL 資料庫的東西?

這兩種資料的存取方式不同,
要得到資料所在其可用的索引方式也是不同的.

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-11-2 22:13 | 只看該作者

我想要知道這個activecell的位置資訊(指的是這個值在table裡的資訊),以便後續作業
什麼資訊？這是提問帖還是猜謎帖？

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

4^#

發表於 2011-11-3 11:02 | 只看該作者

抱歉!!{:2_25:}
我付上檔案了!!

Max.rar (13.56 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-11-3 11:38 | 只看該作者

Dim myRange As Range
Set myRange = Range(Cells(8, 3), Cells(17, 8))
a = Application.Round(Application.MAX(myRange), 6)
MsgBox myRange.Find(a, , xlValues, 1).Address
MsgBox myRange.Find(a, , xlValues, 1).Row
MsgBox myRange.Find(a, , xlValues, 1).Column

複製代碼

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

6^#

發表於 2011-11-4 16:13 | 只看該作者

可以再問一下 Find的意思嗎?
Find(a.xl.value,1)
"xlvalue" 與"1"分別是指什麼呢?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2011-11-4 16:45 | 只看該作者

Find就是尋找
找到最大值的位置
xlValues是找值，不要找公式。內定值是找公式的，所以要註明！
值得注意的是妳的小數位數設為6位，所以最大值要用Round函數取到小數6位才找得到。

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

8^#

發表於 2011-11-4 16:57 | 只看該作者

可以用Offset函數嗎?
Cells(1, 1).Value = Application.WorksheetFunction.Offset(Cells(13, 2), myRange.Find(a, , xlValues, 1).Row, myRange.Find(a, , xlValues, 1).Column)
若想要取得欄,列資訊填入, 這樣是哪邊有問題呢?

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

9^#

發表於 2011-11-4 17:02 | 只看該作者

回復 7# oobird

謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-11-4 17:03 | 只看該作者

回復 6# Helain

圖1 更改 2個的選項錄製巨集看看程式碼的變化

圖2 vba 視窗中按下 F8 逐行執行後, 將滑鼠移到紅框中的參數可以看到如箭頭指示的參數=數字

TOP