Minh Tiên > 29-10-20, 11:16 AM
Function Insert_iCon(oExcelWrSht As Object, StrRange As String)
With oExcelWrSht.Range(StrRange).Select
Selection.FormatConditions.AddIconSetCondition
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .Selection.FormatConditions(1)
.ReverseOrder = False
.ShowIconOnly = False
.IconSet = ActiveWorkbook.IconSets(xl3Arrows)
End With
Selection.FormatConditions(1).IconCriteria(1).Icon = xlIconRedDownArrow
With .Selection.FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 7
.Icon = xlIconYellowDash
End With
With .Selection.FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 5
.Icon = xlIconGreenUpArrow
End With
End With
End FunctionMinh Tiên > 29-10-20, 06:01 PM
Function Format_iConTangGiam(oExcelWrSht As Object, StrRange As String)
With oExcelWrSht.Range(StrRange)
.FormatConditions.Delete
.FormatConditions.AddIconSetCondition
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.ReverseOrder = False
.ShowIconOnly = False
.IconSet = .Application.ActiveWorkbook.IconSets(xl3Arrows)
End With
.FormatConditions(1).IconCriteria(1).Icon = xlIconRedDownArrow
With .FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 7
.Icon = xlIconYellowDash
End With
With .FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 5
.Icon = xlIconGreenUpArrow
End With
End With
End FunctionPublic Const xl3Arrows = 1
Public Const xlIconRedDownArrow = 3
Public Const xlIconGreenUpArrow = 1
Public Const xlConditionValueNumber = 0
Public Const xlIconYellowDash = 46ongke0711 > 29-10-20, 06:33 PM
Xuân Thanh > 31-10-20, 03:47 PM
Minh Tiên > 03-11-20, 09:47 AM
(29-10-20, 06:33 PM)ongke0711 Đã viết: Bạn không tính xuất ra một template Excel với các định dạng sẳn cho nhanh à? Hay dữ liệu xuất này không cố định cột?
ongke0711 > 03-11-20, 08:50 PM
(03-11-20, 09:47 AM)Minh Tiên Đã viết: Hiện do có thể phải xuất một hay nhiều nội dung (Mỗi nội dung có thể ở 1 sheet hoặc nhiều sheet - Tùy theo yêu cầu (Khai báo dòng xuất và cột xuất), sau khi xuất sẽ format, sum, hightight, set icon biểu thị cho tăng giảm, ...) nên mình tạo nhiều class, mỗi class đảm nhiệm một nội dung.
Hiện đã xuất thành công theo yêu cầu. Tuy nhiên mỗi class khi xuất phải mở/tạo Excel => Xuất => Lưu => Đóng nên chương trình nên còn chậm nếu chọn xuất 1 lúc nhiều nội dung.
thuyyeu99 > 03-11-20, 09:32 PM
(03-11-20, 08:50 PM)ongke0711 Đã viết:Lâu lâu rảnh Comment hihi, anh nói em cũng cùng quan điểm, @minh tiên nói em chưa hình dung tới độ phúc tạp nó ra làm sao em cũng tò mò quá(03-11-20, 09:47 AM)Minh Tiên Đã viết: Hiện do có thể phải xuất một hay nhiều nội dung (Mỗi nội dung có thể ở 1 sheet hoặc nhiều sheet - Tùy theo yêu cầu (Khai báo dòng xuất và cột xuất), sau khi xuất sẽ format, sum, hightight, set icon biểu thị cho tăng giảm, ...) nên mình tạo nhiều class, mỗi class đảm nhiệm một nội dung.
Hiện đã xuất thành công theo yêu cầu. Tuy nhiên mỗi class khi xuất phải mở/tạo Excel => Xuất => Lưu => Đóng nên chương trình nên còn chậm nếu chọn xuất 1 lúc nhiều nội dung.
Bạn rảnh thì cắt, gửi dữ liệu demo về việc xuất nhiều nội dung, nhiều sheet xem thử nhé.