返回列表 上一主題 發帖

[發問] 如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

回復 1# sillykin
你有試過用錄製巨集嗎?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 5# sillykin
基本的工作表複製為何不錄製巨集看看語法,自己多練習.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 7# sillykin
是要複製整張工作表,CheckBox才可複製到
  1. Sub Ex()
  2.     Dim xPath As String
  3.     xPath = "d:\"
  4.     Workbooks("報告.xls").Sheets("報告表").Copy
  5.     With ActiveWorkbook
  6.       '  .SaveAs (xPath & .ActiveSheet.[b6] & .ActiveSheet.[b3])
  7.         .ActiveSheet.Name = .ActiveSheet.[b6] & .ActiveSheet.[b3]
  8.     End With
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題