Kết quả 1 đến 9 của 9

Chủ đề: Giúp đỡ Vv: Lọc tất cả các ô chứa số và định dạng lại

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Giúp đỡ Vv: Lọc tất cả các ô chứa số và định dạng lại

    Xin chào tất cả mọi người !
    Mình có 1 vấn đề như sau : Cột A gồm 1 dãy : 1+4,12,15,01+4,1,1+2+3,04+1+2,đen, trắng, đen+trắng như file đính kèm
    Mình muốn nhờ mọi người giúp đỡ để cột B trả giá trị tương ứng như sau:
    1. Nếu cột A chứa số và <10 thì định dạng lại như sau : VD: A1 chứa 1+4 thì B1 thành 01+04, A2 chứa 01+2 thì B2 định dạng lại thành 01+02, A3 chứa số 12(>10) thì B2 giữ nguyên, A4 chứa chữ "đen" thì B4 giữ nguyên.
    Xin mọi người giúp đỡ, nếu có cách nào dùng được công thức mà không dùng VBA thì tốt quá. Mình xin chân thành cảm ơn !

  2. #2
    nguoiloantin Guest
    Trích dẫn Gửi bởi MinhCG
    Xin chào tất cả mọi người !
    Mình có 1 vấn đề như sau : Cột A gồm 1 dãy : 1+4,12,15,01+4,1,1+2+3,04+1+2,đen, trắng, đen+trắng như file đính kèm
    Mình muốn nhờ mọi người giúp đỡ để cột B trả giá trị tương ứng như sau:
    1. Nếu cột A chứa số và <10 thì định dạng lại như sau : VD: A1 chứa 1+4 thì B1 thành 01+04, A2 chứa 01+2 thì B2 định dạng lại thành 01+02, A3 chứa số 12(>10) thì B2 giữ nguyên, A4 chứa chữ "đen" thì B4 giữ nguyên.
    Xin mọi người giúp đỡ, nếu có cách nào dùng được công thức mà không dùng VBA thì tốt quá. Mình xin chân thành cảm ơn !
    vắn đề về trắng và đen + trắng?

  3. #3
    machao112 Guest
    Tất cả các ô của cột A chứa kí tự là chữ như : đen, trắng, đen + trắng thì giữ nguyên bạn ạ.

  4. #4
    thoroti Guest
    Trích dẫn Gửi bởi MinhCG
    Tất cả các ô của cột A chứa kí tự là chữ như : đen, trắng, đen + trắng thì giữ nguyên bạn ạ.
    Công thức thì khó với mình bạn ạ, bạn chờ cao thủ giúp bạn công thức nhé.

  5. #5
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi quanluu1989
    Công thức thì khó với mình bạn ạ, bạn chờ cao thủ giúp bạn công thức nhé.
    Nếu dùng VBA có làm được không bạn nhỉ.

  6. #6
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    thành thật xin lổi, tôi đi lộn "chuồn"

  7. #7
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi MinhCG
    Nếu dùng VBA có làm được không bạn nhỉ.
    Bạn dùng code này. Bạn format cho cột B là custom với format 00 nhé.

    Mã:
    Sub formats()
    Dim i, j As Integer, Arr
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        If InStr(1, "en", Cells(i, 1)) = 0 And InStr(1, "ng", Cells(i, 1)) = 0 Then
            Arr = Split(Cells(i, 1), "+")
            For j = 0 To UBound(Arr)
                If Arr(j) < 10 And Len(Arr(j)) = 1 Then Arr(j) = "0" & Arr(j)
            Next
            Cells(i, 2) = Join(Arr, "+")
        End If
        If InStr(1, "en", Cells(i, 1)) > 0 Or InStr(1, "ng", Cells(i, 1)) > 0 Then Cells(i, 2) = Cells(i, 1)
    Next
    End Sub

  8. #8
    noithat889 Guest
    thành thật xin lổi, tôi đi lộn "chuồn"

  9. #9
    haudinhads Guest
    [QUOTE="quanluu1989"]Bạn dùng code này. Bạn format cho cột B là custom với format 00 nhé.

    Mã nguồn PHP:
    Public Function GPE(Rng As Range) As StringDim Tem, I As LongTem = Split(Rng, "+")For I = 0 To UBound(Tem) If IsNumeric(Tem(I)) And Tem(I) < 10 Then Tem(I) = "0" & Val(Tem(I))Next IGPE = Join(Tem, "+")End Function  
    B2=GPE(A2)

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •