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

VBA 物件選取寫法問題

mash071896

中學生 Rank: 2

帖子: 11
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2020-2-14
最後登錄: 2021-5-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-6-19 17:02 | 只看該作者

VBA 物件選取寫法問題

請問各位大大

Sub test()
Dim a As Worksheet
Dim b As Worksheet
Set a = Sheets("工作表1")
Set b = Sheets("工作表2")
For i = 0 To 2
a.Select
Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy
b.Select
Cells(i * 9 + 2, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End Sub

複製代碼

我把
a.Select
Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 這段縮寫
a.Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 為什麼他會跳出錯誤?

活頁簿1.rar (17.18 KB)

樓主熱帖

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-6-19 23:08 | 只看該作者

本帖最後由 n7822123 於 2020-6-19 23:22 編輯

回復 1# mash071896

Set a = Sheets("工作表1")
Set b = Sheets("工作表2")

我把
a.Select
Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 這段縮寫
a.Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 為什麼他會跳出錯誤?

如果你現在當前的表格是 "工作表2"，你執行下面這行，本來就是有問題
Sheets("工作表1").Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy

這就要說明，在當前物件下，可以省略前面父物件的敘述
今天你在"工作表2"當下，寫了這一行程式
Range("A1")="123"

系統會在當前活頁簿的當前工作表的[A1]欄位填值，也就相當於下面這行
Workbooks("你的活頁簿.xlsx").Sheets("工作表2").Range("A1")="123"

也就是說你只寫了 Range("A1")="123"，但是系統自動幫你把"父物件" 填上了
回頭來看你的程式，如果你當前畫面在"工作表2"，系統會幫你把父物件填好如下
Sheets("工作表1").Range(Sheets("工作表2").Cells(i + 2, 2), Sheets("工作表2").Cells(i + 2, 6)).Copy

這下你知道問題在哪了吧!? 你想讓電腦在工作表1找工作表2的儲存格，當然找不到!

寫成下面就沒問題了
a.Range(a.Cells(i + 2, 2), a.Cells(i + 2, 6)).Copy
或者
Sheets("工作表1").Range(Sheets("工作表1").Cells(i + 2, 2), Sheets("工作表1").Cells(i + 2, 6)).Copy

覺得很長嗎? 你可以用原本的方式 a.Select 切換當前工作表，或者你應該要學學用 With(正常VBA熟手的用法)
With Sheets("工作表1")
.Range(.Cells(i + 2, 2), .Cells(i + 2, 6)).Copy
End With

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

3^#

發表於 2020-6-20 13:56 | 只看該作者

本帖最後由 n7822123 於 2020-6-20 14:10 編輯

回復 1# mash071896

用With 結合你的其他程式可以略做簡化如下

Sub test2()
Sheets("工作表2").Activate '設當前工作表為工作表2
For i = 0 To 2
  With Sheets("工作表1")
   .Range(.Cells(i + 2, 2), .Cells(i + 2, 6)).Copy                                     ' 工作表1 複製
   Cells(i * 9 + 2, 2).PasteSpecial xlPasteValues, xlNone, False, True  ' 工作表2(被省略)  貼上
  End With
Next
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

mash071896