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

Miccpro · 29/10/15

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 · 29/10/15

Miccpro đã viết:
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

PHP:

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 · 29/10/15

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

Miccpro · 29/10/15

phulien1902 đã viết:
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 · 29/10/15

phulien1902 đã viết:
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 · 29/10/15

Miccpro đã viết:
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:

Mã:

[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 · 29/10/15

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

doatmenhhon · 29/10/15

Miccpro đã viết:
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 · 29/10/15

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

PHP:

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 · 29/10/15

Tham khảo trong File bạn nhé

doatmenhhon · 29/10/15

phulien1902 đã viết:
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 · 29/10/15

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 · 29/10/15

doatmenhhon đã viết:
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 · 29/10/15

phulien1902 đã viết:
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 · 29/10/15

Miccpro đã viết:
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 · 29/10/15

phulien1902 đã viết:
Đ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 · 29/10/15

hpkhuong đã viết:
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 · 29/10/15

hpkhuong đã viết:
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 · 29/10/15

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 · 29/10/15

Miccpro đã viết:
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.

Miccpro · 29/10/15

phulien1902 đã viết:
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.

Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

phulien1902 · 29/10/15

Miccpro đã viết:
Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

File bài #1 làm gì có cột J ?
Đây là File mới do bạn phát sinh thêm.

phulien1902 · 29/10/15

Miccpro đã viết:
Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

Bạn thêm dòng dưới đây vào là OK ngay:

Mã:

Range("J2:J" & LastRow).FillDown

Miccpro · 29/10/15

Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

phulien1902 · 29/10/15

Miccpro đã viết:
Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

Chỉ có File mới có thể có câu trả lời chính xác được bạn ah.
Có lẽ đã muộn rồi, mình cũng phải đi nghỉ, mai còn phải đi cày,hiii. Chúc bạn ngủ ngon!

giaiphap · 29/10/15

Miccpro đã viết:
Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

Thì cũng thực hiện tương tự bác. Vì dụ cần copy công thức các cột từ S9:V9 đến S18:V18 thì code thế này đây:

Mã:

Range("s9:v18").FillDown

Miccpro · 29/10/15

giaiphap đã viết:
Thì cũng thực hiện tương tự bác. Vì dụ cần copy công thức các cột từ S9:V9 đến S18:V18 thì code thế này đây:

Mã:

Range("s9:v18").FillDown

Cảm ơn bác, em thử mà không được bác ạ

phulien1902 · 30/10/15

Bạn muốn FillDown công thức từ cột S tới cột V bạn thêm dòng này nè:

PHP:

Range("S1:V1" & LastRow).FillDown

Miccpro · 30/10/15

Em gửi file em đang làm viêc bác Phulien giúp em cái nha. Insert hàng có công thức. Cảm ơn bác

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

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

GPE - My love

GPE - My love

File đính kèm

Thành viên thường trực

Thành viên thường trực

GPE - My love

Thành viên thường trực

Thành viên tiêu biểu

GPE - My love

GPE - My love

File đính kèm

Thành viên tiêu biểu

Thành viên thường trực

GPE - My love

Thành viên tiêu biểu

GPE - My love

Thành viên tiêu biểu

File đính kèm

Thành viên tiêu biểu

Thành viên thường trực

Thành viên thường trực

GPE - My love

Thành viên thường trực

File đính kèm

GPE - My love

GPE - My love

Thành viên thường trực

GPE - My love

==(^o^)==

Thành viên thường trực

GPE - My love

Thành viên thường trực

File đính kèm

Thời gian đếm ngược.