Gửi Tin Nhắn Cho Admin
Hiển thị các bài đăng có nhãn Thu-Thuat-VBA. Hiển thị tất cả bài đăng
Hiển thị các bài đăng có nhãn Thu-Thuat-VBA. Hiển thị tất cả bài đăng

Thứ Năm, 8 tháng 3, 2018

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í



Phạm Minh Tùng  /  at  3/08/2018 04:27:00 CH  /  No comments

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



Thứ Bảy, 10 tháng 2, 2018

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ạm Minh Tùng  /  at  2/10/2018 01:27:00 CH  /  3 comments

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



Posted in: , Read Complete Article»

Chủ Nhật, 12 tháng 11, 2017

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

Phạm Minh Tùng  /  at  11/12/2017 08:50:00 SA  /  No comments

- 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

Thứ Sáu, 6 tháng 10, 2017

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:

Phạm Minh Tùng  /  at  10/06/2017 10:55:00 SA  /  No comments

- Đâ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:

Posted in: , Read Complete Article»

Thứ Hai, 25 tháng 9, 2017

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
Phạm Minh Tùng  /  at  9/25/2017 02:03:00 CH  /  1 comment

- 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

Posted in: , Read Complete Article»

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
Phạm Minh Tùng  /  at  9/25/2017 01:59:00 CH  /  No comments

- 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

Posted in: , Read Complete Article»

Chủ Nhật, 10 tháng 9, 2017

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
Phạm Minh Tùng  /  at  9/10/2017 08:51:00 SA  /  No comments

- 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

Thứ Ba, 5 tháng 9, 2017

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

Phạm Minh Tùng  /  at  9/05/2017 09:35:00 SA  /  8 comments

- Để 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

Posted in: , Read Complete Article»

Thứ Năm, 31 tháng 8, 2017

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"
Phạm Minh Tùng  /  at  8/31/2017 11:38:00 CH  /  No comments

- 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"

Posted in: , Read Complete Article»

Thứ Bảy, 26 tháng 8, 2017

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
Phạm Minh Tùng  /  at  8/26/2017 10:56:00 SA  /  1 comment

- 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

Posted in: , Read Complete Article»

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
Phạm Minh Tùng  /  at  8/26/2017 10:28:00 SA  /  No comments

- 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

Posted in: , Read Complete Article»

Thứ Năm, 10 tháng 8, 2017

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 độ
Phạm Minh Tùng  /  at  8/10/2017 08:34:00 SA  /  No comments

- 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 độ

Thứ Tư, 9 tháng 8, 2017

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:
Phạm Minh Tùng  /  at  8/09/2017 08:18:00 CH  /  No comments

- 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.
Phạm Minh Tùng  /  at  8/09/2017 04:43:00 CH  /  No comments

- 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.

Thứ Sáu, 7 tháng 7, 2017

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

Phạm Minh Tùng  /  at  7/07/2017 09:38:00 SA  /  No comments

- 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

Posted in: , Read Complete Article»

Thứ Ba, 27 tháng 6, 2017

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.
Phạm Minh Tùng  /  at  6/27/2017 07:24:00 SA  /  1 comment

- 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.

Thứ Ba, 16 tháng 5, 2017

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
Phạm Minh Tùng  /  at  5/16/2017 04:28:00 CH  /  No comments

- 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

Thứ Ba, 25 tháng 4, 2017

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
Phạm Minh Tùng  /  at  4/25/2017 08:03:00 CH  /  No comments

- 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é.
Phạm Minh Tùng  /  at  4/25/2017 11:24:00 SA  /  No comments

- 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é.

Thứ Tư, 22 tháng 3, 2017

Bài 45. Đếm Dữ Liệu Duy Nhất Trong Excel

- Ngày 22/3/2017: Đếm dữ liệu duy nhất loại bỏ các giá trị trùng trong excel

- DOWNLOAD FILE: HERE

Phạm Minh Tùng  /  at  3/22/2017 01:36:00 CH  /  No comments

- Ngày 22/3/2017: Đếm dữ liệu duy nhất loại bỏ các giá trị trùng trong excel

- DOWNLOAD FILE: HERE

Recent Comments

Copyright © 2013 Excel Toàn Tập. WP Theme-junkie converted by Bloggertheme9
Blogger templates. Proudly Powered by Blogger.