Sut i symud rhes benodol i ddalen newydd pan fydd blwch gwirio yn cael ei wirio yn Excel?
Mae'r erthygl hon yn sôn am symud rhes benodol i ddalen newydd pan fydd blwch gwirio yn cael ei wirio yn Excel.
Symud rhes pan fydd blwch gwirio yn cael ei wirio gyda chod VBA
Symud rhes pan fydd blwch gwirio yn cael ei wirio gyda chod VBA
Gwnewch fel a ganlyn i symud rhes benodol i daflen waith benodol wrth wirio blwch gwirio yn Excel.
1. Newid i'r daflen waith mae angen i chi symud rhes yn seiliedig ar flwch gwirio, cliciwch Datblygwr > Mewnosod > Blwch Gwirio (Rheoli ActiveX) i fewnosod blwch gwirio. Gweler y screenshot:
2. Cliciwch ar y dde ar y tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:
3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch islaw'r cod VBA i mewn i ffenestr y Cod.
Cod VBA: Symud rhes i mewn i daflen waith benodol pan fydd blwch gwirio yn cael ei wirio
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
Nodyn: Yn y cod, mae Shee3 ac A1 yn nodi y bydd y rhes benodol yn cael ei symud i'r rhes gyntaf yn Nhaflen3. Newidiwch nhw ar sail eich anghenion.
4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
5. Diffoddwch y Modd Dylunio trwy glicio ar y Modd Dylunio botwm ar y Datblygwr tab.
6. Gwiriwch y blwch gwirio, yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch gell gyntaf y rhes (neu'r rhes gyfan) sydd ei hangen arnoch i symud a chlicio ar y OK botwm. Yna bydd y rhes gyfan benodol yn cael ei symud i daflen waith benodol ar unwaith. Gweler y screenshot:
Erthyglau cysylltiedig:
- Sut i symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd yn Excel?
- Sut i symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!