12
返回列表 上一主題 發帖

[發問] 資料的複製、貼上，語法問題

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
11# 跳轉到 »
發表於 2019-6-21 14:08 | 只看該作者
本帖最後由 n7822123 於 2019-6-21 14:11 編輯

回復 9# iceandy6150


UsedRange是計算某個工作表的使用範圍~~~所以前面最好指定是哪個Sheet
你的按鈕在工作表1，所以工作表1一開始就是Activate了~~~~
盡量不要一直切換工作表.........把自己弄混亂了~~~我光看你的說明...我自己也混亂了XD
依照你的寫法，我認為你還是直接指定哪個工作表比較安全^.^
你在ppt工作表的操作比較多，按鈕卻設在工作表1的確容易出問題

如果是我，就這樣寫摟~~~

With Sheets("PPT")
  If .[A1].Value <> "" Then .[A1:Z200].Delete Shift:=xlShiftUp    '清除所有資料
  [A1].CurrentRegion.Copy
  .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  , SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  A = .UsedRange.Rows.Count
  For i = 2 To A
    .Range("U" & i).Value = .Range("G" & i).Value + 1
  Next i
End With
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
12#
發表於 2019-6-24 00:32 | 只看該作者
回復 10# 准提部林


    好的，非常感謝

只是因為有時候很長一串
我都想省一下，呵呵
哈囉~大家好呀

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
13#
發表於 2019-6-24 00:48 | 只看該作者
UsedRange是計算某個工作表的使用範圍~~~所以前面最好指定是哪個Sheet
你的按鈕在工作表1，所以工作表1一開始就是Activate了~~~~
盡量不要一直切換工作表.........把自己弄混亂了~~~我光看你的說明...我自己也混亂了XD
依照你的寫法，我認為你還是直接指定哪個工作表比較安全^.^
你在ppt工作表的操作比較多，按鈕卻設在工作表1的確容易出問題

如果是我，就這樣寫摟~~~

With Sheets("PPT")
  If .[A1].Value <> "" Then .[A1:Z200].Delete Shift:=xlShiftUp    '清除所有資料
  [A1].CurrentRegion.Copy
  .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  , SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  A = .UsedRange.Rows.Count
  For i = 2 To A
    .Range("U" & i).Value = .Range("G" & i).Value + 1
  Next i
End With
回復 11# n7822123

喔~ 那我知道了  按鈕在哪一頁，按下按鈕的時候，那一頁就是Activate了
任何指令或是省了 "前面地址" 的寫法，都是針對這一頁面在動作

所以如果三個SHEET，分別是【功能區】、【結果區】、【輸出區】
很多按鈕功能都是寫在【功能區】的話

我只要寫
Range("A1:B5").select  ==>> 【功能區】的A1~B5會被選取

如果想要針對另外兩個頁面去做處理
我就必須先寫WITH

With Sheets("結果區")
.Range("A1:B5").select    ==>>  【結果區】的A1~B5會被選取    前面要加"點"，才是針對With的Sheet來動作

那來個測試
如果程式如下的話
Range("A1:B5").select

With Sheets("結果區")
.Range("A1:B5").select
End with

With Sheets("輸出區")
.Range("A1:B5").select
End with

果然就會乖乖的去選取各Sheet選取該對應的區塊
【功能區】的A1~B5會被選取
再來是
【結果區】的A1~B5會被選取
再來是
【輸出區】的A1~B5會被選取

原來有點 跟沒有點  還有WITH  是這樣用得喔
我會了  YA~ 感謝大大教學~
哈囉~大家好呀

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題