Kết quả tìm kiếm cho từ khóa: bảo hiểm xã hội

Cái này cũng hơi nguy hiểm. do lỡ có hàng trống thì dở đấy. Nếu chắc chắn bảng bao giờ cũng nhiều hơn dữ liêu thì làm xlup 2 lần nhỉ?

xin chân thành cảm ơn bác, em gà mò mãi không ra ạ.

Công thức cột A của bạn rất nguy hiểm, nên copy và dán gía trịD2 =SUMPRODUCT((INT($A$2:A2)=INT(A2))*($C$2:C2=C2))

Rõ ràng là với code trên của chủ thớt thì Sheets("Sheet1").Range("A4").Value nhận giá trị lần lượt của ô Sheets("Sheet2").Range("A" & i) khi i = 3,4,.... đến khi i=10 thì dừng lại lúc này Sheets("Sheet1").Range("A4").Value= Sheets("Sheet2").Range("A10"). Tôi nghĩ rằng vòng lặp này gán giá trị...

Đúng rồi bạn. Kết quả tính toán từ một modul độc lập khá cồng kềnh phức tạp, nhận tham số đầu vào từ từng bản ghi của file data để trả về kq. Do vậy mình thêm đoạn code này đã giải quyết dc bài toán yêu cầu chính xác và gọn nhẹ. Với mình nó hiệu quả, các bạn có thể cùng chia sẻ thêm các pp khác...

Người ta cập nhật trên một range 8 ô (từ 3 đến 10). Bạn chỉ làm 1 ô. < 2uá khó hiểu.?! : như tôi đã chú thích ở trên. Có thể người ta dùng vòng lặp vì có chuyện tham chiếu lòng vòng. Nhưng trong trường hợp này quá nguy hiểm. Đầu tiên hết là code không có chỗ bảo đảm "automatic calculation"...

Khó hiểu bỏ bố. Ai mà dùng nổi. Thực tế code trên dùng vòng lặp một cách bừa bãi. Có thể thay thế gọn gàng và rỗ rệt như sau: Sub t() Sheets("Sheet1").Range("A4").Value = Sheets("Sheet2").Range("A10") Sheets("Sheet2").Range("B3:B10").Value = Sheets("Sheet1").Range("B4") End Sub Trừ phi tác giả...

Vậy cũng lôi thôi nhỉ: Nào là quận, lúc lại là huyện, có khi thành phố (Thủ Đức, Biên Hòa, . . . . ) & hiếm khi còn có cả thị trấn nữa không chừng!

Cách hiện tại của em cũng là nhớ, cũng có quy luật. Nhưng nhiều quá, em đang muốn cách nào đó giảm tải cho cái bộ nhớ này :D . Em có đang suy nghĩ đến dùng code Python đó anh, dùng cái thư viện cryptography rồi lưu cái key thật kỹ. Code mã hóa và giải mã dựa vào cái key đó. Lưu trong máy mình là...

Hiện tại em có khoảng 50 cái pass để ghi nhớ. Em không ngoa đâu. Cho bản thân, ba mẹ, ông bà, và 1 số người nữa. Và trong đó có gần chục cái pass mà cứ nửa năm hoặc 1 năm sẽ được yêu cầu thay mới tinh khôi không trùng cái pass cũ nào. Nhu cầu của thớt đúng thiết yếu thiệt. Ai vô tình xem được...

Lưu một danh sách mật khẩu vào nơi rồi dùng một mật khẩu để bảo vệ chúng => Hơi nguy hiểm. Vẫn là lưu vào trong não, với quy tắc đặt mật khẩu theo dạng câu 'thần chú', gợi nhớ cái gì đó... để đảm bảo mình dễ nhớ mà lại bảo mật cao. Ví dụ: Ao ca truoc nha%% (Ao cá trước nhà), Tho sua ong nuoc@...

Công thức của bạn rắc rối quá. Muốn tránh CSE thì dùng hàm Lookup. Vấn đề này ở đây có khá nhiều bài rồi. Tìm từ khoá Lookup(2, 1/ Công thức ở bài #2 và #4 là loại công thức nguy hiểm. Mọt ngày đẹp trời nào đó nó có thể sẽ ra kết quả sai. Nguyên tắc của dò chuỗi ghép là phải nhét thêm dấu ngăn...

Tôi đọc bài #6 nên tò mò tải về tập tin ở bài #4. Ở thời điểm tôi tải bài #4, tức sau nhận xét ở bài #6 thì cụm On Error Resume Next ... On Error GoTo 0 nằm trước dòng For i = 1 To UBound(chonfile) và từ đó tới cuối không có On Error Resume Next *** Nếu trong...

Anh xem lại thời gian trả lời của bài #6 và thời gian sửa bài của bài #4 nhé. Bài #6 nói về phương án đến thời điểm đó, cụ thể là bài #4 tại thời điểm gửi bài #6. Dùng On Error Resume Next xuyên suốt từ đầu đến cuối code mới nguy hiểm chứ kiểm soát được thì không có gì phải bàn cãi nữa.

Một lần nữa xin đượccảm ơn anh. Tôi đã làm được bằng code của anh. Option Explicit Sub TachLayNgay1() Dim j&, vitri& Dim Temp Dim ntn(1 To 3) ' ph?n t? 1 là ngày, 2 là tháng, 3 là năm Dim e As Variant Dim Sh As Worksheet Set Sh = Sheets("Sheet1") For j = 5 To 13 vitri = 0 For Each e...

cấu trúc dữ liệu thật cũng là như vậy chỉ khác vị trí ô. Nhìn chung là trước và sau đoạn ngày tháng năm có một số chuỗi nữa. Đoạn code trên được trích trong một sub dài hơn, dùng để lấy dữ liệu của rất nhiều (trên dưới 200 file có cấu trúc giống nhau)về 1 file thành trên dưới 200 cái sheet (mỗi...

' dùng hàm DateSerial để tránh VBA mặc định vị trí ngày tháng năm trong chuỗi "xx/yy/zzzz" Dim ntn(1 To 3) ' phần tử 1 là ngày, 2 là tháng, 3 là năm viTri = 0 For Each e In Split(.Cells(j, 1)) If IsNumeric(e) Then viTri = viTri + 1 ntn(viTri) = CLng(e) If viTri >= 3 Then ' đủ 3 số rồi, tính...

Tôi không hiểu ý lắm. Chuyện chọn nhầm tập tin "Không mở, nguy hiểm chết người" thì có On Error Resume Next hay không là như nhau. On Error Resume Next được dùng ở đây chỉ để kiểm tra xem người dùng có chọn tập tin nào hay không. Nếu bỏ On Error Resume Next mà người...

Đã sợ "mất nhiều thời gian" và "nặng máy" rồi thì bắt buộc phải chịu "hết cứu" thôi. Làm quái gì có thời gian kiểm soát, làm gì rảnh máy để phục hồi. Người chơi "batch update" ngay từ đầu phải tính đến chuyện kiểm soát lỗi. Đợi phải nhắc nhở là trễ rồi.

Đã dùng code Record Macro chính hiệu rồi mà còn On Error Resume Next chạy lèo lèo trên nhiều file thì nguy hiểm quá. Giả dụ chọn nhầm một file quan trọng nào đó thì hết cứu luôn nhé.