關於Union的用法及修改，兩個問題請教 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 關於Union的用法及修改，兩個問題請教

返回列表下一主題上一主題發帖

[發問] 關於Union的用法及修改，兩個問題請教

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-11-7 08:25 | 顯示全部帖子

回復 1# chiang0320
提問： "2. 如果條件改成小於2的儲存格選取，會顯示錯誤"
照你寫的語法看來一定會出問題的，因為你的 "B 欄位" 中
並無條件小於2 的 COUNT，所以 Target 變數則從宣告為
Range 後一直到迴圈結束，未經異動 (處理)，依然保留為其初始值。
接著當你執行 Target.Select 時，則一定會產生錯誤訊息。將

Target.Select

複製代碼

改成

If Not Target Is Nothing Then Target.Select

複製代碼

至於將 Target 欄改成設定為列：

If Target Is Nothing Then
Set Target = Cells(i, "B")
Else
Set Target = Union(Target, Cells(i, "B"))
End If

複製代碼

換成

If Target Is Nothing Then
Set Target = Rows(i)
Else
Set Target = Union(Target, Rows(i))
End If

複製代碼

就可行了。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-11-7 08:29 | 顯示全部帖子

回復 1# chiang0320
修正後：

Sub QQQ()
Dim i As Long, Target As Range
For i = 2 To 11
If Cells(i, "B") > 30 Then
If Target Is Nothing Then
Set Target = Rows(i)
Else
Set Target = Union(Target, Rows(i))
End If
End If
Next
If Not Target Is Nothing Then Target.Select
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-11-7 16:00 | 顯示全部帖子

回復 4# GBKEE
不錯的詮釋，謝謝指導！

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

返回列表下一主題上一主題