點選複製

各位前輩你們好!
前輩!問題如附檔說明
請知道的前輩,不吝賜教謝謝再三!!

Leov34.rar (83.36 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2010-12-14 21:33 | 顯示全部帖子

回復 2# GBKEE
GBKEE良師你好!
　　　良師!謝謝!程式只能單選
可否以修改有複選功能呢?
如附檔Leov34-2請再辛苦囉,謝謝再三!!

Leov34-2.rar (83.39 KB)

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-12-15 21:46 | 顯示全部帖子

回復 4# Hsieh
hsieh前輩你好!
   偶像前輩!謝謝!!程式複選沒問題
   但是單選時,偵錯在此 A.AutoFill A.Resize(R, 1)
   請再麻煩一下謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2010-12-15 21:48 | 顯示全部帖子

回復 5# GBKEE
GBKEE前輩你好!
   　良師!謝謝!!程式good謝謝再三!!

兩位前輩你們好!　　
   Sub 複製()
      Dim Ar As Range, A As Range
      Set Ar = Sheet1.[B1:C9]
      Set A = Sheet1.[IV1].End(xlToLeft).Offset(, 1)
      Ar.Copy
      A.Offset(0, 0).PasteSpecial xlPasteFormats
      A.Offset(0, 0).Resize(9, 2) = Ar.Value
      Application.CutCopyMode = False
   End Sub
   複製出來的儲存格都是值
   以實際需求有出入雖經修改還是看不下去哈哈!!
   只好再麻煩前輩囉!實在歹勢辛苦囉!謝謝再三!!

Leov35.rar (10.9 KB)