標題: [發問] 求有關範圍數據中抽樣的公式 [打印本頁]

---

作者: united7878    時間: 2014-11-26 20:16     標題: 求有關範圍數據中抽樣的公式

想請教版上的前輩們

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

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

該用哪個函數呢?

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

請前輩們指導一下了

謝謝~

---

作者: rouber590324    時間: 2014-11-27 09:34

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

Sub DATA()
Sheet2.[A265536].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

---

作者: united7878    時間: 2014-11-28 03:23

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

---

作者: united7878    時間: 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
[attach]19699[/attach]
我附上表格請前輩幫我看看還有甚麼地方需要修正的嗎?

謝謝~

---

作者: rouber590324    時間: 2014-12-4 10:21

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

---

作者: united7878    時間: 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
想請教版上的前輩高手們是何問題造成抽樣失敗
而偵錯的原因為何?

謝謝

---

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