Help me: Em muốn ngăn cách các hàng trong cùng 1 ô có chứa cả chữ các bác ạ

[198zxc]

Em muốn đặt công thức hoặc định dạng sao cho khi gõ chữ rồi đến số trong cùng 1 ô thì ô đánh sẽ tự ngăn cách các hàng như kiểu 123 123 123 ạ. cụ thể em đã trình bày trong file đính kèm. các pro giúp em với, em cám ơn ạ

 

[dazkangel]

Em muốn đặt công thức hoặc định dạng sao cho khi gõ chữ rồi đến số trong cùng 1 ô thì ô đánh sẽ tự ngăn cách các hàng như kiểu 123 123 123 ạ. cụ thể em đã trình bày trong file đính kèm. các pro giúp em với, em cám ơn ạ

Bạn nhấn Ctrl+1 (Format cell) vào Custom, nhập dòng sau, và nhớ để dòng số 1 ô riêng:

### ### ### ### #

 

[198zxc]

Pro ơi nhưng vì nó có cả chữ nên nó ko cho định dạng ### ### ### ### đâu ạ

 

[dazkangel]

Pro ơi nhưng vì nó có cả chữ nên nó ko cho định dạng ### ### ### ### đâu ạ

Nên mới cần tách ra, còn không thì chỉ có VBA, vậy hãy đợi chờ xem.

 

[phulien1902]

Em muốn đặt công thức hoặc định dạng sao cho khi gõ chữ rồi đến số trong cùng 1 ô thì ô đánh sẽ tự ngăn cách các hàng như kiểu 123 123 123 ạ. cụ thể em đã trình bày trong file đính kèm. các pro giúp em với, em cám ơn ạ

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
        Target = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
    Application.EnableEvents = True
End If
End Sub

 

[PacificPR]

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
        Target = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
    Application.EnableEvents = True
End If
End Sub

 

[198zxc]

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
        Target = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
    Application.EnableEvents = True
End If
End Sub

Thank bác nhiều nhá, quá siêu

 

[Gà Công Nghệ]

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
        Target = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
    Application.EnableEvents = True
End If
End Sub

Bạn cho mình hỏi dấu # tượng trưng 1 con số hả bạn? Nếu 4 dấu #### liền tiếp tượng trưng cho 4 số dính liền hả bạn?

 

[198zxc]

Thank bác nhiều nhá, quá siêu

Bác ơi cho em hỏi với, giờ em muốn thay chỗ tài khoản bằng CMND số: thi làm thế nào ạ ví dụ là
CMND số: 131 465 354

 

[Gà Công Nghệ]

Bác ơi cho em hỏi với, giờ em muốn thay chỗ tài khoản bằng CMND số: thi làm thế nào ạ ví dụ là
CMND số: 131 465 354

sửa lại dòng này: Target = "CMND so: " & Format(Target, "### ### ### ")
Kết quả ra vậy: CMND so: 123 456 789
Trong code không biết cách bỏ dấu. Nếu bạn dùng liền thì dùng tạm, không thì bạn chờ khi nào bạn đó online bạn đó trả lời. Hoặc người khác biết cách sẽ trả lời giùm bạn. Thân chào bạn!

 

[198zxc]

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
        Target = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
    Application.EnableEvents = True
End If
End Sub

Bác ơi giờ em muốn trong 1 file excel mà dùng được 2 hàm VBA tự chia các hàng thì làm như thế nào ạ, file em đính kèm luôn rồi ạ

 

[phulien1902]

Bác ơi giờ em muốn trong 1 file excel mà dùng được 2 hàm VBA tự chia các hàng thì làm như thế nào ạ, file em đính kèm luôn rồi ạ

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1") = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
      '  Range("A1").Offset(3) = "S" & ChrW(7889) & " CMTND" & ":" & Format(Target, "### ### ###")
        Application.EnableEvents = True
    End If
    If Not Intersect(Target, Range("A4")) Is Nothing Then
        Application.EnableEvents = False
        Range("A4") = "S" & ChrW(7889) & " CMTND" & ":" & Format(Target, "### ### ###")
        Application.EnableEvents = True
    End If
End Sub

 

[phulien1902]

Bác ơi cho em hỏi với, giờ em muốn thay chỗ tài khoản bằng CMND số: thi làm thế nào ạ ví dụ là
CMND số: 131 465 354

Bạn xem bài #12 nhé

 

[phulien1902]

Bạn cho mình hỏi dấu # tượng trưng 1 con số hả bạn? Nếu 4 dấu #### liền tiếp tượng trưng cho 4 số dính liền hả bạn?

Tạm hiểu như vậy trong ví dụ này bạn nhé.

 

[198zxc]

Bác ơi

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1") = "Tài kho" & ChrW(7843) & "n" & ": " & Format(Target, "### ### ### ### #")
        Range("A1").Offset(3) = "S" & ChrW(7889) & " CMTND" & ":" & Format(Target, "### ### ###")
        Application.EnableEvents = True
    End If
    If Not Intersect(Target, Range("A4")) Is Nothing Then
        Application.EnableEvents = False
        Range("A4") = "S" & ChrW(7889) & " CMTND" & ":" & Format(Target, "### ### ###")
        Application.EnableEvents = True
    End If
End Sub

Quá siêu bác ạ, cảm ơn bác nhiều nhé

 

[198zxc]

Bác ơi

Quá siêu bác ạ, cảm ơn bác nhiều nhé

Bác ơi có cách nào khắc phục được lỗi này ko ạ, tức là e gõ vào ô tài khoản thì ô số cmnd cũng nhảy theo, lại phải đánh lại số cmnd, ngược lại cũng thế ạ, cứ đánh ông này thì ông kia nhảy nên phải thêm thao tác

 

[phulien1902]

Bác ơi có cách nào khắc phục được lỗi này ko ạ, tức là e gõ vào ô tài khoản thì ô số cmnd cũng nhảy theo, lại phải đánh lại số cmnd, ngược lại cũng thế ạ, cứ đánh ông này thì ông kia nhảy nên phải thêm thao tác

À, xin lỗi bạn, vì thừa 1 dòng lệnh

 Range("A1").Offset(3) = "S" & ChrW(7889) & " CMTND" & ":" & Format(Target, "### ### ###")

Bài #12 tôi đã sửa lại rồi đấy.