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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-3-10 09:41 | 只看該作者

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

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

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

樓主熱帖

av8d

大學生 Rank: 4

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

22^#

發表於 2014-3-21 11:30 | 只看該作者

回復 21# Hsieh

我按全部刪除~然後點複製沒勾選的~就OK了~
我剛測試了一下H老師的~似乎沒反應~
暫時用複製沒勾選的~謝謝老師

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

21^#

發表於 2014-3-21 11:12 | 只看該作者

回復 20# av8d
全選甚麼位置?
例如C欄全選
[C:C].Select
因為你有工作表事件程序Selection_Change
所以避免觸發程序
Application.EnableEvents = False
[C:C].Select
Application.EnableEvents = True

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

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

20^#

發表於 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

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

19^#

發表於 2014-3-18 15:17 | 只看該作者

回復 17# Hsieh
還好有大大的幫忙, 不然真會被考倒, 收下啦, 謝謝!!

TOP

av8d

大學生 Rank: 4

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

18^#

發表於 2014-3-18 08:56 | 只看該作者

回復 17# Hsieh

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2014-3-17 23:11 | 只看該作者

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

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

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

16^#

發表於 2014-3-17 19:53 | 只看該作者

回復 13# yen956

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

單按鈕.rar (21.41 KB)

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

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

TOP

av8d

大學生 Rank: 4

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

15^#

發表於 2014-3-17 19:36 | 只看該作者

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

回復 14# Hsieh

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

正反.rar (20.51 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2014-3-16 23:04 | 只看該作者

回復 10# av8d

Private Sub CommandButton1_Click() '反選
Application.EnableEvents = False
Dim Rng As Range
For Each a In Range("C:C").SpecialCells(xlCellTypeBlanks)
If Rng Is Nothing Then
Set Rng = Union(Cells(a.Row, "B"), Cells(a.Row, "D"))
Else
Set Rng = Union(Rng, Union(Cells(a.Row, "B"), Cells(a.Row, "D")))
End If
Next
Rng.Copy [J1]
Rng.Copy Sheets(3).[B2]
Application.EnableEvents = True
End Sub
Private Sub CommandButton2_Click() '選取
Application.EnableEvents = False
Dim Rng As Range
Set Rng = Union([B1], [D1])
For Each a In Range("C:C").SpecialCells(xlCellTypeConstants)
Set Rng = Union(Rng, Union(Cells(a.Row, "B"), Cells(a.Row, "D")))
Next
Range("J1").CurrentRegion.Clear
Rng.Copy [J1]
Sheets(3).[B2].CurrentRegion.Clear
Rng.Copy Sheets(3).[B2]
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '打勾
If Cells(Target.Row, 1) <> "" Then Cells(Target.Row, 3) = IIf(Cells(Target.Row, 3) = "", "v", "")
End Sub

複製代碼

反選.zip (21.77 KB)

學海無涯_不恥下問

TOP