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ị.

HeSanbi · 11/12/18

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

Vui ghê. Fill là một dạng tựa Copy. Nhưng nó tuần tự có chiều, trên xuống, dưới lên, sang phải, trái sang phải.
Ctrl+D giúp bạn Fill Nhanh hơn với vùng đã chọn. Và Copy những gì có từ hàng đầu tiên.
Ctrl+R Fill sang phải.
Fill là Lọc thì bạn cần học lại Excel gấp rồi

batman1 · 11/12/18

HeSanbi đã viết:
C..D là Fill xuống thôi. Muốn fill thế nào phải nói rỏ chứ người.

Người nói rõ rồi. Dòng trên sẽ copy xuống nhưng sau đó hoán vị 2 từ đầu tiên

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

minhtuan55 đã viết:
Trên đời này chỉ có a giúp được em thôi. A làm xong rồi e chỉ cần Nhấn 1 phát nó làm xong hết. A chưa quay video được tại Nhà a đang có Khách

Hi, khi nào anh ngối máy thì giúp em ạ! em mới học excel nên nhìu cái chưa rõ.
Cám ơn anh! ..... Nam mô...

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

HeSanbi đã viết:
Vui ghê. Fill là một dạng tựa Copy. Nhưng nó tuần tự có chiều, trên xuống, dưới lên, sang phải, trái sang phải.
Ctrl+D giúp bạn Fill Nhanh hơn với vùng đã chọn. Và Copy những gì có từ hàng đầu tiên.
Ctrl+R Fill sang phải.
Fill là Lọc thì bạn cần học lại Excel gấp rồi

Đầy đủ có phải là " Fill Handle " không anh?

HeSanbi · 11/12/18

@Cát Lượng
Lấy Code ở #8 nhé.

Mã:

'Copy vào ThisWorkbook Code
Private Sub Workbook_Open()
'Ctrl + Shift + M
  OnKeyM
End Sub
'Copy vào Module
Sub UmBaLaXiBum()
Selection(2, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection(2, 1).value = thaydoi(Selection.Value)
Selection(2,1).Font.COLOR = -2648346
End Sub
Sub OnKeyM()
Application.OnKey "{^+M}", "UmBaLaXiBum"
End Sub

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

HeSanbi đã viết:
@Cát Lượng
Lấy Code ở #8 nhé.

Mã:

'Copy vào ThisWorkbook Code Private Sub Workbook_Open() 'Ctrl + Q Application.OnKey "{^+Q}", "UmBaLaXiBum" End Sub 'Copy vào Module Sub UmBaLaXiBum() Selection(2, 1).value = thaydoi(Selection.Value) End Sub

Lấy cả code ở bài #8 vào module
còn code của anh ở bài này cho vào ThisWorkbook
Đúng k ạ?

HeSanbi · 11/12/18

Cát Lượng đã viết:
Lấy cả code ở bài #8 vào module
còn code của anh ở bài này cho vào ThisWorkbook
Đúng k ạ?

Đúng rồi ạ

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

snow25 đã viết:

Đây bạn xem

Mã:

Function thaydoi(ByVal chuoi As String, Optional ByVal phancach = " ") As String
Dim a As Long, aT, T
Dim i As Long
T = Split(phancach & chuoi, phancach)
a = UBound(T)
If a > 1 Then
   aT = WorksheetFunction.Proper(T(2)) & " " & T(1)
   If a > 2 Then
      For i = 3 To a
          aT = aT & " " & T(i)
      Next i
   End If
End If
thaydoi = aT
End Function

Mã:

=thaydoi(E11)

anh ơi sao lại có dòng code

HeSanbi đã viết:
Đúng rồi ạ

Báo lỗi vậy anh, là do đâu vậy ạ?

HeSanbi · 11/12/18

@Cát Lượng
Trời đất. Lấy Function về, Đưa Private sang.
Thêm cái này vào cho nó Tím tím cho Đệp

PHP:

Selection(2,1).Font.COLOR = -2648346

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

HeSanbi đã viết:
Vui ghê. Fill là một dạng tựa Copy. Nhưng nó tuần tự có chiều, trên xuống, dưới lên, sang phải, trái sang phải.
Ctrl+D giúp bạn Fill Nhanh hơn với vùng đã chọn. Và Copy những gì có từ hàng đầu tiên.
Ctrl+R Fill sang phải.
Fill là Lọc thì bạn cần học lại Excel gấp rồi

Em biết lệnh Fill rồi, anh có thể nói rõ em chút trình tự để thực hiện không ạ:
Em làm như sau:
Ấn ghi maccro sau đó làm:
1. nhấn Ctrl + D để coppy dòng trên
2. sau đó đảo ngược 02 từ đầu dòng
3. sáu đó dùng fill từ trên xuống
4. rồi sao nữa ạ?

HeSanbi · 11/12/18

Cát Lượng đã viết:
Em biết lệnh Fill rồi, anh có thể nói rõ em chút trình tự để thực hiện không ạ:
Em làm như sau:
Ấn ghi maccro sau đó làm:
1. nhấn Ctrl + D để coppy dòng trên
2. sau đó đảo ngược 02 từ đầu dòng
3. sáu đó dùng fill từ trên xuống
4. rồi sao nữa ạ?

Khó bỏ đi dùng mấy Code trên Chọn Cells rồi Ctrl+Q

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

HeSanbi đã viết:
@Cát Lượng
Trời đất. Lấy Function về, Đưa Private sang.
Thêm cái này vào cho nó Tím tím cho Đệp

PHP:

Selection(2,1).Font.COLOR = -2648346

Anh ghép giúp em mới nhé! em mới học mấy hôm có biết "Lấy Function về, Đưa Private sang "
em làm báo lỗi hoài

HeSanbi · 11/12/18

Cát Lượng đã viết:
Anh ghép giúp em mới nhé! em mới học mấy hôm có biết "Lấy Function về, Đưa Private sang "
em làm báo lỗi hoài

Ctrl+Q lung tung, rối ráng chịu nhé

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

HeSanbi đã viết:
Ctrl+Q lung tung, rối ráng chịu nhé

Em mở lên thì thấy:
Do đâu vậy anh?

HeSanbi · 11/12/18

Cát Lượng đã viết:
Em mở lên thì thấy:
Do đâu vậy anh?

Tải lại File trên và Ctrl+Shift+M. Với Ctrl + thì không Biết Chữ nào chưa được dùng

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

HeSanbi đã viết:
Tải lại File trên và Ctrl+Shift+M

Vẫn như này anh:

HeSanbi · 11/12/18

@Cát Lượng
Dấu ^ là Ctrl, + là Shift, Alt là %" ,Người kết hợp theo ý mình. Khi nào được thì OK

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

Người tìm hiểu thêm trang này nhé
https://www.rondebruin.nl/win/s4/win012.htm

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

HeSanbi đã viết:
@Cát Lượng
Dấu ^ là Ctrl, + là Shift, Alt là %" ,Người kết hợp theo ý mình. Khi nào được thì OK

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

Người tìm hiểu thêm trang này nhé
https://www.rondebruin.nl/win/s4/win012.htm

Em thay đổi nhưng nó cứ báo lỗi code như trên là do đâu vậy ạ?

batman1 · 11/12/18

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.

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

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.

Vâng, em thực hành như thầy nói:
Alt + F11 -> menu Insert -> Module -> dán đoạn code trên vào rồi chạy nhưng không thấy tác động gì.
Thầy cho em hỏi em làm có lỗi ở đoạn nào không ạ?
Có kèm video dưới thầy bớt chút thời gian xem giúp em.

batman1 · 11/12/18

Cát Lượng đã viết:
Vâng, em thực hành như thầy nói:
Alt + F11 -> menu Insert -> Module -> dán đoạn code trên vào rồi chạy nhưng không thấy tác động gì.
Thầy cho em hỏi em làm có lỗi ở đoạn nào không ạ?
Có kèm video dưới thầy bớt chút thời gian xem giúp em.

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")

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

File đính kèm

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

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

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

File đính kèm

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

Facebook

Group