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

Sut i fewnosod rhes newydd wag yn awtomatig gan Command Button yn Excel?

Mewn llawer o achosion, efallai y bydd angen i chi fewnosod rhes newydd wag i safle penodol o'ch taflen waith. Yn yr erthygl hon, byddwn yn dangos i chi sut i fewnosod rhes newydd wag yn awtomatig trwy glicio ar Botwm Gorchymyn yn Excel.

Mewnosod rhes newydd wag yn awtomatig gan Command Button


Mewnosod rhes newydd wag yn awtomatig gan Command Button

Gallwch redeg y cod VBA canlynol i fewnosod rhes newydd wag trwy glicio Botwm Gorchymyn. Gwnewch fel a ganlyn.

1. Yn gyntaf, mae angen i chi fewnosod Botwm Gorchymyn. Cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:

2. Yna tynnwch Botwm Gorchymyn i mewn i'r daflen waith y mae angen i chi ychwanegu rhesi newydd, cliciwch ar y dde ar y Botwm Gorchymyn a chlicio Eiddo o'r ddewislen clicio ar y dde.

3. Yn y Eiddo blwch deialog, nodwch destun arddangos y Botwm Gorchymyn yn y Geiriad blwch o dan y Categoreiddio tab, ac yna cau'r blwch deialog.

Gallwch weld bod testun arddangosedig y Botwm Gorchymyn yn cael ei newid fel y dangosir isod.

4. De-gliciwch y Botwm Gorchymyn eto, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

5. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol gyda'r cod VBA isod yn y Côd ffenestr.

Cod VBA: Mewnosod rhes newydd wag yn awtomatig gan Botwm Gorchymyn

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Nodyn: Yn y cod, CommanButton1 yw enw'r Botwm Gorchymyn rydych chi wedi'i greu.

6. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. A diffodd y Modd Dylunio O dan y Datblygwr tab.

7. Cliciwch y Botwm Gorchymyn a fewnosodwyd, ac a Kutools ar gyfer Excel blwch deialog yn ymddangos. Rhowch rif rhes penodol lle rydych chi am ychwanegu rhes newydd wag, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna mae'r rhes newydd wag yn cael ei mewnosod mewn safle penodol o'ch taflen waith fel y dangosir y llun isod. Ac mae'n cadw fformatio celloedd y gell uchod.


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 (22)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allai unrhyw un roi cyngor ar sut y gallaf ddiwygio hyn i ychwanegu'r rhes newydd yn awtomatig i waelod tabl excel?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
wnaethoch chi ddod o hyd i'r ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwy'n defnyddio'r cod hwn ond nid yw'n dod â'r fformiwlâu o'r rhes o'r blaen i lawr, a allwch chi helpu os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Kim,

Rhowch Tabl gyda'r ystod y byddwch yn mewnosod rhesi gwag y tu mewn. Ar ôl hynny, wrth fewnosod rhes newydd, bydd y fformiwla yn dod i lawr yn awtomatig.

Cofion Gorau, Crystal
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi roi enghraifft? Peidio â dilyn yr hyn rydych chi'n ei ddweud yma. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Troswch eich amrediad i ystod tabl er mwyn dod â'r fformiwla i lawr yn awtomatig wrth fewnosod rhesi newydd. Gweler y sgrinlun:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael yr un mater â Kim - Pan fydd y ddalen yn ddiamddiffyn mae'n ychwanegu'r rhes gyda'r fformatio cywir a'r fformiwlâu cywir. Unwaith y bydd y ddalen wedi'i diogelu nid yw'n copïo'r fformiwlâu i lawr. Unrhyw feddyliau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Michelle,
Yn ddiofyn, nid yw taflen waith warchodedig yn caniatáu mewnosod rhes wag.
Felly, ni all y cod VBA weithio yn yr achos hwnnw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ychwanegu botwm Mewnosod Rhes a chael y rhesi newydd i gadw'r celloedd wedi'u huno/fformatio fel y maent yng ngweddill tabl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Simon,
Mae'n ddrwg gennym gall helpu i ddatrys y broblem hon eto. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gael y rhes newydd i gadw fformatio'r rhes isod yn lle'r rhes uchod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tarl,
Mae'n ddrwg gennym gall helpu i ddatrys y broblem hon eto. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Do, chwaraeais i gyda'r sgript ac fe weithiodd i mi. Rydych chi'n ychwanegu'r rhif rhes rydych chi ei eisiau (dewisais rhes 6), ond byddaf yn cael sioc os caniateir iddo gael ei gyhoeddi.

Is-orchymyn PreifatButton1_Cliciwch()
Dim rowNum Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Rhesi(Rhif rhes a "6").Mewnosod Shift:=xlDown
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gellir mewnosod rhes dalen lluosog ar yr un pryd cliciwch gan hwn .
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod isod eich helpu i ddatrys y broblem. Rhowch gynnig arni.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xIntRrow Fel Cyfanrif
Dim rowNum Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
rowNum = Application.InputBox(Anogwr:="Rhowch Rif Rhes lle rydych am ychwanegu rhes:"", _
Teitl:="Kutools ar gyfer excel", Math:=1)
xIntRrow = Application.InputBox(Anogwr:="Teipiwch nifer y rhesi rydych am eu mewnosod", _
Teitl:="Kutools ar gyfer excel", Math:=1)
Rhesi(rhesNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a yw'n bosibl creu dalen wahanol? Dwi wir angen hynny
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-YchwanegiadNewRow()



Is-orchymyn PreifatButton1_Cliciwch()

ActiveSheet.Unprotect Password:="1234"



Dim fy Nhaflenni

Dim i Cyhyd



mySheets = Array("Taflen2")



Ar gyfer i = LBound(mySheets) I UBound(mySheets)

Gyda Thaflenni(fyTaflenni(i))

.Range("B10").EntireRow.Insert Shift:=xlDown

.Range("B10:H10").Borders.Weight = xlThin

Diwedd Gyda

Nesaf i



ActiveSheet.Protect Password:="1234"



Is-End

Nid wyf yn gwybod a fydd hyn yn gweithio i chi. Fe weithiodd yn eithaf da i mi. Fe wnes i hyd yn oed adael celloedd heb eu diogelu y gallwch chi fewnbynnu data ac mae'r fformiwlâu yn dal i fod yn weithredol. Cymerodd ddiwrnod cyfan i mi ddarganfod y peth. disodli " 1234 "â pha bynnag gyfrinair yr ydych yn teimlo fel, "Taflen2" gyda'r Ddalen rydych yn gweithio gyda hi a mewnbynnu'r ystod yr ydych ei eisiau.
Mae'r cod yn gyntaf yn dad-ddiogelu'r daflen waith, yn ychwanegu rhes ac yn amddiffyn y daflen waith.
kiongakamau@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Defnyddiais y cod ond roeddwn eisiau ychwanegu rhesi gyda fformiwlâu, felly ychwanegais y llinell olaf i allu ychwanegu'r rhesi gyda fformiwlâu.
Fodd bynnag, yn fy ffeil excel ac yng ngholofn "F" mae gen i destun y gellir ei fewnbynnu â llaw a byddai'n wahanol mewn gwahanol achosion. Felly, hoffwn ychwanegu rhesi o dan y rhes gyfeirio gan gadw'r fformiwlâu a'r gwerthoedd ym mhob cell ac eithrio'r gell o golofn "F" yr hoffwn i gael ei chopïo'n wag!
A allech chi fy helpu os gwelwch yn dda gyda'r hyn y dylwn ei ychwanegu at y cod isod i allu cael celloedd colofn "F" yn wag pryd bynnag y byddaf yn ychwanegu rhes gyda'r cod hwn?
Diolch ymlaen llaw!

Is-orchymyn PreifatButton1_Cliciwch()
Dim xIntRrow Fel Cyfanrif
Dim rowNum Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
rowNum = Application.InputBox(Anogwr:="Rhowch Rif Rhes lle rydych am ychwanegu rhes:"", _
Teitl:="Kutools ar gyfer excel", Math:=1)
xIntRrow = Application.InputBox(Anogwr:="Teipiwch nifer y rhesi rydych am eu mewnosod", _
Teitl:="Kutools ar gyfer excel", Math:=1)
Rhesi(rhesNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown
Rhesi(Rheswm). Newid Maint(xIntRrow + 1).Llenwi

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mah,
Efallai y bydd y cod VBA canlynol yn gwneud ffafr i chi. Rhowch gynnig arni. Diolch.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220707
    Dim rowNum As Integer
    Dim xRg1, xRg2 As Range
    
    On Error Resume Next
    
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
    Rows((rowNum - 1) & ":" & (rowNum - 1)).Copy
    Rows(rowNum & ":" & rowNum).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F" & rowNum).Value = ""
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Caros colegas, após pesquisar (bastante) na net não consegui encontrar um atalho, comando, codigo, nada, nada, que eu possa usar para inserir em uma macro APENAS uma forma de inserir uma linha ABAIXO da célula ativa. Isto porquê se eu gravar o endereço da célula, ele não muda, fica semper na mesma célula e fel seguintes não vão ficar corretamente abaixo, e se eu usar um endereço de célula fixo, a linha tem que ser inserida acimaa format, ac ffurf desejada, que seria o fformat das linhas de cima.

Acho que o codigo existe, só não encontro, já tentei várias formas, selecionando um fixo, subindo uma linha e pedindo para inserir após, mas as seguintes não funcionam de acordo.

Alguém poderia me ajudar?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
... Testei os codigos acima, mas, como se trata de pessoas que vão usar, não é viável os box que pedem a linha ea quantidade, não dá...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Criei uma linha e nomeei como spotB,
Mudei a altura da linha para 0,01 para ocultá-la (apenas por estética).
Criei um botão:
Application.Goto Reference:="spotB"
Dewis.EntireRow.Insert

Datrys problemau.

Osod, codigos a Mah e grisial, mas eu tinha 8 taitulos para separar, cada um inserindo linhas quando necessário ao usuário, a queria nenhuma pergunta sobre quantidade de linhas, os ydych chi'n defnyddio'r logo ar wahân, er mwyn sicrhau bod angen ei ddefnyddio, ac mae'n rhaid i chi ddefnyddio'r wybodaeth hon, os yw'r logo'n gywir ac yn gywir. .
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir