註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請教範圍的設定vba
返回列表
下一主題
上一主題
發帖
[發問]
請教範圍的設定vba
sto3688
發短消息
加為好友
sto3688
當前離線
UID
10471
帖子
14
主題
5
精華
0
積分
23
金錢
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2012-8-10
最後登錄
2014-2-28
小學生
帖子
14
主題
5
精華
0
積分
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
註冊時間
2012-8-10
最後登錄
2014-2-28
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2013-2-12 10:57
|
只看該作者
[發問]
請教範圍的設定vba
以下是
vba
碼
'
巨集
1 巨集
'
'
Range("F2:BA2").Select
Selection.Copy
End Sub
想請教在f2:ba2範圍內,想略過資料是---的
儲存格
,該加入什麼程式碼?
感謝高手指點,謝謝~
樓主熱帖
請教關於vba進階篩選
想請教一個時間區間的問題
請教兩個if函數合併
想請教如何顯示各品項到期天數前3名及後3名
收藏
分享
boyao
發短消息
加為好友
boyao
當前離線
UID
9968
帖子
57
主題
10
精華
0
積分
104
金錢
104
點名
0
作業系統
WINXP
軟體版本
OFFICE 2003
閱讀權限
20
性別
男
來自
taiwan
在線時間
165 小時
註冊時間
2012-7-5
最後登錄
2017-2-18
中學生
帖子
57
主題
10
精華
0
積分
104
點名
0
作業系統
WINXP
軟體版本
OFFICE 2003
閱讀權限
20
性別
男
來自
taiwan
註冊時間
2012-7-5
最後登錄
2017-2-18
2
#
發表於 2013-2-13 14:52
|
只看該作者
回復
1#
sto3688
Range("F2:H2,K2:BA2").Select
向上式 I2.J2 就是略過的
boyao
TOP
sto3688
發短消息
加為好友
sto3688
當前離線
UID
10471
帖子
14
主題
5
精華
0
積分
23
金錢
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2012-8-10
最後登錄
2014-2-28
小學生
帖子
14
主題
5
精華
0
積分
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
註冊時間
2012-8-10
最後登錄
2014-2-28
3
#
發表於 2013-2-13 15:27
|
只看該作者
感謝回復,可能我表達不佳,被誤解意思了
下載
(9.04 KB)
2013-2-13 15:17
我是想用vba Range("i2:n2").Select 這選取範圍內,能自動排除資料為"---"的儲存格,也就是如上圖中
讓 vba 只選擇k2跟l2這2個儲存格,不知道有沒有適合的程式碼,感謝
TOP
Joforn
發短消息
加為好友
Joforn
(南宮飄雪)
當前離線
UID
12720
帖子
109
主題
2
精華
0
積分
114
金錢
114
點名
0
作業系統
Win7 Win10
軟體版本
Office 2019 WPS
閱讀權限
20
性別
男
來自
深圳
在線時間
153 小時
註冊時間
2013-2-2
最後登錄
2024-11-6
暱稱:
南宮飄雪
中學生
帖子
109
主題
2
精華
0
積分
114
點名
0
作業系統
Win7 Win10
軟體版本
Office 2019 WPS
閱讀權限
20
性別
男
來自
深圳
註冊時間
2013-2-2
最後登錄
2024-11-6
4
#
發表於 2013-2-18 00:48
|
只看該作者
Sub TestCopy()
Dim Range1 As Range
Dim RangeCopy As Range
For Each Range1 In Range("F2:BA2")
Select Case Trim$(Range1.Text)
Case vbNullString
Case "---"
Case Else
If RangeCopy Is Nothing Then
Set RangeCopy = Range1
Else
Set RangeCopy = Union(RangeCopy, Range1)
End If
End Select
Next Range1
If RangeCopy Is Nothing Then
MsgBox "沒有合適的單元格!"
Else
With RangeCopy
.Select
.Copy
End With
End If
End Sub
複製代碼
TOP
sto3688
發短消息
加為好友
sto3688
當前離線
UID
10471
帖子
14
主題
5
精華
0
積分
23
金錢
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2012-8-10
最後登錄
2014-2-28
小學生
帖子
14
主題
5
精華
0
積分
23
點名
0
作業系統
win 7
軟體版本
office2010
閱讀權限
10
性別
男
註冊時間
2012-8-10
最後登錄
2014-2-28
5
#
發表於 2013-2-18 10:34
|
只看該作者
測試後可以copy了,感謝Joforn 大~
TOP
靜思自在 :
脾氣嘴巴不好,心地再好也不能算是好人。
返回列表
下一主題
上一主題
Excelㄧ般區
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲