彰化一整天的論壇

 找回密碼
 立即註冊
查看: 168|回復: 8

引用儲存格

[複製鏈接]
發表於 2021-3-14 05:21:07 | 顯示全部樓層 |閱讀模式
老師ˊ您好:
          請問
Worksheets("Sheet1").Range("A14").Copy  _
     destination:=Worksheets("Sheet2").Range("E5")


Worksheets("Sheet2")可以在Sheet1的儲存格取得引用嗎?



謝謝

0
回復

使用道具 舉報

發表於 2021-3-14 09:58:48 | 顯示全部樓層
可以,
下次請用程式碼的方式張貼.
如何在discuz張貼程式碼
http://discuz.bestdaylong.com/thread-30239-1-1.html
(出處: 彰化一整天的論壇)

  1. Worksheets("Sheet1").Range("A14").Copy  _
  2. destination:=Worksheets(Worksheets("Sheet1").Range("A13")).Range("E5")
複製代碼
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2021-3-14 12:44:08 | 顯示全部樓層
老師ˊ您好:
            Worksheets("Sheet1").Range("A14").Copy  _
            destination:=Worksheets(Worksheets("Sheet1").Range("A13")).Range("E5")

執行後 跳出  "執行階段錯誤 '9':陣列索引超出範圍" 對話
            
   謝謝
回復 支持 反對

使用道具 舉報

發表於 2021-3-14 18:49:25 | 顯示全部樓層
teruochen 發表於 2021-3-14 12:44
老師ˊ您好:
            Worksheets("Sheet1").Range("A14").Copy  _
            destination:=Worksheet ...

我寫的這一段是範例.
  1. Worksheets("Sheet1").Range("A13")
複製代碼

您有改成您要顯示的儲存格嗎?
或是將它改成
  1. Worksheets("Sheet1").Range("A13").value
複製代碼

試看看.若還是不行請上傳您的範例。
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2021-3-14 19:32:45 | 顯示全部樓層
本帖最後由 teruochen 於 2021-3-14 20:42 編輯

您好:
已在Sheet0 G1 填入Sheet1
  1. Private Sub CommandButton4_Click()
  2. Worksheets("Sheet0").Range("b2:d14").Copy _
  3.             Destination:=Worksheets(Worksheets("Sheet1").Range("g1").Value).Range("b2")
  4. End Sub
複製代碼
希望能達到在Sheet0 G1 填入在Sheet0 G1 填入Sheet1 則覆制貼上到  Sheet2 B2
謝謝您   
回復 支持 反對

使用道具 舉報

發表於 2021-3-15 08:34:25 | 顯示全部樓層
teruochen 發表於 2021-3-14 19:32
您好:
已在Sheet0 G1 填入Sheet1
希望能達到在Sheet0 G1 填入在Sheet0 G1 填入Sheet1 則覆制貼上到  Sheet ...

您好,
     麻煩貼圖說明,或是上傳範例檔案,您的描述我看不太懂。
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2021-3-15 11:32:38 | 顯示全部樓層
本帖最後由 teruochen 於 2021-3-15 11:36 編輯

您好:
       已上傳範例檔案  麻煩您幫忙看看
        謝謝











活頁簿1.xls

53 KB, 下載次數: 9

回復 支持 反對

使用道具 舉報

發表於 2021-3-15 11:45:03 | 顯示全部樓層
teruochen 發表於 2021-3-15 11:32
您好:
       已上傳範例檔案  麻煩您幫忙看看
        謝謝
  1. Private Sub CommandButton1_Click()
  2.     Worksheets("工作表1").Range("B2:D10").Copy _
  3.     Destination:=Worksheets(Worksheets("工作表1").Range("G1").Value).Range("A5")
  4. End Sub
複製代碼

活頁簿1.xls

58 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2021-3-15 13:26:33 | 顯示全部樓層
本帖最後由 teruochen 於 2021-3-15 14:00 編輯

您好:
       可以用了
        謝謝您  





回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)

GMT+8, 2021-4-11 02:24 , Processed in 0.117938 second(s), 20 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回復 返回頂部 返回列表