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

[發問] 如何將資料按指定名稱分類複制到各表格

ricky8751

小學生 Rank: 1

帖子: 31
主題: 6
精華: 0
積分: 37
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2010-10-31
最後登錄: 2017-10-26

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-10-31 04:14 | 只看該作者

[發問] 如何將資料按指定名稱分類複制到各表格

附件Temp.zip Sheets [Summary/ Jan/ Feb/ Mar/ Apr/ May/ Jun]

想將要Summary裡資料用Month排序後, 按Jan/ Feb/ Mar 分別複制到各已建立的表格.

先謝謝各位了.

temp.zip (2.26 KB)

樓主熱帖

gstone

中學生 Rank: 2

帖子: 15
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-9-22
最後登錄: 2016-11-8

8^#

發表於 2010-11-2 00:10 | 只看該作者

原來是Cells的簡化......
清楚了
感謝GBKEE版主

TOP

GBKEE

超級版主 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兔年全勤獎章

7^#

發表於 2010-11-1 19:31 | 只看該作者

回復 4# gstone
Cells 簡化掉了

Sub EX()
Dim A
Set A = Range("B10")
MsgBox A.Cells(1, 1).Address
MsgBox A.Cells(2, 1).Address
MsgBox A.Cells(1, 2).Address
MsgBox A.Cells(2, 2).Address
End Sub

複製代碼

TOP

gstone

中學生 Rank: 2

帖子: 15
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-9-22
最後登錄: 2016-11-8

6^#

發表於 2010-11-1 08:41 | 只看該作者

原來如此，我了解了............
往後需位移時就用此寫法來代替offset
才能少打幾個英文字
謝謝版主~

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-11-1 08:11 | 只看該作者

最後的(2, 1)是省略什麼的簡寫?
不是省略什麼，本來就有的語法。
(1,1)從本儲存格算起(自己也要算)向下1格，向右1格，也就是不位移。
(2,1)從本儲存格算起(自己也要算)向下2格，向右1格，也就是列號向下1格，欄不動
(1,2)從本儲存格算起(自己也要算)向下1格，向右2格，也就是欄號向右1格，列不動
0表示退1格，-1表示退2格，原則就是不位移時用1，位移多少再加多少或減多少。

TOP

gstone