帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-10 09:41 | 顯示全部帖子

[發問] 如何快速複製剩下沒被選曲的?

A1 B1 C1 D1 分別為編號單位姓名職稱
資料筆數不定
一般核對資料時都是把我擁有的選取~
找出剩下沒被選取的~

我該如何快速複製這些剩下沒被選曲的呢?
因為經常使用~每次都必須輸寫註記在選取這些沒被選取的~
非常麻煩~請教各位大大了

樓主熱帖

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

2^#

發表於 2014-3-12 14:52 | 顯示全部帖子

回復 2# yen956

太神啦!
我想詢問一下~如果我想修改成複製選取的~該如何改?
我先研究一下~再次感謝

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

3^#

發表於 2014-3-14 10:13 | 顯示全部帖子

本帖最後由 av8d 於 2014-3-14 10:27 編輯

回復 5# yen956

956大大~真不好意思~最近比較忙那麼晚才回覆您~
我把疑問一一列出

1.非打勾的複製~改成打勾的複製~該如何改寫
測試OK
If Rng = "v" Then

2.如果要複製到J到M欄~該如何寫
3.如果要複製到Sheet3~該如何寫
4.如果E欄改成F欄~該如何改寫
5.如果只要複製B和D欄~該如何改寫

6.如果只要複製B到D欄~該如何改寫
測試OK
Cells(Rng.Row, 2).Resize(1, 4).Copy

如果方便的話可否解說關於Private Sub CommandButton1_Click()內容~謝謝

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

4^#

發表於 2014-3-14 11:28 | 顯示全部帖子

回復 7# av8d

剩下問題3
要複製到Sheet3的B2

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

5^#

發表於 2014-3-14 18:03 | 顯示全部帖子

回復 9# yen956

大大~謝謝你~太厲害了~

我想再問一個問題~這問題沒解開沒關係~
因為有點複雜~有些難度~
問題一：
如果要複製到右邊又要複製到Sheet3兩種都要有該如何做呢?

問題二(進階題)：
如果
把打勾的地方改成
原本A,B,C,D,打勾
改成A,B,打勾,C,D
位置更動，這樣似乎會比較方便使用者~但是會讓變得不好寫~

再次麻煩大大~謝謝

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

6^#

發表於 2014-3-15 20:41 | 顯示全部帖子

本帖最後由 av8d 於 2014-3-15 21:09 編輯

Private Sub CommandButton1_Click()
Dim Rng, rngE As Range, row1, i As Integer
Dim sh1, sh3 As Object
' Set sh1 = ThisWorkbook.Sheets("Sheet1")
Set sh3 = ThisWorkbook.Sheets("工作表3")
end1 = [A65536].End(xlUp).Row
Set rngE = [E2].Resize(end1, 1)
i = 2
For Each Rng In rngE
If Rng = "v" Then
Cells(Rng.Row, 1).Resize(1, 4).Copy
row1 = [I65536].End(xlUp).Offset(1, 0).Row
Cells(row1, 9).Resize(1, 4).Select
ActiveSheet.Paste
End If
sh3.Activate
If Rng = "v" Then
Cells(Rng.Row, 1).Resize(1, 4).Copy
sh3.Cells(i, 2).Select
ActiveSheet.Paste
i = i + 1
End If
Next
End Sub

複製代碼

結合後變成這樣?但是會出現錯誤

更動到旁邊 D E
C留給打勾的

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

7^#

發表於 2014-3-17 19:36 | 顯示全部帖子

本帖最後由 av8d 於 2014-3-17 19:40 編輯

回復 14# Hsieh

我嘗試修改了一下程式~可能是我還沒理解~
所以還無法改出我希望的答案~能否有勞大大代為修改了
希望答案是這樣~如下

正反.rar (20.51 KB)

觸發打勾的只要C,D欄就好~其餘的欄位希望可以不要觸發~謝謝

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

8^#

發表於 2014-3-17 19:53 | 顯示全部帖子

回復 13# yen956

請問能否只按下一個按鈕可以同時完成?如下

單按鈕.rar (21.41 KB)

因為工作表2的大毛和三毛被打勾
按下按鈕後~產生了J1:M3
同時也產生了工作表1的B2:D3

可能有點難度~不過還是很感謝大大的幫忙

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

9^#

發表於 2014-3-18 08:56 | 顯示全部帖子

回復 17# Hsieh

非常感謝Hsieh大大和yen956大大的大力幫助
受益良多~讓我的問題都迎刃而解~再次感謝！

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

10^#

發表於 2014-3-21 11:01 | 顯示全部帖子

本帖最後由 av8d 於 2014-3-21 11:12 編輯

回復 17# Hsieh

請教H老師~
我將您的稍微改了一下

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '打勾
If Cells(Target.Row, 1) <> "" And Target.Column = 3 Or Target.Column = 5 Then Cells(Target.Row, 5) = IIf(Cells(Target.Row, 5) = "", "v", "")
End Sub

複製代碼

請問我製作了一個按鈕~想讓他按下去後~全選或全刪
是否有辦法?再次感謝

-------------------------------------------------------------------
全刪我大概想到了~就是直接指定刪除一整行~
全選大概想到的方法就是負制沒打勾的
再次感謝H老師

TOP