Board logo

標題: 關於巨集錯誤的問題 [打印本頁]
作者: vpower    時間: 2010-8-11 18:59     標題: 關於巨集錯誤的問題

提示: 作者帳號被禁止或禁止訪問
作者: GBKEE    時間: 2010-8-11 19:46

本帖最後由 GBKEE 於 2010-8-11 19:49 編輯

回復 1# vpower
  1. Private Sub CommandButton1_Click()
  2.     Selection.Copy
  3.     Sheets("總覽").Select
  4.     Range(Cells(1, 2)).Select
  5.     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  6.         False, Transpose:=True
  7. End Sub
  8. Private Sub CommandButton3_Click()
  9.     Sheets("總覽").Select
  10.     Range("2:2,4:4,6:6").Select
  11.     Range("A6").Activate
  12.     Selection.ClearContents
  13. End Sub
複製代碼
這是你原本的程式碼  寫在sheets("原稿") 物件模組中
Sheets("總覽").Select-> '指定 "總覽"為作用中的工作表
接下的 Range(Cells(1, 2)).Select   語法是錯誤的
正確是  Range(Cells(1, 2).Address).Select    但這樣還是會有錯誤
因為 程式碼是在"原稿"中  所以沒有指明是哪一個SHEET中作Select 會在"原稿"中作Select的方法
如此就產生錯誤 須修改成 Sheets("總覽").Range(Cells(1, 2).Address).Select
                                  同 Sheets("總覽").Cells(1, 2).Select
                                  同 Sheets("總覽").Range("B1").Select
CommandButton3_Click ->  Range("2:2,4:4,6:6").Select  修改成 Sheets("總覽").Range("2:2,4:4,6:6").Select
                                            Range("A6").Activate     修改成   Sheets("總覽").Range("A6").Activate

如果 你將程式碼寫在一般模駔(Module) 中就沒有問題的
作者: vpower    時間: 2010-8-11 20:03

提示: 作者帳號被禁止或禁止訪問
作者: vpower    時間: 2010-8-11 20:06

提示: 作者帳號被禁止或禁止訪問
作者: vpower    時間: 2010-8-11 21:53

提示: 作者帳號被禁止或禁止訪問
作者: GBKEE    時間: 2010-8-12 08:19

本帖最後由 GBKEE 於 2010-8-12 08:24 編輯

回復 3# vpower
ActiveSheet.Range("A2").Select     ->ActiveSheet =作用中的工作表
所以上面的語法意思=> 作用中的工作表在 Range("A2").Select 的方法
第2題是也可以這樣修改的

回復 4# vpower
  1. Private Sub CommandButton1_Click()
  2.     With Selection
  3.         .Copy
  4.         Sheets("總覽").Range("b1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  5.                 False, Transpose:=True
  6.         .Value = ""
  7.     End With
  8. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)