Nhờ sửa code Insert dòng có chứa công thức (1 người xem)

[Miccpro]

Mình đã đọc bài này http://www.giaiphapexcel.com/forum/showthread.php?15852-VBA-copy-công-thức-khi-thêm-dòng và thấy cách của Thầy Phạm Duy Long rất hay. Tuy nhiên việc sử dụng kích đúp chuột để thêm dòng hơi bất tiện. Mình muốn bỏ lệnh kick đúp chuột đi và chỉ cần phải chuột rồi Insert thì lệnh vẫn được thực hiện, hoặc thêm vào phải chuột một Macro "chèn thêm dòng" hiện box "số dòng cần thêm" => đánh số dòng cần thêm thì sẽ thêm số dòng tương ứng và công thức vẫn giữ nguyên (cái này hơi tham ạ ).
Mong các bác cao thủ giúp đỡ, cảm ơn nhiều ạ

 

[phulien1902]

Mình đã đọc bài này http://www.giaiphapexcel.com/forum/showthread.php?15852-VBA-copy-công-thức-khi-thêm-dòng và thấy cách của Thầy Phạm Duy Long rất hay. Tuy nhiên việc sử dụng kích đúp chuột để thêm dòng hơi bất tiện. Mình muốn bỏ lệnh kick đúp chuột đi và chỉ cần phải chuột rồi Insert thì lệnh vẫn được thực hiện, hoặc thêm vào phải chuột một Macro "chèn thêm dòng" hiện box "số dòng cần thêm" => đánh số dòng cần thêm thì sẽ thêm số dòng tương ứng và công thức vẫn giữ nguyên (cái này hơi tham ạ ).
Mong các bác cao thủ giúp đỡ, cảm ơn nhiều ạ

Việc đầu tiên là bạn xóa Code cũ đi. Sau đó bạn chép code dưới đây vào Module

Sub AddRowsEmpty()
    Dim Rng As Long
    Application.DisplayAlerts = False
    On Error Resume Next
    Rng = InputBox("Xin moi nhap so dong can Insert.")
    On Error GoTo 0
    Application.DisplayAlerts = True
    If Rng = 0 Then
        MsgBox "Ban da khong chon dong nao"
        Exit Sub
    Else
        Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
        Selection.EntireRow.Insert
    End If
    With Sheets(1)
        .Range("B:B").FillDown
    End With
End Sub

Để thêm dong mới bạn đặt trỏ chuột nằm trong khoảng A1:A20 và chạy Code nhé

 

[phulien1902]

Bạn xem File đính kèm, mạng chậm quá

 

[Miccpro]

Bạn xem File đính kèm, mạng chậm quá

Cảm ơn bác phulien1902, nhưng code của bác chỉ chay được 1 lần, lần thứ 2 sẽ bị Run-time error '1004'; có cách gì gán được nút Insert chuột phải luôn không bác

 

[keke355992]

Bạn xem File đính kèm, mạng chậm quá

Mình thấy lỗi bạn ạ. Bạn cứ chạy vài lần, chọn 2 dòng, 3 dòng là lỗi. Bạn xem lại giúp

 

[phulien1902]

Cảm ơn bác phulien1902, nhưng code của bác chỉ chay được 1 lần, lần thứ 2 sẽ bị Run-time error '1004'; có cách gì gán được nút Insert chuột phải luôn không bác

Bạn bỏ 3 dòng dưới đây đi:

[COLOR=#000000][COLOR=#007700] [/COLOR][COLOR=#0000BB]With Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
        .[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B:B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]FillDown
    End With[/COLOR][/COLOR]

Còn để Click chuột phải thì tôi chưa biết cách.

 

[Miccpro]

Vẫn chỉ insert được 2 lần thồi bác à, híc

 

[doatmenhhon]

Vẫn chỉ insert được 2 lần thồi bác à, híc

Mình có cách làm được hơn 2 lần nhưng lại insert ko toàn dòng đang tiếp tục nghiên cứu ^^

 

[phulien1902]

Code mới đây, các bác xem thế nào nhé:

Sub ThemDongMoi()
    Dim Rng As Long
    Dim LastRow As Long
    Application.DisplayAlerts = False
    On Error Resume Next
    Rng = InputBox("Xin moi nhap so dong can Insert.")
    On Error GoTo 0
    Application.DisplayAlerts = True
    If Rng = 0 Then
        MsgBox "Ban da khong chon dong nao"
        Exit Sub
    Else
        Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
        Selection.EntireRow.Insert
    End If
    LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("B2:B" & LastRow).FillDown

End Sub

 

[phulien1902]

Tham khảo trong File bạn nhé

 

[doatmenhhon]

Code mới đây, các bác xem thế nào nhé:

Vẫn chỉ được 2 lần mình chỉ làm cho cột a,b dịch n lần liên tiếp thôi. Còn dịch 4 cột a,b,c,d chỉ được 1,2 lần.

 

[Miccpro]

File của bác Phulien gửi được rồi ạ, cảm ơn bác rất nhiều. Giờ tìm cách gán cái macro này vào chuột phải nữa thì tuyệt vời ông mặt trời

 

[phulien1902]

Vẫn chỉ được 2 lần mình chỉ làm cho cột a,b dịch n lần liên tiếp thôi. Còn dịch 4 cột a,b,c,d chỉ được 1,2 lần.

Không biết bạn thử thế nào, riêng tôi trong dải A1:A20 thì muốn Insert bao nhiêu lần cũng được hết.

 

[doatmenhhon]

Không biết bạn thử thế nào, riêng tôi trong dải A1:A20 thì muốn Insert bao nhiêu lần cũng được hết.

Cái code chèn vào thì không được nhưng cái file nén mới tải về thì ok rồi ^^

 

[phulien1902]

File của bác Phulien gửi được rồi ạ, cảm ơn bác rất nhiều. Giờ tìm cách gán cái macro này vào chuột phải nữa thì tuyệt vời ông mặt trời

Điều này thì vượt ngoài khả năng của tôi rồi.

 

[doatmenhhon]

Điều này thì vượt ngoài khả năng của tôi rồi.

Hihi có sự kiện phải chuột mà bác

 

[doatmenhhon]

Sự kiện lick phải chuột khác với ý của tác giả mong muốn.... Chả nhẻ cứ nằm trong vùng đó, bạn click phải chuột chỉ để mỗi việc chèn dòng... Mõi lần lick phải nó hiện lên...thì phát mệt ah? Click phải chuột còn phải làm nhiều việc khác nhiều hơn nữa mà... nào là định dạng, xóa xòng,.... cả 1 mớ luôn... Chưa làm mà cái bản đòi chèn dòng nó hiện ra thì lúc đó tổ bực thêm...

Ý tác giả là tích hợp vào menu chuột phải luôn ấy...

Ờ có nhẽ thế đến giờ buồn ngủ mắt cứ díp lại chả nghĩ được gì. Cảm ơn bạn nha. Hay thay bằng trái chuột. Ha ha

 

[Miccpro]

Sự kiện lick phải chuột khác với ý của tác giả mong muốn.... Chả nhẻ cứ nằm trong vùng đó, bạn click phải chuột chỉ để mỗi việc chèn dòng... Mõi lần lick phải nó hiện lên...thì phát mệt ah? Click phải chuột còn phải làm nhiều việc khác nhiều hơn nữa mà... nào là định dạng, xóa xòng,.... cả 1 mớ luôn... Chưa làm mà cái bản đòi chèn dòng nó hiện ra thì lúc đó tổ bực thêm...

Ý tác giả là tích hợp vào menu chuột phải luôn ấy...

Em đang nghiên cứu bài này mà vẫn chưa gán được bác ạ, gà quá, hic
http://www.giaiphapexcel.com/forum/...Làm-sao-gắn-các-lệnh-Macro-vào-nút-phải-chuột

 

[Miccpro]

Hic, cái của bác phulien1902 rất hay nhưng nó không giữ nguyên công thức khi insert. Mải nghịch lung tung giờ mới để ý yêu cầu là insert có công thức. Bác nào giúp em cái được không ạ

 

[phulien1902]

Hic, cái của bác phulien1902 rất hay nhưng nó không giữ nguyên công thức khi insert. Mải nghịch lung tung giờ mới để ý yêu cầu là insert có công thức. Bác nào giúp em cái được không ạ

Tôi thì thấy bình thường, còn bạn chỗ nào thấy chưa được thì chụp hình hoặc gửi File lên đây tôi xem.