返回列表 上一主題 發帖

[發問] 請教這段

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-22 10:02 | 只看該作者

[發問] 請教這段

本帖最後由 GBKEE 於 2011-7-22 10:29 編輯

請問各位大大
以下這段程式碼是什麼意思呀?
感謝您


For Each a In Range([A2], [A65536].End(xlUp))  
  Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""
   a.Offset(, 2) = ""   「這是向右清空2格?」
   Next
End Sub
收藏 分享
金毛飛

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
145  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-6-16 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-6-22 10:48 | 只看該作者
回復 1# aaaaaaaaaaaaaaa


    a.Offset(, 2) = ""   向右第二欄清空(只有一格)
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-6-22 10:52 | 只看該作者
  
   a.Resize(, 1) = ""
   a.Offset(, 2) = ""   「這是向右清空2格?」aaaaaaaaaaaaaaa 發表於 2010-6-22 10:02

a.Offset(, 2) = ""   
a.Offset(, 2)->是a向右位移2欄的範圍
清空的範圍=a 的大小 不是 向右清空2格的意思

TOP

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
4#
發表於 2010-6-22 11:17 | 只看該作者
本帖最後由 GBKEE 於 2011-7-22 10:30 編輯

請問各位大大
我上一個問題主要是要問以下程式碼的意思
也感謝H跟G大的指正
由於找不到回覆功能
所以只好再發問一次
不是故意賺積分
以下這段程式碼是什麼意思呀?
感謝您


For Each a In Range([A2], [A65536].End(xlUp))   
Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""
金毛飛

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
145  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-6-16 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-6-22 11:20 | 只看該作者
Offset 屬性
請參閱套用至範例特定套用至 Range 物件時用 Offset 屬性。

傳回 Range 物件，用以代表某個指定區域以外的範圍。唯讀。

expression.Offset(RowOffset, ColumnOffset)
expression     必選。該運算式傳回 Range 物件。

RowOffset      選擇性的 Variant。用列數表示的區域位移 (正值、負數或零 (0))。正值表示向下位移，負值表示向上位移。預設值為 0。

ColumnOffset      選擇性的 Variant。用欄數表示的區域位移 (整數、負數或 0 (零))。正值表示右位移，負值表示左。預設值為 0。
Resize 屬性
請參閱套用至範例特定調整指定的範圍。傳回 Range 物件，該物件代表調整後的範圍。

expression.Resize(RowSize, ColumnSize)
expression     必選。該運算式傳回要調整大小的 Range 物件。

RowSize     選擇性的 Variant。新範圍中所包含的列數。如果省略此引數，範圍中的列數保持不變。

ColumnSize     選擇性的 Variant。新範圍中所包含的欄數。如果省略此引數，範圍中的欄數保持不變
學海無涯_不恥下問

TOP

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
6#
發表於 2010-6-22 14:47 | 只看該作者
回復 5# Hsieh

H大
感謝您
金毛飛

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題