Giá trị 12 trong phương thức SpecialCelss của VBA có nghĩa là gì ?

[conglong2008]

Theo như tài liệu hướng dẫn:

expression.SpecialCells(Type, Value)[FONT=&quot]
đối tượng.SpecialCells(kiểu, giá trị)
[/FONT]​

[FONT=&quot]Kiểu =XlCellType, [/FONT][FONT=&quot]có thể là một trong những tham số của excel (XlCellType) sau đây:[/FONT][FONT=&quot]
xlCellTypeAllFormatConditions. Ô có định dang bất kì
xlCellTypeAllValidation. (having validation criteria) Ô có áp đặt điều kiện
xlCellTypeBlanks. Ô trống (rỗng)
xlCellTypeComments. Ô có ghi chú
xlCellTypeConstants. Ô chứa hằng số
xlCellTypeFormulas. Ô chứa công thức
xlCellTypeLastCell. Ô cuối cùng trong range.
[/FONT]​

[FONT=&quot]xlCellTypeSameFormatConditions. Các ô có cùng định dạng[/FONT]
[FONT=&quot] xlCellTypeSameValidation. Các ô cùng được áp đặt điều kiện[/FONT]
[FONT=&quot] xlCellTypeVisible. [/FONT]
​

Nhưng khi đọc đoạn code: .SpecialCells(12).Copy [A5] Thì giá trị 12 trong phương thức SpecialCelss của VBA có nghĩa là gì ?

 

[hoangdanh282vn]

Theo như tài liệu hướng dẫn:

expression.SpecialCells(Type, Value)[FONT=&quot]
đối tượng.SpecialCells(kiểu, giá trị)
[/FONT]​

[FONT=&quot]Kiểu =XlCellType, [/FONT][FONT=&quot]có thể là một trong những tham số của excel (XlCellType) sau đây:[/FONT][FONT=&quot]
xlCellTypeAllFormatConditions. Ô có định dang bất kì
xlCellTypeAllValidation. (having validation criteria) Ô có áp đặt điều kiện
xlCellTypeBlanks. Ô trống (rỗng)
xlCellTypeComments. Ô có ghi chú
xlCellTypeConstants. Ô chứa hằng số
xlCellTypeFormulas. Ô chứa công thức
xlCellTypeLastCell. Ô cuối cùng trong range.
[/FONT]​

[FONT=&quot]xlCellTypeSameFormatConditions. Các ô có cùng định dạng[/FONT]
[FONT=&quot] xlCellTypeSameValidation. Các ô cùng được áp đặt điều kiện[/FONT]
[FONT=&quot] xlCellTypeVisible. [/FONT]
​

Nhưng khi đọc đoạn code: .SpecialCells(12).Copy [A5] Thì giá trị 12 trong phương thức SpecialCelss của VBA có nghĩa là gì ?

Const xlCellTypeVisible = 12

 

[huuthang_bd]

Theo như tài liệu hướng dẫn:

expression.SpecialCells(Type, Value)[FONT=&quot]
đối tượng.SpecialCells(kiểu, giá trị)
[/FONT]​

[FONT=&quot]Kiểu =XlCellType, [/FONT][FONT=&quot]có thể là một trong những tham số của excel (XlCellType) sau đây:[/FONT][FONT=&quot]
xlCellTypeAllFormatConditions. Ô có định dang bất kì
xlCellTypeAllValidation. (having validation criteria) Ô có áp đặt điều kiện
xlCellTypeBlanks. Ô trống (rỗng)
xlCellTypeComments. Ô có ghi chú
xlCellTypeConstants. Ô chứa hằng số
xlCellTypeFormulas. Ô chứa công thức
xlCellTypeLastCell. Ô cuối cùng trong range.
[/FONT]​

[FONT=&quot]xlCellTypeSameFormatConditions. Các ô có cùng định dạng[/FONT]
[FONT=&quot] xlCellTypeSameValidation. Các ô cùng được áp đặt điều kiện[/FONT]
[FONT=&quot] xlCellTypeVisible. [/FONT]
​

Nhưng khi đọc đoạn code: .SpecialCells(12).Copy [A5] Thì giá trị 12 trong phương thức SpecialCelss của VBA có nghĩa là gì ?

12 là xlCellTypeVisible đó bạn. Là những ô hiện (bỏ những ô bị ẩn ra)

 

[SA_DQ]

Bạn có thể tự tìm hiểu, bằng cách tới đây

http://www.giaiphapexcel.com/forum/showthread.php?1278-%28-h%C6%B0%CC%83ng-ghi-che%CC%81p-v%C3%AA%CC%80-ph%C6%B0%C6%A1ng-th%C6%B0%CC%81c-SpecialCells

Ngay bài đầu & mở cửa sổ Immediate lên, như vầy:

Immediate
?xlCellTypeBlanks
4
?xlCellTypeSameValidation
-4175
?xlCellTypeLastCell
11
?xlCellTypeVisible
12
?xlTextValues
2
. . . .

 

[Nguyễn Duy Tuân]

Đây chính là vấn đề mà người viết code gây khó hiểu. Trong code mọi người nên dùng hằng số.

Thay vì dùng .SpecialCells(12).Copy [A5] thì nên ghi là
.SpecialCells(xlCellTypeVisible).Copy [A5]

kỹ thuật soạn thảo:
khi gõ đến đoạn .SpecialCells(xlCell nhấn CTRL + Space bar sẽ hiện ra danh sách các hằng số để chọn, nhấn Space bar để chọn.
Muốn biết giá trị của hằng số một cách nhanh và tổng quát, nhấp chuột phải trên hằng số, chọn "Definition".

 

[conglong2008]

Cảm ơn các bác đã quan tâm , giải thích và truyền thêm những kỹ năng viết code.
Có lẽ việc sử dụng hằng số 12 hay là xCellTypeVisible em nghĩ thuật giải thường hay làm sau :

......................
lệnh lọc....  để hiện các dữ liệu cần
............ SpecialCells(12)... để lấy dữ liệu đó
 ...........................

Có gì không đúng anh em ... đừng chê nhé!