Chào cả nhà GPE ! CHúc cả nhà Giáng sinh vui vẽ Cả nhà giúp em đoạn code đểm 1 ký tự nào đó xuất hiện bao nhiêu lần trong 1 vùng. Xin chân thành cảm ơn

Sub codedem2kytu() Dim Cell As Variant, CountChar As Long, tmp As Variant For Each Cell In Range("d8:c17") tmp = Cell.Value If InStr(tmp, "*") Then CountChar = CountChar + Len(tmp) - Len(Replace(tmp, "*", "")) If InStr(tmp, ";") Then CountChar = CountChar + Len(tmp) - Len(Replace(tmp, ";", "")) Next Cell Range("d3") = CountChar End Sub Code của bác chính xác theo ý em rồi, chúc bác năm mới thật nhiều sức khoẻ

Làm tôi nhớ vụ hàm if gì của bạn. If làm được + test 1 tháng> zả tiền, ngược lại về "ăn cơm mẹ nấu"... :D:D:D (Chú: hôm nay mới gần 3 ngày thôi ah.) Gặp loại thân chủ khó tính thế này thì ngừoi ta ký hợp đồng theo kiểu LC. Có một đối tác thứ ba làm trung gian. Bên A ký gởi tiền cho C. Khi C báo tiền đã có đủ thì B bắt đầu làm việc. Khi xong việc, B báo cho C. Khi A hài lòng thì báo C đưa tiền cho B (tuỳ theo hợp đồng, có thể giữ lại 1 phần để bảo hành). Nếu quá một thời hạn nào đó mà A không chịu bảo C đưa tiền thì B sẽ đưa hợp đồng ra toà phân xử. Tiền nằm trong tay C cho nên A không thể trở mặt dễ dàng. Lúc ấy chỉ khi toà cho phép C mới đưa tiền cho bên thắng kiện. LC bến cảng hơi dễ dãi hơn một chút. Chỉ cần hàng về đến bến cảng, cảng nhận đủ là ngân hàng giao tiền cho bên bán. Chuyện hư hỏng này nọ là kiện cáo sau này. Loại giao dịch này bảo đảm bên bán không thiệt thòi khi bên mua giật giọng. Một khi hàng xuất lên tàu rồi thì coi như có iền. Nếu rủi ro thì có bảo hiểm chịu trách nhiệm.