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

Conas as a chéile a chur isteach bunaithe ar luach cille in Excel?

doc-insert-row-based-on-value-1
Cuir i gcás go bhfuil raon sonraí agat, agus gur mhaith leat sraitheanna bána a chur isteach os cionn nó faoi luach áirithe in Excel, mar shampla, sraitheanna isteach uathoibríoch faoi bhun luach nialas mar atá thíos an pictiúr a thaispeántar. In Excel, níl aon bhealach díreach ann chun an tasc seo a réiteach, ach is féidir liom cód Macra a thabhairt isteach chun sraitheanna a chur isteach go huathoibríoch bunaithe ar luach áirithe in Excel.
Cuir isteach an tsraith thíos bunaithe ar luach cille le VBA

Cuir isteach an tsraith thuas bunaithe ar luach cille le Kutools le haghaidh Excel smaoineamh maith3

Chun as a chéile a chur isteach bunaithe ar luach cille trí VBA a rith, déan na céimeanna thíos le do thoil:

1. Brúigh Alt + F11 eochracha ag an am céanna, agus a Microsoft Visual Basic d’Fheidhmchláir pops fuinneog amach.

2. cliceáil Ionsáigh > Modúil, ansin greamaigh faoi bhun chód VBA chuig an popping Modúil fhuinneog.

VBA: Cuir isteach an tsraith thíos bunaithe ar luach na gceall.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. cliceáil F5 eochair nó an Rith cnaipe, tagann dialóg amach, agus roghnaigh nialas an colún. Féach an pictiúr:
doc-insert-row-based-on-value-2

4. cliceáil OK. Ansin cuirfear sraitheanna bána faoi bhun luach nialas.
doc-insert-row-based-on-value-3

Leid:

1. Más mian leat sraitheanna a chur isteach bunaithe ar luach eile, is féidir leat athrú 0 ar luach ar bith is mian leat sa VBA: Má Rng.Value = "0" Ansin.

2. Más mian leat sraitheanna os cionn nialas nó luach eile a chur isteach, is féidir leat an cód vba thíos a úsáid.

VBA: Cuir isteach an tsraith os cionn an luach nialas:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Mura bhfuil tú eolach ar VBA, is féidir leat triail a bhaint Kutools le haghaidh Excel's Roghnaigh Cealla Sonracha fóntais, agus ansin sraitheanna thuas a chur isteach.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil:Download Kutools Íoslódáil saor in aisce do Excel Anois!)

1. Roghnaigh an liosta ar mhaith leat na cealla ar leith a fháil amach, agus cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Sonracha. Féach an pictiúr:
cuir isteach sraith isteach bunaithe ar luach 9

2. Sa dialóg popping, seiceáil Sraith iomlán rogha, agus ansin téigh a roghnú Cothrom ó Cineál sonrach liostáil, agus ansin cuir isteach an luach is mian leat a fháil sa bhosca téacs ceart. Féach an pictiúr:
cuir isteach sraith isteach bunaithe ar luach 6

3. cliceáil Ok, agus tagann dialóg amach chun líon na sraitheanna roghnaithe a mheabhrú duit, ach é a dhúnadh.

4. Cuir cúrsóir ag sraith roghnaithe amháin, agus cliceáil ar dheis chun roghnú Ionsáigh ón roghchlár comhthéacs. Féach an pictiúr:
cuir isteach sraith isteach bunaithe ar luach 7

Anois cuirtear na sraitheanna thuas isteach bunaithe ar luach sonrach.
cuir isteach sraith isteach bunaithe ar luach 8


Ailt Choibhneasta:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (43)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom ábhar ar leith a ghreamú faoi bhun na cille. Conas é sin a dhéanamh? In ionad a chéile Bán, ba mhaith liom luach a chur isteach i roinnt colún.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom sraitheanna iolracha a chur isteach bunaithe ar an luach Ex: Ba mhaith liom 1 ró bán a chur isteach faoi bhun na cille le luach 2, 2 shraith faoi bhun na cille le luach 3, sraitheanna 3 faoi bhun na cille le luach 4 agus mar sin de An féidir leat cabhrú liom le seo le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuair tú freagra air seo riamh? Tá mé ag iarraidh an rud céanna a dhéanamh.

Bíodh liosta fostaithe acu a bhfuil # seachtaine saoire acu a fhaigheann siad. Ba mhaith liom a chur isteach as a chéile le haghaidh gach seachtain. 1, 2 nó 3 shraith a bheidh i gceist ag brath ar an méid ama atá tuillte acu. tá na #s 1 2 3 i mo scarbhileog cheana féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom sraitheanna a chur isteach bunaithe ar chomhaireamh ag baint úsáide as luach cille i scarbhileog amháin agus sraitheanna a chur isteach i scarbhileog eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as do theachtaireacht. Ach an féidir leat do cheist a chur síos le tuilleadh sonraí? Cad iad na sraitheanna ar mhaith leat a chur isteach? Bán? Agus Cá háit ar mhaith leat a chur isteach ar an mbileog? Más féidir leat, tabhair dom roinnt seat scáileáin. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is breá liom tú. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí sé sin iontach!!. Go raibh maith agat fear.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom níos mó ná ró amháin a chur isteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir leat an VBA seo a thriail

Folíne Bhán()
Nuashonrú faoi 20150203
Dim Rng Mar Raon
Dim WorkRng Mar Raon
Dim xInsertNum Chomh fada
' Ar Earráid Atosú Ar Aghaidh
xTitleId = "Kutools le haghaidh Excel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Mura bhfuil tada ag WorkRng Ansin Scoir Fo
xInsertNum = Application.InputBox("Líon na rónna bána is mian leat a chur isteach", xTitleId, Cineál:=1)
Má tá xInsertNum = Bréagach Ansin
MsgBox " Líon na rónna bána is mian leat a chur isteach " , vbInformation, xTitleId
Fo-Scoir
Deireadh Má
Socraigh WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Bréagach
Le haghaidh xRowIndex = xLastRow Go 1 Chéim -1
Socraigh Rng = WorkRng.Range ("A" & xRowIndex)
Má Rng.Value = "0" Ansin
Rng.Athraigh(xInsertNum).EntireRow.Insert Shift:=xlDown
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
más mian leat sraitheanna bána a chur isteach thíos, bain triail as seo

Folíne Bhán()
Nuashonrú faoi 20150203
Dim Rng Mar Raon
Dim WorkRng Mar Raon
Dim xInsertNum Chomh fada
' Ar Earráid Atosú Ar Aghaidh
xTitleId = "Kutools le haghaidh Excel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Mura bhfuil tada ag WorkRng Ansin Scoir Fo
xInsertNum = Application.InputBox("Líon na rónna bána is mian leat a chur isteach", xTitleId, Cineál:=1)
Má tá xInsertNum = Bréagach Ansin
MsgBox " Líon na rónna bána is mian leat a chur isteach " , vbInformation, xTitleId
Fo-Scoir
Deireadh Má
Socraigh WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Bréagach
Le haghaidh xRowIndex = xLastRow Go 1 Chéim -1
Socraigh Rng = WorkRng.Range ("A" & xRowIndex)
Má Rng.Value = "0" Ansin
Rng.Offset(1, 0).Athraigh Méid(xInsertNum).EntireRow.Insert Shift:=xlDown
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Is é an ceann thíos ná sraitheanna thuas a chur isteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
HI Grianmhar, oibríonn an macra seo go foirfe domsa; ní raibh orm ach líon na sraitheanna a athrú go 30 agus an 0 a athrú go téacs: "Iarmhéid Deiridh". Ach anois ba mhaith liom rogha de chealla atá 30 sraith ar airde a chóipeáil a ghreamú sna 30 líne bhána a chuir an macra seo isteach díreach. An féidir leat macra nua a mholadh (nó leasú ar an gceann seo) chun raon a chóipeáil agus a ghreamú isteach i ngach líne 30 bán. Tá an raon ainmnithe agam chun 'teimpléad' a chóipeáil agus a ghreamú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn cúnamh ollmhór uaim ar an ábhar seo. Tá 2 cholún agam, ar an 1ú tá mo chuid ama sonraí agam 01/01/2016 05:00:00, laethanta/mí/bliain uair/nóiméad/soicindí agus sa 2 2ú colún na sonraí faoi seach a bhaineann leis an am.

Is í an fhadhb atá agam ná gur mhaith liom am sonraí a chur idir sraitheanna ós rud é go bhfuil bearnaí laethanta agam. Is é 1ú líne 01/01/2016 agus tá an 2ú sraith, mar shampla, 10/01/2016, mar sin tá 9 lá agam. agus ní oibríonn an cód sin domsa.

Ag tnúth le roinnt aiseolais a fháil, le do thoil! Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir leat an VBA seo a thriail

Fo IonsáighLuach Idir()
Nuashonrú 20130825
Dim WorkRng Mar Raon
Dim Rng Mar Raon
Dim outArr Mar mhalairt
Dim dic Mar Variant
Socraigh dic = CreateObject("Scripting.Dictionary")
'Ar Earráid Lean Ar Aghaidh
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
num1 = WorkRng.Range("A1").Luach
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Luach
eatramh = uimhir2 - uimhir1
ReDim outArr(1 Go eatramh + 1, 1 Go 2)
Do Gach Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Luach
Ar Aghaidh
Chun i = 0 Go eatramh
amachArr(i + 1, 1) = i + uimhir1
Má tá dic.Exists(i + uimhir1) Ansin
amachArr(i+1, 2) = dic(i + uimhir1)
Eile
amachArr(i+1, 2)=""
Deireadh Má
Ar Aghaidh
Le WorkRng.Range("A1").Athraigh méid(UBound(outArr, 1), UBound(outArr, 2))
.Luach = outArr
.Roghnaigh
Deireadh Le
Fo Deireadh


Nó má tá Kutools le haghaidh Excel agat, is féidir leat an fheidhm seo a thriail:
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat, rinne mé triail as an dá cheann, an 1ú ceann ós rud é gur maith liom 500 sraith sonraí, déanaim é sin do na 500 sraith ar fad agus ní dhéanaim tada, is dóigh liom b'fhéidir go bhfuil teorainn leis na sraitheanna le húsáid, agus nuair a roghnaíonn mé na chéad 5 shraith, mar shampla, ní chruthaíonn sé na sraitheanna atá ar iarraidh, cuirtear na sonraí in ionad na sraitheanna.

Fadhb eile atá agam ná go bhfuil an Lá/Mí/Bliain ag na sonraí ama atá agam freisin HH: MM: SS
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ó 2 go 3, cruthaíonn sé na sonraí atá ar iarraidh a theastaíonn uaim ceart go leor, ach cuirtear deireadh le luach an 03/01/2016 agus tá roinnt sonraí ama ann a chuirtear deireadh le rud nach dteastaíonn uaim ach an oiread.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ár leithscéal níor chabhraigh an cód VBA leat, ní féidir liom teacht ar an modh a d'fhéadfadh oibriú le haghaidh formáid dáta agus ama. Má fhaigheann tú an réiteach faoi dheireadh, an bhféadfá é sin a chur in iúl dom? Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit arís Grianmhar, d'éirigh liom an cód a chur in eagar chuige seo (athraím an líne uimh1 go A2 agus Le WorkRng.Range("A2:A100000"). Athmhéadaigh(UBound(outArr, 1), UBound(outArr, 2) ):


Fo IonsáighLuach Idir()
Nuashonrú 20130825
Dim WorkRng Mar Raon
Dim Rng Mar Raon
Dim outArr Mar mhalairt
Dim dic Mar Variant
Socraigh dic = CreateObject("Scripting.Dictionary")
'Ar Earráid Lean Ar Aghaidh
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
num1 = WorkRng.Range("A2").Luach
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Luach
eatramh = uimhir2 - uimhir1
ReDim outArr(1 Go eatramh + 1, 1 Go 2)
Do Gach Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Luach
Ar Aghaidh
Chun i = 0 Go eatramh
amachArr(i + 1, 1) = i + uimhir1
Má tá dic.Exists(i + uimhir1) Ansin
amachArr(i+1, 2) = dic(i + uimhir1)
Eile
amachArr(i+1, 2)=""
Deireadh Má
Ar Aghaidh
Le WorkRng.Range("A2:A100000").Athraigh méid(UBound(outArr, 1), UBound(outArr, 2))
.Luach = outArr
.Roghnaigh
Deireadh Le
Fo Deireadh



Taispeánaim na graif duit, ní oibríonn sé 100% mar ní chruthaíonn sé an t-am ó A1 go A2
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo mo cheist agus is ceist an-deacair í, is dóigh liom... an bhfuil cód vba ann a chuireann sraith nua isteach faoi cholún scagtha agus nach ndéanann sé ach na chéad trí chill a chóipeáil isteach sa tsraith nua bhreise agus leanúint ar aghaidh ag déanamh amhlaidh go dtí go stopann an t-úsáideoir ag bualadh "Iontráil" agus dí-scagadh na cealla scagtha?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá do cheist beagán deacair agus casta, is féidir leat an cheist a chur inár bhfóram, b'fhéidir gur féidir le duine éigin tú a fhreagairt. https://www.extendoffice.com/forum.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit níl mé ag iarraidh ach a fhiafraí conas a chéile a chur leis más é an códú gur chóir sraith bhreise a dhéanamh nuair a bhíonn sonraí ag cill cheana féin (Tá sé le haghaidh leabhar oibre excel le go leor bileoga :) Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
b'fhéidir gur féidir leis an gcód vba seo cabhrú leat. Cuirfidh sé sraitheanna leis mura bhfuil an ró thuas folamh

Fo-chúnamh()
Gan comhaireamh chomh fada
Don chomhaireamh = ActiveSheet.UsedRange.Rows.count Go 1 Chéim -1
Má tá Information.IsEmpty(Cealla(comhaireamh, 1)) = Bréagach Ansin Rónna(comhair + 1).Cuir isteach
An chéad chomhaireamh eile
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit táim ag iarraidh an cód seo a úsáid chun ró a chur isteach nuair a athraíonn na chéad 4 dhigit i gcill (más fiú é sin)

mar shampla,
2222A
2222B
2223K


cuirfear an líne isteach tar éis 2222B toisc gur 3 agus ní 3 an 2ú uimhir

Go raibh maith agat guys !!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Go raibh maith agat as seo, áfach, tá cás eile agam nuair is gá dom cill cingle a chur isteach faoin luach nach bhfuil náid. Buíoch as aon mholadh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Gina, ní bhfaighidh mé ach an cód chun ró bán a chur isteach os cionn na cille nach bhfuil bán, b'fhéidir gur féidir le duine é a choigeartú chun freastal ar do riachtanas.

Fo-ionsáigh_Rows()
Dim LR Chomh Fada, r Chomh Fada

Application.ScreenUpdating = Bréagach
LR = Raon ("A" & Sraitheanna.Count).Deireadh(xlUp).Row
Chun r = ó chlé go 1 Chéim -1
Má tá Len(Raon("A" & r).Luach) > 0 Ansin
Rónna(r).Cuir isteach
Deireadh Má
Ar Aghaidh r
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

teacht ó https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá sé seo an-chabhrach. Cad a tharlaíonn má theastaigh uaim a chur leis dhá líne thíos agus theastaigh uaim a luachanna níos mó. Mar shampla, ba mhaith liom dhá líne a chur leis tar éis luach 26/04/2019 agus ansin dhá líne tar éis 03/04/2019, agus leanann an liosta ar aghaidh. Conas is féidir liom leanúint ar aghaidh ag cur leis an vba? Tá brón orm gur tosaitheoir mé fós. Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Safa, b'fhéidir gur féidir leat triail a bhaint as fóntais Kutools isteach sraitheanna / colúin bhána.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Folíne Bhán()
Nuashonrú faoi 20150203
Dim Rng Mar Raon
Dim WorkRng Mar Raon
Ar Lean Earráid Aghaidh
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál: = 8)
Socraigh WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Bréagach
Le haghaidh xRowIndex = xLastRow Go 1 Chéim - 1
Socraigh Rng = WorkRng.Range ("A" & xRowIndex)
Má Rng.Value = "0" Ansin
Rng.EntireRow.Insert Shift: = xlDown
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh


Caithfidh sé seo a bheith ag obair gach uair a chuirim rud éigin sa chill, agus le níos mó athróg freisin. Is éard atá i gceist agam ná má chuirim 2 sa chill, beidh orm 2 ró a chur isteach agus ní 1 amháin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn uaim an macra chun sraitheanna a chur leis bunaithe ar cholún cainníochta, áit má tá an qty níos mó ná 1, cuireann sé isteach líon na sraitheanna -1. Más é 5 an chainníocht, cuireann sé 4 shraith isteach thíos agus líon isteach na sonraí agus athraigh an qty a ghlaoitear ó 5 go 1 i ngach sraith. Scipeáil ar fad qty 1.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Inis dom an cód inar mian liom líon áirithe sraitheanna a chur leis bunaithe ar luach cille. mar shampla, má tá an dhigit 18 sa chill, ba chóir go huathoibríoch 18 ró a chur leis nuair is mian liom agus ba chóir don chuid eile den tábla / den chill athrú anuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Míle buíochas as seo, sábháil ama iontach é. An bhféadfaí cód éigin a chur leis a ligfidh dom téacs éigin a chur isteach sa tsraith nua. Mar shampla tá sraitheanna nua á gcur isteach agam bunaithe ar an spriocluach 'x', ansin ba mhaith liom luach téacs 'y' a chur leis sa chill faoi bhun luach sprice 'x'. An bhfuil sé seo indéanta?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit. Oibríonn an macra domsa ach an bhfuil bealach ann chun an raon/paraiméadair a bheith socraithe i gcolún J i gcónaí gan an bosca ionchuir teacht suas ar chor ar bith? Ba mhaith liom é a scipeáil céim an bhosca ionchuir ag teacht suas. Chomh maith leis sin, rinne mé cinnte go díreach roimh an macra seo gurb é Raon ("J:J") an líne dheireanach de mo mhacra roimhe seo. Roghnaigh chun a chinntiú go bhfuil an colún J iomlán roghnaithe cheana féin.
Is é seo a bhí mé ag baint úsáide as go dtí seo.

Dim Rng Mar Raon
Dim WorkRng Mar Raon
Ar Lean Earráid Aghaidh
xTitleId = "Cliceáil OK chun Leanúint ar aghaidh"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Socraigh WorkRng = WorkRng.Columns(1)
Seol Eochracha "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Bréagach
Le haghaidh xRowIndex = xLastRow Go 1 Chéim -1
Socraigh Rng = WorkRng.Range ("A" & xRowIndex)
Má Rng.Value = "Líne Nua GMS" Ansin
Rng.EntireRow.Insert Shift:=xlDown
Deireadh Má
Ar Aghaidh


Rinne mé triail ag baint úsáide as an ordú SendKeys "~" idir cuid de na céimeanna chun iarracht a dhéanamh é a bhrú isteach go huathoibríoch nuair a thagann an bosca ionchuir aníos ach níor oibrigh sin ach an oiread. Ní raibh mé cinnte cén áit go díreach chun an t-ordú SendKeys a úsáid sa mhacra nó an n-oibreodh sé fiú le bosca ionchuir!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
le do thoil cabhrú liom data.i a bheith agam sonraí mí amháin, sa mhéid is go gcaithfidh mé sraitheanna folamh a chur isteach de réir an ama éalaithe
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, hr.babu08, tá brón orm go bhfuil an freagra déanach. Buille faoi thuairim mé gur mhaith leat sraitheanna bán a chur isteach nó marc a dhéanamh le haghaidh na sonraí seicheamh atá ar iarraidh, más amhlaidh, is féidir leat triail a bhaint as Kutools le haghaidh Excel's Faigh Uimhir Seicheamh ar Iarraidh Gné.Seo an teagaisc faoin ngné: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf tá modhanna eile uait chun sraitheanna bána a chur isteach le haghaidh seicheamh in easnamh, tabhair cuairt le do thoil:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
An féidir an marco seo a úsáid/athrú le haghaidh cealla daite?
Caithfidh mé 10 sraitheanna ar a laghad a chur isteach os cionn dheireadh gach sraithe atá daite.
Thx!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní mór dom sraitheanna ar leith a chur leis le luachanna iontu maidir le hinneachar cille ar leith, ach níl mé cinnte conas é sin a dhéanamh gan a bheith orm a dhéanamh de láimh ar feadh níos mó ná 3800 líne

Mar shampla: A1 = Nód1
Ní mór dom a bheith curtha isteach as a chéile agus é a chur isteach ar an Scanóir luach
Cuir isteach ró eile agus cuir isteach an luach Printéir
sraith eile le CD luach.
srl
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Chris, seo é is féidir le VBA cabhrú leat trí shraith a chur isteach go huathoibríoch (Scannán, Printéir, CD) nuair is ionann an luach agus Nód1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Cuir in iúl dom má oibríonn tú.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL