Bạn đang xem: Top 100 mã Excel VBA Macros hữu dụng Tại DongnaiArt

Ngày 28 tháng 8 năm 2019

Bạn có thể sử dụng các mã này ngay cả khi bạn chưa bao giờ sử dụng vba trước đây.

Nhưng điều đầu tiên cần biết là:

Mã macro là gì?

Trong excel, mã macro là mã lập trình được viết bằng Visual Basic for Applications (VB).

Ý tưởng đằng sau việc sử dụng mã là để tự động hóa những gì bạn sẽ phải làm theo cách thủ công trong excel.

Ví dụ: bạn có thể sử dụng mã để in một dải ô cụ thể bằng một cú nhấp chuột thay vì chọn tuần tự -> tab Tệp -> In -> Lựa chọn In -> Nút OK.

Sử dụng mã macro trong excel

Trước khi sử dụng các mã này, hãy đảm bảo rằng bạn có tab nhà phát triển trên thanh excel để truy cập trình chỉnh sửa vb.

Sau khi kích hoạt tab nhà phát triển …

… bạn có thể sử dụng các bước sau để dán mã vba vào trình chỉnh sửa vb.

• Di chuyển đến tab nhà phát triển của bạn và nhấp vào “cơ bản trực quan”.
• Ở phía bên trái của Cửa sổ Dự án, bấm chuột phải vào tên sổ làm việc của bạn và chèn một mô-đun mới.



• Dán mã vào mô-đun này và đóng.



• Bây giờ, hãy chuyển đến tab Nhà phát triển và nhấp vào Macro.
• Macro sẽ hiển thị một cửa sổ liệt kê các macro có trong tệp, nơi bạn có thể chạy các macro có trong danh sách.



Cơ bản

Định dạng

In

Bảng tính

Sổ làm việc

PivotTable

Đồ thị

Nâng cao

Công thức

Các mã vba này sẽ giúp bạn nhanh chóng hoàn thành một số tác vụ cơ bản mà bạn thường thực hiện trong bảng tính.

1. Thêm số sê-ri

Mã macro này sẽ giúp bạn tự động thêm số sê-ri trên trang tính excel.

Sau khi chạy mã macro này, màn hình sẽ hiển thị hộp nhập để bạn nhập, tối đa số sê-ri, sau đó chèn các số vào cột theo thứ tự.

SubAdd SerialNumber ()

điều chỉnh tôi thành một số nguyên

Đến phần cuối cùng nếu bị lỗi

i = inputbox (“giá trị đầu vào”, “số sê-ri đầu vào”)

For i = 1 to i

activecell.value = i

activecell.offset (1, 0) .activate

Tiếp theo

Cuối cùng: Thoát khỏi Sub

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm nhiều cột

Sau khi chạy mã macro, màn hình sẽ hiển thị hộp nhập liệu bạn phải nhập số cột để chèn.

sub insertmultiplecolumns ()

điều chỉnh tôi thành một số nguyên

Điều chỉnh j thành số nguyên

activecell.entirecolumn.select

Đến phần cuối cùng nếu bị lỗi

i = inputbox (“Nhập số cột cần chèn”, “Chèn cột”)

Đối với j = 1 đến i

selection.insert shift: = xltoright, copyorigin: = xlformatfromrightorabove

Tiếp theo

Cuối cùng: Thoát khỏi Sub

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm nhiều dòng

Sau khi chạy mã macro, màn hình sẽ hiển thị hộp nhập liệu bạn phải nhập số dòng để chèn.

sub insertmultiplerows ()

điều chỉnh tôi thành một số nguyên

Điều chỉnh j thành số nguyên

activecell.entirerow.select

Đến phần cuối cùng nếu bị lỗi

i = inputbox (“Nhập số cột cần chèn”, “chèn

Cột “)

Đối với j = 1 đến i

selection.insert shift: = xltodown,

copyorigin: = xlformatfromrightorabove

Tiếp theo

Cuối cùng: Thoát khỏi Sub

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Cột tự động điều chỉnh

Tự động khớp nhanh tất cả các hàng trong trang tính.

Mã macro này sẽ chọn tất cả các ô trong trang tính và tự động khớp các cột cùng một lúc.

cột tự động phụ ()

cells.select

cells.entircolumn.autofit

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Dòng Điều chỉnh Tự động

Bạn có thể sử dụng mã này để tự động khớp tất cả các hàng trong một trang tính.

Khi bạn chạy mã này, nó sẽ chọn tất cả các ô trong trang tính và tự động khớp các hàng ngay lập tức.

sub autofitrows ()

cells.select

cells.entirerow.autofit

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa gói văn bản

Mã này sẽ giúp bạn loại bỏ dòng bao văn bản khỏi toàn bộ trang tính bằng một cú nhấp chuột. Đầu tiên, nó sẽ chọn tất cả các cột, sau đó loại bỏ gói văn bản và tự động điều chỉnh các hàng và cột.

sub removewraptext ()

cells.select

selection.wraptext = false

cells.entirerow.autofit

cells.entircolumn.autofit

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Hủy hợp nhất ô (không hợp nhất ô)

Chọn các ô và chạy mã này, nó sẽ không hợp nhất tất cả các ô đã chọn với dữ liệu bị thiếu.

sub unmergecells ()

selection.unmerge

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Mở Máy tính (mở máy tính trong excel)

Có một máy tính cụ thể trong cửa sổ, với mã macro này, bạn có thể mở máy tính trực tiếp từ excel để tính toán.

sub opencalculator ()

application.activatemicrosoftapp index: = 0

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm ngày đầu trang / chân trang (Thêm ngày vào chân trang / đầu trang)

Sử dụng mã này để thêm ngày vào đầu trang và chân trang của trang tính.

Bạn có thể điều chỉnh mã này để thay đổi từ đầu trang sang chân trang.

sub dateinheader ()

Sử dụng activesheet.pagesetup

.leftheader = “”

.centerheader = “& amp; d”

.rightheader = “”

.leftfooter = “”

.centerfooter = “”

.rightfooter = “”

Kết thúc

activewindow.view = xlnormalview

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đầu trang / chân trang tùy chỉnh (chèn đầu trang / chân trang nếu cần)

Nếu bạn muốn chèn một tiêu đề tùy chỉnh tại đây, đây là mã.

Chạy mã này để nhập các giá trị tùy chỉnh vào các hộp nhập. Để thay đổi liên kết trong đầu trang hoặc chân trang, bạn có thể điều chỉnh mã.

tiêu đề phụ ()

làm mờ văn bản của tôi dưới dạng chuỗi ký tự

text = inputbox (“Nhập văn bản của bạn vào đây”, “Nhập văn bản”)

Sử dụng activesheet.pagesetup

.leftheader = “”

.centerheader = mytext

.rightheader = “”

.leftfooter = “”

.centerfooter = “”

.rightfooter = “”

Kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã vba này sẽ giúp bạn định dạng các ô và phạm vi bằng cách sử dụng một số tiêu chí và điều kiện cụ thể.

1. Đánh dấu các bản sao được lựa chọn

Mã macro này sẽ kiểm tra từng ô bạn chọn và đánh dấu các giá trị trùng lặp.

Bạn cũng có thể thay đổi màu từ mã này.

sub highlightduplicatevalues ​​()

Giảm dải ô cho dải ô

Giảm mycell thành phạm vi

đặt myrange = select

Đối với mỗi mycell trong myrange

nếu worksheet Chức năng.countif (myrange, mycell.value)> 1 thì

mycell.interior.colorindex = 36

Nếu nó kết thúc

Ô tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu hàng và cột đang hoạt động

Dưới đây là các bước nhanh để thực thi mã này.

1. Mở vbe (alt + f11).
2. Di chuyển đến Project Explorer (crtl + r, nếu bị ẩn).
3. Chọn sổ làm việc của bạn và bấm đúp vào tên của trang tính cụ thể mà bạn muốn kích hoạt mã macro.
4. Dán mã vào đây và chọn “beforedoubleclick” từ (sự kiện thả xuống).
5. Đóng vbe và bạn đã hoàn tất.

Xin lưu ý rằng khi bạn áp dụng mã macro này, bạn sẽ không thể bấm đúp để điều chỉnh ô.

private sub worksheet_beforedoubleclick (byval target as range,

Hủy dưới dạng boolean)

dim strrange dưới dạng chuỗi

strrange = target.cells.address & amp; “,” target.cells.entircolumn.address & amp; “,” & amp; _

target.cells.entirerow.address

Phạm vi (strrange) .select

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu 10 giá trị hàng đầu

Chỉ cần chọn một dải ô và chạy mã macro này và nó sẽ đánh dấu 10 giá trị đầu tiên bằng màu xanh lam.

sub topten ()

selection.formatconditions.addtop10

selection.formatconditions (selection.formatconditions.count) .s

Ưu tiên hàng đầu

Sử dụng select.formatconditions (1)

.topbottom = xltop10top

.rank = 10

.percent = false

Kết thúc

Sử dụng select.formatconditions (1) .font

.color = -16752384

.tintandshade = 0

Kết thúc

với selection.formatconditions (1) .interior

.patterncolorindex = xlautomatic

.color = 13561798

.tintandshade = 0

Kết thúc

selection.formatconditions (1) .stopiftrue = false

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu dải ô đã đặt tên

Nếu bạn không chắc chắn có bao nhiêu phạm vi được chỉ định trong trang tính, bạn có thể sử dụng mã này để đánh dấu chúng.

sub highlightranges ()

làm mờ tên dải ô làm tên

Giảm dải ô được đánh dấu thành một dải ô

Lỗi tiếp tục sang bước tiếp theo

Đối với từng tên phạm vi trong activeworkbook.names

Đặt highlightrange = rangename.refooterrange

highlightrange.interior.colorindex = 36

Tên phạm vi tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu lớn hơn giá trị

Sau khi chạy mã này, nó sẽ hỏi bạn giá trị nào bạn muốn đánh dấu giá trị lớn hơn.

sub highlightgreaterthanvalues ​​()

điều chỉnh tôi thành một số nguyên

i = inputbox (“đầu vào lớn hơn giá trị”, “giá trị đầu vào”)

selection.formatconditions.delete

selection.formatconditions.add type: = xlcellvalue,

Toán tử: = xlgreater, Công thức 1: = i

selection.formatconditions (selection.formatconditions.count) .s

Ưu tiên hàng đầu

Sử dụng select.formatconditions (1)

.font.color = rgb (0, 0, 0)

.interior.color = rgb (31, 218, 154)

Kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các giá trị dưới giá trị

Sau khi chạy mã này, nó sẽ hỏi bạn giá trị nào bạn muốn đánh dấu giá trị thấp hơn.

sub highlightlowerthanvalues ​​()

điều chỉnh tôi thành một số nguyên

i = inputbox (“đầu vào nhỏ hơn giá trị”, “giá trị đầu vào”)

selection.formatconditions.delete

selection.formatconditions.add type: = xlcellvalue,

Toán tử: = xllower, Công thức 1: = i

selection.formatconditions (selection.formatconditions.count) .s

Ưu tiên hàng đầu

Sử dụng select.formatconditions (1)

.font.color = rgb (0, 0, 0)

.interior.color = rgb (217, 83, 79)

Kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các số âm

Chọn một dải ô và chạy mã này. Nó sẽ kiểm tra mọi ô trong phạm vi này và đánh dấu tất cả các ô có (số âm).

sub highlightnegativenumbers ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

if worksheet functions.isnumber (rng) then

nếu rng.value

0 thì

rng.font.color = -16776961

Nếu nó kết thúc

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu văn bản cụ thể

Giả sử bạn có một tệp dữ liệu lớn và bạn muốn kiểm tra các giá trị cụ thể. Trong trường hợp này, bạn có thể sử dụng mã này. Khi chạy, màn hình hiển thị ô nhập liệu để bạn nhập giá trị cần tìm.

sub highlightvalue ()

Giảm mystr thành chuỗi

Giảm myrg thành dải ô

Giảm mytxt thành chuỗi

Giảm mycell thành phạm vi

Giảm mychar thành chuỗi

Làm tôi đen tối

Giảm độ sáng của j

Lỗi tiếp tục sang bước tiếp theo

Nếu activewindow.rangeselection.count> 1 thì

mytxt = activewindow.rangeselection.addresslocal

Khác

mytxt = activesheet.usedrange.addresslocal

Nếu nó kết thúc

linput: set myrg = application.inputbox (“Vui lòng chọn dữ liệu

dải ô: “,” Yêu cầu lựa chọn “, mytxt,,,,,, 8)

Nếu myrg không là gì thì

Thoát khỏi trang phụ

Nếu myrg.areas.count> 1 thì

msgbox “nhiều cột không được hỗ trợ” goolinput

Nếu nó kết thúc

Nếu myrg.columns.count & lt; & gt; 2 thì

msgbox “Dải ô đã chọn chỉ có thể chứa hai cột”

Đi tới Đầu vào

Nếu nó kết thúc

For i = 0 to myrg.rows.count-1

mystr = myrg.range (“b1”). offset (i, 0) .value

với myrg.range (“a1”). offset (i, 0)

.font.colorindex = 1

Đối với j = 1 tới len (.text)

mid (.text, j, len (mystr)) = mystrthen

.characters (j, len (mystr)). font.colorindex = 3

Tiếp theo

Kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các ô có nhận xét

Sử dụng macro nhận xét này để đánh dấu tất cả các ô.

sub highlightcommentcells ()

selection.specialcells (xlcelltypecomments) .select

selection.style = “note”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các dòng thay thế được chọn

Bằng cách đánh dấu các dòng thay thế, bạn có thể đọc dữ liệu dễ dàng hơn. Đối với điều này, bạn có thể sử dụng mã vba sau đây. Mã chỉ đánh dấu từng hàng thay thế trong phạm vi đã chọn.

sub highlightalternaterows ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn.rows

Nếu rng.rowmod 2 = 1 thì

rng.style = “20% -accent1”

rng.value = rng ^ (1/3)

Khác

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các ô sai chính tả

Nếu bạn gặp sự cố khi kiểm tra lỗi chính tả tất cả các dòng, đây là mã để bạn tham khảo. Mã sẽ kiểm tra từng ô đã chọn và đánh dấu nó nếu có lỗi đánh máy.

sub highlightmisspellingcells ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong activesheet.usedrange

Nếu không phải application.checkspelling (word: = rng.text) thì

rng.style = “bad” kết thúc nếu

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các ô bị lỗi trong toàn bộ trang tính

Mã này sẽ giúp bạn đánh dấu và đếm tất cả các ô có lỗi.

Chỉ cần chạy mã này và mã sẽ trả về một thông báo có số ô sai và đánh dấu tất cả các ô.

đánh dấu phụ ()

Giảm độ sáng trong phạm vi

điều chỉnh tôi thành một số nguyên

Đối với mỗi rng trong activesheet.usedrange

if worksheet functions.iserror (rng) then

i = i + 1 rng.style = “xấu”

Nếu nó kết thúc

Tiếp theo

msgbox “Có tổng số” & amp; I và “(các) lỗi để in trang tính này.”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu các ô có văn bản cụ thể trong một trang tính

Mã này sẽ giúp bạn đếm các ô có giá trị cụ thể mà bạn sẽ đề cập và sau đó nó sẽ đánh dấu tất cả các ô đó.

đánh giá cụ thể phụ ()

Giảm độ sáng trong phạm vi

điều chỉnh tôi thành một số nguyên

dim c dưới dạng một biến thể

c = inputbox (“Nhập giá trị được đánh dấu”)

Đối với mỗi rng trong activesheet.usedrange

nếu rng = c thì

rng.style = “Ghi chú”

i = i + 1

Nếu nó kết thúc

Tiếp theo

msgbox “Có tổng số” & amp; i & amp; “” & amp; c & amp; “In trang tính này.”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu tất cả các ô trống có khoảng trắng ẩn

Đôi khi có những ô trống, nhưng chúng chỉ có một khoảng trắng, vì vậy rất khó để xác định chúng. Mã này sẽ giúp bạn kiểm tra tất cả các ô trong trang tính và đánh dấu các ô bằng một khoảng trống nhất định.

sub blankwithspace ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong activesheet.usedrange

nếu rng.value = “” thì

rng.style = “Ghi chú”

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu giá trị lớn nhất trong phạm vi

Mã này sẽ kiểm tra tất cả các ô đã chọn và đánh dấu ô có giá trị lớn nhất.

sub highlightmaxvalue ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

Nếu rng = worksheet Chức năng.max (lựa chọn) thì

rng.style = “Được”

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu giá trị nhỏ nhất trong phạm vi

Mã sẽ kiểm tra tất cả các ô đã chọn và đánh dấu ô có giá trị nhỏ nhất.

sub highlightminvalue ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

Nếu rng = worksheet Chức năng.min (lựa chọn) thì

rng.style = “Được”

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Làm nổi bật Giá trị Duy nhất

Những mã này sẽ đánh dấu tất cả các ô đã chọn với các giá trị duy nhất.

sub highlightuniquevalues ​​()

Giảm độ sáng trong phạm vi

đặt rng = select

rng.formatconditions.delete

Giảm uv thành giá trị duy nhất

đặt uv = rng.formatconditions.adduniquevalues ​​

uv.dupeunique = xlunique

uv.interior.color = vbgreen

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu sự khác biệt trong các cột

Với mã này, bạn có thể đánh dấu sự khác biệt giữa 2 cột (các ô tương ứng).

Sự khác biệt giữa các cột con ()

dải ô (“h7: h8, i7: i8”). chọn

selection.columndifferences (activecell) .select

selection.style = “bad”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đánh dấu sự khác biệt trong các dòng

Với mã này, bạn có thể đánh dấu sự khác biệt giữa 2 hàng (các ô tương ứng).

Khác biệt dòng phụ ()

dải ô (“h7: h8, i7: i8”). chọn

selection.rowdifferences (activecell) .select

selection.style = “bad”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã macro này sẽ giúp bạn tự động in một số lệnh có thể giúp bạn tiết kiệm rất nhiều thời gian.

1. In Nhận xét

Sử dụng mã macro này để kích hoạt cài đặt in (nhận xét ô) ở cuối trang. Ví dụ, bạn phải in 10 trang, sau khi sử dụng mã này, bạn sẽ nhận được tất cả các nhận xét trên 11 trang cuối cùng.

subcomments ()

Sử dụng activesheet.pagesetup

.printcomments = xlprintsheetend

Kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. In với lề hẹp

Sử dụng mã vba này để in giấy có lề hẹp. Khi bạn chạy mã macro này, nó sẽ tự động thu hẹp các lề.

sub printnarrowmargin ()

Sử dụng activesheet.pagesetup

.leftmargin = ứng dụng

.inchestopoints (0,25)

.rightmargin = application.inchestopoints (0,25)

Xem Thêm : Cách viết thư cảm ơn đơn giản và hứng thú cho trẻ – Teky

.topmargin = application.inchestopoints (0,75)

.bottommargin = application.inchestopoints (0,75)

.headermargin = application.inchestopoints (0,3)

.footermargin = application.inchestopoints (0,3)

Kết thúc

activewindow.selectedsheets.printoutcopies: = 1, collat ​​e: = true,

Bỏ qua vùng in: = false

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Lựa chọn in

Mã này sẽ giúp bạn in dải ô đã chọn. Bạn không cần phải đi đến các tùy chọn in và đặt phạm vi in. Bạn chỉ cần chọn một phạm vi và chạy mã này.

chọn bản in phụ ()

selection.printoutcopies: = 1, collate: = true

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. In trang tùy chỉnh

Bạn có thể sử dụng mã này để in phạm vi trang đã điều chỉnh thay vì sử dụng cài đặt trong tùy chọn in.

Ví dụ: bạn muốn chuyển từ trang 5 đến trang 10. Bạn chỉ cần chạy mã vba này và nhập trang bắt đầu và trang kết thúc.

sub printcustomselection ()

Giảm độ sáng trang bắt đầu thành số nguyên

Làm mờ trang cuối dưới dạng số nguyên

startpage = inputbox (“Vui lòng nhập số trang bắt đầu.”, “enter

giá trị “)

Nếu không phải worksheet Chức năng.isnumber (trang bắt đầu) thì

msgbox “Số trang bắt đầu không hợp lệ. Vui lòng thử lại.”, “Lỗi”

Thoát khỏi trang phụ

Nếu nó kết thúc

endpage = inputbox (“Vui lòng nhập số trang kết thúc.”, “enter

giá trị “)

Nếu không phải worksheet Chức năng.isnumber (trang cuối) thì

msgbox “Số trang cuối không hợp lệ, vui lòng thử lại.”, “error”

Thoát khỏi trang phụ

Nếu nó kết thúc

selection.printoutfrom: = startpage, to: = endpage, Copy: = 1,

Sắp xếp: = Đúng

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã macro này sẽ giúp bạn kiểm soát và quản lý trang tính của mình một cách dễ dàng và tiết kiệm nhiều thời gian.

1. Ẩn tất cả các trang tính ngoại trừ trang tính đang hoạt động

Ví dụ: bạn muốn ẩn tất cả trừ trang tính đang hoạt động trong sổ làm việc. Mã macro này sẽ giúp bạn làm điều đó.

sub hideworksheet ()

làm mờ ws dưới dạng trang tính

Đối với mỗi w trong thisworkbook.worksheets

Nếu ws.name & lt; & gt; thisworkbook.activesheet.name thì

ws.vosystem = xlsheethipris

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Hiện tất cả các trang tính bị ẩn

Mã này hoạt động nếu bạn muốn hiển thị tất cả các trang tính đã ẩn trước đó.

sub unhideallworksheet ()

làm mờ ws dưới dạng trang tính

Đối với mỗi w trong activeworkbook.worksheets

ws.vosystem = xlsheetvisible

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa tất cả các trang tính ngoại trừ trang tính đang hoạt động

Mã này hữu ích nếu bạn muốn xóa tất cả các trang tính ngoại trừ trang tính đang hoạt động.

Khi bạn chạy mã này, nó sẽ so sánh tên trang tính đang hoạt động với các trang tính khác và xóa nó.

sub deleteworksheets ()

làm mờ ws dưới dạng trang tính

Đối với mỗi w trong thisworkbook.worksheets

Nếu ws.name & lt; & gt; thisworkbook.activesheet.name thì

application.displayalerts = false

ws.delete

application.displayalerts = true

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Bảo vệ tất cả các trang tính ngay bây giờ

Nếu bạn muốn bảo vệ trang tính của mình ngay lập tức, đây là mã dành cho bạn.

Khi chạy mã macro này, bạn sẽ nhận được một hộp đầu vào để nhập mật khẩu. Sau khi nhập mật khẩu, bấm OK. Và hãy chắc chắn rằng chú ý đến viết hoa.

subprotectallworskeets ()

làm mờ ws dưới dạng trang tính

Giảm ps thành chuỗi

ps = inputbox (“Nhập mật khẩu của bạn.”, vbokcancel)

Đối với mỗi w trong activeworkbook.worksheets

ws.protect password: = ps

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thay đổi kích thước tất cả các biểu đồ trong trang tính.

Tạo một biểu đồ có cùng kích thước. Mã macro này sẽ giúp bạn tạo tất cả các biểu đồ có cùng kích thước. Bạn có thể thay đổi chiều cao và chiều rộng của biểu đồ bằng cách thay đổi biểu đồ trong mã macro.

sub resize_charts ()

điều chỉnh tôi thành một số nguyên

Cho i = 1 vào activesheet.chartobjects.count

Sử dụng activesheet.chartobjects (i)

.width = 300

.height = 200

Kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chèn Nhiều Trang tính

Nếu bạn muốn thêm nhiều trang tính vào sổ làm việc trong một bước, bạn có thể sử dụng mã này.

Khi bạn chạy mã macro này, bạn sẽ nhận được một hộp đầu vào để nhập tổng số trang tính bạn muốn nhập.

sub insertmultiplesheets ()

điều chỉnh tôi thành một số nguyên

i = inputbox (“Nhập số trang tính sẽ được chèn.”, “enter

Nhiều trang tính “)

sheet.add after: = activesheet, count: = i

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Bảo vệ Trang tính

Nếu bạn muốn bảo vệ trang tính, bạn có thể sử dụng mã này.

Bạn chỉ cần nhập mật khẩu của mình vào mã.

subprotectws ()

activesheet.protect “mypassword”, vâng, vâng

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Bỏ bảo vệ trang tính

Nếu bạn không muốn bảo vệ trang tính, bạn có thể sử dụng macro này.

Bạn chỉ cần nhập mật khẩu được sử dụng để bảo vệ trang tính.

sub unprotectws ()

activesheet.unprotect “Mật khẩu của tôi”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Sắp xếp Trang tính

Mã này sẽ giúp bạn sắp xếp các trang tính trong sổ làm việc theo tên của chúng.

sub sortworksheets ()

điều chỉnh tôi thành một số nguyên

Điều chỉnh j thành số nguyên

Chuyển ianswer sang vbmsgboxresult

ianswer = msgbox (“Sắp xếp các trang tính theo thứ tự tăng dần?” & amp; chr (10) _

& amp; “Nhấp vào Không để sắp xếp theo thứ tự giảm dần”, _

vbyesnocancel + vbquestion + vbdefaultbutton1, “Sắp xếp

Bảng tính “)

For i = 1 to sheet.count

Đối với j = 1 đến sheet.count – 1

Nếu ianswer = vbyes thì

Nếu ucase $ (sheet (j) .name)> ucase $ (sheet (j + 1) .name) thì

sheet (j) .move after: = sheet (j + 1)

Nếu nó kết thúc

elseif ianswer = vbno thì

Nếu ucase $ (sheet (j) .name) & lt; ucase $ (sheet (j + 1) .name) thì

sheet (j) .move after: = sheet (j + 1)

Nếu nó kết thúc

Nếu nó kết thúc

Tiếp theo

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Bảo vệ tất cả các ô bằng công thức

Bạn có thể sử dụng mã này để bảo vệ các ô có công thức bằng một cú nhấp chuột.

sub lockcellswithformulas ()

Với bảng hoạt động

.Không được bảo vệ

.cells.locked = false

.cells.specialcells (xlcelltypeformulas) .locked = true

.protect allowdeletingrows: = true

Kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa tất cả các trang tính trống

Chạy mã này, mã này sẽ kiểm tra tất cả các trang tính trong sổ làm việc đang hoạt động và xóa bất kỳ trang tính nào nếu chúng trống.

sub deleteblankworksheets ()

làm mờ ws dưới dạng trang tính

Lỗi tiếp tục sang bước tiếp theo

application.screenupdating = false

application.displayalerts = false

Đối với mỗi ws trong application.worksheets

Nếu application.worksheet Chức năng.counta (ws.usedrange) = 0 thì

ws.delete

Nếu nó kết thúc

Tiếp theo

application.screenupdating = true

application.displayalerts = true

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Hiện tất cả các hàng và cột

Bạn có thể sử dụng mã này để thực hiện trong một bước thay vì hiển thị từng hàng và cột theo cách thủ công.

sub unhiderowscolumns ()

column.entircolumn.hiollen = false

row.entirerow.hiested = false

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Lưu từng trang tính dưới dạng một pdf duy nhất

Mã này chỉ lưu tất cả các trang tính vào các tệp pdf riêng biệt. Bạn chỉ cần thay đổi tên tệp từ mã này.

sub saveworkshetaspdf ()

điều chỉnh độ sáng dưới dạng trang tính

Đối với mỗi w trong worksheetsws.exportasfixedformat xltypepdf,

“Nhập tên thư mục vào đây” & amp; ws.name & amp; “.pdf” tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tắt ngắt trang

Bạn có thể tắt ngắt trang bằng mã này. Mã chỉ vô hiệu hóa ngắt trang khỏi sổ làm việc đang mở.

dấu ngắt trang phụ ()

sổ làm việc wbas mờ

Làm mờ trang tính wksas

application.screenupdating = false

Đối với mỗi wbin application.workbooks

Đối với mỗi shtin wb.worksheetssht.displaypagebreaks = false

Giây tiếp theo

Tiếp theo

application.screenupdating = true

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã này sẽ giúp bạn dễ dàng thực hiện các tác vụ trên sổ làm việc.

1. Tạo bản sao lưu của sổ làm việc hiện tại

Đây là một trong những mã macro hữu ích nhất để giúp bạn lưu các tệp hỗ trợ cho sổ làm việc của mình.

Mã sẽ trực tiếp lưu tệp được tệp hiện tại lưu và mã cũng sẽ thêm ngày và tên của tệp.

Sao lưu tệp con ()

thisworkbook.savecopyas filename: = thisworkbook.path & amp; _

“” & amp; định dạng (ngày, “mm-dd-yy”) & amp; “” & amp; _

thisworkbook.name

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Đóng tất cả các sổ làm việc cùng một lúc

Bạn sử dụng mã này để đóng tất cả các sổ làm việc đang mở.

Đầu tiên, mã kiểm tra từng sổ làm việc và đóng chúng lại. Nếu có bất kỳ trang tính nào chưa được lưu, bạn sẽ nhận được thông báo lưu.

sub closeallworkbooks ()

Giảm các wbs dưới dạng sổ làm việc

Đối với mỗi wbs trong sổ làm việc

wbs.close savechanges: = true

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Sao chép trang tính hiện hoạt vào một sổ làm việc mới

Ví dụ: nếu bạn muốn sao chép trang tính hiện hoạt vào một sổ làm việc mới, bạn có thể chỉ cần chạy mã macro và mã sẽ thực hiện công việc cho bạn.

Điều này tiết kiệm rất nhiều thời gian.

sub copyworksheettonewworkbook ()

thisworkbook.activesheet.copy _

Trước: = workbooks.add.worksheets (1)

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Sổ làm việc Hoạt động trong Email

Sử dụng mã macro này để gửi nhanh qua email cho sổ làm việc đang hoạt động của bạn.

Bạn có thể thay đổi tên, email, nội dung trong mã, nếu bạn muốn gửi trực tiếp email này, vui lòng sử dụng “.send” thay vì “.display”.

sub send_mail ()

làm mờ outapp dưới dạng đối tượng

Giảm thiểu thư đầu ra dưới dạng đối tượng

set outapp = createobject (“outlook.application”)

set outmail = outapp.createitem (0)

Sử dụng email

.to = “sales@frontlinepaper.com”

.subject = “Báo cáo Tăng trưởng”

.body = “Xin chào nhóm, vui lòng xem báo cáo tăng trưởng đính kèm.”

.attachments.add activeworkbook.fullname

.display

Kết thúc

set outmail = nothing

set outapp = nothing

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm sổ làm việc vào tệp đính kèm email

Sau khi chạy mã này, nó sẽ mở ứng dụng thư mặc định của bạn và sổ làm việc đang hoạt động sẽ được đính kèm vào thư.

sub openworkbookasattachment ()

application.dialogs (xldialogsendmail) .show

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chào mừng

Bạn có thể sử dụng auto_open để thực hiện công việc mở tệp, bạn chỉ cần chỉ định mã macro “auto_open”.

sub auto_open ()

msgbox “Chào mừng bạn đến với excelchamps & amp; cảm ơn bạn đã tải xuống nội dung này

Tệp. “

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Nhận xét kết luận

Bạn có thể sử dụng close_open để mở tệp, bạn chỉ cần chỉ định mã macro “close_open”.

sub auto_close ()

msgbox “Tạm biệt! Đừng quên xem những nội dung thú vị khác

excelchamps.com “

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tính toán các sổ làm việc chưa được lưu đang mở

Ví dụ: bạn có 5-10 sổ làm việc đang mở, bạn có thể sử dụng mã này để lấy số lượng sổ làm việc chưa được lưu.

tiểu sách bài tập hiển thị ()

Làm mờ sách dưới dạng sổ làm việc

điều chỉnh tôi thành một số nguyên

Mỗi cuốn sách trong sổ làm việc

Nếu book.saved = false thì

i = i + 1

Nếu nó kết thúc

Sách tiếp theo

Hộp thư I

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã này sẽ giúp bạn nhanh chóng quản lý và thay đổi bảng tổng hợp.

1. Ẩn Tổng phụ PivotTable

Bạn chỉ cần chạy mã này để ẩn tất cả các tổng phụ.

Đầu tiên, bạn chọn một ô từ PivotTable. Sau đó thực thi mã này.

sub hidesubtotals ()

Giảm pt thành có thể xoay được

Giảm pf thành trục

Lỗi tiếp tục sang bước tiếp theo

đặt pt = activesheet.pivottables (activecell.pivottable.name)

Nếu pt không là gì thì

msgbox “Bạn phải đặt con trỏ bên trong bảng tổng hợp.”

Thoát khỏi trang phụ

Nếu nó kết thúc

Đối với mỗi pf trong pt.pivotfields

pf.subtotals (1) = true

pf.subtotals (1) = false

Giây tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Làm mới tất cả các bảng tổng hợp

Đây là một cách nhanh chóng để làm mới bảng tổng hợp.

Chỉ cần chạy mã này và bảng tổng hợp trong sổ làm việc của bạn sẽ làm mới sau một bước.

sub closeallworkbooks ()

Giảm các wbs dưới dạng sổ làm việc

Đối với mỗi wbs trong sổ làm việc

wbs.close savechanges: = true

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tự động cập nhật phạm vi bảng tổng hợp

Nếu bạn không sử dụng trang tính excel, bạn có thể sử dụng mã này để nâng cấp phạm vi bảng tổng hợp.

sub updatepivottablerange ()

Giảm data_sheet thành trang tính

Giảm pivot_sheet thành trang tính

Làm mờ điểm bắt đầu thành một phạm vi

thay đổi dữ liệu mờ dưới dạng phạm vi

mờ pivotname dưới dạng chuỗi

Làm mờ dải ô mới dưới dạng một chuỗi

Giảm chút rượu cuối cùng

Cuối cùng sẫm màu

‘Thiết lập bảng tổng hợp & amp; trang tính nguồn

set data_sheet = thisworkbook.worksheets (“pivottabledata3”)

Đặt pivot_sheet = thisworkbook.worksheets (“pivot3”)

‘Nhập tên bảng tổng hợp

pivotname = “pivottable2”

‘Xác định Điểm nhìn & amp; Dải động

data_sheet.activate

Đặt điểm bắt đầu = data_sheet.range (“a1”)

lastcol = startpoint.end (xltoright) .column

downcell = startpoint.end (xldown) .row

set datarange = data_sheet.range (startpoint, cells (downcell, lastcol))

newrange = data_sheet.name & amp; “!” & amp; datarange.address (Referencencestyle: = xlr1c1)

‘Thay đổi địa chỉ phạm vi nguồn dữ liệu của bảng tổng hợp

pivot_sheet.pivottables (pivotname). _

Thay đổi sổ làm việc đang hoạt động Pivot Cache. _

pivotcaches.create (sourcetype: = xldatabase, chuacedata: = newrange)

‘Đảm bảo bảng tổng hợp được làm mới

pivot_sheet.pivottables (pivotname) .refreshtable

‘Thông báo hoàn chỉnh

pivot_sheet.activate

msgbox “Bản trình bày tổng hợp của bạn đã được cập nhật.”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tắt / Bật Tải PivotTable

Để tắt / bật chức năng getpivotdata, bạn cần sử dụng tùy chọn excel.

Nhưng với mã này, bạn có thể thực hiện chỉ với một cú nhấp chuột.

subactivategetpivotdata ()

application.generategetpivotdata = true

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

sub hủy kích hoạtgetpivotdata ()

application.generategetpivotdata = false

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Sử dụng các mã vba này để quản lý biểu đồ trong excel và tiết kiệm rất nhiều thời gian.

1. Thay đổi loại biểu đồ

Mã này sẽ giúp bạn chuyển đổi các loại biểu đồ cần sử dụng các tùy chọn biểu đồ trong tab.

Bạn chỉ cần chỉ định loại biểu đồ để chuyển đổi.

Đoạn mã dưới đây sẽ được chuyển đổi thành biểu đồ cột nhóm.

Các loại biểu đồ khác nhau có các mã khác nhau, bạn có thể tìm thấy chúng tại đây.

sub changecharttype ()

activechart.charttype = xlcolumnclustered

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Dán biểu đồ dưới dạng hình ảnh

Mã này sẽ giúp bạn chuyển đổi biểu đồ thành hình ảnh.

Bạn chỉ cần chọn biểu đồ và chạy mã này.

sub convertcharttopicture ()

activechart.chartarea.copy

activesheet.range (“a1”). chọn

activesheet.pictures.paste.select

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm tiêu đề biểu đồ

Trước tiên, bạn cần chọn biểu đồ và chạy mã này.

Bạn sẽ nhận được một hộp nhập liệu để nhập tiêu đề biểu đồ.

sub addcharttitle ()

làm mờ tôi như một biến thể

i = inputbox (“Vui lòng nhập tiêu đề biểu đồ của bạn”, “Tiêu đề biểu đồ”)

Đến phần cuối cùng nếu bị lỗi

activechart.setelement (msoelementcharttitletabovechart)

activechart.charttitle.text = i

Cuối cùng:

Thoát khỏi trang phụ

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Một số mã có thể được sử dụng để thực hiện các tác vụ nâng cao trong bảng tính.

1. Lưu dải ô đã chọn dưới dạng pdf

Nếu bạn muốn ẩn tất cả các tổng phụ, chỉ cần chạy mã này.

Đầu tiên, bạn chọn một ô từ PivotTable. Sau đó thực thi mã này.

sub hidesubtotals ()

Giảm pt thành có thể xoay được

Giảm pf thành trục

Lỗi tiếp tục sang bước tiếp theo

đặt pt = activesheet.pivottables (activecell.pivottable.name)

Nếu pt không là gì thì

msgbox “Bạn phải đặt con trỏ bên trong bảng tổng hợp.”

Thoát khỏi trang phụ

Nếu nó kết thúc

Đối với mỗi pf trong pt.pivotfields

pf.subtotals (1) = true

pf.subtotals (1) = false

Giây tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tạo thư mục

Ví dụ: bạn có hơn 100 trang tính trong sổ làm việc của mình và thật khó để điều hướng.

Khi bạn chạy mã này, nó sẽ tạo một trang tính mới và tạo chỉ mục trang tính với các siêu liên kết đến các trang tính đó.

Nội dung bảng phụ ()

Làm tôi đen tối

Lỗi tiếp tục sang bước tiếp theo

application.displayalerts = false

trang tính (“Mục lục”). xóa

application.displayalerts = true

Lỗi chuyển thành 0

thisworkbook.sheets.add before: = thisworkbook.worksheets (1)

activesheet.name = “Mục lục”

For i = 1 to sheet.count

Với bảng hoạt động

.hyperlinks.add _

anchor: = activesheet.cells (i, 1), _

Địa chỉ: = “”, _

Địa chỉ con: = “‘” & amp; sheet (i) .name & amp; “‘! a1”, _

screentip: = sheet (i) .name, _

texttodisplay: = sheet (i) .name

Kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi dải ô thành hình ảnh

Dán dải ô đã chọn làm hình ảnh.

Bạn chỉ cần chọn phạm vi và sau khi chạy mã này, nó sẽ tự động chèn hình ảnh cho phạm vi.

sub pasteaspicture ()

application.cutcopymode = false

selection.copy

activesheet.pictures.paste.select

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chèn hình ảnh được liên kết

Mã vba này sẽ chuyển đổi dải ô đã chọn của bạn thành một hình ảnh được liên kết mà bạn có thể sử dụng ở mọi nơi.

Hình ảnh liên kết phụ ()

selection.copy

activesheet.pictures.paste (link: = true) .select

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Sử dụng tính năng chuyển văn bản thành giọng nói

Chọn một dải ô và chạy mã này.

Excel sẽ đọc văn bản của từng ô trong phạm vi một.

Trò chuyện trẻ con ()

selection.speak

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Kích hoạt biểu mẫu nhập dữ liệu

Đây là biểu mẫu nhập dữ liệu mặc định có thể được sử dụng để nhập dữ liệu.

Biểu mẫu dữ liệu con ()

activesheet.showdataform

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Sử dụng Tìm kiếm Nhắm mục tiêu

Tìm kiếm được nhắm mục tiêu có thể rất hữu ích trong việc giải quyết các vấn đề phức tạp.

Trước khi sử dụng mã này, hãy tìm hiểu thêm về các tìm kiếm được nhắm mục tiêu tại đây.

Mục tiêu phụ seekvba ()

Giảm mục tiêu

Chuyển đến trình xử lý lỗi khi có lỗi

target = inputbox (“Nhập giá trị mong muốn”, “Nhập giá trị”)

trang tính (“goal_seek”). kích hoạt

Sử dụng bảng hiện hoạt .range (“c7”)

.goalseek_goal: = mục tiêu, _

Thay đổi ô: = range (“c2”)

Kết thúc

Thoát khỏi trang phụ

errorhandler: msgbox (“Xin lỗi, giá trị không hợp lệ.”)

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Mã vba của Google

Theo dõi bài viết này để tìm hiểu thêm về cách sử dụng mã vba này cho googling.

Cửa sổ tìm kiếm phụ 32 ()

Giảm đường dẫn chromepath thành chuỗi

Giảm chuỗi tìm kiếm thành chuỗi

truy vấn mờ dưới dạng chuỗi

query = inputbox (“Nhập tìm kiếm của bạn tại đây”, “tìm kiếm trên google”)

search_string = query

search_string = Replace (search_string, “”, “+”)

‘Bỏ ghi chú dòng sau cho phiên bản windows 64 và nhận xét về phiên bản windows 32’

chromepath = “c: Programs

Tệp googlechromeapplicationchrome.exe “

‘Bỏ ghi chú các dòng sau cho phiên bản windows 32 và nhận xét về phiên bản windows 64

chromepath = “c: Tệp chương trình

(x86) googlechromeapplicationchrome.exe “

shell (chromepath & amp; “-url http://google.com/#q=” & amp; search_string)

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Những mã này sẽ giúp bạn thực hiện các phép tính và xuất kết quả thường được sử dụng với các hàm và công thức của trang tính.

1. Chuyển đổi tất cả các công thức thành giá trị

Chỉ cần chuyển đổi công thức thành một giá trị.

Khi bạn chạy mã macro này, nó sẽ thay đổi công thức thành giá trị tuyệt đối.

giá trị chuyển đổi phụ ()

Giảm dải ô của tôi thành dải ô

Giảm mycell thành phạm vi

select case msgbox (“Bạn không thể hoàn tác hành động này.” & amp; “Lưu

Sổ làm việc đầu tiên? “, vbyesnocancel,” alert “)

trường hợp là = vbyes

thisworkbook.save

trường hợp là = vbcancel

Thoát khỏi trang phụ

Kết thúc lựa chọn

đặt myrange = select

Đối với mỗi mycell trong myrange

nếu mycell.hasformula thì

mycell.formula = mycell.value

Nếu nó kết thúc

Ô tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa khoảng trắng khỏi các ô đã chọn

Đây là một trong những macro hữu ích nhất trong danh sách này.

Mã sẽ kiểm tra lựa chọn của bạn và sau đó xóa tất cả các khoảng trắng khỏi lựa chọn đó.

sub removepaces ()

Giảm dải ô của tôi thành dải ô

Giảm mycell thành phạm vi

select case msgbox (“Bạn không thể hoàn tác hành động này.” & amp; “Lưu

Sổ làm việc đầu tiên? “, _

vbyesnocancel, “Cảnh báo”)

Trường hợp là = vbyesthisworkbook.save

trường hợp là = vbcancel

Thoát khỏi trang phụ

Kết thúc lựa chọn

đặt myrange = select

Đối với mỗi mycell trong myrange

Nếu không phải isempty (mycell) thì

mycell = trim (mycell)

Nếu nó kết thúc

Ô tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa các ký tự khỏi chuỗi

Chỉ cần xóa các ký tự khỏi đầu chuỗi văn bản.

Bạn chỉ cần tham chiếu một ô hoặc chèn văn bản vào hàm và số ký tự sẽ bị xóa khỏi đầu chuỗi văn bản.

Đoạn mã có 2 tham số “rng” cho chuỗi văn bản và “cnt” để tính toán các ký tự cần xóa.

Ví dụ: nếu bạn muốn xóa ký tự đầu tiên khỏi cột, chỉ cần nhập 1 vào cnt.

hàm public removefirstc (rng as string, cnt as long)

removefirstc = right (rng, len (rng) – cnt)

Kết thúc chức năng

1. Thêm biểu tượng chèn độ trong excel

Ví dụ: bạn có một danh sách các số trong một cột và bạn muốn thêm các ký hiệu độ vào chúng.

subdegreesymbol ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

rng.select

Nếu ô được kích hoạt

“” thì

Nếu không phải là một số (activecell.value) thì

activecell.value = activecell.value & amp; “°”

Nếu nó kết thúc

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Văn bản đảo ngược

Bạn chỉ cần nhập hàm “rvrse” vào một ô và chuyển đến ô có chứa văn bản bạn muốn đảo ngược.

hàm công khai rvrse (ô byval dưới dạng dải ô) dưới dạng chuỗi

rvrse = vba.strreverse (cell.value)

Kết thúc chức năng

1. Kích hoạt kiểu tham chiếu r1c1

Mã macro này sẽ giúp bạn bật kiểu trích dẫn r1c1 mà không cần sử dụng các tùy chọn excel.

Biểu mẫu dữ liệu con ()

activesheet.showdataform

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Kích hoạt kiểu tham chiếu a1

Mã macro này sẽ giúp bạn bật kiểu tham chiếu a1 mà không cần sử dụng tùy chọn excel.

subactivatea1 ()

Nếu application.referencestyle = xlr1c1 thì

application.referencestyle = xla1

Khác

application.referencestyle = xla1

Nếu nó kết thúc

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chèn Phạm vi thời gian

Với mã này, bạn có thể chèn phạm vi thời gian từ 00:00 đến 23:00.

Dấu phụ ()

điều chỉnh tôi thành một số nguyên

Đối với i = 1 đến 24

activecell.formular1c1 = i & amp; “: 00”

activecell.numberformat = “[$ -409] h: mm am / pm; @”

activecell.offset (rowoffset: = 1, columnoffset: = 0) .select

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi ngày thành ngày

Nếu trang tính của bạn có ngày và bạn muốn chuyển đổi tất cả các ngày thành ngày. Bạn có thể sử dụng mã này.

Chỉ cần chọn phạm vi ô và chạy mã này.

sub date2day ()

Làm mờ các ô tạm thời thành các dải ô

selection.value = selection.value

Đối với từng đơn vị nhiệt độ trong lựa chọn

nếu isdate (tempcell) = true thì

Sử dụng Đơn vị Tạm thời

.value = day (tempcell)

.numberformat = “0”

Kết thúc

Nếu nó kết thúc

Đơn vị tạm thời tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi ngày thành năm

Mã này sẽ chuyển đổi ngày thành một năm.

sub date2year ()

Làm mờ các ô tạm thời thành các dải ô

selection.value = selection.value

Đối với từng đơn vị nhiệt độ trong lựa chọn

nếu isdate (tempcell) = true thì

Sử dụng Đơn vị Tạm thời

.value = year (tempcell)

.numberformat = “0”

Kết thúc

Nếu nó kết thúc

Đơn vị tạm thời tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa thời gian khỏi ngày

Nếu trang tính hiển thị ngày và giờ và bạn muốn xóa thời gian, bạn có thể sử dụng mã này.

sub removetime ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

nếu isdate (rng) = true thì

rng.value = vba.int (rng.value)

Nếu nó kết thúc

Tiếp theo

selection.numberformat = “dd-mmm-yy”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa ngày khỏi ngày và giờ

Mã sẽ chỉ trả về thời gian từ các giá trị ngày và giờ.

sub removeate ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

nếu isdate (rng) = true thì

rng.value = rng.value – vba.fix (rng.value)

Nếu nó kết thúc

nextselection.numberformat = “hh: mm: ss am / pm”

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển sang chữ hoa

Chọn ô và chạy mã này.

Mã sẽ kiểm tra từng ô của dải ô đã chọn và chuyển chúng thành văn bản viết hoa.

sub converttuppercase ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

nếu application.worksheet Chức năng.istext (rng) thì

rng.value = ucase (rng)

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển thành chữ thường

Mã này sẽ giúp bạn chuyển đổi văn bản đã chọn sang văn bản viết thường.

Chỉ cần chọn một dải ô chứa văn bản và chạy mã này.

Nếu ô chứa bất kỳ giá trị nào không phải là số hoặc văn bản, giá trị đó sẽ được giữ nguyên.

sub convertlowercase ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

nếu application.worksheet Chức năng.istext (rng) thì

rng.value = lcase (rng)

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi sang chữ hoa thường

Mã này chuyển đổi văn bản đã chọn thành một tên riêng với chữ hoa đầu tiên và phần còn lại là chữ thường.

sub convertpropercase ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

if worksheet functions.istext (rng) then

rng.value = worksheet Chức năng.proper (rng.value)

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi thành câu

Nếu là văn bản, từ đầu tiên trong mỗi câu là chữ hoa và phần còn lại là chữ thường, mã này sẽ giúp bạn chuyển văn bản thường thành câu có chữ hoa.

p>

sub converttextcase ()

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

if worksheet functions.istext (rng) then

rng.value = ucase (left (rng, 1)) & amp; lcase (right (rng, len (rng) -1))

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa lựa chọn ký tự

Bạn có thể sử dụng mã này để xóa các ký tự cụ thể khỏi các ô đã chọn.

Mã sẽ hiển thị một hộp nhập để nhập các ký tự bạn muốn xóa.

sub removechar ()

Giảm độ sáng trong phạm vi

mờ rc dưới dạng chuỗi

rc = inputbox (“ký tự thay thế”, “giá trị đầu vào”)

Đối với mỗi rng trong lựa chọn

selection.replace what: = rc, Replace: = “”

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Số lượng từ cho toàn bộ trang tính

Một mã giúp bạn đếm tất cả các từ trong trang tính.

sub word_count_worksheet ()

lờ mờ từ lâu

Giảm độ sáng trong phạm vi

dim là một chuỗi

Giảm độ sáng của n

Đối với mỗi rng trong activesheet.usedrange.cells

s = application.worksheet Chức năng.trim (rng.text)

n = 0

nếu s & lt; & gt; thì vbnullstring

n = len (s) – len (Replace (s, “”, “”)) + 1

Nếu nó kết thúc

wordcnt = wordcnt + n

Tiếp theo

msgbox “Có tổng” & amp; định dạng (wordcnt, “#, ## 0”) & amp; “từ

Trong trang tính hiện hoạt “

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa dấu nháy đơn khỏi các số

Nếu dữ liệu số của bạn có dấu nháy đơn trước mỗi chữ số, bạn có thể chạy mã này để xóa chúng.

sub removeapostrophes ()

selection.value = selection.value

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa các số thập phân khỏi các số

Mã này chỉ giúp bạn xóa tất cả các số thập phân khỏi các số trong phạm vi đã chọn.

Xóa số thập phân phụ ()

Giảm số lượng lên gấp đôi

Kết quả bị mờ đi

Giảm độ sáng trong phạm vi

Đối với mỗi rng trong lựa chọn

rng.value = int (rng)

rng.numberformat = “0”

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Nhân tất cả các giá trị với một số

Ví dụ: bạn có một danh sách các số và bạn muốn nhân tất cả các số với một số cụ thể.

Sử dụng mã này.

Chọn một dải ô và chạy mã này. Đầu tiên, mã sẽ yêu cầu bạn nhập số bạn muốn nhân, sau đó ngay lập tức nhân tất cả các số trong ô với số đó.

sub Multiplewithnumber ()

Giảm độ sáng trong phạm vi

dim c as integer c = inputbox (“nhập số thành nhiều”,

“yêu cầu đầu vào”)

Đối với mỗi rng trong lựa chọn

if worksheet functions.isnumber (rng) then

rng.value = rng * c

Khác

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm một số vào tất cả các số

Cũng giống như phép nhân, bạn cũng có thể thêm một số vào một tập hợp các số.

sub addnumber ()

Giảm dải xăng

Số nguyên nhị phân

i = inputbox (“Nhập nhiều số”, “Yêu cầu nhập”)

Đối với mỗi rng trong lựa chọn

if worksheet functions.isnumber (rng) then

rng.value = rng + i

Khác

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tính căn bậc hai

Bạn có thể sử dụng mã này để tính căn bậc hai mà không cần áp dụng công thức.

Mã sẽ kiểm tra tất cả các ô đã chọn và chuyển đổi số thành căn bậc hai của nó.

sub getquareroot ()

Giảm dải xăng

điều chỉnh tôi thành một số nguyên

Đối với mỗi rng trong lựa chọn

if worksheet functions.isnumber (rng) then

rng.value = sqr (rng)

Khác

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Tính căn bậc hai

Bạn có thể sử dụng mã này để tính căn bậc hai mà không cần áp dụng công thức.

Mã sẽ kiểm tra tất cả các ô đã chọn và chuyển đổi số thành căn bậc hai của nó.

sub getcuberoot ()

Giảm độ sáng trong phạm vi

dimi là một số nguyên

Đối với mỗi rng trong lựa chọn

if worksheet functions.isnumber (rng) then

rng.value = rng ^ (1/3)

Khác

Nếu nó kết thúc

Bước tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thêm các chữ cái a-z vào một dải ô

Cũng giống như một dãy số, bạn cũng có thể chèn các chữ cái vào trang tính.

Subcalphabets ()

điều chỉnh tôi thành một số nguyên

Đối với i = 65 đến 90

activecell.value = chr (i)

activecell.offset (1, 0) .select

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

sub add letter ()

điều chỉnh tôi thành một số nguyên

Đối với i = 97 đến 122

activecell.value = chr (i)

activecell.offset (1, 0) .select

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Chuyển đổi chữ số La Mã sang tiếng Ả Rập

Đôi khi, rất khó để nhận ra chữ số La Mã là số sê-ri. Mã này sẽ giúp bạn chuyển đổi chữ số La Mã sang chữ số Ả Rập.

phụ chuyển đổi thành số ()

Giảm độ sáng trong phạm vi

selection.value = selection.value

Đối với mỗi rng trong lựa chọn

Nếu không phải worksheet Chức năng.isnontext (rng) thì

rng.value = worksheet Chức năng.arabic (rng)

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Xóa các ký hiệu phủ định

Mã này sẽ kiểm tra các ô đã chọn và chuyển đổi số âm thành số dương. Bạn chỉ cần chọn một dải ô và chạy mã này.

sub removenegativeign ()

Giảm dải xăng

selection.value = selection.value

Chọn cho từng hoạt động

Nếu bảng tính function.isnumber (rng)

Sau đó, rng.value = abs (rng)

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

1. Thay thế các ô trống bằng các số không

Đối với dữ liệu có các ô trống, bạn có thể sử dụng mã sau để thêm số vào các ô trống đó. Bạn sẽ dễ dàng sử dụng các ô này cho các phép tính sau bằng các mã này.

sub Replaceblankwithzero ()

Giảm dải xăng

selection.value = selection.value

Chọn cho từng hoạt động

nếu rng = “” hoặc rng = “” thì

rng.value = “0”

Khác

Nếu nó kết thúc

Tiếp theo

Xem Thêm : thời hạn chứng chỉ ngoại ngữ

Kết thúc phụ

Theo dõi: nhà vô địch xuất sắc