- Để 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
- Nguyên nhân chính là do tính bảo mật nên những file chm khi download trên mạng về thì đều bị lock nên ta không thể xem được, vì thế ta right click lên file chọn Property và bấm nút Unlock
Phạm Minh Tùng /  at 8/27/2017 09:21:00 CH /  No comments
- Nguyên nhân chính là do tính bảo mật nên những file chm khi download trên mạng về thì đều bị lock nên ta không thể xem được, vì thế ta right click lên file chọn Property và bấm nút Unlock
- 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.
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.
- 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
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
- Ngày 10/8/2017: Khi bạn có một danh sách hàng hóa rất nhiều, nhưng đến khi nhập hàng hóa mới, bạn cần có 1 ComboBox để load lại các hàng hóa đã nhập, loại bỏ hàng hóa trùng, sắp xếp theo tên của hàng hóa, sau đây là video minh họa.
Phạm Minh Tùng /  at 8/10/2017 01:18:00 CH /  No comments
- Ngày 10/8/2017: Khi bạn có một danh sách hàng hóa rất nhiều, nhưng đến khi nhập hàng hóa mới, bạn cần có 1 ComboBox để load lại các hàng hóa đã nhập, loại bỏ hàng hóa trùng, sắp xếp theo tên của hàng hóa, sau đây là video minh họa.
- 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 độ
- 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:
- Xin chào các bạn, để thuận tiện cho các bạn chăn nuôi heo có thể áp dụng Excel để quản lý việc chăn nuôi heo một cách chuyên nghiệp nhất, mình xin giới thiệu đến các bạn một phần mềm bằng Excel rất chuyên nghiệp, đặc biệt mình sẽ mở các source Code để các bạn có thể tham khảo và tùy biến với giá cực kì rẽ, các bạn xem video để biết thêm nhé:
Phạm Minh Tùng /  at 6/28/2017 07:36:00 SA /  No comments
- Xin chào các bạn, để thuận tiện cho các bạn chăn nuôi heo có thể áp dụng Excel để quản lý việc chăn nuôi heo một cách chuyên nghiệp nhất, mình xin giới thiệu đến các bạn một phần mềm bằng Excel rất chuyên nghiệp, đặc biệt mình sẽ mở các source Code để các bạn có thể tham khảo và tùy biến với giá cực kì rẽ, các bạn xem video để biết thêm nhé:
- Chào các bạn, sau nhiều ngày bận rộn với công việc chính thì hôm nay mình cũng đã có thời gian để làm việc theo đam mê của mình, và mình đã thiết kế ra phần mềm Bán Cafe, Quán Ăn và Quán Nhậu trên Excel một cách Chuyên Nghiệp mà mình sắp hướng dẫn các bạn.
- Chào các bạn, sau nhiều ngày bận rộn với công việc chính thì hôm nay mình cũng đã có thời gian để làm việc theo đam mê của mình, và mình đã thiết kế ra phần mềm Bán Cafe, Quán Ăn và Quán Nhậu trên Excel một cách Chuyên Nghiệp mà mình sắp hướng dẫn các bạn.
- Chào các bạn, hiện tại kinh doanh trên Internet hiện đang rất phát triển, dù bạn đang ở kiến thức nào thì bạn cũng có thể thương mại hóa sản phẩm của bạn, hơn 90 triệu người dân Việt Nam chắc chắn sẽ có người có nhu cầu, cho nên khi tạo ra 1 file excel mình muốn chỉ sử dụng trên 1 máy, nếu sử dụng trên nhiều máy thì báo lỗi hoặc xóa code, thậm chí xóa file ... - Để tạo điều kiện cho các bạn mình chia sẽ code tạo mã và giải mã theo nhiều phương pháp, để các bạn lựa chọn phương pháp tối ưu.
Phạm Minh Tùng /  at 6/08/2017 08:37:00 CH /  No comments
- Chào các bạn, hiện tại kinh doanh trên Internet hiện đang rất phát triển, dù bạn đang ở kiến thức nào thì bạn cũng có thể thương mại hóa sản phẩm của bạn, hơn 90 triệu người dân Việt Nam chắc chắn sẽ có người có nhu cầu, cho nên khi tạo ra 1 file excel mình muốn chỉ sử dụng trên 1 máy, nếu sử dụng trên nhiều máy thì báo lỗi hoặc xóa code, thậm chí xóa file ... - Để tạo điều kiện cho các bạn mình chia sẽ code tạo mã và giải mã theo nhiều phương pháp, để các bạn lựa chọn phương pháp tối ưu.
- Đây là một phần mềm mà nó thiên rất nhiều về xử lý form và kỹ thuật xử lý Data, như mục đích ban đầu khi mình lập ra blog này là hướng làm việc của mình là theo hướng giáo dục lập trình VBA trong Excel hơn là dạy các bạn chuyên môn kế toán, nên các phần mềm trong blog đều Share SourceCode cho các bạn tham khảo hết, nếu các bạn đang làm đồ án về kế toán chẳng hạn thì đây là một đồ án tuyệt vời, chỉ cần trang trí thêm chút giao diện nữa là OK.
Phạm Minh Tùng /  at 6/07/2017 12:20:00 CH /  No comments
- Đây là một phần mềm mà nó thiên rất nhiều về xử lý form và kỹ thuật xử lý Data, như mục đích ban đầu khi mình lập ra blog này là hướng làm việc của mình là theo hướng giáo dục lập trình VBA trong Excel hơn là dạy các bạn chuyên môn kế toán, nên các phần mềm trong blog đều Share SourceCode cho các bạn tham khảo hết, nếu các bạn đang làm đồ án về kế toán chẳng hạn thì đây là một đồ án tuyệt vời, chỉ cần trang trí thêm chút giao diện nữa là OK.
- Hôm nay mình xin tiết lộ với các bạn một bí mật, hãy chú ý nhé:
- Theo các bạn thì những người dạy học, họ lấy kiến thức ở đâu vậy, mình cũng đã từng dạy học online và các kiến thức mình truyền đạt cho các bạn là toàn bộ nằm trong sách, vì các bạn đa số thích xem video hướng dẫn hơn là tự học nên có thể nói kiến thức của các bạn sẽ nhanh chóng bay đi mất.
- Hôm nay mình xin tiết lộ với các bạn một bí mật, hãy chú ý nhé:
- Theo các bạn thì những người dạy học, họ lấy kiến thức ở đâu vậy, mình cũng đã từng dạy học online và các kiến thức mình truyền đạt cho các bạn là toàn bộ nằm trong sách, vì các bạn đa số thích xem video hướng dẫn hơn là tự học nên có thể nói kiến thức của các bạn sẽ nhanh chóng bay đi mất.