Nhờ giúp đỡ Hàm IF có điều kiện và macro excel (5 người xem)

881516 · 11/4/18

Em có 2 câu hỏi mong mọi người giúp đỡ
Câu 1: (đã được giải đáp)
Công thức:

Mã:

=IF(OR(ISNUMBER(FIND("XXX",A1)),ISNUMBER(FIND("yyy",A1)),ISNUMBER(FIND("zzz",data!P717)),ISNUMBER(FIND("yyy",data!P717))),"kết quả","")

Cột A là các dữ liệu dạng text
Em cần đặt công thức ở B1 sao cho: nếu ô A1 có chứa từ "Nợ" hoặc "nợ" hoặc "chậm" hoặc "Chậm" thì ô B1 sẽ điền "X"

Câu 2 về macro
Dưới đây là nguyên mẫu của em (hơi dài nhưng e chỉ hỏi 1 ý đơn giản) mục đích của macro này là copy dữ liệu từ nhiều file tổng hợp lại thành 1 file.
mọi thứ chạy ok, chỉ có 1 vấn đề về định dạng chữ

Giả sử ô P45 ở file gốc có giá trị là "22.550" (tỉ giá USD)
Sau khi copy sang file tổng hợp thì nó lại hiện thành 22.55
Em muốn nó để nguyên thành 22.550

Rất mong đc mọi người giúp đỡ

Mã:

Sub test()
Dim FolderPath As String, FileName As String, strFileTarget As String
Dim wb As Excel.Workbook
Dim i As Integer, lastRow As Integer
Dim DataArr(17) As Variant

FolderPath = Range("A1").Value & "\"        'Duong dan thu muc do tim
FileName = Dir(FolderPath & "*.xls*")       'Tim trong thu muc tat ca cac file *.xls*
strFileTarget = "IMEX - Hung - Copy.xlsm"          'Ten file macro chay

Set FSO = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
If FSO.FolderExists(FolderPath) Then
 
    Do While FileName <> ""
        If FileName <> strFileTarget Then
    
            On Error Resume Next
            Set wb = Workbooks.Open(FolderPath & FileName)
            If Err.Number <> 0 Then: MsgBox ("Unable to open file " & FileName)
            On Error GoTo 0
            lastRow = Workbooks(strFileTarget).Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
        
    '        Workbooks(FileName).Worksheets(1).Range(Cells(5, 2), Cells(10, 2)).Copy
    '        Workbooks(strFileTarget).Worksheets(1).Cells(lastRow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

            DataArr(0) = Workbooks(FileName).Worksheets(1).Range("E4").Value: DataArr(1) = Workbooks(FileName).Worksheets(1).Range("I6").Value
            DataArr(2) = Workbooks(FileName).Worksheets(1).Range("P6").Value: DataArr(3) = Workbooks(FileName).Worksheets(1).Range("G8").Value
            DataArr(4) = Workbooks(FileName).Worksheets(1).Range("H23").Value: DataArr(5) = Workbooks(FileName).Worksheets(1).Range("D31").Value
            DataArr(6) = Workbooks(FileName).Worksheets(1).Range("K36").Value: DataArr(7) = Workbooks(FileName).Worksheets(1).Range("P36").Value
            DataArr(8) = Workbooks(FileName).Worksheets(1).Range("K37").Value: DataArr(9) = Workbooks(FileName).Worksheets(1).Range("P37").Value
            DataArr(10) = Workbooks(FileName).Worksheets(1).Range("U35").Value: DataArr(11) = Workbooks(FileName).Worksheets(1).Range("J41").Value
            DataArr(12) = Workbooks(FileName).Worksheets(1).Range("J45").Value: DataArr(13) = Workbooks(FileName).Worksheets(1).Range("P45").Value
            DataArr(14) = Workbooks(FileName).Worksheets(1).Range("AB70").Value: DataArr(15) = Workbooks(FileName).Worksheets(1).Range("H68").Value
            DataArr(16) = Workbooks(FileName).Worksheets(1).Range("H69").Value
            For i = 0 To UBound(DataArr)
                    Workbooks(strFileTarget).Worksheets(1).Cells(lastRow + 1, i + 1).Value = Trim(DataArr(i))
            Next

            Application.Wait (Now + TimeValue("0:00:01"))
            Workbooks(FileName).Close SaveChanges:=False

        
        End If
    
        FileName = Dir
    Loop

Else
    MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If
MsgBox ("Well Done!")
Application.ScreenUpdating = True
End Sub

881516 · 12/4/18

e edit lại câu 2

dazkangel · 12/4/18

881516 đã viết:

Em có 2 câu hỏi mong mọi người giúp đỡ
Câu 1:
Cột A là các dữ liệu dạng text
Em cần đặt công thức ở B1 sao cho: nếu ô A1 có chứa từ "Nợ" hoặc "nợ" hoặc "chậm" hoặc "Chậm" thì ô B1 sẽ điền "X"

Câu 2 về macro
Dưới đây là nguyên mẫu của em (hơi dài nhưng e chỉ hỏi 1 ý đơn giản) mục đích của macro này là copy dữ liệu từ nhiều file tổng hợp lại thành 1 file.
mọi thứ chạy ok, chỉ có 1 vấn đề về định dạng chữ

Giả sử ô P45 ở file gốc có giá trị là "22.550" (tỉ giá USD)
Sau khi copy sang file tổng hợp thì nó lại hiện thành 22.55
Em muốn nó để nguyên thành 22.550

Rất mong đc mọi người giúp đỡ

Mã:

Sub test()
Dim FolderPath As String, FileName As String, strFileTarget As String
Dim wb As Excel.Workbook
Dim i As Integer, lastRow As Integer
Dim DataArr(17) As Variant

FolderPath = Range("A1").Value & "\"        'Duong dan thu muc do tim
FileName = Dir(FolderPath & "*.xls*")       'Tim trong thu muc tat ca cac file *.xls*
strFileTarget = "IMEX - Hung - Copy.xlsm"          'Ten file macro chay

Set FSO = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
If FSO.FolderExists(FolderPath) Then
 
    Do While FileName <> ""
        If FileName <> strFileTarget Then
    
            On Error Resume Next
            Set wb = Workbooks.Open(FolderPath & FileName)
            If Err.Number <> 0 Then: MsgBox ("Unable to open file " & FileName)
            On Error GoTo 0
            lastRow = Workbooks(strFileTarget).Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
        
    '        Workbooks(FileName).Worksheets(1).Range(Cells(5, 2), Cells(10, 2)).Copy
    '        Workbooks(strFileTarget).Worksheets(1).Cells(lastRow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

            DataArr(0) = Workbooks(FileName).Worksheets(1).Range("E4").Value: DataArr(1) = Workbooks(FileName).Worksheets(1).Range("I6").Value
            DataArr(2) = Workbooks(FileName).Worksheets(1).Range("P6").Value: DataArr(3) = Workbooks(FileName).Worksheets(1).Range("G8").Value
            DataArr(4) = Workbooks(FileName).Worksheets(1).Range("H23").Value: DataArr(5) = Workbooks(FileName).Worksheets(1).Range("D31").Value
            DataArr(6) = Workbooks(FileName).Worksheets(1).Range("K36").Value: DataArr(7) = Workbooks(FileName).Worksheets(1).Range("P36").Value
            DataArr(8) = Workbooks(FileName).Worksheets(1).Range("K37").Value: DataArr(9) = Workbooks(FileName).Worksheets(1).Range("P37").Value
            DataArr(10) = Workbooks(FileName).Worksheets(1).Range("U35").Value: DataArr(11) = Workbooks(FileName).Worksheets(1).Range("J41").Value
            DataArr(12) = Workbooks(FileName).Worksheets(1).Range("J45").Value: DataArr(13) = Workbooks(FileName).Worksheets(1).Range("P45").Value
            DataArr(14) = Workbooks(FileName).Worksheets(1).Range("AB70").Value: DataArr(15) = Workbooks(FileName).Worksheets(1).Range("H68").Value
            DataArr(16) = Workbooks(FileName).Worksheets(1).Range("H69").Value
            For i = 0 To UBound(DataArr)
                    Workbooks(strFileTarget).Worksheets(1).Cells(lastRow + 1, i + 1).Value = Trim(DataArr(i))
            Next

            Application.Wait (Now + TimeValue("0:00:01"))
            Workbooks(FileName).Close SaveChanges:=False

        
        End If
    
        FileName = Dir
    Loop

Else
    MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If
MsgBox ("Well Done!")
Application.ScreenUpdating = True
End Sub

Câu 1:
=IF(OR(A1={"Nợ","Chậm"}),"X","")

Mộng Thường 2001 · 12/4/18

dazkangel đã viết:
Câu 1:
=IF(OR(A1={"Nợ","Chậm"}),"X","")

Cẩn thận em trai!

881516 đã viết:
.....nếu ô A1 có chứa từ......

hihi ^o^

dazkangel · 12/4/18

Mộng Thường 2001 đã viết:
Cẩn thận em trai!

hihi ^o^

Hông hiểu ý anh, anh cứ bắt em đoán

HieuCD · 12/4/18

Câu 2: dùng bộ thu Macro format cell theo ý, viết lệnh theo dạng thu được vào code

HieuCD · 12/4/18

dazkangel đã viết:
Hông hiểu ý anh, anh cứ bắt em đoán

Chổ màu đỏ

Mộng Thường 2001 · 12/4/18

dazkangel đã viết:
Hông hiểu ý anh, anh cứ bắt em đoán

Tức các chữ đó nó nằm trong một cụm từ, một câu nào đó, không nằm riêng lẻ.
hihi ^o^

dazkangel · 12/4/18

Mộng Thường 2001 đã viết:
Tức các chữ đó nó nằm trong một cụm từ, một câu nào đó, không nằm riêng lẻ.
hihi ^o^

Ôi không có file mẫu dữ liệu thì chịu anh ơi ^^

Mộng Thường 2001 · 12/4/18

dazkangel đã viết:
Ôi không có file mẫu dữ liệu thì chịu anh ơi ^^

Có chứ! chủ thớt đã ghi: có chứa "Nợ" hoặc "nợ", "Chậm" hoặc "chậm" --> chữ hoa thường đặt ở đầu, chữ thường đặt giữa câu.
hihi ^o^

881516 · 12/4/18

Hi cả nhà, câu 1 em đã ok rồi ạ, update công thức lên cho mọi ng tham khảo. Còn câu 2 về macro nữa ạ

881516 · 12/4/18

HieuCD đã viết:
Câu 2: dùng bộ thu Macro format cell theo ý, viết lệnh theo dạng thu được vào code

Mình ko biết nhiều về macro nên mình ko hiểu ý của bạn

Bộ thu macro format cell là gì ạ

Mộng Thường 2001 · 12/4/18

881516 đã viết:
Hi cả nhà, câu 1 em đã ok rồi ạ, update công thức lên cho mọi ng tham khảo. Còn câu 2 về macro nữa ạ

Chi cực vậy bạn:
=IF(OR(ISNUMBER(FIND("XXX",A1)),ISNUMBER(FIND("yyy",A1)),ISNUMBER(FIND("zzz",data!P717)),ISNUMBER(FIND("yyy",data!P717))),"kết quả","")
Rút gọn hơn, ví dụ như yêu cầu:

Mã:

=IF(OR(ISNUMBER(SEARCH({"chậm","nợ"},A1))),"X","")

dùng Search() đi tìm chuỗi không phân biệt chữ hoa chữ thường thì gọn hơn Find() trong trường hợp này. hihi ^o^

HieuCD · 12/4/18

881516 đã viết:
Mình ko biết nhiều về macro nên mình ko hiểu ý của bạn
Bộ thu macro format cell là gì ạ

Trong menu các lệnh Macro, chọn Record macro, chọn 1 ô excel chọn lệnh format có 3 số lẽ, chọn nút lệnh Stop Recording, xem các lệnh Excel tự tạo, chỉnh lại vùng dữ liệu phù hợp của lệnh ...format

Nhờ giúp đỡ Hàm IF có điều kiện và macro excel (5 người xem)

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

881516

Thành viên chính thức

881516

Thành viên chính thức

dazkangel

<New Horizons>

Mộng Thường 2001

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

dazkangel

<New Horizons>

HieuCD

Chuyên gia GPE

HieuCD

Chuyên gia GPE

Mộng Thường 2001

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

dazkangel

<New Horizons>

Mộng Thường 2001

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

881516

Thành viên chính thức

881516

Thành viên chính thức

Mộng Thường 2001

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

HieuCD

Chuyên gia GPE

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian