jesscc

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-17 00:09 | 顯示全部帖子

[發問] 利用儲存格中的部分關鍵字，取出同一列的相關資料

想了好久，還是沒頭緒，寫得亂七八糟。附檔中有詳細說明，求解!

test.rar (12.86 KB)

樓主熱帖

Jess

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

2^#

發表於 2011-9-17 12:53 | 顯示全部帖子

回復 2# GBKEE

謝謝G大一次教我三種作法，第一種作法我比較能看得懂。其中的第十八行，如果除數為0的時候，程式會出現除錯，要如何避免這種情形? 還有我要用Rounddown將計算結果無條件取至整數，該如何套用?

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2011-9-17 13:46 | 顯示全部帖子

回復 4# GBKEE
了解
Round、RoundUp、Rounddown 這些函數只能用在公式裏嗎?

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

4^#

發表於 2011-9-17 17:30 | 顯示全部帖子

本帖最後由 jesscc 於 2011-9-17 17:43 編輯

回復 6# GBKEE

這一點我知道
我的疑問是如果我要四捨五入而不是取整數，用Round函數，程式不理我，那我該用什麼函數?
還有一點

Range("O:O") = ""
Dim yRow&
yRow = [E65536].End(xlUp).Row
If yRow < 7 Then Exit Sub
If Range("M7:M" & yRow) = "" And Range("N7:N" & yRow) <> "" And Range("L7:L" & yRow) <> "" Then
Range("O7:O" & yRow).Formula = "=Rounddown(N7*1000/L7,0)"
Else
Range("O7:O" & yRow).Formula = "=M7*L7"
End If
Range("O7:O500").Value = Range("O7:O500").Value

複製代碼

代碼中的第五行，一直出現除錯"型態不符合"，And不能這樣連接嗎?

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

5^#

發表於 2011-9-17 19:19 | 顯示全部帖子

回復 jesscc
沒有不理你是語法錯誤
If Range("M7:M" & yRow) = "" And Range("N7:N" & yRow) "" And ...
GBKEE 發表於 2011-9-17 18:59

G大，抱歉我貼錯了，應該是指同一列的資料，而不是計算所有空白儲存格
If Range("M7:M" & yRow) = "" And Range("M7:M" & yRow).Office(,1) <> "" And Range("M7:M" & yRow).Office(,-1) <> "" Then
Range("O7:O" & yRow).Formula = "=Rounddown(N7*1000/L7,0)"
Else
Range("O7:O" & yRow).Formula = "=M7*L7"
End If
像上面這樣，語法不知錯在哪裡?

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

6^#

發表於 2011-9-17 20:23 | 顯示全部帖子

回復 10# GBKEE

附上修改後的檔案，請G大操作一下就知道了

test.rar (75.72 KB)

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

7^#

發表於 2011-9-17 22:01 | 顯示全部帖子

本帖最後由 jesscc 於 2011-9-17 22:09 編輯

回復 12# GBKEE

我的問題就在這裡
搞不懂為什麼用一個物件變數來取代Range，整個判斷式就可以用多個And 連接?

還有前面那個第18行的問題
為什麼這樣可以
Ky.Offset(0, 10) = Int(Ky.Offset(0, 9) * 1000 / Ky.Offset(0, 7))

這樣就不行
Ky.Offset(0, 10) = Rounddown((Ky.Offset(0, 9) * 1000 / Ky.Offset(0, 7)),0)

如果是要四捨五入，這段不知該用什麼函數?

Jess

TOP

jesscc