2

Excel VBA Userform資料打完後，點集按鈕能夠貼上至指定工作表

misser

misser
個人積分：395分
文章編號：78874995

395分

11樓

2020-08-29 15:19

michael811122 wrote:
但是沒辦法只選擇一筆貼上至我想要貼上的累積表單區域

所以會發生何結果？都沒貼上？

有最新，完整的檔案可下載測試嗎？

Der，misser1

michael811122

michael811122
個人積分：2分
文章編號：78889271

2分

樓主

2020-08-30 23:23

https://drive.google.com/file/d/191yR3zjRN2_R1a3dtyPDixBLshwFfTln/view?usp=sharing
再麻煩!感謝

misser

misser
個人積分：395分
文章編號：78890652

395分

13樓

2020-08-31 6:55

michael811122 wrote:
https://drive...(恕刪)

下載開啟，發現：

所以檔案內部還有與其他檔案的連結？

沒關係，我先不更新，....先用裡面的資訊來測試，應該沒差(不影響分析程式，是吧)。

不過原本是想假日來處理，現在是上班日囉，所以得抽晚上時間，看這幾天哪時有空，再試看看。

Der，misser1

misser

misser
個人積分：395分
文章編號：78894976

395分

14樓

2020-08-31 12:45

利用中午休息時間看了一下，問題應該就出在，單筆資料要複製時，選取的範圍太大(向下拉到整張工作表最底)，這樣要貼到目的地時，就貼不下，出現錯誤。

您的程式碼(在[登打]工作表，[登打系統]按鈕，叫出來的[送件登打]表單，[列印]按鈕的程式...)

'列印區域
Private Sub PrintR_Click()

............(略)

'剪下內容貼至總表
Worksheets("登打").Activate
Sheets("登打").Range("K2").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut

「Range(Selection, Selection.End(xlDown)).Select」這句，在資料多列時，運作正常，但只有一筆資料時，卻會向下全選到工作表底。

如果要解決，治標的方法，很簡單，就是當資料只有一筆時，不要執行該行。

所以您可以修改，在前面加個判斷：

If Sheets("登打").Range("k3").Value <> "" Then Range(Selection, Selection.End(xlDown)).Select

這樣就解決這問題了。(當然，這是解決[送件登打]的[列印]貼上問題。至於整個檔案程式裡，您可能還需檢視，其他程式碼裡面，有做選取的部分，是不是都有這問題，需要修正......這部分相信您舉一反三，應該可以解決。)

加油，祝您順利。

Der，misser1

2