Dia duit, tá cabhair ag teastáil uaim, seo mar a bhreathnaíonn mo tábla, mar shampla, nuair a chuirim 2 ró ag deireadh mo 1ú tábla, ba mhaith liom go gcuideoidh an vba liom an rud céanna a dhéanamh don tábla thíos (cuir 2 shraith leis ag an deireadh an tábla). Mar sin is é an post a bheidh agam ná nach gá ach sraitheanna a chur leis ag an 1ú tábla, ginfidh an tábla bellows go léir sraitheanna go huathoibríoch bunaithe ar líon na sraitheanna sa 1ú tábla. is iad sin na códú a d'úsáid mé anois chun ró a chur leis don 1ú tábla. Tá súil agam gur féidir le duine éigin an cheist seo a réiteach domsa, thx.
Fo IonsáighNumRows()
ActiveCell.EntireRow.Copy
Dim Rng Chomh fada
Application.DisplayAlerts = Bréagach
Ar Lean Earráid Aghaidh
Rng = InputBox ("Cuir isteach líon na sraitheanna atá ag teastáil.")
Ar Earráid TéighTo 0
Application.DisplayAlerts = Fíor
Má Rng = 0 Ansin
msgstr "Níor shonraigh tú raon!"
Fo-Scoir
Eile
Raon(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Roghnaigh
Selection.EntireRow.Insert Shift:=xlDown
Deireadh Má
Críoch Fo[iatán]Gabh 1.PNG[/iatán]
Fo IonsáighNumRows()
ActiveCell.EntireRow.Copy
Dim Rng Chomh fada
Application.DisplayAlerts = Bréagach
Ar Lean Earráid Aghaidh
Rng = InputBox ("Cuir isteach líon na sraitheanna atá ag teastáil.")
Ar Earráid TéighTo 0
Application.DisplayAlerts = Fíor
Má Rng = 0 Ansin
msgstr "Níor shonraigh tú raon!"
Fo-Scoir
Eile
Raon(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Roghnaigh
Selection.EntireRow.Insert Shift:=xlDown
Deireadh Má
Críoch Fo[iatán]Gabh 1.PNG[/iatán]