Quản lý nhập dữ liệu bằng password (1 người xem)

[ducleminh]

Cám ơn bạn nhiều, mình làm được rồi, nhờ bạn mà mình đã có được những bước mày mò đầu tiên với VBA

 

[ducleminh]

à bạn ơi, mình có thêm một thắc mắc và nhu cầu nữa

Mình muốn tạo một nút 'Clear All" có chức năng là khi bấm vào sẽ xóa trắng dữ liệu ở những ô mình chỉ định ( để nhập lại từ đầu)
Bạn chỉ và tạo file mẫu giúp mình nhé !

 

[nghiaphuc]

à bạn ơi, mình có thêm một thắc mắc và nhu cầu nữa

Mình muốn tạo một nút 'Clear All" có chức năng là khi bấm vào sẽ xóa trắng dữ liệu ở những ô mình chỉ định ( để nhập lại từ đầu)
Bạn chỉ và tạo file mẫu giúp mình nhé !

Mình gợi ý, chắc là bạn sẽ tự làm được: Giả sử vùng bạn cần xóa là vùng A2:E10 trên Sheet1 (đây là tên trong VBA, giả sử tên trong Excel là "Du lieu"). Như vậy, bạn tạo trên Form một nút có tên là CmdClear, sau đó double click lên nút này, bạn sẽ thấy một sub có tên là Private Sub CmdClear_Click(). Bạn nhập vào:

Sheet1.[A2:E10].ClearContents

hoặc

Sheets("Du lieu").[A2:E10].ClearContents

Câu lệnh này sẽ xóa nội dung của vùng A2:E10. Còn nếu bạn muốn xóa toàn bộ, cả nội dung và định dạng thì bạn thay ClearContents bởi Clear là được

 

[ducleminh]

Vậy vùng mình muốn xóa ko liên tục mà nằm ở các ô rời rạc, vậy mình phải đặt name cho cụm các ô rời rạc đó (VD: clearcells chẳng hạn) thì mình viết là:

Sheet1.clercells.ClearContents

hay

Sheet1.[clercells].ClearContents

hay viết cách nào khác ?

 

[nghiaphuc]

Vậy vùng mình muốn xóa ko liên tục mà nằm ở các ô rời rạc, vậy mình phải đặt name cho cụm các ô rời rạc đó (VD: clearcells chẳng hạn) thì mình viết là:

Sheet1.clercells.ClearContents

hay

Sheet1.[clercells].ClearContents

hay viết cách nào khác ?

Giả sử bạn cần xóa các vùng: A2:E10, B1215, A17:F20 thì bạn dùng câu lệnh:

Sheet1.[A2:E10, B12:D15, A17:F20].ClearContents

hoặc

Sheet1.Range("A2:E10, B12:D15, A17:F20").ClearContents

 

[ducleminh]

Mình làm thì báo lỗi sau:

Run-time error '1004'
Cannot change part of merged cell

Chắc câu lệnh đó ko chấp nhận đối với những ô đã merge
Mình đã thử với những ô không merge thì thành công
vậy có cách nào khắc phục ko bạn ?

 

[nghiaphuc]

Mình làm thì báo lỗi sau:

Run-time error '1004'
Cannot change part of merged cell

Chắc câu lệnh đó ko chấp nhận đối với những ô đã merge
Mình đã thử với những ô không merge thì thành công
vậy có cách nào khắc phục ko bạn ?

Trong trường hợp có những ô đã merge thì bạn phải chọn địa chỉ là toàn bộ vùng đã merge. VD: Bạn đã merge các ô: A33 và bạn cần xóa giá trị của vùng này thì bạn phải chọn địa chỉ là [A33] chứ không chỉ là [A3]. Tương tự, nếu bạn cần xóa vùng A2:C10 (vùng này có chứa một phần của ô merge, phần còn lại của ô merge nằm ngoài vùng chọn) thì bạn phải chọn vùng là: [A2:C2,A3:D3,A4:C10]

 

[sealand]

Clear hay Delete thường khó tính trong trường hợp này. Theo mình cứ cho nó bằng rỗng là an toàn nhất

Sheet1.clercells.Value=""