Phần mềm nhập liệu và tổng hợp báo cáo theo nhiều tiêu chí

Phần mềm nhập liệu và tổng hợp báo cáo theo nhiều tiêu chí

HƯỚNG DẪN VIẾT CODE CHÈN HÌNH VÀO WORKSHEET LÀM BÁO GIÁ

HƯỚNG DẪN VIẾT CODE CHÈN HÌNH VÀO WORKSHEET LÀM BÁO GIÁ

Phần mềm tách File và gửi Email hàng loạt cho nhiều người, không dùng OutLook

- Chào các bạn, hôm nay mình sẽ giới thiệu với các bạn Phần mềm tách file và Gửi Email hàng loạt cho khách hàng hoặc nhân viên mà không dùng OutLook, cụ thể các bạn xem Video bên dưới, nếu các bạn có nhu cầu hãy liên hệ với mình: facebook + zalo + skype : 0933558229

Khóa học Excel từ cơ bản đến nâng cao FREE 100%

BÀI 1. GIỚI THIỆU TỔNG QUAN VỀ EXCEL, GIAO DIỆN CHỨC NĂNG VÀ CÁC THAO TÁC CƠ BẢN TRONG EXCEL

Tổng hợp các dữ liệu Trùng và Cộng Dồn Theo điều kiện

- Đây là yêu cầu của đề bài:

- và đây là kết quả cần xuất ra

- Code:

-----------------------------------------------------------------------------------------------------------------

Sub UniqueData()

    Dim dongcuoi As Long, arrdata As Variant, dic As Object

    Dim i As Long, kq As Variant, k As Long, j As Byte

    Set dic = CreateObject("Scripting.Dictionary")

    With Sheet1

        dongcuoi = .Range("b65536").End(3).Row

        arrdata = .Range("b2:E" & dongcuoi).Value

    End With

    For i = 1 To UBound(arrdata)

        dic(arrdata(i, 1) & arrdata(i, 2)) = ""

    Next i

    ReDim kq(1 To dic.Count, 1 To 4)

    dic.RemoveAll

    For i = 1 To UBound(arrdata)

        If Not dic.exists(arrdata(i, 1) & arrdata(i, 2)) Then

            k = k + 1

            dic.Add arrdata(i, 1) & arrdata(i, 2), k

            For j = 1 To 4

                kq(k, j) = arrdata(i, j)

            Next j

        Else

            kq(dic.Item(arrdata(i, 1) & arrdata(i, 2)), 3) = _

                kq(dic.Item(arrdata(i, 1) & arrdata(i, 2)), 3) + arrdata(i, 3)

            kq(dic.Item(arrdata(i, 1) & arrdata(i, 2)), 4) = _

                kq(dic.Item(arrdata(i, 1) & arrdata(i, 2)), 4) + arrdata(i, 4)

        End If

    Next i

    With Sheet2

        .Range("2:65536").ClearContents

        .Range("B2").Resize(k, 4).Value = kq

    End With
    msgbox "Done!"

End Sub

-----------------------------------------------------------------------------------------------------------------

- Cách thực hiện: các bạn tạo 1 nút bấm và gán macro cho nó, như video bên dưới:

Lấy đường dẫn của những thư mục đặc biệt

- Các bạn thay &H1A& thành các đường dẫn đặc biệt bên dưới nhé

Sub Test()
Dim KhoiTao, ThuMuc, DoiTuong
Set KhoiTao = CreateObject("Shell.Application")
Set ThuMuc = KhoiTao.Namespace(&H1A&)
Set DoiTuong = ThuMuc.Self
MsgBox DoiTuong.Path
Set KhoiTao = Nothing
Set ThuMuc = Nothing
Set DoiTuong = Nothing
End Sub

3. &H1& Internet Explorer
4. &H2& Programs
5. &H3& Control Panel
6. &H4& Printers and Faxes
7. &H5& My Documents
8. &H6& Favorites
9. &H7& Startup
10. &H8& My Recent Documents
11. &H9& SendTo
12. &Ha& Recycle Bin
13. &Hb& Start Menu
14. &Hd& My Music
15. &He& My Videos
16. &H10& Desktop
17. &H11& My Computer
18. &H12& My Network Places
19. &H13& NetHood
20. &H14& Fonts
21. &H15& Templates
22. &H16& All Users Start Menu
23. &H17& All Users Programs
24. &H18& All Users Startup
25. &H19& All Users Desktop
26. &H1a& Application Data
27. &H1b& PrintHood
28. &H1c& Local Settings\Application Data
29. &H19& All Users Favorites
30. &H20& Local Settings\ Temporary Internet Files
31. &H21& Cookies
32. &H22& Local Settings\History
33. &H23& All Users Application Data
34. &H24& Windows
35. &H25& System32
36. &H26& Program Files
37. &H27& My Pictures
38. &H28& User Profile
39. &H2b& Common Files
40. &H2e& All Users Templates
41. &H2f& Administrative Tools
42. &H31& Network Connections

Lấy một số thông tin của máy tính bằng hàm Environ

- Các bạn có thể tìm hiểu thêm 1 số tham số khác của hàm Environ

Private Sub test()
MsgBox "USERNAME: " & Environ("USERNAME") & vbNewLine & "COMPUTERNAME: " & Environ("COMPUTERNAME") _
& vbNewLine & "WINDIR: " & Environ("WINDIR") & vbNewLine & "TEMP: " & Environ("TEMP")
End Sub

Chuyển column dạng số sang dạng chữ và ngược lại

- Trong thực tế khi lập trình VBA trong Excel đôi khi chúng ta cần chuyển Coumn Header từ dạng số sang dạng chữ để thao tác với Hàm Range , hoặc trường hợp ta thao tác với Cells thì có thể sử dụng dạng số chẳng hạn, thì hôm nay mình xin tổng hợp lại các cách để thực hiện việc đó:

=> Chuyển Column dạng chữ sang số

Function GetColumnNumber(ByVal strColumnName As String)

GetColumnNumber = Range(strColumnName & "1").Column

End Function

-------------------------------------------------------------------------------------

Function GetColumnNumber2(ByVal strColumnName As String)

    Dim i As Integer

    GetColumnNumber2 = 0

    For i = 1 To Len(strColumnName)

        GetColumnNumber2 = (Asc(UCase(Mid(strColumnName, i, 1))) - 64) + GetColumnNumber2 * 26

    Next i

End Function

=> Chuyển column dạng số sang dạng chữ

- Ta nhập vị trí của column (dạng số) vào ô B2:

=LEFT(REPLACE(CELL("address";OFFSET(A1;1;B2-1));1;1;"");FIND("$";REPLACE(CELL("address";OFFSET(A1;1;B2-1));1;1;""))-1)

=IF(MID(ADDRESS(3;B2;;;);3;1)="$";MID(ADDRESS(3;B2;;;);2;1);MID(ADDRESS(3;B2;;;);2;2))

- Viết hàm tự tạo:

Function GetColumnHeader(ByVal ColumnNumber As Integer)

GetColumnHeader = Replace(Replace(Cells(1, ColumnNumber).Address, "1", ""), "$", "")

End Function

--------------------------------------------------------------------------------------

Function GetColumnHeader2(ByVal intColumnNumber As Integer)

GetColumnHeader2 = Split(Cells(1, intColumnNumber).Address, "$")(1)

End Function

-----------------------------------------------------------------------------------------------

Function GetColumnHeader3(ByVal intColumnNumber As Integer) As String

    Dim bColDenom As Byte

    GetColumnHeader3 = ""

    Do

        bColDenom = ((intColumnNumber - 1) Mod 26)

        GetColumnHeader3 = Chr(bColDenom + 65) & GetColumnHeader3

        intColumnNumber = (intColumnNumber - bColDenom) \ 26

    Loop While intColumnNumber > 0

End Function

--------------------------------------------------------------------------------------------------------

Function GetColumnHeader4(intColumnNumber As Integer) As String

    If intColumnNumber > 26 Then

        GetColumnHeader4 = GetColumnHeader4((intColumnNumber - ((intColumnNumber - 1) Mod 26)) / 26) + Chr((intColumnNumber - 1) Mod 26 + 65)

    Else

        GetColumnHeader4 = Chr(intColumnNumber + 64)

    End If

End Function

Chèn Hình Ảnh Tự Động vào Excel bằng VBA

- Để chèn hình ảnh vào trong excel các bạn chuẩn bị 1 thư mục chứa các hình ảnh cần thiết, và 1 file excel cần chèn hình ảnh, sau đó xem video bên dưới để thực hiện.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
    .Name = Target.Address
    .Top = Target.Top
    .Left = Target(, 2).Left
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Height = Target.Height
    .ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub

Nếu Các bạn muốn copy một hình có sẵn trên sheet khác thì có thể copy code bên dưới nhé, và xem video mình họa, ở đây sheet dữ liệu là sheet2, nếu các bạn đặt ở sheet khác thì có thế thay đổi cho phù hợp

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error Resume Next
Target(, 2).Worksheet.Shapes(Target.Address).Delete
On Error GoTo Thoat
With Sheet2
    .Shapes(.Range("data").Find(Target.Value, , xlValues, xlWhole).Value).CopyPicture
End With
ActiveSheet.PasteSpecial
With Selection
    .Name = Target.Address
    .Top = Target.Top
    .Left = Target(, 2).Left
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Height = Target.Height
    .ShapeRange.Width = Target(, 2).Width
End With
Thoat:
Target.Offset(1, 0).Select
End Sub

Thay đổi CodeName bằng code VBA

- Các bạn chép sub Sau và module và chạy, lưu ý phải tick Trust Access to the VBA prọject

ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets("sheet1").CodeName).Name _
= "NewCodeName"

Tách và Ghép Chuỗi thành các cột và ngược lại (Text To Columns Edit)

- Ngày 26/8/2017: Khi các bạn làm việc vơi Họ tên, mà các bạn nhập tên và họ liền nhau khi đó chúng ta cần tách tên sang một cột riêng, và người lại ta đang có 2 cột họ và tên và chúng ta cần gộp lại hoặc ghép các cột khác nhau thành một cột thì tiện ích sau đây sẽ giúp bạn.

Download Addin General: Click Here

Download Addin Edition: Click here

Cách tạo Hyperlink tự động đến các sheet

- Ngày 26/8/2017: giả sử trong file excel ta có rất nhiều sheet, giờ muốn tạo hyperlink đến các sheet đó, nhưng nếu làm thủ công thì rất mất thời gian, các bạn xem video nhé, và download file ở bên dưới

Download: Click Here

Bài 53. Định dạng có điều kiện theo tiến độ bằng Icon

- Ngày 10/8/2017: khi các bạn muốn đánh giá mức độ hoàn thành công việc theo một tiến độ cho trước, mà cụ thể ở đây mình sẽ ví dụ sẽ có 4 mức độ hoàn thành, chúng ta có thể dùng Icon để biểu thị tiến độ

Bài 52.Tính bình lương của các nhân viên trong các Huyện

- Ngày 09/8/2017: Khi các bạn là Sup của một số Vùng và trong Vùng có một số nhân viên, công ty thì đưa ra cách tính lương của bạn là trung bình của lương các nhân viên trong các vùng bạn quản lý, video sau sẽ giải đáp cho bạn:

Bài 51. Tìm số lần xuất hiện của số lớn nhất trong chuỗi số

- Ngày 09/8/2017: Đây là sự kết hợp của các công thức nâng cao trong Excel để thực hiện các yêu cầu về xử lý chuỗi.

Bài 50. Hướng dẫn cơ bản về SaveSetting and GetSetting functions

- Công dụng của 2 hàm này là ĐỌC và GHI thiết đặt vào Registry

- Vị trí đọc ghi  giá trị của chúng trong Registry nằm ở: HKEY_CURRENT_USER\Software\VB and VBA Program Settings

Bài 49. Hướng dẫn chi tiết về Ubound và Lbound

- Ubound và Lbound là 2 hàm trả về kích thước của mảng

LBound(ArrayName, Dimension) 

UBound(ArrayName, Dimension)

- Khi ta viết Lbound(ArrayName) hoặc Ubound(ArrayName) thì Dimension mặc định =1

ArrayName: tên mảng.

Dimension: chiều của mảng cần kiểm tra.

Bài 48. Rút ngắn việc khai báo biến sẽ làm code bạn ngắn hơn

- Nếu các bạn cảm thấy việc khai báo biến quá nhàm chán và dài dòng thì bạn có thể thử viết như sau:
 + Bình thường khi khai báo một biến Integer các bạn sẽ viết như sau: Dim Bien as Integer
 + Giờ các bạn có thể rút gọn lại thành: Dim Bien%
 + Và các biến khác cũng tương tự như hình dưới đây

Bài 47. Nhập Liệu Bằng Form Vào Nhiều Sheet

- Ngày 25/4/2017: Hôm nay mình xin chia sẽ với các bạn file nhập liệu bằng form vào nhiều sheet sử dụng VBA, các bạn xem video và download file bên dưới.

- link download file: Download

Bài 46. Addin Filter Unique Multi Range / Lọc dữ liệu duy nhất từ nhiều vùng dữ liệu Excel

- Ngày 25/4/2017: Sau một thời gian dài điều trị bệnh mỏi mắt không sử dụng máy tính nhiều, hôm nay mình bắt đầu viết lại, các bạn đón theo dõi nhé.