Kết quả tìm kiếm cho từ khóa: Co giản dòng

thật ra em muốn viết 1 cái code VBA để có thể tự giãn dòng khi các giá trị xuất hiện lần đầu tiền cơ ạ. nên đang muốn đánh STT luôn cho số lần xuất hiện của giá trị. nếu dùng hàm vlookup thì ko viết được code VBA ạ

em là người mới, mong anh chị giúp đỡ nhiều. em có 1 file muốn nhờ anh chị viết code VBA giúp em. em cần tự động giãn dòng khi giá trị đấy xuất hiện lần đầu tiên ở cột AI. trước đấy em cũng có thử viết code nhưng không ra được kết quả như mong muốn. em cảm ơn anh chị nhiều

Em có 1 file excel sẽ được gán dữ liệu từ cột B đến cột I. Các ô đều được gán giá trị trực tiếp chứ không dùng công thức. File excel này là một file dữ liệu tạm thời để kiểm tra trước khi cập nhật lên cơ sở dữ liệu Sheet1 bắt buộc phải giữ nguyên định dạng "General" vì nếu chỉ cần thay đổi định...

Theo ngữ pháp xưa (truyền từ FORTRAN, con đẻ của IBM) thì các biến bắt đầu bởi i~m là integer, các ký tự khác là single (để chuyển qua double, IBM buộc phải có dòng chỉ dẫn compler "Double Precision"), chuỗi thì có $ theo cuối. Vì vậy, các lập trình viên sau này có khuynh hướng dùng i cho vòng...

Bạn chưa chịu đọc Code của tác giả rồi! Đôi lời nhắn nhủ đến tác giả bài đăng: → Nếu thật sự bạn là người mới bắt đầu viết Code thì ta nên viết theo khuôn phép vầy: Private Sub cmdSearch_Click() 'Tim Kiêm ' Dim x As Long Dim y As Long x = Sheet1.Range("A" & Rows.Count).End(xlUp).Row For y = 6...

Thử dùng công thức dưới đây xem có hợp với dữ liệu của bạn không nha! Ô L2 dán: =IFERROR(INDEX(G$2:G$200,MATCH(K2,SUMIF(OFFSET(D$1,,,ROW($1:$200)),J2,F$1))),"chưa đủ SL đạt")Nếu số dòng dữ liệu của bạn lớn hơn 200, thì điều chỉnh các số 200 trong công thức cho phù hợp. Thân

đã chỉnh sửa theo như hướng dẫn của anh nhưng vẫn chạy ko dc. anh có thể cho mình file đã chèn code được ko, sợ mình làm sai gì đó ko chạy dc. thanks anh

Bạn thử chỉnh lại code: Option Explicit ' Bien toan cuc de theo doi thoi gian chay tiep theo Dim NextScheduledTime As Date Sub ScheduleTask() Dim ws As Worksheet Dim TimeRange As Range Dim TimeCell As Range Dim CurrentTime As Date Dim ScheduledTime As...

Cảm ơn bạn góp ý! Mình muốn in hàng loạt theo số thứ tự bên sheet Lot (có thể in 1 số, 2 hay nhiều số liên tục, hay không liên tục) Trước khi in, save file vào thư mục tùy ý do mình chỉ định theo tên file cột C, sheet Lot, tương ứng từng số thứ tự, và xóa các dòng bằng 0 ở cột J, bên sheet In.

Có lẽ bạn nêu kết quả mong muốn và điều kiện thực hiện các bước (ví dụ điều kiện lọc, in, xóa, tạo file mới có những sheet nào, định dạng ra sao ...) để thành viên nào có thời gian viết code mới giúp bạn sẽ nhanh hơn, chứ đi mò mẫm để hiểu và sửa code này chắc mất khá nhiều thời gian và khả năng...

Ý tôi là sheet để in (nó là sheet khác chứ không phải vẫn là sheet Bang Cham Cong) do vậy bạn có thể tùy nghi lựa chọn các dòng nội dung, tùy chọn vị trí các cột (thêm hoặc bớt dòng cột tùy ý) như vậy trông sẽ hợp lý và dễ xem hơn. Con không thì thuy bạn, code càng dễ.

Vâng thưa bác, 1/ toàn bộ các mục đều sẽ in ra trên trang ngang của khổ giấy A4 bác ạ, tuy rằng nó sẽ hơi nhỏ nhưng in ra vẫn đang nhìn được 2. Sheet Mau- sh có thể giữ nguyên định dạng như này được không bác? dữ liệu từ hệ thống nên em đang không muốn đổi vị trí cột ạ 3. Hiện tại em vẫn in ra...

Code của bạn có 3 vấn đề, 2 lớn và 1 nhỏ 1- Vấn đề lớn: Bạn lồng 2 vòng lặp vào nhau không cần thiết khiến tốc độ xử lý bị gấp lên nhiều lần For i = 4 To 219 'For y = 4 To 219 =215*215 lần =46225 lần, trong khi chỉ cần 1 vòng lặp 215 lần For i = 4 To 219 2- Vấn đề lớn 2: Bạn chạy 2 sub cho...

nhờ các bác viết mẫu cho em lệnh dùng checkbox để rút ngắn thời gian thao tác Có lẽ nên rút ngắn tiêu đề trước khi tìm cách rút ngắn thời gian thao tác.

Do bài cũ lằng nhằng nên em xin phép rút gọn phần chưa làm được. Có bác nào chỉ hoặc viết giúp em hàm để sử dụng checkbox với ạ, mong muốn của em là: khi bấm vào LSX thì sẽ hiện ra usedform (đã làm trong file), trong usedform em có các checkbox(đã làm trong file), khi chọn checkbox nào thì text...

Xin cảm ơn đã giúp 1713764150 Đoạn code này đã đúng số dòng xóa so với thông báo, xin cảm ơn

Lệnh xóa thì đơn giản thôi: dRng.Delete

Em có bài toán này nhưng mãi không giải ra được, nên hôm nay em đăng lên nhờ Anh/Chị hỗ trợ ạ. Em có 2 file, gồm 06032024.xlsx (là dữ liệu ngày 06/03/2024) và file 31122023.xlsx (là dữ liệu ngày 31/12/2023). Công việc của em nếu làm theo cách thủ công thì đầu tiên sẽ dùng Pivot Table để sum theo...

Tôi đã viết trong bài #4 là "Trong khi chờ đợi code sịn, hãy tham khảo code củ chuối trong file." Đến giờ thì bạn đã có được điều muốn rồi code của bạn @BuiQuangThuan là code sịn đó. Tuy nhiên tôi vẫn muons bạn xác nhận là code của tôi( code củ chuối ấy ) chạy có ra kết quả đúng không? Có gắng...

Bạn có thể tham khảo đoạn mã: Dim strPass As String strPass = InputBox("Nhap mat khau: hoangtuan.net", "Your Password") If strPass <> "hoangtuan.net" Then MsgBox "Mat khau khong chinh xac. File se duoc dong.", vbCritical ThisWorkbook.Close False End If