Đặt trang chủĐặt Bookmark
Mở chế độ khuyết tật Mở rộng
XD360 KÍNH CHÚC CHO MỌI NHÀ VẠN SỰ AN LÀNH!

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

 Quên mật khẩu
 Đăng ký mới
Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng»Diễn đàn XD › PHẦN MỀM TIỆN ÍCH TỰ ĐỘNG HÓA XÂY DỰNG › Phần mềm văn phòng › VBA Excel › VBA phát hiện nhập dữ liệu trùng trong excel ...
Anh Trần HòeBùi Quốc Hưng
Trở lại danh sách Đăng bài
Xem: 5964|Trả lời: 3
In Chủ đề trước Tiếp theo
Thu gọn cột thông tin

VBA phát hiện nhập dữ liệu trùng trong excel

[Lấy địa chỉ]
Nhảy đến trang chỉ định
1#
M@trixs Đăng lúc 8/9/2012 22:33 | Chỉ xem của tác giả Trả lời thưởng |Xem ngược lại |Chế độ đọc
HƯỚNG DẪN LẬP DỰ TOÁN XÂY DỰNG: CƠ BẢN VÀ NÂNG CAO bằng sơ đồ tư duy.

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x
Xin chào các bạn,
Các bạn và A Fubi chỉ em làm sao không cho cái Msgbox "nhap trung" nó không tự nhảy ra khi mình mới mở file nhé  !
Khong cho nhap trung.xls (32.5 KB, Lượt tải về: 2455)

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phần mềm lập dự toán excel không cần cài đặt
Trả lời

Dùng đạo cụ Báo cáo

2#
fubi Đăng lúc 10/9/2012 10:06 | Chỉ xem của tác giả
HƯỚNG DẪN LẬP DỰ TOÁN XÂY DỰNG: CƠ BẢN VÀ NÂNG CAO bằng sơ đồ tư duy.
Đã xem file.

Vấn đề của bạn không phải là do mỗi lần mở file là báo Mgbox mà là do sự kiện thay đổi vùng chọn trên sheet 1:

  1. Dim LastCell As Range
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3. On Error Resume Next
  4. Application.ScreenUpdating = False
  5.   Cells(1) = "=COUNTIF(a2:z1000," & LastCell.Address & ")"
  6.     If Not LastCell Is Nothing And Cells(1) > 1 And LastCell <> "" Then
  7.       MsgBox "Nhap trung"
  8.       LastCell.ClearContents
  9.       Beep
  10.     End If
  11.   Set LastCell = ActiveCell
  12. End Sub
Sao chép mã

Cứ khi thay đổi ô chọn trong sheet nó sẽ xét điều kiện:
  1. If Not LastCell Is Nothing And Cells(1) > 1 And LastCell <> ""
Sao chép mã
Trong đó LastCell là tên 1 biến. Khai báo biến nó thuộc loại "range" (ô của excel).
Vì thấy thỏa mãn nên nó báo:
  1. MsgBox "Nhap trung"
Sao chép mã





Đánh giá

TRB.CE
anh FUBI viết bài giảng VBA tiếp đi ạ!!!  Đăng lúc 11/9/2012 20:56

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phần mềm lập dự toán excel không cần cài đặt
Trả lời Hay Dở

Dùng đạo cụ Báo cáo

3#
 Tác giả| M@trixs Đăng lúc 10/9/2012 10:18 | Chỉ xem của tác giả
HƯỚNG DẪN LẬP DỰ TOÁN XÂY DỰNG: CƠ BẢN VÀ NÂNG CAO bằng sơ đồ tư duy.
Vậy chỉ cần bỏ đoạn này hả anh:

  1. Not LastCell Is Nothing And
Sao chép mã

Giúp em hướng giải quyết với anh !

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phần mềm lập dự toán excel không cần cài đặt
Trả lời Hay Dở

Dùng đạo cụ Báo cáo

4#
fubi Đăng lúc 10/9/2012 11:10 | Chỉ xem của tác giả
HƯỚNG DẪN LẬP DỰ TOÁN XÂY DỰNG: CƠ BẢN VÀ NÂNG CAO bằng sơ đồ tư duy.
M@trixs gửi lúc 10/9/2012 10:18

                               
Đăng nhập/Đăng ký mở rộng

Vậy chỉ cần bỏ đoạn này hả anh:

Sửa code như sau: (copy toàn bộ và dán đè vào code gốc trong file M@trixs nhé)

  1. Dim LastCell As Range

  3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  4.     On Error Resume Next
  5. Application.ScreenUpdating = False
  6.   Cells(1) = "=COUNTIF(a2:z1000," & LastCell.Address & ")"
  7.     If Cells(1) = 0 Then GoTo thoat
  8.     If Not LastCell Is Nothing And Cells(1) > 1 And LastCell <> "" Then
  9.       MsgBox "Nhap trung"
  10.       LastCell.ClearContents
  11.       Beep
  12.     End If
  13. thoat:
  14.     Set LastCell = ActiveCell
  15. End Sub
Sao chép mã
Đây là 2 nội dung đã thêm code so với bản gốc:
  1. If Cells(1) = 0 Then GoTo thoat
Sao chép mã
và
  1. thoat:
Sao chép mã




Số người tham gia 1Uy Tín: +3 Thưởng +3 Thanked +1 Thu lại Lý do
M@trixs + 3 + 3 + 1 Rất kinh nghiệm. Thanks!

Xem tất cả

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phần mềm lập dự toán excel không cần cài đặt
Trả lời Hay Dở

Dùng đạo cụ Báo cáo

Trở lại danh sách Đăng bài

Phiên bản Mobile|Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng  

Phần mềm dự toán xây dựng excel | Hướng dẫn lập dự toán xây dựng | Phần mềm tư vấn giám sát | Phần mềm quản lý chất lượng xây dựng |

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Kiến Trúc sư

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Đấu thầu

GMT+7, 15/10/2026 13:17 , Processed in 0.113081 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Kiso Comsenz Inc.