Link tải file Excel danh mục Tỉnh thành và phường xã gộp sáp nhập: Download

Trong đó thể hiện:

- Từng tỉnh, thành mới: Được gộp từ những tỉnh,  thành nào

- Từng phường xã mới: Được gộp từ những phường, xã nào

Danh mục gồm đầy đủ 34 đơn vị hành chính cấp tỉnh mới và 3321 đơn vị hành chính cấp phường xã mới

Trường hợp trùng tên phường/xã trong cùng 1 tỉnh thành thì cột "Sát nhập từ các phường xã" cần ghi rõ phường xã đó thuộc quận/huyện nào. Và công thức lấy tên phường xã mới là:

=IFERROR(LOOKUP(2,1/ISNUMBER(SEARCH(H6,$C$6:$C$3326))/ISNUMBER(SEARCH(I6,$E$6:$E$3326))/ISNUMBER(SEARCH(TRIM(LEFT(RIGHT(SUBSTITUTE(G6,",",REPT(" ",100)),200),100)),$E$6:$E$3326)),$D$6:$D$3326),LOOKUP(2,1/ISNUMBER(SEARCH(H6,$C$6:$C$3326))/ISNUMBER(SEARCH(I6,$E$6:$E$3326)),$D$6:$D$3326))

Trong file này có thể có một số tên chưa chính xác, hoặc ghi sai chữ "phường" sang "xã" hoặc ngược lại

Hướng dẫn công thức đổi địa chỉ cũ trước sắp xếp sang địa chỉ mới sau sáp nhập


ĐÀO TẠO EXCEL CHO NGƯỜI ĐI LÀM VÀ DOANH NGHIỆP
{ĐT+ZALO} 038 696 1334




 Ứng dụng: In liên tục phiếu lương, phiếu thu, chi, hợp đồng,...

Chuẩn bị sheet dữ liệu và sheet form in. Trong đó:

- Sheet Dữ liệu có cột số thứ tự

- Sheet Form in làm công thức lấy thông tin từ sheet Dữ liệu theo số thứ tự (thường dùng hàm VLOOKUP, Index, match, Aggregate, Filter,... để lấy thông tin sang)

- Thiết lập vùng in cho sheet Form in

- Nhập 2 ô bên ngoài vùng in để in từ số nào đến số nào. (Ví dụ: Ô P1 nhập in từ số nào, ô P2 nhập in từ số nào )

Các bước thực hiện đưa code VBA vào file và in liên tục:

Bước 1: Copy code vba in liên tục theo số thứ tự vào file

Mở file Excel, nhấn Alt+F11 (hoặc Alt+Fn+F11) để vào cửa sổ VBA. Trong cửa sổ VBA thì vào Insert => chọn Module và Copy code vba dưới đây và paste  vào Module vừa tạo

Sub InPhieuLuong()

    Dim bd As Integer

    Dim kt As Integer

    Dim i As Integer

    Dim o As Integer

    bd = Range("P1").Value '=> In tu Stt nao

    kt = Range("P2").Value '=> In den Stt nao

    o = Range("E9").Value '=> Cong thuc trong form in duoc lay theo stt tai o nay

    If bd > kt Or IsNumeric(bd) = False Or IsNumeric(kt) = False Or bd <= 0 Or kt <= 0 Then

        MsgBox "Nhap sai so bat dau hoac ket thuc", vbCritical

        Exit Sub

    End If

    For i = bd To kt

        o = i

        ActiveSheet.PrintOut

        Application.Wait Now + TimeValue("00:00:01")

    Next i

    MsgBox "Da hoan thanh in " & kt - bd + 1 & " ban, tu so " & bd & " den " & kt, vbInformation

End Sub



Bước 2: Sửa code VBA theo cấu trúc Form in. Gồm 3 chỗ sửa

bd = Range("P1").Value : Thay địa chỉ ô P1 tương ứng là ô nhập số bắt đầu (Ví dụ: bạn nhập in từ số bắt đầu tại ô X1 thì P1 bằng X1

kt = Range("P2").Value: Thay địa chỉ ô P2 tương ứng là ô nhập số kết thúc

o = Range("E9").Value: Thay địa chỉ ô E9 tương ứng là ô chạy stt để lấy thông tin sang form in

Bước 3: Tạo nút bấm in liên tục

Trở lại màn hình Excel, tại sheet Form in thực hiện chèn 1 shape bất kỳ (Insert => Shape). Rồi click chuột phải vào Shape chọn Asign Macro và trỏ vào tên Macro InPhieuLuong

Bước 4: Thực hiện in

Điền số bắt đầu và số kết thúc để in từ số nào đến số nào và nhấn vào nút bấm tạo ở bước 3 để in liên tục




 Công thức tính tuổi nghỉ hưu

Cách dùng: Thay tọa dộ ô B2 là ngày sinh (thay 3 chỗ), C2 là giới tính (thay 5 chỗ)


=EOMONTH(MIN(EDATE(B2,((C2="Nam")*2+60)*12),IFERROR(AGGREGATE(15,6,EDATE(B2,((C2="Nam")*5+55)*12+(ROW($2020:$2100)-2020)*((C2="Nữ")+3))/(YEAR(EDATE(B2,((C2="Nam")*5+55)*12+(ROW($2020:$2100)-2020)*((C2="Nữ")+3)))=ROW($2020:$2100)),1),DATE(9999,12,31))),0)+1

Kênh tiktok: (1)Đào tạo Excel (@excelthinhvu) | TikTok

Kênh Youtube: https://www.youtube.com/user/thinhvd309/videos

Đào tạo Excel cho người đi làm và doanh nghiệp
{ĐT+Zalo} 038 696 1334

 Bài viết chia sẻ công thức Excel đọc số tiền thành chữ theo các tình huống:

Cách dùng: Thay ô A1 trong công thức (5 chỗ trong công thức)

Máy tính sử dụng dấu , ngăn cách các tham số trong công thức: 

=IF(A1<0,"Âm ", MID("KMHBBNSBTC",LEFT(ROUND(A1,0))+1,1)) & MID(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(A1,SUBSTITUTE("0\*0\=0\/0\*0;0\*0\=0\/0\*0",0,"0\-0\+0")),LEN(ROUND(ABS(A1),0))*2-1),"0-0+0*",""),"0-0+0/",""),"0-0+0",""),"0+0",""),"0+"," lẻ"),"+0","+"),"+5","+ lăm"),"1+"," mười"),"+1","+ mốt"),"_=","_"),0," không"),1," một"),2," hai"),3," ba"),4," bốn"),5," năm"),6," sáu"),7," bảy"),8," tám"),9," chín"),"+"," mươi"),"-"," trăm"),"*"," ngàn ,"),"/"," triệu "),",=","="),"="," tỷ,")&"  ",",  ","")),2-(A1<0),999)&" đồng chẵn."

Máy tính sử dụng dấu ; ngăn cách các tham số trong công thức:

=IF(A1<0;"Âm " ;MID("KMHBBNSBTC";LEFT(ROUND(A1;0))+1;1)) & MID(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(A1;SUBSTITUTE("0\*0\=0\/0\*0;0\*0\=0\/0\*0";0;"0\-0\+0"));LEN(ROUND(ABS(A1);0))*2-1);"0-0+0*";"");"0-0+0/";"");"0-0+0";"");"0+0";"");"0+";" lẻ");"+0";"+");"+5";"+ lăm");"1+";" mười");"+1";"+ mốt");"_=";"_");0;" không");1;" một");2;" hai");3;" ba");4;" bốn");5;" năm");6;" sáu");7;" bảy");8;" tám");9;" chín");"+";" mươi");"-";" trăm");"*";" ngàn ,");"/";" triệu ");",=";"=");"=";" tỷ,")&"  ";",  ";""));2-(A1<0);999)&" đồng chẵn."


Youtube: Excel Thỉnh Vũ - YouTube

Tiktok: Đào tạo Excel (@excelthinhvu) | TikTok

Đào tạo Excel cho người đi làm và doanh nghiệp
{ĐT+Zalo} 038 696 1334

 Chia sẻ mẫu File Excel lương một số doanh nghiệp (mang tính chất tham khảo)


- Một số mẫu file lương doanh nghiệp dệt may việt nam: Download


- Một số mẫu file lương doanh nghiệp dịch vụ: Download


- Một số mẫu file lương doanh nghiệp sản xuất: Download


- Một số mẫu file lương doanh nghiệp thương mại: Download


- Một số mẫu file lương doanh nghiệp xây lắp: Download


Đào tạo Excel cho người đi làm và doanh nghiệp
{ĐT+Zalo} 038 696 1334



Excel Thỉnh Vũ. Được tạo bởi Blogger.