Dấu Khác Trong Vba | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Giải thích, gỡ rối, xử lý lỗi công thức

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Dấu khác trong vba (1 người xem)

• Thread starter Thread starter Bài học đắt giá
• Ngày gửi Ngày gửi 7/12/21

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) B

Bài học đắt giá

Thành viên mới

Tham gia 2/12/13 Bài viết 22 Được thích 1 Mình có đoạn code dưới đây, mục đích mình muốn tên tháng và dữ liệu trong ô "A4" trùng nhau, nếu không trùng nhau thì sẽ báo lỗi không phù hợp và không hiện tháng tiếp theo, nếu trùng nhau thì tạo tháng mới. Mình có viết dòng code màu xanh để thực hiện lệnh trên, nhưng nó báo lỗi luôn dù đã thoả mãn điều kiện trùng nhau. Mọi người giúp với. Cảm ơn mọi người nhiều.

Sub taothangmoi() Dim Thang As String Thang = Sheets(Sheets.Count).Name If Right(Thang, Len(Thang) - 5) >= 12 Then MsgBox "toi da 12 thang" Exit Sub End If If Right(Thang, Len(Thang) - 5) + 1 <> "A4" + 1 Then MsgBox "Thang khong phu hop" Exit Sub End If ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Tháng " & Right(Thang, Len(Thang) - 5) + 1 Range("A4") = Right(Thang, Len(Thang) - 5) + 1 Range("C13:BL34").ClearContents For i = 59 To 64 If Day(Cells(10, i).Value) < 28 Then Cells(10, i).EntireColumn.Hidden = True End If Next End Sub

File đính kèm

• a.xlsm a.xlsm 21.1 KB · Đọc: 8

B

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Tham gia 17/12/10 Bài viết 2,783 Được thích 3,390 Giới tính Nam giải thích rõ hơn xíu được không? Chưa hiểu ý của bạn lắm

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843

quoc_lap đã viết: If Right(Thang, Len(Thang) - 5) + 1 <> "A4" + 1 Then Nhấp chuột vào đây để mở rộng...

If Right(Thang, Len(Thang) - 5) + 1 <> ActiveSheet.Range("A4").value2 + 1 Then B

Bài học đắt giá

Thành viên mới

Tham gia 2/12/13 Bài viết 22 Được thích 1

befaint đã viết: If Right(Thang, Len(Thang) - 5) + 1 <> ActiveSheet.Range("A4").value2 + 1 Then Nhấp chuột vào đây để mở rộng...

cảm ơn bạn nhiều nhé. Bài đã được tự động gộp: 7/12/21

BuiQuangThuan đã viết: giải thích rõ hơn xíu được không? Chưa hiểu ý của bạn lắm Nhấp chuột vào đây để mở rộng...

ý mình muốn viết điều kiện để khi tạo sheet mới thì tên sheet và dữ liệu trong ô A4 trùng nhau, nếu khác nhau thì báo lỗi không phù hợp đó bạn. B

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Tham gia 17/12/10 Bài viết 2,783 Được thích 3,390 Giới tính Nam

quoc_lap đã viết: ý mình muốn viết điều kiện để khi tạo sheet mới thì tên sheet và dữ liệu trong ô A4 trùng nhau, nếu khác nhau thì báo lỗi không phù hợp đó bạn. Nhấp chuột vào đây để mở rộng...

Ừ. Bài #3 đã trả lời bạn rồi. Không biết đúng ý bạn chưa B

Bài học đắt giá

Thành viên mới

Tham gia 2/12/13 Bài viết 22 Được thích 1

BuiQuangThuan đã viết: Ừ. Bài #3 đã trả lời bạn rồi. Không biết đúng ý bạn chưa Nhấp chuột vào đây để mở rộng...

Đúng rồi nhé. Cảm ơn bạn đã quan tâm! Hẹn những bài post sau. Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

• Đã giải quyết

FitRowXL v1.1 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 73 Đọc 30K Hôm qua, lúc 17:20 chothadiem E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K Hôm qua, lúc 15:20 luongha.ktqd L Copilot bình luận các ván cờ vua từng ngày. (2 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 60 Đọc 2K Hôm qua, lúc 04:52 SA_DQ L Thu Chi Gia Đình

• • 

• lehang0812
• Thứ năm lúc 17:12
• TPHCM

Trả lời 3 Đọc 96 Hôm qua, lúc 02:59 son193 S

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 622 Đọc 91K Thứ năm lúc 16:11 LOGANWover L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• Thứ tư lúc 10:14
• Lập Trình với Excel

Trả lời 12 Đọc 293 Thứ năm lúc 11:13 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K Thứ năm lúc 08:54 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• • 
  • 

• HeSanbi
• Thứ hai lúc 20:14
• Lập Trình với Excel

Trả lời 1 Đọc 203 Thứ tư lúc 17:03 HeSanbi Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K Thứ ba lúc 15:52 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit (1 người xem)

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K Thứ ba lúc 14:17 Gà Công Nghệ V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 18 Đọc 693 Thứ ba lúc 11:10 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating

• hoanglocphat
• Thứ hai lúc 14:23
• Hỏi đáp những vấn đề khác

Trả lời 6 Đọc 173 Thứ ba lúc 10:13 Gà Con yêu VBA

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 61 Đọc 12K Thứ hai lúc 15:13 Nguyễn Duy Tuân Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số

• mrjun80
• 31/1/26
• Hàm và công thức Excel

Trả lời 4 Đọc 178 Chủ nhật lúc 08:38 Gà Con yêu VBA N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn

• • 
  • 

• nguyendang95
• 23/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 36 Đọc 1K 31/1/26 ptm0412

• Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (1 người xem)

• • 
  • 
  • 

• ongke0711
• 24/7/25
• Lập Trình với Excel

Trả lời 16 Đọc 2K 31/1/26 tuyethao T VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

• phuongnam366377
• 31/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 155 31/1/26 phuongnam366377 N

• Question Question

Tạo khung viền ô theo số trong ô

• • 

• Nguyễn Xuân Sơn
• 29/1/26
• Lập Trình với Excel

Trả lời 9 Đọc 249 31/1/26 Mr.hieudoanxd J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên.

• • 

• jack nt
• 29/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 5 Đọc 296 31/1/26 ptm0412 T gửi email đến nhân viên công ty

• tuantv9
• 26/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 271 30/1/26 nguyendang95 N Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 11
• chothadiem 8
• Gà Công Nghệ 5
• Officexinh 4
• vietdang170 4
• pycckuu410 3
• HieuCD 3
• chiendich 3
• hoanglocphat 3
• VietHoangPhan 2
• DeTong 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• linhdao2909 1
• HUONGHCKT 1
• vuvannguyen1972 1
• Phuocam 1
• ptm0412 1
• LOGANWover 1
• luongha.ktqd 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 16
• Quang_Hải 7
• vietdang170 5
• Gà Con yêu VBA 4
• pycckuu410 3
• chiendich 3
• DeTong 3
• Phuocam 3
• Officexinh 2
• HUONGHCKT 2
• HieuCD 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Giải thích, gỡ rối, xử lý lỗi công thức

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom