Note: The other languages of the website are Google-translated. Back to English

Sut i gopïo rhesi a'u pastio i ddalen arall yn seiliedig ar ddyddiad yn Excel? 

Gan dybio, mae gen i ystod o ddata, nawr, rydw i eisiau copïo'r rhesi cyfan yn seiliedig ar ddyddiad penodol ac yna eu pastio i mewn i ddalen arall. Oes gennych chi unrhyw syniadau da i ddelio â'r swydd hon yn Excel?

Copïwch resi a'u pastio i ddalen arall yn seiliedig ar y dyddiad heddiw

Copïwch resi a'u pastio i ddalen arall os yw'r dyddiad yn fwy na heddiw


Copïwch resi a'u pastio i ddalen arall yn seiliedig ar y dyddiad heddiw


Os oes angen i chi gopïo'r rhesi os yw'r dyddiad heddiw, defnyddiwch y cod VBA canlynol:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Copïo a gludo rhesi yn seiliedig ar ddyddiad heddiw:

Sub CopyRow()
'Updateby Extendoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

3. Ar ôl pasio'r cod uchod, pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis y golofn ddyddiad rydych chi am gopïo rhesi yn seiliedig arni, gweler y screenshot:

4. Yna cliciwch OK botwm, mewn blwch prydlon arall, dewiswch gell mewn dalen arall lle rydych chi am allbwn y canlyniad, gweler y screenshot:

5. Ac yna cliciwch OK botwm, nawr, mae'r rhesi sy'n dyddio heddiw yn cael eu pastio i'r ddalen newydd ar unwaith, gweler y screenshot:


Copïwch resi a'u pastio i ddalen arall os yw'r dyddiad yn fwy na heddiw

I gopïo a gludo'r rhesi sy'n dyddio sy'n fwy na neu'n hafal i heddiw, er enghraifft, os yw'r dyddiad yn hafal neu'n fwy na 5 diwrnod ers heddiw, yna copïwch a gludwch y rhesi i ddalen arall.

Efallai y bydd y cod VBA canlynol yn ffafrio chi:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Copïwch a gludwch resi os yw'r dyddiad yn fwy na heddiw:

Sub CopyRow()
'Updateby Extentoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

Nodyn: Yn y cod uchod, gallwch newid y meini prawf, fel llai na heddiw neu nifer y diwrnodau sydd eu hangen arnoch yn y If TypeName (xVal) = "Dyddiad" A (xVal <> "") A (xVal> = Dyddiad A (xVal <Dyddiad + 5)) Yna cod sgript.

3. Yna pwyswch F5 allwedd i redeg y cod hwn, yn y blwch prydlon, dewiswch y golofn ddata rydych chi am ei defnyddio, gweler y screenshot:

4. Yna cliciwch OK botwm, mewn blwch prydlon arall, dewiswch gell mewn dalen arall lle rydych chi am allbwn y canlyniad, gweler y screenshot:

5. Cliciwch y OK botwm, nawr, mae'r rhesi y mae'r dyddiad yn hafal neu'n fwy na 5 diwrnod ers heddiw wedi cael eu copïo a'u pastio i'r ddalen newydd fel y dangosir y screenshot canlynol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl gwneud hyn ar gyfer llyfr gwaith cyfan os yw'r dyddiad bob amser yn yr un golofn ar bob un? Os felly, beth fyddai'r cod VBA, neu pa ran fyddwn i'n ei newid?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gawsoch chi ateb ar hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth yma. Hoffai ateb mewn gwirionedd!
DIOLCH YN EISOES EXTENDOFFICe :D
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir