[算表] class range 的 select 方法失敗

看板Office作者 (火靈)時間16年前 (2010/02/19 13:30), 編輯推噓0(002)
留言2則, 1人參與, 最新討論串1/1
軟體: excel 版本: 2003 是這樣的, 我有一些worksheets分別記錄個人的各種資料 worksheets("小明") 小華 阿德 腦殘 ...等 最後我在 worksheets("整理") 處 設置了個 按鈕 當我按下這個按鈕 我希望他去 各個sheets 選取 各種資料 並複製回 worksheets("整理") 處 貼上 我的寫法是 ---------------- worksheets("小明").select getsomething worksheets("小華").select getsomething ... .. . ---------------- sub getsomething() range("B3").copy class range 的 select 方法失敗 Worksheets("整理").Range("A60000").End(xlUp).Offset(1, 0).PasteSpecial range("XX").copy Worksheets("整理").Range("B60000").End(xlUp).Offset(1, 0).PasteSpecial ... .. . end sub ---------------- 我查了一下 最簡單的解決方案應該是 改成 WorkSheets("小明").range("B3").copy 不過這樣就不能套用getsomething來做簡單的重複性行為 或者說反覆性行為.... 阿... 總之 如果這樣寫 我又剛好有很多個個人資料要輸入 那我不就寫昏頭了....?? 光是 小明 小華.... 就可能讓我炸頭 請問 有沒有更好的方法 ??? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 219.70.46.99 ※ 編輯: firelf 來自: 219.70.46.99 (02/19 13:30)

02/19 14:45, , 1F
activecell.range(A1).select ... 我想我找到答案了
02/19 14:45, 1F

02/19 20:54, , 2F
activesheet -__-b
02/19 20:54, 2F
文章代碼(AID): #1BVY7bNN (Office)
文章代碼(AID): #1BVY7bNN (Office)