Bài 6: VBA xác định Ô, vùng Ô đặc biệt trong Excel

* Tóm tắt: * Biết dùng câu lệnh VBA để: - Xác định được ô, vùng ô đặc biệt: chứa công thức, chứa số, chứa text.. - Di chuyển vùng ô đang...

* Tóm tắt:* Biết dùng câu lệnh VBA để:
- Xác định được ô, vùng ô đặc biệt: chứa công thức, chứa số, chứa text..
- Di chuyển vùng ô đang chọn sang vị trí khác theo ý muốn.

- Tự nghiên cứu thêm:
+ Xác định được Ô cuối cùng của dữ liệu hiện hành thông qua chức năng Goto đặc biệt của Excel (phím F5).




2. CODE MẪU THEO VIDEO:
Cách Copy Code: kích đúp chuột vào bất kỳ dòng code/ Bôi đen toàn bộ code=> "Ctlr + C" => Dán vào VBA
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub OVungODacBiet()
'
' OVungODacBiet Macro
'
' Keyboard Shortcut: Ctrl+l
'
'======== 1. Chon O chua CHU THICH ============
    Selection.SpecialCells(xlCellTypeComments).Select
'======== 2. Chon O chua SO ===================
    Selection.SpecialCells(xlCellTypeConstants, 1).Select
'======== 3. Chon O chua TEXT ===================
    Selection.SpecialCells(xlCellTypeConstants, 2).Select
'=======================================================
'                CONG THUC
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'============== 4. cong thuc cho ket qua SO ========
    Selection.SpecialCells(xlCellTypeFormulas, 1).Select
'============== 5. cong thuc cho ket qua TEXT =======
    Selection.SpecialCells(xlCellTypeFormulas, 2).Select
'============== 6. cong thuc cho ket qua LOGIC =======
    Selection.SpecialCells(xlCellTypeFormulas, 4).Select
'============== 7. cong thuc cho ket qua LOI =========
    Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'========================================================
' ============= 8.Chon O chua DINH DANG CO DIEU KIEN ==
    ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
' ============= 9.Chon O TRONG VUNG DU LIEU =============
    Selection.SpecialCells(xlCellTypeBlanks).Select
     
'=======================================================
'          CHON NHUNG O KHAC GIA TRI TAI 2 COT          '
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Sheets("SoSanhCot").Select
    Range("B3:C9").Select
    Selection.RowDifferences(ActiveCell).Select
'=======================================================
'          CHON NHUNG O KHAC GIA TRI TAI 2 DONG          '
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Sheets("SoSanhDong").Select
    Range("B3:H4").Select
    Selection.ColumnDifferences(ActiveCell).Select
'=======================================================
'          DI CHUYEN VUNG CHON         '
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Selection.Offset(1, 0).Select
End Sub

Ý kiến bạn đọc

Tên

Android,5,Anti virus,7,Bản quyền phần mềm,9,CCNA,2,Dối tác,1,Game Android,2,Game iOS,1,Games,4,Giai tri,1,Hệ điều hành,2,IOS,1,KCXD,1,Kiến thức,7,Kiến thức Xây dựng,24,Phần mềm,14,Phần mềm xây dựng,9,Phong thủy,3,Revit,3,Software,56,Sống,1,TCVN,3,Thủ thuật,30,Ứng dụng,6,VBA excel,8,Video,4,Web,10,web hay,9,Windown Phone,1,
ltr
item
Lê Ngân: Bài 6: VBA xác định Ô, vùng Ô đặc biệt trong Excel
Bài 6: VBA xác định Ô, vùng Ô đặc biệt trong Excel
Lê Ngân
https://www.lengan.net/2014/05/bai-6-vba-xac-inh-o-vung-o-ac-biet.html
https://www.lengan.net/
https://www.lengan.net/
https://www.lengan.net/2014/05/bai-6-vba-xac-inh-o-vung-o-ac-biet.html
true
5345002139417399617
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share. STEP 2: Click vào link đã share để mở Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy