Copy ô dòng trên và sau đó thay đổi vị trí 02 từ đầu dòng

Cát Lượng · 11/12/18

Xin chào các anh chị, em xin được sự giúp đỡ từ các anh chị vấn đề sau:

Coppy ô dòng trên tương ứng (giống lệnh Ctr + D) nhưng thêm một tác dụng là sẽ đổi thứ tự của 2 từ đầu dòng, và sau đó tô màu chữ nội dung ô vừa được thực hiện.

Ví dụ cụ thể như sau:

Ô số E9 có nội dung: “Láng vữa đáy, thành bể , vữa xi măng mác 100”

Sau khi chèn thủ công một dòng trống em muốn coppy (dùng một phím tắt để chạy code giống như dùng Ctr + D ) ô E9 xuống ô E10 để ô E10 có nội dung và tô màu chữ nội dung đó thành màu tím nhạt nhạt như sau:

là “Vữa láng đáy, thành bể , vữa xi măng mác 100”.

Mong sự giúp đỡ từ các thầy, các anh chị.

Cát Lượng · 11/12/18

batman1 đã viết:
Tôi khác người ở chỗ luôn hướng dẫn rất tỉ mỉ. Nhưng nhiều người lại không đọc kỹ. Uổng công của người khác.

Tôi đã viết là sửa tên thành "Trang_tinh1", nhưng bạn vẫn có "Trang_tính1" (có dấu sắc trên "i")

Vâng đúng rồi, em vừa đọc lại cũng để ý vậy, chưa kịp nhắn tin thì thầy đã hồi âm, em cám ơn thầy nhé!, code gọn và chạy rất ổn ạ!
Chúc thầy buổi tối vui vẻ!

trongloc · 12/12/18

Cát Lượng đã viết:
Vâng đúng rồi, em vừa đọc lại cũng để ý vậy, chưa kịp nhắn tin thì thầy đã hồi âm, em cám ơn thầy nhé!, code gọn và chạy rất ổn ạ!
Chúc thầy buổi tối vui vẻ!

Tôi không giỏi code lắm, hay làm bằng công thức có sẵn trong excel luôn rồi chạy marco, bạn thử code này nhé, tôi test thì đã ok.
Bạn tự đặt hotkey nhé, chọn ô cần copy thì công thức này sẽ tự lấy dữ liệu ô trên nó và đổi màu

Mã:

Sub Macro7()
    ActiveCell.FormulaR1C1 = _
        "=+UPPER(LEFT(MID(R[-1]C,FIND("" "",R[-1]C,1)+1,FIND("" "",R[-1]C,FIND("" "",R[-1]C,1))),1))&LOWER(RIGHT(MID(R[-1]C,FIND("" "",R[-1]C,1)+1,FIND("" "",R[-1]C,FIND("" "",R[-1]C,1)+1)-FIND("" "",R[-1]C,1)-1),LEN(MID(R[-1]C,FIND("" "",R[-1]C,1)+1,FIND("" "",R[-1]C,FIND("" "",R[-1]C,1)+1)-FIND("" "",R[-1]C,1)-1))-1)&"" ""&SUBSTITUTE(R[-1]C,MID(R[-1]C,FIND("" "",R[-1]C,1)+1,FIND("" "",R[-1]C,FIND("" "",R[-1]C,1)+1)-FIND("" "",R[-1]C,1)-1)&"" "","""",1))"
            With ActiveCell
                .Font.Color = RGB(100, 0, 255)
            End With
End Sub

minhtuan55 · 12/12/18

Cát Lượng đã viết:
Fill là lọc ạ, nhưng em vẫn chưa hình dung ra ạ!

Gửi em? Nếu làm không được cho địa chỉ a lại làm cho nha

Thanhlam2425 · 12/12/18

minhtuan55 đã viết:
Gửi em? Nếu làm không được cho địa chỉ a lại làm cho nha

Hâm.Ở trên giải quyết được rồi.Đưa cái video khùng lên.

Cát Lượng · 12/12/18

minhtuan55 đã viết:
Gửi em? Nếu làm không được cho địa chỉ a lại làm cho nha

Dạ em làm được rồi ạ! cám ơn anh minhtuan55 nhiều nhé!

Bài đã được tự động gộp: 12/12/18

Thanhlam2425 đã viết:
Hâm.Ở trên giải quyết được rồi.Đưa cái video khùng lên.

Cũng hay ạ! mỗi người có một ý tưởng.

minhtuan55 · 12/12/18

Thanhlam2425 đã viết:
Hâm.Ở trên giải quyết được rồi.Đưa cái video khùng lên.

Hàm trên là phải nháy đúp từng cái từng cái. còn đây 1000 dòng quất 1 phát. bạn nên xem xét lại khi nói bạn kHùng. bạn có lên xe Hơi được chưa. nhà có Hotel ở sài gòn chưa. Bình luận mất lịch sự thì cái kết của gia dịnh bạn sẽ Nhận hậu quả thê thảm cho câu nói đó. Chúc bạn sớm nhận Nhân quả vì câu nói Khùng đó haha.

Thanhlam2425 · 12/12/18

minhtuan55 đã viết:
Hàm trên là phải nháy đúp từng cái từng cái. còn đây 1000 dòng quất 1 phát. bạn nên xem xét lại khi nói bạn kHùng. bạn có lên xe Hơi được chưa. nhà có Hotel chưa, Hay là đi con xe máy cà tàn.

Đúng là không biết gì.Chỉ biết khoe của.Chắc công tử bột nào ra đây.

minhtuan55 · 12/12/18

Thanhlam2425 đã viết:
Đúng là không biết gì.Chỉ biết khoe của.Chắc công tử bột nào ra đây.

Đúng rồi không biết gì mới đi xe hơi che nắng che mưa. Chú mầy biết đi xe cà tàng haha. Ngừoi ta làm đươc mua con xe thì đầu óc của ngừoi ta không phải dạng vừa. Vba để anh mầy giải trí thôi. Chú mầy còn non lắm nên mới bình luận vậy

batman1 · 12/12/18

minhtuan55 đã viết:
Hàm trên là phải nháy đúp từng cái từng cái. còn đây 1000 dòng quất 1 phát.

Tôi làm đúng những gì đã yêu cầu

Sau khi chèn thủ công một dòng trống em muốn coppy (dùng một phím tắt để chạy code giống như dùng Ctr + D ) ô E9 xuống ô E10 để ô E10 có nội dung và tô màu chữ nội dung đó thành màu tím nhạt nhạt như sau:

"Chèn dòng trống" và "chèn ô trống trong cột E" là hay cái hoàn toàn khác nhau. Vd. A10 = hic hic" thì sau khi "chèn dòng" phải có A10 = "", A11 = "hic hic"

Bạn làm chèn ô, không đúng như đoạn tôi trích.

Tôi sơ ý thôi chứ chuyện làm hết cho các dòng dữ liệu thì chả có gì là khó: Dùng FOR thôi. Lúc đó thì chả cần chọn gì cả. Tôi sơ ý vì không nhìn kỹ hình nên tưởng là người ta sẽ chọn cái nào sẽ copy/chèn dòng/hoán vị, còn cái nào để nguyên. Chứ nếu muốn cái nào cũng copy/chèn dòng/hoán vị thì cần gì chọn.

Mà làm như bạn rồi copy cột phụ rồi dán Value vào cột E, sau đó xóa cột phụ?. Rõ ràng là bạn tạo cột phụ. Theo đúng 100% cái người ta viết thì kết quả phải trong cột E.

Cát Lượng · 12/12/18

Thanhlam2425 đã viết:
Đúng là không biết gì.Chỉ biết khoe của.Chắc công tử bột nào ra đây.

Anh ý cũng có ý giúp mà, thôi bỏ qua đi, cuối cùng bài toán cũng giải quyết được rùi, chúc anh chị buổi tối vui vẻ!

Nhất Chi Lan · 12/12/18

minhtuan55 đã viết:
Hàm trên là phải nháy đúp từng cái từng cái. còn đây 1000 dòng quất 1 phát. bạn nên xem xét lại khi nói bạn kHùng. bạn có lên xe Hơi được chưa. nhà có Hotel ở sài gòn chưa. Bình luận mất lịch sự thì cái kết của gia dịnh bạn sẽ Nhận hậu quả thê thảm cho câu nói đó. Chúc bạn sớm nhận Nhân quả vì câu nói Khùng đó haha.

Em thấy vầy này
Với công việc quản lý nhà hàng như bạn tẳng hạn. Mai Tủ Ốp ích vào cần hàng nhà phục vụ thì Bạn tính răng. Thay đổi 2 từ đó. Nên mình mới nói là ý tưởng của chủ topic là ý tưởng của người Sao Hoả

Cát Lượng · 12/12/18

Nhất Chi Lan đã viết:
Em thấy vầy này
Với công việc quản lý nhà hàng như bạn tẳng hạn. Mai Tủ Ốp ích vào cần hàng nhà phục vụ thì Bạn tính răng. Thấy đổi 2 từ đó. Nên mình mới nói là ý tưởng của chiếc topic là ý tưởng của người Sao Hoả

Ý bạn bảo mình là người ngoài hành tinh giống ronaldo của brazin hả?

Nhất Chi Lan · 12/12/18

Cát Lượng đã viết:
Ý bạn bảo mình là người ngoài hành tinh giống ronaldo của brazin hả?

Tôi nói với bạn là. Phòng ba tão táp. Không bằng Ngữ pháp Việt Nam. Bạn giải thích hộ tôi cái ý tưởng luôn chuyển 2 từ đầu của Bạn được không.
Bạn tự lấy ví dụ như: Nhà hàng theo ý tưởng của bạn nó thành cái giông gì
Bạn xem ý tưởng của Bạn có phải là ý tưởng của người ngoài hành tinh không
Nếu như í tương của Bạn. Thì trái đất chỉ có loài Tôm mới tồn tại đc. Vì nó có thải mấy cái kia bằng đầu

batman1 · 12/12/18

Nhất Chi Lan đã viết:
Bạn tự lấy ví dụ như: Nhà hàng theo ý tưởng của bạn nó thành cái giông gì
Bạn xem ý tưởng của Bạn có phải là ý tưởng của người ngoài hành tinh không

Theo tôi nếu bất cứ dữ liệu nào cũng hoán vị 2 từ đầu tiên thì ý tưởng đúng kỳ thật. Nhưng bạn phải công nhận là có những dữ liệu mà khi hoán vị thì vẫn không kỳ kỳ. Vì thế tôi làm theo lôgíc của tôi, vì tôi không chơi trò "đoán ý đồng đội". Tôi cho rằng người thao tác sẽ tự chọn một vài dữ liệu cần hoán vị chứ không phải chọn tất cả. Vì thế mới có code và hướng dẫn thao tác của tôi.

Nhưng sau khi xem clip ở bài #43 và đọc được "Dạ em làm được rồi ạ!" thì tôi hiểu là ý người ta là hoán vị tất cả. Tất nhiên lúc này thì kỳ thật nhưng thôi, ước nguyện của người ta là thế.

Bên lề một chút: chắc có liên lạc qua tin nhắn chứ xem clip mà không có code của thaydoi thì "làm được rồi" bằng niềm tin chăng.

minhtuan55 · 12/12/18

Nhất Chi Lan đã viết:
Tôi nói với bạn là. Phòng ba tão táp. Không bằng Ngữ pháp Việt Nam. Bạn giải thích hộ tôi cái ý tưởng luôn chuyển 2 từ đầu của Bạn được không.
Bạn tự lấy ví dụ như: Nhà hàng theo ý tưởng của bạn nó thành cái giông gì
Bạn xem ý tưởng của Bạn có phải là ý tưởng của người ngoài hành tinh không
Nếu như í tương của Bạn. Thì trái đất chỉ có loài Tôm mới tồn tại đc. Vì nó có thải mấy cái kia bằng đầu

Bạn Nói vậy không đúng. Có nhiều khi chủ Topic họ cần cái Ngoài Hành Tinh đó để họ áp dụng vào 1 vấn đề khác. File chủ Topic đưa lên là File Minh họa cho mọi người xem hiểu là để giúp bạn ấy. Và từ đó bạn ấy lấy Code đó đi áp dụng cho 1 công việc khác phù hợp nhu cầu của người ta. Đừng nói Người ngoài hành tinh nhé. Mình nói thẳng luôn bạn nói vậy Bạn không bao giờ Làm lớn được. Phải có những lúc Điện Điên Khùng Khùng thì nó mới gọi là Điên Rồ trong Kinh doanh. ( Ví dụ ông Phúc Xo đại gia Karaoke ở Tân Bình Cái bàn mà để tiếp khách vào hát Karaoke ổng để 1 cái Xác Ướp ngay dưới bàn, Khách lại hát karaoke thấy lạ quá, Họ lại quán càng ngày càng động để hát karaoke và xem cái Xác đó, và cái kết Doanh thu quán tăng. Đấy Cũng là Ý tường Ngoài hành Tinh đấy Chú tính sao ) Rút kinh nghiệm phải lịch sự, lanh lợi và đặc biệt và phải tư duy Đoán trước tình huống người đang nói đang muốn nói gì thì mới giàu có được. Lời kết Chúc bạn 1 buổi tôi Sức khỏe. Anh em vui vẽ Lành mạnh. Rút kinh nghiệm ăn nói cho lần 2+ ...N

Bài đã được tự động gộp: 12/12/18

batman1 đã viết:
Theo tôi nếu bất cứ dữ liệu nào cũng hoán vị 2 từ đầu tiên thì ý tưởng đúng kỳ thật. Nhưng bạn phải công nhận là có những dữ liệu mà khi hoán vị thì vẫn không kỳ kỳ. Vì thế tôi làm theo lôgíc của tôi, vì tôi không chơi trò "đoán ý đồng đội". Tôi cho rằng người thao tác sẽ tự chọn một vài dữ liệu cần hoán vị chứ không phải chọn tất cả. Vì thế mới có code và hướng dẫn thao tác của tôi.

Nhưng sau khi xem clip ở bài #43 và đọc được "Dạ em làm được rồi ạ!" thì tôi hiểu là ý người ta là hoán vị tất cả. Tất nhiên lúc này thì kỳ thật nhưng thôi, ước nguyện của người ta là thế.

Bên lề một chút: chắc có liên lạc qua tin nhắn chứ xem clip mà không có code của thaydoi thì "làm được rồi" bằng niềm tin chăng.

Mình chào Bác 1 cái nha. Đọc coment Thấy bác rất nhiệt tình. Chúc bác 1 buổi tối vui vẽ sức khỏe

Bài đã được tự động gộp: 12/12/18

Cát Lượng đã viết:
Ý bạn bảo mình là người ngoài hành tinh giống ronaldo của brazin hả?

Anh là anh rất chân tình giúp em. Anh chúc em thành công tốt đẹp. Inbox anh cho Số điện thoại. Nhà a ở PHAn Xích Long, Phú Nhuận. Bửa nào lám kèo cafe nhé

Cát Lượng · 13/12/18

minhtuan55 đã viết:
Bạn Nói vậy không đúng. Có nhiều khi chủ Topic họ cần cái Ngoài Hành Tinh đó để họ áp dụng vào 1 vấn đề khác. File chủ Topic đưa lên là File Minh họa cho mọi người xem hiểu là để giúp bạn ấy. Và từ đó bạn ấy lấy Code đó đi áp dụng cho 1 công việc khác phù hợp nhu cầu của người ta. Đừng nói Người ngoài hành tinh nhé. Mình nói thẳng luôn bạn nói vậy Bạn không bao giờ Làm lớn được. Phải có những lúc Điện Điên Khùng Khùng thì nó mới gọi là Điên Rồ trong Kinh doanh. ( Ví dụ ông Phúc Xo đại gia Karaoke ở Tân Bình Cái bàn mà để tiếp khách vào hát Karaoke ổng để 1 cái Xác Ướp ngay dưới bàn, Khách lại hát karaoke thấy lạ quá, Họ lại quán càng ngày càng động để hát karaoke và xem cái Xác đó, và cái kết Doanh thu quán tăng. Đấy Cũng là Ý tường Ngoài hành Tinh đấy Chú tính sao ) Rút kinh nghiệm phải lịch sự, lanh lợi và đặc biệt và phải tư duy Đoán trước tình huống người đang nói đang muốn nói gì thì mới giàu có được. Lời kết Chúc bạn 1 buổi tôi Sức khỏe. Anh em vui vẽ Lành mạnh. Rút kinh nghiệm ăn nói cho lần 2+ ...N

Bài đã được tự động gộp: 12/12/18

Mình chào Bác 1 cái nha. Đọc coment Thấy bác rất nhiệt tình. Chúc bác 1 buổi tối vui vẽ sức khỏe

Bài đã được tự động gộp: 12/12/18

Anh là anh rất chân tình giúp em. Anh chúc em thành công tốt đẹp. Inbox anh cho Số điện thoại. Nhà a ở PHAn Xích Long, Phú Nhuận. Bửa nào lám kèo cafe nhé

Vâng, cám ơn anh, mỗi người có một ý tưởng và một cách làm, không phải suy nghĩ ai cũng như ai, có người biết nhiều, người biết ít và người không biết gì..., em ở Hà Nội anh à, hy vọng trái đất tròn có ngày gặp, chúc anh ngày mới vui vẻ!

VetMini · 13/12/18

batman1 đã viết:
...
Nhưng sau khi xem clip ở bài #43 và đọc được "Dạ em làm được rồi ạ!" thì tôi hiểu là ý người ta là hoán vị tất cả. Tất nhiên lúc này thì kỳ thật nhưng thôi, ước nguyện của người ta là thế. {1}

Bên lề một chút: chắc có liên lạc qua tin nhắn chứ xem clip mà không có code của thaydoi thì "làm được rồi" bằng niềm tin chăng {2}.

{1} Theo tôi thì do khác ngữ cảnh, bác ơi. Hình như cái ngữ cảnh "làm được rồi" nó chỉ vào cái khác.

{2} "thay đổi": hình như dân LT HĐT họ cũng hay "morph" như vậy cho nó xứng đáng. Tuỳ theo cái giao diện (interface) mà thay đổi hình dạng. Cái giao diện cần nhiều Input thì hàm mặc định (default constructor) theo dạng "mật phô", ý gõ nhầm "phô mật"; cái giao diện có nhiều Output thì hàm dựng mặc định theo dạng "cua khoẻ".
Xê cọng cọng nó cũng có dạng đối tượng dựng theo mẫu (template) thay vì lớp (class). Ở bên kia, tôi nói chuyện vòng vo cốt để xem đối tượng này kế thừa từ template hay class.

(*) tôi cũng hiểu từ "thaydoi" theo ngữ cảnh của tôi, có lẽ là khác với bác.

Cát Lượng · 14/12/18

batman1 đã viết:
Theo tôi nếu bất cứ dữ liệu nào cũng hoán vị 2 từ đầu tiên thì ý tưởng đúng kỳ thật. Nhưng bạn phải công nhận là có những dữ liệu mà khi hoán vị thì vẫn không kỳ kỳ. Vì thế tôi làm theo lôgíc của tôi, vì tôi không chơi trò "đoán ý đồng đội". Tôi cho rằng người thao tác sẽ tự chọn một vài dữ liệu cần hoán vị chứ không phải chọn tất cả. Vì thế mới có code và hướng dẫn thao tác của tôi.

Nhưng sau khi xem clip ở bài #43 và đọc được "Dạ em làm được rồi ạ!" thì tôi hiểu là ý người ta là hoán vị tất cả. Tất nhiên lúc này thì kỳ thật nhưng thôi, ước nguyện của người ta là thế.

Bên lề một chút: chắc có liên lạc qua tin nhắn chứ xem clip mà không có code của thaydoi thì "làm được rồi" bằng niềm tin chăng.[/QUOTE

batman1 đã viết:
Tôi khác người ở chỗ luôn hướng dẫn rất tỉ mỉ. Nhưng nhiều người lại không đọc kỹ. Uổng công của người khác.

Tôi đã viết là sửa tên thành "Trang_tinh1", nhưng bạn vẫn có "Trang_tính1" (có dấu sắc trên "i")

Thầy ơi, cho em hỏi chút xíu ạ? em sau khi sử dụng

batman1 đã viết:
Thôi thế này ...
Không chèn dòng bằng tay gì cả. Đã code thì nó làm từ A đến Z thôi, chứ sao lại phải tự cầy nửa thửa trước?
Chọn ô cần copy xuống và đảo sau đó nhấn phím tắt
Alt + F11 -> menu Insert -> Module -> dán code sau

Mã:

Sub chen_dan() Dim k As Long, text As String, s As String If TypeName(Selection) = "Range" Then If Selection.Parent.Name = "Trang_tinh1" And Selection.Count = 1 And Selection.Column = 5 Then text = Application.Trim(Selection.Value) k = InStr(1, text, " ") s = LCase(Left(text, k - 1)) k = InStr(k + 1, text, " ") s = Application.Proper(Mid(text, Len(s) + 2, k - Len(s) - 2)) & " " & s Mid(text, 1, Len(s)) = s Selection.Offset(1).EntireRow.Insert With Selection.Offset(1) .Font.Color = RGB(100, 0, 255) .Value = text End With End If End If End Sub

Bạn tự lập phím tắt mà mình ưa thích. Sau đó: chọn ô -> nhấn phím tắt.

Chú ý là trong code dùng "Trang_tinh1", tức sửa tên sheet thành không có dấu - ký tự Việt. Nếu tên sheet sẽ khác thì sửa trong code cho thích hợp
5 ở trong Selection.Column = 5 có nghĩa là cột E. Nệu cột khác thì tự sửa lại.

Em chào Thầy, thầy ơi cho em quay lại vấn đề chút:
Sau khi em đã chạy code và xuất hiện nội dung như ô E11
Tiếp đó em điền nội dung ở các ô tiếp theo (từ ô E12 trở đi) thì các ô đó có nội dung chữ đều là màu xanh và không thể tác động để thay đổi màu chữ ở các ô đó.
Thầy giúp em ạ!
Em cám ơn thầy, đó cũng là vấn đề em vừa đưa lên Topic mới ạ!
https://www.giaiphapexcel.com/diend...in-không-đổi-được-màu-chữ.139675/#post-896841

batman1 · 14/12/18

Cát Lượng đã viết:
Em chào Thầy, thầy ơi cho em quay lại vấn đề chút:
Sau khi em đã chạy code và xuất hiện nội dung như ô E11
Tiếp đó em điền nội dung ở các ô tiếp theo (từ ô E12 trở đi) thì các ô đó có nội dung chữ đều là màu xanh và không thể tác động để thay đổi màu chữ ở các ô đó.

Thì bạn dùng Conditional Formating đấy thôi, sao giờ lại kêu. Mầu xanh có ở những dòng mà tương ứng D = ""

Cát Lượng · 15/12/18

batman1 đã viết:
Thì bạn dùng Conditional Formating đấy thôi, sao giờ lại kêu. Mầu xanh có ở những dòng mà tương ứng D = ""

Hì, dạ em cám ơn thầy, được rồi thầy ạ!

Copy ô dòng trên và sau đó thay đổi vị trí 02 từ đầu dòng

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

File đính kèm

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

Thành viên mới

Thành viên bị đình chỉ hoạt động

Thành viên hoạt động

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

Thành viên bị đình chỉ hoạt động

Thành viên hoạt động

Thành viên bị đình chỉ hoạt động

Thành viên gạo cội

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

Thành viên mới

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

Thành viên mới

Thành viên gạo cội

Thành viên bị đình chỉ hoạt động

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

Ăn cùng góc phố

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

Thành viên gạo cội

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

Facebook

Group