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

Sut i symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd yn Excel?

Ar gyfer symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd yn Excel, rhowch gynnig ar y cod VBA yn yr erthygl hon.

Symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd gyda chod VBA


Symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd gyda chod VBA


Er enghraifft, fel y dangosir isod y llun, os yw cell yng ngholofn C yn cynnwys gwerth penodol “Wedi'i wneud”, yna symudwch y rhes gyfan i waelod y ddalen gyfredol. Gwnewch fel a ganlyn.

1. Gwasgwch Alt+ F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r ffenestr.

Cod VBA: Symudwch y rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth y gell

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Nodyn: Yn y cod VBA, “Wedi'i wneud”Yw gwerth y gell y byddwch chi'n symud rhes gyfan yn seiliedig arno. Gallwch ei newid yn ôl yr angen.

3. Gwasgwch y F5 allwedd i redeg y cod, yna yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod golofn y mae'r gwerth penodol yn bodoli ynddo, yna cliciwch ar y OK botwm.

Ar ôl clicio ar y OK botwm, mae'r rhes gyfan sy'n cynnwys y gwerth "Wedi'i wneud" yn y golofn benodol yn cael ei symud i waelod yr ystod ddata yn awtomatig.


Erthyglau perthnasol:


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 (26)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut allwn i ei wneud fel bod y kutools yn dewis rhesi penodol heb fewnbwn defnyddiwr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Anon,
Mae’n ddrwg gennyf, nid wyf yn siŵr beth rydych yn ei olygu. Byddai'n braf pe gallech ei esbonio eto neu ddarparu sgrinlun i ddangos yr hyn yr ydych yn ceisio'i wneud.
Diolch am eich sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal, mae'r cod hwn yn gweithio'n wych, diolch. Hoffwn symud yr holl resi sy'n cynnwys y gair "Complete" yng ngholofn D i frig y tabl (rhowch yn rhes 3). A yw hynny'n bosibl? yna hoffwn ddileu'r holl resi cyflawn hyn sy'n cynnwys "dyddiad ddoe" yng ngholofn V.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Mae hyn bron yn berffaith ar gyfer yr hyn rydw i eisiau. Mae gennyf ran o'r un cais ag a oedd gan Anon i wneud i hyn weithio heb fewnbwn defnyddiwr ynghyd â rhai pethau ychwanegol.

Rwy'n meddwl tybed a yw'n bosibl cael yr unig golofn a chwiliwyd i fod yn i4 i i50 a'i chael i redeg yn awtomatig ar agor neu unrhyw bryd y caiff y golofn i ei golygu. Hefyd os byddai'n bosibl symud y rhesi i waelod y ddalen heb unrhyw resi gwag rhwng rhesi "wedi'u gwneud" a rhesi "na". Ar hyn o bryd os byddaf yn dewis i4:i50 ac os mai dim ond data hyd at rhes 25 sydd gennyf, bydd yn gludo'r rhesi "wedi'u gwneud" gan esgyn o res 50 yn lle rhes 25. Mae nifer y rhesi yn fy nhaflen yn newid yn gyson ac ni ddylai gyrraedd mwy na 50. Diolch am y cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Brandon,
Mae'n ddrwg gennyf gall eich helpu gyda hynny. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i newid hyn fel ei fod yn symud rhes i rywle arall yn yr un ddalen ar wahân i'r diwedd? Mae gen i daflen sydd â gwybodaeth archebu ar gyfer archebion dyddiedig ac archebion sydd ar ddod eto i'w dyddio ac mae gen i hi fel bod pethau'n amlygu ac yn feiddgar pan fyddaf yn rhoi "X" yng ngholofn A yn dibynnu ar ran #'s a lleoliadau cludo. Nawr mae'n rhaid i mi dorri a gludo'r newydd-ddyddiedig (dyddiad cludo) yn gorfforol fel ei fod yn ffitio i mewn ar y brig dyddiad sortio (1af hyd ddiwedd y mis). Rwyf wedi gallu fformatio popeth yn amodol hyd at y pwynt hwn, ond nid wyf yn meddwl y gallaf symud rhesi felly. Roeddwn i'n meddwl tybed a allai VBA wneud hyn, symud rhes pan roddir dyddiad i gyd-fynd â'r rhesi dyddiedig eraill?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, yr unig ffordd y gallaf gael hyn i weithio yw os byddaf yn "rhedeg" y macro yn yr is-sgrin Visual Basic. A yw'n bosibl cael y cod VBA hwn yn rhedeg yn awtomatig, unwaith y bydd y defnyddiwr yn teipio yn "Done"? Bob tro dwi'n cael y Kutools ar gyfer Excel blwch deialog pop i fyny i ofyn y paramedrau rwy'n gofyn am y cod i chwilio yn ôl. Rwyf wedi gweithio o gwmpas hyn trwy amnewid : xTxt = ActiveSheet.UsedRange.AddressLocal gyda'r paramedrau yr wyf angen eu chwilio a tharo enter. Ond byddai'n fwy cyfleus pe bai'n gwneud y newidiadau yn awtomatig ar ôl nodi "Done". Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Anon,
Gall y cod VBA isod wneud ffafr i chi. Rhowch gynnig arni.
Cliciwch ar y dde ar y tab dalen (mae'r ddalen yn cynnwys y data y byddwch yn symud i'r gwaelod), dewiswch View Code o'r ddewislen cyd-destun a chopïwch y cod isod i ffenestr y Cod.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
'Diweddarwyd gan Extendoffice 20190925
Dim xRg Fel Ystod
Dim xIRg Fel Ystod
Dim xTxt Fel Llinyn
Dim xCell Fel Ystod
Dim xEndRow Cyhyd
Dim I Cyn Hir
Dim xDStr Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
xDStr = "C:C"
Gosod xRg = Me.Range(xDStr)
Gosod xIRg = Application.Intersect(Targed, xRg)
Os yw xIRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
Application.EnableEvents = Gau

Os Targed = "Gwneud" Yna
xEndRow=ActiveSheet.UsedRange.Rows.Count+1
Targed.Rhes Gyfan.Torri
Rhesi(xEndRow). Mewnosod Shift:=xlDown
Gorffennwch Os
Application.EnableEvents = Gwir
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo grisial,

Diolch am bostio'r cod hwn. Hoffwn wybod sut i gael y cod i symud y rhes yn ôl i'r brig pe bai Done wedi'i deipio mewn camgymeriad. A ellid ychwanegu cod eilaidd ar gyfer "symud" i'w symud i'r brig, a "gwneud" ar gyfer y gwaelod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo grisial mae'r cod roesoch i anon i gael y cod rhedeg vba yn awtomatig yn wych ond ni allaf fewnosod tudalen o resi a oes ffordd bosibl i'w drwsio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo sarah,
Ymddiheuriadau am yr anghyfleustra. Rhowch gynnig ar y VBA isod. Diolch.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

'Diweddarwyd gan Extendoffice 20200424

Dim xRg Fel Ystod

Dim xIRg Fel Ystod

Dim xTxt Fel Llinyn

Dim xCell Fel Ystod

Dim xEndRow Cyhyd

Dim I Cyn Hir

Dim xDStr Fel Llinyn

Ar Gwall Ewch i Gwall1

xDStr = "C:C"

Gosod xRg = Me.Range(xDStr)

Gosod xIRg = Application.Intersect(Targed, xRg)

Os yw xIRg Yn Ddim Yna Ymadael Is

Application.ScreenUpdating = Anghywir

Application.EnableEvents = Gau



If Target.Value = "Gwneud" Yna

' xEndRow = ActiveSheet.UsedRange.Rows.Count + 1

xEndRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell). Row + 1

Targed.Rhes Gyfan.Torri

Rhesi(xEndRow). Mewnosod Shift:=xlDown

Gorffennwch Os

Gwall 1:

Application.EnableEvents = Gwir

Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais gopïo'r cod hwn ond mae'n parhau i ddweud defnydd annilys o Me.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os mai dim ond o dan Colofn A a B y mae angen i chi symud rhesi; yna dylai Colofn C gadw? a ddylem barhau i ddefnyddio EntireRow?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jerel,
Rhowch gynnig ar y cod isod. Gobeithio y gallaf helpu.

Is Symud i Ddiwedd()

'Diweddarwyd gan Extendoffice 20200717

Dim xRg Fel Ystod

Dim xTxt Fel Llinyn

Dim xCell Fel Ystod

Dim xEndRow Cyhyd

Dim xIntR Fel Cyfanrif

Dim I Cyn Hir

Dim xWs Fel Taflen Waith

Ar Ail-ddechrau Gwall Nesaf

Os ActiveWindow.RangeSelection.Count > 1 Yna

xTxt = ActiveWindow.RangeSelection.AddressLocal

arall

xTxt = ActiveSheet.UsedRange.AddressLocal

Gorffennwch Os

lUn:

Gosod xRg = Application.InputBox ("Dewis ystod:", "Kutools ar gyfer Excel", xTxt, , , , , 8)

Os yw xRg Yn Ddim Yna Ymadael Is

Os xRg.Columns.Count > 1 Neu xRg.Areas.Count > 1 Yna

MsgBox " Mae ystodau neu golofnau lluosog wedi'u dewis " , vbInformation , " Kutools for Excel "

Ewch i Un

Gorffennwch Os

xEndRow = xRg.Rows.Count + xRg.Row

xWs = xRg.Taflen waith

xWs.Gweithgarwch

Application.ScreenUpdating = Anghywir

Ar gyfer I = xRg.Rows.Count I 1 Cam -1

Os xRg.Item(I) = "Gwneud" Yna

Rhesi(xEndRow).Mewnosod Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrUchod

xIntR = xRg.Cells(I).Rhes

Ystod ("A" & xIntR & ":B" & xIntR). Dewiswch

Dewis.Torrwch

Ystod ("A" a xEndRow). Dewiswch

Taflen Actif.Gludo

xEndRow = xEndRow+1



Gorffennwch Os

Digwyddiadau

Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,



Rwy'n cael problemau wrth ddefnyddio'r cod a ddarparwyd ac rwy'n derbyn gwall cystrawen o hyd. Rwy'n hynod newydd i ragori ac rwyf wedi bod yn ceisio dysgu fy hun yr hyn sydd ei angen arnaf i redeg fy musnes cartref. Mae gennyf id taenlen rhestr eiddo i allu dynodi eitemau mewn colofn fel rhai WEDI YMDDEOL? ydyn/ nac ydyn ac os oes, maent yn symud i waelod y ddalen, yn nhrefn yr wyddor, heb adael bwlch gwag yn y brif daenlen. mae gennym eitemau'n ymddeol yn llwyr ac yna'n dod yn ôl ar gyfer ail-ryddhad arbennig mewn symiau cyfyngedig ac id fel yr eitemau hyn wedi'u storio ar waelod fy nhaflen nes eu bod ar gael eto. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i dasg y mae fy mhennaeth wedi'i rhoi i mi. Roedd yn ymddangos yn ddigon syml ar y dechrau ond nawr rydw i wedi drysu ynglŷn â sut i symud ymlaen. Mae gennym ddalen Rhagolwg o'r swyddi posib ac mae ganddynt golofn "Tebygolrwydd Archeb" gan %. Mae am i mi sefydlu 3 dalen wahanol gyda 100-70%, 69% -41, a 40-0%. Y syniad yw, wrth i'r wybodaeth gael ei theipio yn y brif daflen, pan fydd y ganran yn cael ei nodi, mae'n cael ei chopïo'n awtomatig i'r ddalen ddilynol sy'n cyfateb i'r cynddaredd canradd hwnnw. Fe wnes i hyn gydag IF (a fformiwla syml. Fodd bynnag, mae angen i mi ddidoli er mwyn rhyddhau'r celloedd gwag a'i gwneud yn edrych yn lanach. Yna pan fyddaf yn didoli, os byddaf yn ychwanegu cynnig Tebygolrwydd Oder newydd i'r brif daflen, nid yw'n awtomatig dangoswch hi, heb ddad-ddidoli yna didoli eto.Ymddiheuraf os nad yw'r cwestiwn hwn yn perthyn iddi Ond a oes llinyn o god y gallwn ei roi i mewn a fyddai'n trin y mater hwn yn haws? Yr unig werth sy'n penderfynu a yw'r rhes gyfan yn cael ei symud yw'r Mae colofn K. yn ymddangos yn syml, ond waeth pa mor gymhleth i'r dechreuwr excel hwn. Diolch ymlaen llaw am eich cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i wneud hynny os mai dim ond rhan o linyn colofn yw "Done". Tybiwch fod fy ngholofnau'n cynnwys gwerth fel - XYZDone, ABCDone, 123Done ac ati, a allaf hidlo yn seiliedig ar linyn rhannol "Done"?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,
Diolch am eich help, mae'r cod yn gweithio'n wych ond yn hytrach na symud y rhes i waelod tudalen sut i'w symud i dab arall hy tab "Ar Gau"?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Sori am ateb mor hwyr.
Yn y cod, does ond angen i chi newid y llinell "Os xRg.Cells(I) = "Gwneud" Yna"i Os xRg.Cells(I) Fel "*Done*" Yna i'w gyflawni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i restr gyda blychau ticio sy'n nodi pan fydd un golofn yn cael ei gwirio, bydd ei hangen arnaf i fynd i un adran o'r daenlen ac os caiff y llall ei gwirio yn lle hynny, mae'n mynd i'r diwedd. Rwyf wedi rhoi cynnig ar gant o wahanol ffyrdd o wneud hyn a all unrhyw un helpu gyda hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Fi jyst brynu kutools fel y gallwn *** y cod vba hwn i fy excel taflen, gan y bydd yn nodwedd ragorol i'w defnyddio! Mae'r cyfarwyddiadau uchod yn syml ac yn ddefnyddiol; fodd bynnag, ar ôl i mi gyrraedd y cam lle mae'r cod yn cael ei gopïo a'i gludo yn y ffenestr a phwyso F5, anfonodd fi i flwch i enwi a chreu'r macro. Fe wnes i hynny ond nawr ni fydd yn mynd â mi i'r blwch deialog fel y gallaf ddewis ystod celloedd. Mae gwall crynhoi o "weithdrefn allanol annilys" yn ymddangos. Helpwch os gwelwch yn dda!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gen i fy mod wedi eich camarwain. Gellir defnyddio'r cod ar ei ben ei hun ac nid oes angen prynu Kutools. Os nad oes ei angen arnoch, anfonwch e-bost at sales@extendoffice.com i ofyn am ad-daliad.
Er mwyn i'r cod weithio'n llyfn, mae angen i chi sicrhau bod eich cyrchwr yn y ffenestr cod (cliciwch ar unrhyw air yn y cod), yna pwyswch y F5 allwedd i redeg y cod. Yna bydd y blwch deialog i ddewis ystod celloedd yn ymddangos.
Sori eto am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
fi eto! Yr wyf yn cyfrifedig y cod allan. Roeddwn wedi copïo a gludo'r cod â llaw yn hytrach na defnyddio'r botwm copi ar ochr dde uchaf y sgrin. Newidiais "done" i "x". Rwyf wedi rhedeg y cod ym mhob un o'r taflenni gwaith. Wrth i mi ddechrau nodi "x" yn y celloedd hynny o fewn y celloedd dethol yn amrywio o'r blwch deialog, nid oes dim yn digwydd (nid yw rhesi yn symud i lawr yn awtomatig i'r gwaelod). Rwy'n NEWYDD IAWN i hyn....diolch am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Os ydych chi am symud y rhes i'r gwaelod yn awtomatig wrth nodi'r gair penodedig, rhowch gynnig ar y cod VBA canlynol.
Nodyn: mae angen i chi nodi'r cod yn ffenestr cod y Daflen Waith (cliciwch ar y dde ar y tab taflen a dewiswch Gweld Cod o'r ddewislen cyd-destun).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Range("C2:C18")
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,

Diolch am yr holl godau gwych. A oes ffordd i wneud hyn heb y Kutools? Nid wyf ychwaith yn gweld blwch deialog i ddewis ystod celloedd, nid yw'n ymddangos i mi.

Diolch yn fawr,
jas
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jas,
Gallwch chi nodi'r ystod celloedd yn uniongyrchol yn y cod heb orfod pop i fyny y Kutools blwch deialog i ddewis yr ystod.
Yn y cod, disodlwch y llinell ganlynol:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)

gyda:
Set xRg = Range("C2:C13")
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir