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裡的資訊),以便後續作業

樓主熱帖

baa168

中學生 Rank: 2

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

15^#

發表於 2011-11-7 21:05 | 只看該作者

原來是這個樣子baa受教了...

TOP

Helain

中學生 Rank: 2

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

14^#

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

謝謝Hsieh大大, 我知道問題點了!!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 105
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-7

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

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

回復 12# Helain

以你的現有數據B7:D10的最大值99
列號是9
欄號是2
而你的OFFSET原點是B13
B13向下9列向右2欄你說會指到哪個位置?

學海無涯_不恥下問

TOP

Helain

中學生 Rank: 2

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

12^#

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

本帖最後由 Helain 於 2011-11-4 17:28 編輯

原來在VBA 不能使用OFFSET函數

我已經附上檔案了, 不知道哪邊有問題

Test123.rar (11.86 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 105
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-7

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

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

回復 8# Helain

VBA中的OFFSET與工作表函數的OFFSET不可混淆
在VBA中不能使用工作表函數的OFFSET
必須寫成
Cells(1, 1).Value = Cells(13, 2).Offset(myRange.Find(a, , xlValues, 1).Row, myRange.Find(a, , xlValues, 1).Column)

學海無涯_不恥下問

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

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

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

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