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

Sut i ddidoli colofn yn ôl gwerth yn Excel?

Er enghraifft, mae gennych dabl prynu fel y dangosir y sgrinlun isod. Nawr rydych chi am i'r golofn Pris gael ei didoli'n awtomatig pan fyddwch chi'n nodi rhifau/prisiau newydd yn y golofn hon, sut allech chi ei datrys? Yma, rwy'n cyflwyno macro VBA i'ch helpu chi i ddidoli colofn benodol yn ôl gwerth yn Excel yn awtomatig.

Colofn didoli awto yn ôl gwerth gyda VBA


Colofn didoli awto yn ôl gwerth gyda VBA

Bydd y macro VBA hwn yn didoli'r holl ddata mewn colofn benodol yn awtomatig cyn gynted ag y byddwch yn mewnbynnu data newydd neu'n newid gwerth yn y golofn yn Excel.

1. De-gliciwch enw'r ddalen gyfredol yn y Bar Tab Dalen, ac yna cliciwch ar Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y blwch deialog agoriadol Microsoft Visual Basic for Application, pastiwch y cod macro VBA canlynol i'r ffenestr agoriadol.

VBA: Colofn Trefnu Auto yn Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Nodyn:
1) Yn y cod vba uchod, B: B. yn golygu y bydd yn didoli Colofn B yn awtomatig, B1 yw'r gell gyntaf yng ngholofn B, B2 yw'r ail gell yng Ngholofn B, a gallwch eu newid yn seiliedig ar eich anghenion.
2) Y pyt Pennawd:=xlIe yn y 5ed rhes yn dweud wrth Excel bod gan yr ystod y byddwch chi'n ei ddidoli bennawd, fel na fydd rhes gyntaf yr ystod yn cael ei chynnwys wrth ddidoli. Os nad oes pennawd, newidiwch ef i Pennawd:=xlNa; a newid Allwedd 1:=Amrediad("B2") yn y 4edd rhes i Allwedd 1:=Amrediad("B1").

3. Yna ewch yn ôl i'r daflen waith, pan fyddwch chi'n nodi rhif newydd yn y golofn Brisiau neu'n addasu unrhyw brisiau sy'n bodoli, bydd y golofn Brisiau yn cael ei didoli'n awtomatig yn nhrefn esgynnol.

Nodyn: Pan fyddwch chi'n nodi rhif newydd yn y golofn Pris, rhaid i chi nodi'r rhif yn y gell wag gyntaf o dan y rhifau gwreiddiol. Os oes celloedd gwag rhwng y rhif newydd a gofnodwyd a'r rhifau gwreiddiol yn ogystal â chelloedd gwag rhwng y rhifau gwreiddiol, ni fydd y golofn hon yn cael ei didoli'n awtomatig.


Demo: Colofn didoli awto yn ôl gwerth gyda VBA yn Excel


Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Didoli'n hawdd yn ôl amlder y digwyddiadau yn Excel

Kutools ar gyfer Excel's Trefnu Uwch mae cyfleustodau yn cefnogi didoli data yn ôl hyd testun, enw olaf, gwerth absoliwt, amlder, ac ati yn Excel yn gyflym. Nodwedd Llawn Am Ddim Treial 30-diwrnod!
didoli ad yn ôl amledd 2


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 (35)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hardd, hardd, hardd, diolch gymaint. Fyddwn i erioed wedi gallu darganfod hyn ar fy mhen fy hun ac rydw i'n gwerthfawrogi'n fawr eich bod chi'n rhannu hwn !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych am yr un didoli awtomatig wrth fewnbynnu data ar gyfer fy siart excel. Yn ei chael hi'n anodd deall manylion yr hyn rydych chi wedi'i nodi yma fel enghraifft. Byddwn yn gwerthfawrogi'n fawr pe bai rhywun yma a wnaeth yr enghraifft uchod yn gallu fy helpu i roi trefn ar fy nhaflen fel y gwnaeth yr un peth. Mae gen i siart F1 sy'n dangos enillwyr, a phwyntiau, a hoffwn hi fel bod pan fydd y pwyntiau'n cael eu nodi wrth ymyl enw'r gyrrwr ar gyfer ras benodol i'r cyfanswm ar ochr dde'r ddalen fod mewn trefn rifiadol, HEB CYMYSG Y CANLYNIAD yn erbyn gyrwyr eraill. Mae'n ymddangos na allaf roi atodiad o'm siart ar y neges hon felly os ydych chi'n gallu newid fy siart i mi fel y bydd hyn yn digwydd hoffwn glywed gennych. Gallaf ei anfon atoch trwy e-bost. Os gallwch chi helpu gyda hyn, anfonwch e-bost ataf yn lordmarshall2013@gmail.com ac yn y llinell TESTUN ysgrifennwch help F1 Excel a bydd yn ateb gyda'r siart sydd ynghlwm ar eich rhan. Diolch ymlaen llaw am unrhyw gymorth y gallwch ei ddarparu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn GREAT. Bu hyn o gymorth mawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dywedwch fod angen i mi ddidoli colofn "C" a cholofn "D" yn awtomatig. Sut byddwn i'n addasu'r cod i ddidoli'r ddwy golofn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Tric ardderchog, diolch yn fawr iawn. Yn fy ffeil, mae gennyf wybodaeth bwysig y mae angen i mi ei gweld yng nghelloedd A1 ac A2. Felly, rwyf wedi sefydlogi pob cell ac mae fy ngwerthoedd yn cychwyn o A3 i A500. Pan fyddaf yn gweithredu'r vba hwn, mae fy ngwybodaeth yng nghell A2 yn mynd yng nghell 501. Sut alla i ddechrau amrywio cell A3? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r rhes gyntaf wedi'i heithrio ar gyfer y didoli
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem a darganfyddais pam. Ewch i linell 5, (Gorchymyn1:=xlEsgynnol, Pennawd:=xlIe, _). Mae'r sgript yn dweud wrth Excel mai pennawd yw'r gell gyntaf, ac felly bydd yn ei anwybyddu pan fydd y didoli yn digwydd. Os ydych chi am gynnwys y rhes gyntaf, newidiwch hi i'r llinell ganlynol:


Gorchymyn1:=xlEsgynnol, Pennawd:=xlNa, _
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Copïo'r cod yn union i'm taflen yn VBA. Ond does dim byd yn digwydd ydw i'n colli rhywbeth? Wedi gwneud yn union beth wnaethoch chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am god a rhesymeg. Nid yw'r rhesymeg uchod yn gweithio pan fyddwn yn edrych ar ystod fwy o gelloedd fel Intersect (Targed, Ystod ("B: B, C: C, D: D")). Dwi eisiau os oes newid mewn unrhyw gell yn y Golofn (B,C neu D), mae angen troi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae unrhyw un yn gwybod sut i osod rhif cyfresol ceir. ar gyfer taflen waith excel. Ni ddylai'r rhif gynnwys pob pennawd ac is-bennawd, a dylid ei aildrefnu'n awtomatig ar ôl ychwanegu neu ddileu rhes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Kutools ar gyfer Excel yn darparu nodwedd Mewnosod Rhif Dilyniant, a all fewnosod gwerthoedd unigryw a olynol ni waeth faint o weithiau y byddwch chi'n mewnosod.
Er enghraifft, y tro cyntaf i chi fewnosod 1,2,3,4;
Yr ail dro bydd y nodwedd hon yn mewnosod 5,6,7,8,9,10
Y trydydd tro y bydd y nodwedd hon yn mewnosod 11,12,…
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er bod hwn yn god gwych, hoffwn wybod a allai unrhyw un fy helpu i fynd o esgynnol i ddisgynnol? Mewn geiriau eraill, rwy'n edrych iddo fod y nifer fwyaf ar ei ben gyda'r nifer isaf ar y gwaelod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newid (Gorchymyn 1:=xlEsgynnol, Pennawd:=xlYes, ) I (Gorchymyn1:=xlDisgynnol, Pennawd:=xlIe, )
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ddefnyddiwr Excel canolradd. Yr wyf yn meddwl tybed a allai rhywun fy helpu i gyfeirio at yr hyn yr wyf yn ceisio ei gyflawni. Dyma beth rydw i'n ceisio ei wneud: Trefnu'n Awtomatig gyda Gorchymyn Custom.

Ychydig am fy nhaenlenni: Mae gen i un ddalen (o'r enw: Taflen 1) sy'n rhestru 16 colofn (A trwy P) ac ar hyn o bryd 19 rhes (bydd y nifer hwn yn cynyddu wrth i fwy o ddata gael ei fewnbynnu). Yn y golofn olaf (colofn P) mae gan bob cell gwymplen o opsiynau (wedi'u lleoli a'u tynnu o ddalen dau (o'r enw "BackEnd")). Mae'r dewisiadau ar gyfer y gwymplen yn cynnwys codau lliw (gan ddefnyddio rheolau fformatio amodol).

Yr hyn yr wyf yn gobeithio ei wneud: Wrth i ddefnyddiwr fewnbynnu data mewn rhes newydd, cyn gynted ag y byddant wedi gorffen dewis opsiwn o'r gwymplen yng ngholofn P, bydd Excel yn didoli'r rhes newydd yn awtomatig i drefn benodol. Rwyf wedi gallu creu cod VBA ar gyfer awto-ddidoli mewn trefn esgynnol a disgynnol, ond nid wyf wedi gallu creu cod ar gyfer didoli'r data yn awtomatig mewn trefn benodol. Y drefn yr hoffwn i gael y data wedi’i ddidoli iddo yw:

Ymatebol
Dim diddordeb
Diddordeb
Wedi'i Sgrinio ymlaen llaw Ddim yn Gymwys:
Rhag-sgriniedig Cymwys
Cais yn Arfaethedig
Cais wedi ei Gymeradwyo
Asesiad Cychwynnol:
Cwmpas y Gwaith:
Atgyweiriadau Cartref ar Waith
Ar Daliad:
Cwblhau
arall:

Ydy hyn yn bosibl? Gwerthfawrogir unrhyw help! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Sut alla i wneud i'r macro hwn gychwyn ar ôl i mi lenwi'r holl ddata i'r golofn benodol?
Rwyf am i'r macro rhestru ddechrau ar ôl i mi lenwi blychau gwag. Achos pan dwi'n defnyddio hwn, mae'n newid y lle yn sydyn.
Mae angen i mi ddechrau'r macro hwn ar ôl i mi lenwi data olaf y golofn honno (20 data i fod yn fanwl gywir)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A gaf i ofyn a oes ffordd i ddefnyddio'r cod VBA hwn os oes fformiwla yn y golofn yr ydych am fod y prif fath.

hy os yw A2 = swm f2 + g2+ h2 a cholofn A angen eu didoli ar y cyfanswm? (Ni allaf gael VBA i weithio os yw fformiwla yn y celloedd)

Byddai unrhyw gymorth yn cael ei werthfawrogi'n garedig fel gobaith i'w ddefnyddio ar gyfer graddio rasys pan mai'r enillydd yw'r un gyda chyfanswm o dri digwyddiad rasio.

Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf hefyd eisiau gwybod ateb i broblem Paula. rhannwch os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I mi fe weithiodd i newid y llinell hon
Os Ddim yn Croestorri (Targed, Ystod ("B:B")) Yn Dim Yna
Rwy'n meddwl mai'r allwedd yw gosod yr Ystod Targed i'r meysydd sy'n newid, a chadw'r math ar y data gyda'r canlyniadau cryno.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio i mi pan fo fformiwla yn y gell:
Is-daflen Waith Breifat_SelectionChange(ByVal Target As Range) Amrediad("B1"). Trefnu Allwedd 1:=Ystod("B2"), Order1:=xlEsgyniad, Pennawd:=xlIe, OrderCustom:=1, MatchCase:=Gau, Cyfeiriad:= xlTopToBottom
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn wedi bod yn ddefnyddiol iawn ond mae gen i 2 res o benawdau (rhesi 1 a 2) a phan dwi'n rhedeg y VBA mae'n cymryd yr ail res i waelod y dyddiadau
sut mae atal hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kerry,

Mae VBA a fydd yn didoli celloedd yn awtomatig yn y Golofn gan igonio'r ddwy gell pennawd gyntaf.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xIntRC Fel Cyfanrif
Dim xURg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Ddim yn Croestorri (Targed, Ystod ("B:B")) Yn Dim Yna
Os Ddim yn Croestorri (Targed, Ystod ("B1:B2")) Yn Dim Yna Gadael Is
Gosod xURg = ActiveSheet.UsedRange
xIntRC = xURg.Rows.count
Ystod ("B2:B" & xIntRC). Trefnu Allwedd 1: = Ystod ("B3"), _
Gorchymyn1:=xlEsgynnol, Pennawd:=xlIe, _
OrderCustom:=1, MatchCase:=Gau, _
Cyfeiriadedd:=xlTopToBottom
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, nid wyf yn cael unrhyw lwc gyda'r cod yn uniongyrchol uchod o "kellytte" ar gyfer didoli celloedd yn y Golofn anwybyddu'r ddwy gell pennawd cyntaf. All unrhyw un fy helpu? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae cod Hitis yn datrys fy mhroblem. ond mae angen i mi ddidoli colofn B a gyda hyn Dim ond newid colofn A, nid pob un. help plz
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'n trefnu'r rhes gyfan ond mae gen i rywfaint o ddolen ar gelloedd i mewn i ffolder penodol sy'n cael ei gadael ar ôl ar ôl didoli.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly mae'n ymddangos bod hyn yn gweithio pan fydd y data'n cael ei fewnbynnu â llaw ond nid yw'n gweithio pan mae'n dabl sy'n ailboblogi o ffeil arall ... a oes unrhyw ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel diolch!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae hyn yn hynod ddefnyddiol.
A oes ffordd i ehangu'r fformiwla i gwmpasu colofnau lluosog? Er enghraifft, i ddidoli data yn seiliedig ar werthoedd ar gyntaf, colofn B, ac yna colofn C? Byddwn yn gwerthfawrogi unrhyw atebion yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae hyn yn hynod ddefnyddiol.
A oes ffordd i ehangu'r fformiwla i gwmpasu colofnau lluosog? Er enghraifft, i ddidoli data yn seiliedig ar werthoedd yn gyntaf, colofn B, ac yna colofn C?
Byddwn yn gwerthfawrogi unrhyw atebion yn fawr iawn!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir