　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-11-26 20:16 | 只看該作者

[發問] 求有關範圍數據中抽樣的公式

想請教版上的前輩們

表一為資料頁，其中U欄是積分所在

想在表二儲存頁參照SHEET1的U3:U2000抽出積分介於25~40同列的A欄代號、B欄姓名、E欄獎金以及U欄的積分

該用哪個函數呢?

我試著用IF+AND都抽樣失敗...

請前輩們指導一下了

謝謝~

樓主熱帖

united7878

　暱稱: 淚的小花

中學生 Rank: 2

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

6^#

發表於 2014-12-6 04:48 | 只看該作者

從一般區轉求有關範圍數據中抽樣的公式

本帖最後由 united7878 於 2014-12-6 04:49 編輯

上禮拜在一般區發問了一個有關"範圍數據中抽樣的公式"

表一為資料頁，其中U欄是積分所在

想在表二儲存頁參照SHEET1的U3:U2000抽出積分介於25~40同列的A欄代號、B欄姓名、E欄獎金以及U欄的積分

幸得rouber590324 前輩的指導而習得一VBA語法如下
1204BOOK1.rar

但執行後會出現"執行接斷錯誤'13' 型態不符合 "的錯誤訊息
偵錯後在這行停止
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then
想請教版上的前輩高手們是何問題造成抽樣失敗
而偵錯的原因為何?

謝謝

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2014-12-4 10:21 | 只看該作者

DEAR 淚的小花
公司限制我無法下載您提供之檔案殘念........

羅

TOP

united7878

　暱稱: 淚的小花

中學生 Rank: 2

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

4^#

發表於 2014-12-4 08:33 | 只看該作者

回復 2# rouber590324
rouber590324 前輩您好

我套用VBA後出現了

"執行接斷錯誤'13' 型態不符合 "的錯誤訊息

偵錯後在這行停止
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then

1204BOOK1.rar (86.12 KB)
我附上表格請前輩幫我看看還有甚麼地方需要修正的嗎?

謝謝~

TOP

united7878

　暱稱: 淚的小花

中學生 Rank: 2

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

3^#

發表於 2014-11-28 03:23 | 只看該作者

回復 2# rouber590324
恩~
感謝rouber590324 前輩
用VBA果然方便多了
{:3_46:}

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2014-11-27 09:34 | 只看該作者

1.用VBA比較快如下
1.1SHEET2=表二第一列自行放標題.
A欄代號、B欄姓名、C欄獎金以及D欄的積分
1.2SHEET1=表一資料庫
A欄代號、B欄姓名、E欄獎金以及U欄的積分
1.3建立按鈕執行下方程式

Sub DATA()
Sheet2.[A2

65536].ClearContents
Y = Sheet2.[A65536].End(xlUp).Row + 1
X = Sheet1.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then
Sheet2.Cells(Y, 1) = Sheet1.Cells(M, 1)
Sheet2.Cells(Y, 2) = Sheet1.Cells(M, 2)
Sheet2.Cells(Y, 3) = Sheet1.Cells(M, 5)
Sheet2.Cells(Y, 4) = Sheet1.Cells(M, 21)
Y = Y + 1
End If
Next
Sheet2.Select
Range("A1").Select
End Sub

羅

TOP