請教各位前輩關於VB 一些問題

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-8-5 07:57 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-8-5 07:59 編輯

回復 1# jntseng
Public Sub tt()
Dim x As Range, Y As Range, rng As Range, r As Long '宣告變數
Dim y1 As Range, y2 As Range
Dim Ar, h%
Ar = Array("ba2:ba", "bb2:bb", "bc2:bc")
For h = 0 To UBound(Ar)
      r = Cells(65536, 52 + h+1).End(xlUp).Row    '取的A欄最大列位
      Set rng = Range(Ar(h) & r) '取得資料範圍
      For Each x In rng                '資料範圍內每一儲存格
         If x = "" Then                   '若儲存格值為""
            If Y Is Nothing Then          'Y若不存在
                  Set Y = x                   '將Y設定為x
                  MsgBox Y.Address
            Else                            '若Y存在
                  Set Y = Union(Y, x)          '結合Y及x成為新的範圍Y
            End If
         End If
      Next
      If Not Y Is Nothing Then Y.Delete (xlUp) '若Y存在將Y刪除
Next
End Sub

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-8-7 06:10 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-8-7 08:06 編輯

回復 3# jntseng
附上檔案看看
h% ->h As Integer
Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存。Integer 的型態宣告字元是百分比符號(%)。

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-8-7 12:52 | 顯示全部帖子

回復 5# jntseng
試試看

Sub Ex()
Dim AR As Range, E As Range
Set AR = Sheet1.Range("AW3", Sheet1.Range("AW" & Rows.Count).End(xlUp).Offset(-1))
'Sheet1.Range("AW" & Rows.Count).End(xlUp).Offset(-1)) -> Sheet1.Range("AW" & Rows.Count) "AW欄最底端的儲存格" .End(xlUp) "往上的第一個有資料的儲存格"
'.Offset(-1)) 所在的儲存格往上位移一列
For Each E In AR
' 將 E 代數你的程式碼中
Next
End Sub

複製代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-8-9 06:57 | 顯示全部帖子

回復 7# jntseng
設定變數如指定變數為物件時要加上 SET Y=union(Y,x)
Union 方法傳回兩個或多個範圍的合併範圍。