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

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

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

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-11-6 23:59 | 只看該作者

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

本帖最後由 chiang0320 於 2016-11-7 00:04 編輯

Union(1).zip (12.98 KB)

兩個問題請教老師教導，謝謝!
以下vba程式碼，條件--->將大於30的儲存格選取
1. 怎麼修改成選取  "整列(rows) "
2. 如果條件改成小於2的儲存格選取，會顯示錯誤，  "請問怎麼修改成，如果沒有在條件內的資料則跳過"

Public 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 = Cells(i, "B")
   Else
      Set Target = Union(Target, Cells(i, "B"))
   End If
  End If
Next
Target.Select
End Sub

樓主熱帖

收藏

博士班 Rank: 6 Rank: 6

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

2^#

發表於 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

3^#

發表於 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: 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兔年全勤獎章

4^#

發表於 2016-11-7 14:35 | 只看該作者

回復 1# chiang0320
1. 怎麼修改成選取 "整列(rows) "
可修改如下

Option Explicit
Sub QQQ()
Dim i As Long, Target As Range, Rng As Range
Set Rng = Range("A1").CurrentRegion.Rows '** 附檔資料的範圍的的所有列
For i = 2 To 11
If Rng(i).Cells(2) < 2 Then
'If Rng.Range("B" & i) < 2 Then '** 也可以
If Target Is Nothing Then
Set Target = Rng(i)
Else
Set Target = Union(Target, Rng(i))
End If
End If
Next
If Not Target Is Nothing Then Target.Select
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

博士班 Rank: 6 Rank: 6

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

5^#

發表於 2016-11-7 16:00 | 只看該作者

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

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

6^#

發表於 2016-11-7 20:43 | 只看該作者

回復 1# chiang0320

感謝 GBKEE 及 c_c_lai 兩位前輩的指導，謝謝!

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

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