Xóa Styles Rác Trong 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
• Lập Trình với Excel

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. Xóa styles rác trong Excel (1 người xem)

• Thread starter Thread starter Kiều Mạnh
• Ngày gửi Ngày gửi 16/9/16

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

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

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam Xuất phát từ topic Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office Link http://www.giaiphapexcel.com/forum/...s-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office Mạnh có nghiên cứu lại một loạt bài của Bạn doveandrose và Anh ndu96081631 Link http://www.giaiphapexcel.com/forum/showthread.php?108310-V%E1%BB%8Dc-ch%C6%A1i-v%E1%BB%9Bi-nh%E1%BB%AFng-thu%E1%BA%ADt-to%C3%A1n-n%C3%A9n-v%C3%A0-gi%E1%BA%A3i-n%C3%A9n-file Sau khi nghiên cứu thuật toán winrar từ loạt bài link trên để phục phụ cho mục đích Viết Add-Ins Ribbon thì mình bất chợt nhận ra rằng nó có liên quan và xử lý tốt cho styles mà doveandrose và Anh ndu96081631 đã viết ở topic đó ....vậy Mình mượn hai Hàm của doveandrose và Anh ndu96081631 Và viết thêm 1 hàm nữa ngắn gọn để xử lý styles rác thấy hiệu quả Úp lên cho Bạn nào cần thì tải về mà xài ....chạy tốt trên mọi Win32 & 64 bit Nếu Bạn doveandrose và Anh ndu96081631 .... Có ghé qua thì Chấm điểm dùm đồ đệ theo hai thầy học thuật toán Winrar Nộp bài liệu có được 5 điểm chăng .... Xin cảm ơn 2 thầy với loạt bài Vọc chơi với những thuật toán nén và giải nén file Code Của Bạn doveandrose Mã: Sao chép. Private Function ClearStyleXML(ByVal xmlFile As String) As Boolean Dim doc As Object, xNode, n As Long ''// Copy Form doveandrose - www.giaiphapexcel.com Set doc = CreateObject("Microsoft.XMLDOM") doc.Load xmlFile For Each xNode In doc.SelectNodes("/styleSheet/cellStyles/cellStyle") If TypeName(xNode.Attributes.getNamedItem("builtinId")) = "Nothing" Then xNode.ParentNode.RemoveChild xNode n = n + 1 End If Next If n > 0 Then UniMsgbox "Da xoa xong " & n & " styles rác" doc.Save xmlFile ClearStyleXML = True Else ClearStyleXML = False UniMsgbox "Không có styles rác nào" End If Set doc = Nothing End Function Code Của Anh ndu96081631 Mã: Sao chép. Private Function ClearStylesFromXML(ByVal xmlFile As String) As Boolean Dim Params As String, FileName As String, StartDir As String, Ext As String Dim text1 As String, text2 As String, text3 As String Dim Arr, aBuiltInYes(), aBuiltInNo() ''// Copy Form ndu96081631 - www.giaiphapexcel.com Dim lBuiltInYes As Long, lBuiltInNo As Long, i As Long, lPos_Start As Long, lPos_End As Long Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") 'On Error Resume Next With Fso If Not .FileExists(xmlFile) Then Exit Function If .GetFile(xmlFile).Name <> "styles.xml" Then Exit Function With .OpenTextFile(xmlFile) text1 = .ReadAll .Close End With lPos_Start = InStr(1, text1, "<cellStyle name=") lPos_End = InStr(1, text1, "</cellStyles>") text2 = Mid(text1, lPos_Start, lPos_End - lPos_Start) text3 = Replace(text2, "/><", "/>" & vbLf & "<") Arr = Split(text3, vbLf) For i = LBound(Arr) To UBound(Arr) If InStr(1, Arr(i), "builtinId") Then lBuiltInYes = lBuiltInYes + 1 ReDim Preserve aBuiltInYes(1 To lBuiltInYes) aBuiltInYes(lBuiltInYes) = Arr(i) Else lBuiltInNo = lBuiltInNo + 1 ReDim Preserve aBuiltInNo(1 To lBuiltInNo) aBuiltInNo(lBuiltInNo) = Arr(i) End If Next If lBuiltInNo Then text1 = Replace(text1, text2, Join(aBuiltInYes, "")) .CreateTextFile(xmlFile, True).Write text1 MsgBox "Da xoa xong " & lBuiltInNo & " styles rác" ClearStylesFromXML = True Else MsgBox "Không có styles rác nào" ClearStylesFromXML = False End If End With Set Fso = Nothing End Function Code Kiều Mạnh Mã: Sao chép. Private Sub Deletestyles(ByVal FileExcel As String) Dim Fso As Object, ObjShell As Object, Ext As String Dim FileName_Path, ZipFile, xml As String ''// Coded by Kieu Manh - www.giaiphapexcel.com ZipFile = FileExcel & ".zip" Set ObjShell = CreateObject("Shell.Application") Set Fso = CreateObject("Scripting.FileSystemObject") FileName_Path = Fso.GetParentFolderName(FileExcel) xml = FileName_Path & "\styles.xml" Ext = Fso.GetExtensionName(FileExcel) If (UCase(Ext) <> "XLSX") And (UCase(Ext) <> "XLSM") And (UCase(Ext) <> "XLAM") Then Exit Sub If Fso.FileExists(FileExcel) Then Fso.MoveFile FileExcel, FileExcel & ".zip" ObjShell.Namespace(FileName_Path).movehere ObjShell.Namespace(ZipFile).items.Item("xl\styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Rem If ClearStyleXML(xml) Then ''//Ok 1 If ClearStylesFromXML(xml) Then ''//Ok 2 ....Thuy thich xai Ham tren hay duoi cung OK ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Else ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel Exit Sub End If Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel UniMsgbox "done" End If Set ObjShell = Nothing Set Fso = Nothing End Sub Giải nén ra trong Folder có: 1/ 1 Filestyles.rar là file có nhiều styles rác mà test 2/ Trong Folder có 1 file ClearStyles Office Excel.exe rành cho Bạn nào chưa biết bật Mắt Rô thì chạy file đó cho nó gọn chức năng như file ClearStyles Office Excel.xlsm 3/ Mình Bổ sung thêm xử lý 2 Loại File Excel nữa là 5 Loại File :: *.xls; *.xlsx;*.xlsm;*.xlsb;*.xlam Tải File ClearStyles Office Excel_Ver2.rar

File đính kèm

• ClearStyles Office Excel.rar ClearStyles Office Excel.rar 812.1 KB · Đọc: 628
• Clear Styles Office Excel Ver2.rar Clear Styles Office Excel Ver2.rar 640.3 KB · Đọc: 861

Lần chỉnh sửa cuối: 19/9/16 Sắp xếp theo thời gian sắp xếp theo bầu chọn

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,978

kieu manh đã viết: Mạnh có nghiên cứu lại một loạt bài của Bạn doveandrose và Anh ndu96081631 Link http://www.giaiphapexcel.com/forum/showthread.php?108310-V%E1%BB%8Dc-ch%C6%A1i-v%E1%BB%9Bi-nh%E1%BB%AFng-thu%E1%BA%ADt-to%C3%A1n-n%C3%A9n-v%C3%A0-gi%E1%BA%A3i-n%C3%A9n-file Sau khi nghiên cứu thuật toán winrar từ loạt bài link trên để phục phụ cho mục đích Viết Add-Ins Ribbon thì mình bất chợt nhận ra rằng nó có liên quan và xử lý tốt cho styles mà doveandrose và Anh ndu96081631 đã viết ở topic đó ....vậy Mình mượn hai Hàm của doveandrose và Anh ndu96081631 Nhấp chuột vào đây để mở rộng...

Cuối cùng cũng có người biết vận dụng. Cảm ơn Mạnh! Thì tôi mở topic đó nhằm mục đích này đây. Tại lúc đó mọi người không để ý thôi (chỉ tôi với anh Rô "diễn" qua lại cũng... chán) Nói chung là bất cứ thứ gì có liên quan đến việc xử lý file xml đều có thể suy nghĩ được Thậm chí tôi còn có ý định xa hơn: Viết Ribbon trực tiếp trong VBA luôn. Mạnh thử nghiên cứu xem ---------------------------------- (Thời gian này tôi bận quá, chỉ lên GPE xem sơ qua chứ không kịp làm được gì cả) Lần chỉnh sửa cuối: 17/9/16 Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

ndu96081631 đã viết: Cuối cùng cũng có người biết vận dụng. Cảm ơn Mạnh! Thì tôi mở topic đó nhằm mục đích này đây. Tại lúc đó mọi người không để ý thôi (chỉ tôi với anh Rô "diễn" qua lại cũng... chán) Nói chung là bất cứ thứ gì có liên quan đến việc xử lý file xml đều có thể suy nghĩ được Thậm chí tôi còn có ý định xa hơn: Viết Ribbon trực tiếp trong VBA luôn. Mạnh thử nghiên cứu xem ---------------------------------- (Thời gian này tôi bận quá, chỉ lên GPE xem sơ qua chứ không kịp làm được gì cả) Nhấp chuột vào đây để mở rộng...

Em mong khi nào Anh rãnh Nghiên cứu dòng màu đỏ cho Em theo học Với ...giờ trình độ code két của Em khá hơn một chút ....chắc sẻ không để anh diễn một mình đâu... Cảm Ơn Anh Upvote 0 L

lehaphuong03

Thành viên mới

Tham gia 10/11/11 Bài viết 3 Được thích 0

kieu manh đã viết: Code két khá hơn Mạnh mà keo lớn vậy .............. Còn vận dụng có nói hết rồi đó .... kẹt cái chi cứ nói nếu trong khả năng của Mạnh thì sẻ nói Nhấp chuột vào đây để mở rộng...

Anh kieu manh có thể code để chạy trên macOS giúp em được không? Em cám ơn. Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

lehaphuong03 đã viết: Anh kieu manh có thể code để chạy trên macOS giúp em được không? Em cám ơn. Nhấp chuột vào đây để mở rộng...

Thua ....................... Mạnh có xài macOS đâu mà biết code két sao .............. e rằng code trên macOS trên GPE này rất hiếm người biết đó, có thể có nhưng hiếm lắm Upvote 0 L

lehaphuong03

Thành viên mới

Tham gia 10/11/11 Bài viết 3 Được thích 0

kieu manh đã viết: Thua ....................... Mạnh có xài macOS đâu mà biết code két sao .............. e rằng code trên macOS trên GPE này rất hiếm người biết đó, có thể có nhưng hiến lắm Nhấp chuột vào đây để mở rộng...

hoặc core chạy VBA cũng được vì em dùng sub này Sub StyleKill() Dim styT As Style Dim intRet As Integer On Error Resume Next For Each styT In ActiveWorkbook.Styles If Not styT.BuiltIn Then If styT.Name <> "1" Then styT.Delete End If Next styT End Sub​thì có một số style ko cách nào xóa được, kể cả xóa bằng tay. File nó đây, anh xem giúp em với, em cám ơn.

File đính kèm

• TD 2500A.xls TD 2500A.xls 44.5 KB · Đọc: 27

Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

lehaphuong03 đã viết: hoặc core chạy VBA cũng được vì em dùng sub này Sub StyleKill() Dim styT As Style Dim intRet As Integer On Error Resume Next For Each styT In ActiveWorkbook.Styles If Not styT.BuiltIn Then If styT.Name <> "1" Then styT.Delete End If Next styT End Sub​thì có một số style ko cách nào xóa được, kể cả xóa bằng tay. File nó đây, anh xem giúp em với, em cám ơn. Nhấp chuột vào đây để mở rộng...

thử coi lại file xem sao

File đính kèm

• TD 2500A.xls TD 2500A.xls 31.5 KB · Đọc: 24

Upvote 0 L

lehaphuong03

Thành viên mới

Tham gia 10/11/11 Bài viết 3 Được thích 0

kieu manh đã viết: thử coi lại file xem sao Nhấp chuột vào đây để mở rộng...

Ý em là nếu em dùng Clear Styles Office Excel Ver2.rar này của anh chạy em xóa sạch được hết nhưng khi dùng trên macOS thì do đây là file exe nên em không chạy được nên em phải dùng code vba em post ở trên để xóa nhưng code này lại không xóa được hết và có một số style xóa bằng tay cũng ko xóa được nên em muốn hỏi anh xem anh có code vba nào xóa được hết không. Em cám ơn. Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

lehaphuong03 đã viết: Ý em là nếu em dùng Clear Styles Office Excel Ver2.rar này của anh chạy em xóa sạch được hết nhưng khi dùng trên macOS thì do đây là file exe nên em không chạy được nên em phải dùng code vba em post ở trên để xóa nhưng code này lại không xóa được hết và có một số style xóa bằng tay cũng ko xóa được nên em muốn hỏi anh xem anh có code vba nào xóa được hết không. Em cám ơn. Nhấp chuột vào đây để mở rộng...

Thì code ở bài #1 đó copy về cứ vậy mà xử lý .... Trong File *.exe code cũng như vây mà tại mình làm vậy cho bạn nào chưa biết Enable Macro sử dụng cho nó thuận tiện thui Upvote 0 L

loc2312new

Thành viên mới

Tham gia 8/9/17 Bài viết 42 Được thích 1 Giới tính Nam Minh đã dùng Clear Styles Office Excel Ver2.rar để xóa styles cho file excel và sau khi chạy xong thì nó thành file.xlsx dạng zip ( như file đính kèm) . giờ làm sao để khôi phục lại file ecxel như ban đầu ak ,

File đính kèm

• XANGXETHANG05 EXCEL 2003.xlsx.zip XANGXETHANG05 EXCEL 2003.xlsx.zip 2.3 MB · Đọc: 6

Upvote 0

suongle2603

Thành viên mới

Tham gia 18/9/19 Bài viết 1 Được thích 0

kieu manh đã viết: Xuất phát từ topic Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office Link http://www.giaiphapexcel.com/forum/showthread.php?118088-Add-Ins-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office Mạnh có nghiên cứu lại một loạt bài của Bạn doveandrose và Anh ndu96081631 Link http://www.giaiphapexcel.com/forum/showthread.php?108310-V%E1%BB%8Dc-ch%C6%A1i-v%E1%BB%9Bi-nh%E1%BB%AFng-thu%E1%BA%ADt-to%C3%A1n-n%C3%A9n-v%C3%A0-gi%E1%BA%A3i-n%C3%A9n-file Sau khi nghiên cứu thuật toán winrar từ loạt bài link trên để phục phụ cho mục đích Viết Add-Ins Ribbon thì mình bất chợt nhận ra rằng nó có liên quan và xử lý tốt cho styles mà doveandrose và Anh ndu96081631 đã viết ở topic đó ....vậy Mình mượn hai Hàm của doveandrose và Anh ndu96081631 Và viết thêm 1 hàm nữa ngắn gọn để xử lý styles rác thấy hiệu quả Úp lên cho Bạn nào cần thì tải về mà xài ....chạy tốt trên mọi Win32 & 64 bit Nếu Bạn doveandrose và Anh ndu96081631 .... Có ghé qua thì Chấm điểm dùm đồ đệ theo hai thầy học thuật toán Winrar Nộp bài liệu có được 5 điểm chăng .... Xin cảm ơn 2 thầy với loạt bài Vọc chơi với những thuật toán nén và giải nén file Code Của Bạn doveandrose Mã: Sao chép. Private Function ClearStyleXML(ByVal xmlFile As String) As Boolean Dim doc As Object, xNode, n As Long ''// Copy Form doveandrose - www.giaiphapexcel.com Set doc = CreateObject("Microsoft.XMLDOM") doc.Load xmlFile For Each xNode In doc.SelectNodes("/styleSheet/cellStyles/cellStyle") If TypeName(xNode.Attributes.getNamedItem("builtinId")) = "Nothing" Then xNode.ParentNode.RemoveChild xNode n = n + 1 End If Next If n > 0 Then UniMsgbox "Da xoa xong " & n & " styles rác" doc.Save xmlFile ClearStyleXML = True Else ClearStyleXML = False UniMsgbox "Không có styles rác nào" End If Set doc = Nothing End Function Code Của Anh ndu96081631 Mã: Sao chép. Private Function ClearStylesFromXML(ByVal xmlFile As String) As Boolean Dim Params As String, FileName As String, StartDir As String, Ext As String Dim text1 As String, text2 As String, text3 As String Dim Arr, aBuiltInYes(), aBuiltInNo() ''// Copy Form ndu96081631 - www.giaiphapexcel.com Dim lBuiltInYes As Long, lBuiltInNo As Long, i As Long, lPos_Start As Long, lPos_End As Long Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") 'On Error Resume Next With Fso If Not .FileExists(xmlFile) Then Exit Function If .GetFile(xmlFile).Name <> "styles.xml" Then Exit Function With .OpenTextFile(xmlFile) text1 = .ReadAll .Close End With lPos_Start = InStr(1, text1, "<cellStyle name=") lPos_End = InStr(1, text1, "</cellStyles>") text2 = Mid(text1, lPos_Start, lPos_End - lPos_Start) text3 = Replace(text2, "/><", "/>" & vbLf & "<") Arr = Split(text3, vbLf) For i = LBound(Arr) To UBound(Arr) If InStr(1, Arr(i), "builtinId") Then lBuiltInYes = lBuiltInYes + 1 ReDim Preserve aBuiltInYes(1 To lBuiltInYes) aBuiltInYes(lBuiltInYes) = Arr(i) Else lBuiltInNo = lBuiltInNo + 1 ReDim Preserve aBuiltInNo(1 To lBuiltInNo) aBuiltInNo(lBuiltInNo) = Arr(i) End If Next If lBuiltInNo Then text1 = Replace(text1, text2, Join(aBuiltInYes, "")) .CreateTextFile(xmlFile, True).Write text1 MsgBox "Da xoa xong " & lBuiltInNo & " styles rác" ClearStylesFromXML = True Else MsgBox "Không có styles rác nào" ClearStylesFromXML = False End If End With Set Fso = Nothing End Function Code Kiều Mạnh Mã: Sao chép. Private Sub Deletestyles(ByVal FileExcel As String) Dim Fso As Object, ObjShell As Object, Ext As String Dim FileName_Path, ZipFile, xml As String ''// Coded by Kieu Manh - www.giaiphapexcel.com ZipFile = FileExcel & ".zip" Set ObjShell = CreateObject("Shell.Application") Set Fso = CreateObject("Scripting.FileSystemObject") FileName_Path = Fso.GetParentFolderName(FileExcel) xml = FileName_Path & "\styles.xml" Ext = Fso.GetExtensionName(FileExcel) If (UCase(Ext) <> "XLSX") And (UCase(Ext) <> "XLSM") And (UCase(Ext) <> "XLAM") Then Exit Sub If Fso.FileExists(FileExcel) Then Fso.MoveFile FileExcel, FileExcel & ".zip" ObjShell.Namespace(FileName_Path).movehere ObjShell.Namespace(ZipFile).items.Item("xl\styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Rem If ClearStyleXML(xml) Then ''//Ok 1 If ClearStylesFromXML(xml) Then ''//Ok 2 ....Thuy thich xai Ham tren hay duoi cung OK ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Else ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel Exit Sub End If Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel UniMsgbox "done" End If Set ObjShell = Nothing Set Fso = Nothing End Sub Giải nén ra trong Folder có: 1/ 1 Filestyles.rar là file có nhiều styles rác mà test 2/ Trong Folder có 1 file ClearStyles Office Excel.exe rành cho Bạn nào chưa biết bật Mắt Rô thì chạy file đó cho nó gọn chức năng như file ClearStyles Office Excel.xlsm 3/ Mình Bổ sung thêm xử lý 2 Loại File Excel nữa là 5 Loại File :: *.xls; *.xlsx;*.xlsm;*.xlsb;*.xlam Tải File ClearStyles Office Excel_Ver2.rar Nhấp chuột vào đây để mở rộng...

Bài đã được tự động gộp: 18/9/19 Cảm ơn anh. Upvote 0 T

thaovt161

Thành viên mới

Tham gia 17/4/20 Bài viết 3 Được thích 0 ca nha oi giup em voi, em khong the luu duoc file sau khi sua va luu lai lai mat het dinh dang a, em cam on,

File đính kèm

• TT đợt 4- gói 6 (PTKD ) T4.2020.rar TT đợt 4- gói 6 (PTKD ) T4.2020.rar 1.3 MB · Đọc: 3

Upvote 0

be_09

Biên Hòa, Đồng Nai

Tham gia 9/4/11 Bài viết 9,972 Được thích 9,884 Nghề nghiệp Công chức

thaovt161 đã viết: ca nha oi giup em voi, em khong the luu duoc file sau khi sua va luu lai lai mat het dinh dang a, em cam on, Nhấp chuột vào đây để mở rộng...

Góp ý cho bạn: 1/ Bạn nên viết bài bằng tiếng Việt có dấu đầy đủ. 2/ Bạn nên viết bài đúng mục (box) và đúng chủ đề của topic. Có nghĩa là bạn hỏi về "lưu File bị mất định dạng" trong khi đó chủ đề của Topic này là "Xóa styles rác trong Excel" (sai với chủ đề của Topic) có thể sẽ vi phạm nội quy. 3/ Bạn nên vào hỏi tiếp trong Topic sau (vì có cùng chủ đề): File Excel bị mất định dạng sau khi lưu và đóng lại 4/ Bạn đọc lại nội quy để hiểu: Upvote 0 V

vuongdanhthang

Thành viên mới

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

Kiều Mạnh đã viết: Xuất phát từ topic Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office Link http://www.giaiphapexcel.com/forum/showthread.php?118088-Add-Ins-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office Mạnh có nghiên cứu lại một loạt bài của Bạn doveandrose và Anh ndu96081631 Link http://www.giaiphapexcel.com/forum/showthread.php?108310-V%E1%BB%8Dc-ch%C6%A1i-v%E1%BB%9Bi-nh%E1%BB%AFng-thu%E1%BA%ADt-to%C3%A1n-n%C3%A9n-v%C3%A0-gi%E1%BA%A3i-n%C3%A9n-file Sau khi nghiên cứu thuật toán winrar từ loạt bài link trên để phục phụ cho mục đích Viết Add-Ins Ribbon thì mình bất chợt nhận ra rằng nó có liên quan và xử lý tốt cho styles mà doveandrose và Anh ndu96081631 đã viết ở topic đó ....vậy Mình mượn hai Hàm của doveandrose và Anh ndu96081631 Và viết thêm 1 hàm nữa ngắn gọn để xử lý styles rác thấy hiệu quả Úp lên cho Bạn nào cần thì tải về mà xài ....chạy tốt trên mọi Win32 & 64 bit Nếu Bạn doveandrose và Anh ndu96081631 .... Có ghé qua thì Chấm điểm dùm đồ đệ theo hai thầy học thuật toán Winrar Nộp bài liệu có được 5 điểm chăng .... Xin cảm ơn 2 thầy với loạt bài Vọc chơi với những thuật toán nén và giải nén file Code Của Bạn doveandrose Mã: Sao chép. Private Function ClearStyleXML(ByVal xmlFile As String) As Boolean Dim doc As Object, xNode, n As Long ''// Copy Form doveandrose - www.giaiphapexcel.com Set doc = CreateObject("Microsoft.XMLDOM") doc.Load xmlFile For Each xNode In doc.SelectNodes("/styleSheet/cellStyles/cellStyle") If TypeName(xNode.Attributes.getNamedItem("builtinId")) = "Nothing" Then xNode.ParentNode.RemoveChild xNode n = n + 1 End If Next If n > 0 Then UniMsgbox "Da xoa xong " & n & " styles rác" doc.Save xmlFile ClearStyleXML = True Else ClearStyleXML = False UniMsgbox "Không có styles rác nào" End If Set doc = Nothing End Function Code Của Anh ndu96081631 Mã: Sao chép. Private Function ClearStylesFromXML(ByVal xmlFile As String) As Boolean Dim Params As String, FileName As String, StartDir As String, Ext As String Dim text1 As String, text2 As String, text3 As String Dim Arr, aBuiltInYes(), aBuiltInNo() ''// Copy Form ndu96081631 - www.giaiphapexcel.com Dim lBuiltInYes As Long, lBuiltInNo As Long, i As Long, lPos_Start As Long, lPos_End As Long Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") 'On Error Resume Next With Fso If Not .FileExists(xmlFile) Then Exit Function If .GetFile(xmlFile).Name <> "styles.xml" Then Exit Function With .OpenTextFile(xmlFile) text1 = .ReadAll .Close End With lPos_Start = InStr(1, text1, "<cellStyle name=") lPos_End = InStr(1, text1, "</cellStyles>") text2 = Mid(text1, lPos_Start, lPos_End - lPos_Start) text3 = Replace(text2, "/><", "/>" & vbLf & "<") Arr = Split(text3, vbLf) For i = LBound(Arr) To UBound(Arr) If InStr(1, Arr(i), "builtinId") Then lBuiltInYes = lBuiltInYes + 1 ReDim Preserve aBuiltInYes(1 To lBuiltInYes) aBuiltInYes(lBuiltInYes) = Arr(i) Else lBuiltInNo = lBuiltInNo + 1 ReDim Preserve aBuiltInNo(1 To lBuiltInNo) aBuiltInNo(lBuiltInNo) = Arr(i) End If Next If lBuiltInNo Then text1 = Replace(text1, text2, Join(aBuiltInYes, "")) .CreateTextFile(xmlFile, True).Write text1 MsgBox "Da xoa xong " & lBuiltInNo & " styles rác" ClearStylesFromXML = True Else MsgBox "Không có styles rác nào" ClearStylesFromXML = False End If End With Set Fso = Nothing End Function Code Kiều Mạnh Mã: Sao chép. Private Sub Deletestyles(ByVal FileExcel As String) Dim Fso As Object, ObjShell As Object, Ext As String Dim FileName_Path, ZipFile, xml As String ''// Coded by Kieu Manh - www.giaiphapexcel.com ZipFile = FileExcel & ".zip" Set ObjShell = CreateObject("Shell.Application") Set Fso = CreateObject("Scripting.FileSystemObject") FileName_Path = Fso.GetParentFolderName(FileExcel) xml = FileName_Path & "\styles.xml" Ext = Fso.GetExtensionName(FileExcel) If (UCase(Ext) <> "XLSX") And (UCase(Ext) <> "XLSM") And (UCase(Ext) <> "XLAM") Then Exit Sub If Fso.FileExists(FileExcel) Then Fso.MoveFile FileExcel, FileExcel & ".zip" ObjShell.Namespace(FileName_Path).movehere ObjShell.Namespace(ZipFile).items.Item("xl\styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Rem If ClearStyleXML(xml) Then ''//Ok 1 If ClearStylesFromXML(xml) Then ''//Ok 2 ....Thuy thich xai Ham tren hay duoi cung OK ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Else ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel Exit Sub End If Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel UniMsgbox "done" End If Set ObjShell = Nothing Set Fso = Nothing End Sub Giải nén ra trong Folder có: 1/ 1 Filestyles.rar là file có nhiều styles rác mà test 2/ Trong Folder có 1 file ClearStyles Office Excel.exe rành cho Bạn nào chưa biết bật Mắt Rô thì chạy file đó cho nó gọn chức năng như file ClearStyles Office Excel.xlsm 3/ Mình Bổ sung thêm xử lý 2 Loại File Excel nữa là 5 Loại File :: *.xls; *.xlsx;*.xlsm;*.xlsb;*.xlam Tải File ClearStyles Office Excel_Ver2.rar Nhấp chuột vào đây để mở rộng...

Chào anh Kiều mạnh. Anh cho em xin code xóa Style rác để em cho vào cái Add-ins tổng hợp của em nhé ạ (em đã mạo muộn cho vào rồi ạ ). Em chuẩn bị dạy học nên làm cái Add-ins này tặng các học viên, em không biết gì về VBA mấy, chủ yếu đi sưu tầm các code anh chị chia sẻ tổng hợp lại thôi ạ. Hôm vừa rồi xem được clip hướng dẫn làm Ribbon menu của anh Lê Duyệt nên đã làm luôn. Em hy vọng Add-ins sẽ giúp cho học viên cũng như người đi làm (nghề QS xây dựng) nâng cao năng suất công việc lên ạ. Em đã làm clip hướng dẫn sử dụng Add-ins có kèm theo đường link tải trong phần mô tả. Gửi tặng các anh chị trên diễn đàn, biết đâu có người cần ạ^^ Link clip giới thiệu Add-ins: Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

vuongdanhthang đã viết: Chào anh Kiều mạnh. Anh cho em xin code xóa Style rác để em cho vào cái Add-ins tổng hợp của em nhé ạ Nhấp chuột vào đây để mở rộng...

Minh úp trên GPE rồi ... tìm đi là thấy ha Upvote 0 V

vuongdanhthang

Thành viên mới

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

Kiều Mạnh đã viết: Minh úp trên GPE rồi ... tìm đi là thấy ha Nhấp chuột vào đây để mở rộng...

Cảm ơn anh, em thấy rồi ạ Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

vuongdanhthang đã viết: Cảm ơn anh, em thấy rồi ạ Nhấp chuột vào đây để mở rộng...

Úp cái Add-ins đó lên cho coi 1 tí đi ... úp cái Video thấy ngại lắm Upvote 0 B

Bluestar092011

Thành viên hoạt động

Tham gia 17/8/15 Bài viết 129 Được thích 148 Giới tính Nam

Kiều Mạnh đã viết: Úp cái Add-ins đó lên cho coi 1 tí đi ... úp cái Video thấy ngại lắm Nhấp chuột vào đây để mở rộng...

@vuongdanhthang đừng dại mà up add-ins lên nhé, bị chê và ném đá ngay. Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

Bluestar092011 đã viết: @vuongdanhthang đừng dại mà up add-ins lên nhé, bị chê và ném đá ngay. Nhấp chuột vào đây để mở rộng...

Mình lại mong cho ai đó ném đá và cầu mong cho họ hack thì code mới tiến bộ được Upvote 0 V

vuongdanhthang

Thành viên mới

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

Kiều Mạnh đã viết: Úp cái Add-ins đó lên cho coi 1 tí đi ... úp cái Video thấy ngại lắm Nhấp chuột vào đây để mở rộng...

Cái video là hướng dẫn sử dụng Add-ins, hơi dài thật vì em sau này phục vụ học viên là sinh viên nên làm rất chi tiết. Em có để link tải ở phần mô tả đó anh. Các anh đừng ném đá em nhé, em có biết code cách gì đâu, toàn học lỏm đi cóp nhặt các anh chia sẻ về tổng hợp lại thôi à. Em up lại lên đây: Link download: https://xaydungthuchanh.vn/downloadtailieu/XDTH_Ribbon Menu_1.0.rar Bài đã được tự động gộp: 7/6/20 Em cũng vừa mới viết xong bài viết hướng dẫn sử dụng, anh chị có thể xem bài viết sẽ nhanh hơn xem video ạ.

Add in Excel XDTH cho dân văn phòng, công cụ không thể thiếu đối với QS - xaydungthuchanh.vn

Add in Excel XDTH dùng kẻ bảng, tính tổng, xử lý dữ liệu xuất từ CAD nhanh chóng hiệu quả... công cụ tuyệt vời danh cho kỹ sư QS xaydungthuchanh.vn Lần chỉnh sửa cuối: 7/6/20 Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,135 Giới tính Nam

vuongdanhthang đã viết: Cái video là hướng dẫn sử dụng Add-ins, hơi dài thật vì em sau này phục vụ học viên là sinh viên nên làm rất chi tiết. Em có để link tải ở phần mô tả đó anh. Các anh đừng ném đá em nhé, em có biết code cách gì đâu, toàn học lỏm đi cóp nhặt các anh chia sẻ về tổng hợp lại thôi à. Em up lại lên đây: Link download: https://xaydungthuchanh.vn/downloadtailieu/XDTH_Ribbon Menu_1.0.rar Bài đã được tự động gộp: 7/6/20 Em cũng vừa mới viết xong bài viết hướng dẫn sử dụng, anh chị có thể xem bài viết sẽ nhanh hơn xem video ạ.

Add in Excel XDTH cho dân văn phòng, công cụ không thể thiếu đối với QS - xaydungthuchanh.vn

Add in Excel XDTH dùng kẻ bảng, tính tổng, xử lý dữ liệu xuất từ CAD nhanh chóng hiệu quả... công cụ tuyệt vời danh cho kỹ sư QS xaydungthuchanh.vn Nhấp chuột vào đây để mở rộng...

Hay đó ... cái khó khăn và dào cản lớn nhất của mỗi con người là ko dám nhìn nhận cái mặt trái và góc khuất của chính mình hay nổi khùng khi ai đó phê phán hay phản biện ... hãy cố giắng lên vượt lên tất cả và chứng minh rằng code tui viết ra là ko có của ném đá hay chê bai này nọ ... đó mới tạo nên đẳng cấp vượt thời gian Upvote 0 V

vuongdanhthang

Thành viên mới

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

Kiều Mạnh đã viết: Hay đó ... cái khó khăn và dào cản lớn nhất của mỗi con người là ko dám nhìn nhận cái mặt trái và góc khuất của chính mình hay nổi khùng khi ai đó phê phán hay phản biện ... hãy cố giắng lên vượt lên tất cả và chứng minh rằng code tui viết ra là ko có của ném đá hay chê bai này nọ ... đó mới tạo nên đẳng cấp vượt thời gian Nhấp chuột vào đây để mở rộng...

Em cảm ơn anh đã động viên em ạ^^ Upvote 0 D

dinhduy

Thành viên hoạt động

Tham gia 24/11/07 Bài viết 175 Được thích 82

Kiều Mạnh đã viết: Xuất phát từ topic Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office Link http://www.giaiphapexcel.com/forum/showthread.php?118088-Add-Ins-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office Mạnh có nghiên cứu lại một loạt bài của Bạn doveandrose và Anh ndu96081631 Link http://www.giaiphapexcel.com/forum/showthread.php?108310-V%E1%BB%8Dc-ch%C6%A1i-v%E1%BB%9Bi-nh%E1%BB%AFng-thu%E1%BA%ADt-to%C3%A1n-n%C3%A9n-v%C3%A0-gi%E1%BA%A3i-n%C3%A9n-file Sau khi nghiên cứu thuật toán winrar từ loạt bài link trên để phục phụ cho mục đích Viết Add-Ins Ribbon thì mình bất chợt nhận ra rằng nó có liên quan và xử lý tốt cho styles mà doveandrose và Anh ndu96081631 đã viết ở topic đó ....vậy Mình mượn hai Hàm của doveandrose và Anh ndu96081631 Và viết thêm 1 hàm nữa ngắn gọn để xử lý styles rác thấy hiệu quả Úp lên cho Bạn nào cần thì tải về mà xài ....chạy tốt trên mọi Win32 & 64 bit Nếu Bạn doveandrose và Anh ndu96081631 .... Có ghé qua thì Chấm điểm dùm đồ đệ theo hai thầy học thuật toán Winrar Nộp bài liệu có được 5 điểm chăng .... Xin cảm ơn 2 thầy với loạt bài Vọc chơi với những thuật toán nén và giải nén file Code Của Bạn doveandrose Mã: Sao chép. Private Function ClearStyleXML(ByVal xmlFile As String) As Boolean Dim doc As Object, xNode, n As Long ''// Copy Form doveandrose - www.giaiphapexcel.com Set doc = CreateObject("Microsoft.XMLDOM") doc.Load xmlFile For Each xNode In doc.SelectNodes("/styleSheet/cellStyles/cellStyle") If TypeName(xNode.Attributes.getNamedItem("builtinId")) = "Nothing" Then xNode.ParentNode.RemoveChild xNode n = n + 1 End If Next If n > 0 Then UniMsgbox "Da xoa xong " & n & " styles rác" doc.Save xmlFile ClearStyleXML = True Else ClearStyleXML = False UniMsgbox "Không có styles rác nào" End If Set doc = Nothing End Function Code Của Anh ndu96081631 Mã: Sao chép. Private Function ClearStylesFromXML(ByVal xmlFile As String) As Boolean Dim Params As String, FileName As String, StartDir As String, Ext As String Dim text1 As String, text2 As String, text3 As String Dim Arr, aBuiltInYes(), aBuiltInNo() ''// Copy Form ndu96081631 - www.giaiphapexcel.com Dim lBuiltInYes As Long, lBuiltInNo As Long, i As Long, lPos_Start As Long, lPos_End As Long Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") 'On Error Resume Next With Fso If Not .FileExists(xmlFile) Then Exit Function If .GetFile(xmlFile).Name <> "styles.xml" Then Exit Function With .OpenTextFile(xmlFile) text1 = .ReadAll .Close End With lPos_Start = InStr(1, text1, "<cellStyle name=") lPos_End = InStr(1, text1, "</cellStyles>") text2 = Mid(text1, lPos_Start, lPos_End - lPos_Start) text3 = Replace(text2, "/><", "/>" & vbLf & "<") Arr = Split(text3, vbLf) For i = LBound(Arr) To UBound(Arr) If InStr(1, Arr(i), "builtinId") Then lBuiltInYes = lBuiltInYes + 1 ReDim Preserve aBuiltInYes(1 To lBuiltInYes) aBuiltInYes(lBuiltInYes) = Arr(i) Else lBuiltInNo = lBuiltInNo + 1 ReDim Preserve aBuiltInNo(1 To lBuiltInNo) aBuiltInNo(lBuiltInNo) = Arr(i) End If Next If lBuiltInNo Then text1 = Replace(text1, text2, Join(aBuiltInYes, "")) .CreateTextFile(xmlFile, True).Write text1 MsgBox "Da xoa xong " & lBuiltInNo & " styles rác" ClearStylesFromXML = True Else MsgBox "Không có styles rác nào" ClearStylesFromXML = False End If End With Set Fso = Nothing End Function Code Kiều Mạnh Mã: Sao chép. Private Sub Deletestyles(ByVal FileExcel As String) Dim Fso As Object, ObjShell As Object, Ext As String Dim FileName_Path, ZipFile, xml As String ''// Coded by Kieu Manh - www.giaiphapexcel.com ZipFile = FileExcel & ".zip" Set ObjShell = CreateObject("Shell.Application") Set Fso = CreateObject("Scripting.FileSystemObject") FileName_Path = Fso.GetParentFolderName(FileExcel) xml = FileName_Path & "\styles.xml" Ext = Fso.GetExtensionName(FileExcel) If (UCase(Ext) <> "XLSX") And (UCase(Ext) <> "XLSM") And (UCase(Ext) <> "XLAM") Then Exit Sub If Fso.FileExists(FileExcel) Then Fso.MoveFile FileExcel, FileExcel & ".zip" ObjShell.Namespace(FileName_Path).movehere ObjShell.Namespace(ZipFile).items.Item("xl\styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Rem If ClearStyleXML(xml) Then ''//Ok 1 If ClearStylesFromXML(xml) Then ''//Ok 2 ....Thuy thich xai Ham tren hay duoi cung OK ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do While ObjShell.Namespace(ZipFile & "\xl\") Is Nothing Application.Wait (Now + 0.000005) Loop Else ObjShell.Namespace(ZipFile & "\xl\").movehere ObjShell.Namespace(FileName_Path).items.Item("styles.xml") Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel Exit Sub End If Do Until Not Fso.FileExists(xml) Application.Wait (Now + 0.000005) Loop Fso.MoveFile FileExcel & ".zip", FileExcel UniMsgbox "done" End If Set ObjShell = Nothing Set Fso = Nothing End Sub Giải nén ra trong Folder có: 1/ 1 Filestyles.rar là file có nhiều styles rác mà test 2/ Trong Folder có 1 file ClearStyles Office Excel.exe rành cho Bạn nào chưa biết bật Mắt Rô thì chạy file đó cho nó gọn chức năng như file ClearStyles Office Excel.xlsm 3/ Mình Bổ sung thêm xử lý 2 Loại File Excel nữa là 5 Loại File :: *.xls; *.xlsx;*.xlsm;*.xlsb;*.xlam Tải File ClearStyles Office Excel_Ver2.rar Nhấp chuột vào đây để mở rộng...

Không biết Bác còn nghiên cứu vấn đề này không ah Em chạy thử có 2 trường hợp cho 2 File khác nhau cho kết quả như sau: - Tập tin 01.xlsb ClearStyles thì thành công (vẫn là 01.xlsb), chuyển qua 01.xlsm không hề bị lỗi gì hết - Tập tin 02.xlsb ClearStyles thì thành công (vẫn là 01.xlsb - bị lỗi mất toàn bộ định dạng), nhưng khi chuyển qua 02.xlsm (File gốc 02.xlsb) ClearStyles không hề bị lỗi gì hết (vẫn là 02.xlsm), 02.xlsm đã ClearStyles chuyển qua lại 02.xlsb thì vẫn bị lỗi mất toàn bộ định dạng Em cám ơn ! Upvote 0 B

big_goat

Thành viên mới

Tham gia 29/7/24 Bài viết 1 Được thích 0

Kiều Mạnh đã viết: Thì code ở bài #1 đó copy về cứ vậy mà xử lý .... Trong File *.exe code cũng như vây mà tại mình làm vậy cho bạn nào chưa biết Enable Macro sử dụng cho nó thuận tiện thbạn Nhấp chuột vào đây để mở rộng...

Bạn cho mình hỏi làm sao để build thành file exe được vậy? mình có dùng phần mềm nào không? Upvote 0 K

kampria_328

Thành viên mới

Tham gia 22/5/23 Bài viết 29 Được thích 10 bác Mạnh có kinh nghiệm viết xll sdk c/c++, share cho ae chút coi Upvote 0 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

K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 6 Đọc 117 53 phút trước ptm0412 M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Hôm nay lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 70 Hôm nay lúc 17:38 SA_DQ Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 10 Đọc 817 Hôm nay lúc 15:54 thaodang88 T P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Hôm nay lúc 15:15
• Hàm và công thức Excel

Trả lời 0 Đọc 28 Hôm nay lúc 15:15 ptthuongtn P Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Hôm nay lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 53 Hôm nay lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 280 Hôm nay lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 368 Hôm nay lúc 10:20 dieppk.nb92 D Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 17 Đọc 503 Hôm nay lúc 09:21 anhtuanle123 A CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 841 Hôm nay lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (2 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 152 Hôm qua, lúc 13:59 phamdinh.huy.aladin@gmail P D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 295 Hôm qua, lúc 09:00 ptm0412

• Question Question

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

• • 
  • 
  • 

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

4 5 6 Trả lời 580 Đọc 82K Hôm qua, lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10 (1 người xem)

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 528 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 156 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 127 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 161 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 145 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 813 Thứ bảy lúc 10:43 Cúc Hr C 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

• Maika8008 33
• thanthanhan 21
• dungpham01 19
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• ptm0412 14
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• dieppk.nb92 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

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

• Phan Thế Hiệp 63
• Maika8008 26
• thanthanhan 18
• ongke0711 17
• ptm0412 15
• HeSanbi 12
• dungpham01 11
• HUONGHCKT 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• befaint 5
• Mr.hieudoanxd 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• SA_DQ 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 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
• Lập Trình với Excel

• 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