excel

Excel macro

  • Excel macro
  • Tôi có 2 văn bản: * Văn bản 1 tôi để trang giấy xoay ngang * Văn bản 2 tôi để trang giấy xoay dọc Bây giờ tôi muốn dồn 2 trang văn bản này làm một văn bản thôi 13. Tôi có 2 văn bản: * Văn bản 1 tôi để trang giấy xoay ngang * Văn bản 2 tôi để trang giấy xoay dọc Bây giờ tôi muốn dồn 2 ...
    Được đăng 19:53 24-01-2013 bởi Lớp T13XC2 XD Cầu Đường
  • Chào các bạn, mình hay dùng sự kiện này để Copy Công Chào các bạn, mình hay dùng sự kiện này để Copy Côngthức.Ví dụ: C1 = A1+B1Sau khi nhấp ...
    Được đăng 19:51 24-01-2013 bởi Lớp T13XC2 XD Cầu Đường
  • Các hàm tự tạo cho worksheet View Full Version : Các hàm tự tạo cho worksheetPages : [1] 2 3Tìm kiếm một giá trị thỏa mãn nhiều điều kiệnMỗi tuần một hàm VBAHàm chấm ...
    Được đăng 10:54 13-04-2012 bởi Huy Pham Xuan
  • Mở file excel mà không cần phải enable macro Mở file excel mà không cần phải enable macro1. Ấn Alt+F11 để vào cửa sổ Visual basic Editor2. Vào View --> Project Explorer, click chuột phải vào từng ...
    Được đăng 06:39 08-02-2012 bởi Huy Pham Xuan
  • Tạo một Macro đơn giản trong MS Excel Tạo một Macro đơn giản trong MS ExcelThursday, December 18, 2008Nếu bạn là người thường xuyên làm việc với bảng tính Excel và có những thao tác định ...
    Được đăng 04:37 08-02-2012 bởi Huy Pham Xuan
Hiển thị bài đăng 1 - 5trong tổng số 13. Xem nội dung khác »

Tôi có 2 văn bản: * Văn bản 1 tôi để trang giấy xoay ngang * Văn bản 2 tôi để trang giấy xoay dọc Bây giờ tôi muốn dồn 2 trang văn bản này làm một văn bản thôi

đăng 19:53 24-01-2013 bởi Lớp T13XC2 XD Cầu Đường

13. Tôi có 2 văn bản: * Văn bản 1 tôi để trang giấy xoay ngang * Văn bản 2 tôi để trang giấy xoay dọc Bây giờ tôi muốn dồn 2 trang văn bản này làm một văn bản thôi. Tôi phải làm thế nào mà không bị mất định dang xoay ngang, xoay dọc đó? 

Trước tiên bạn mở cả 2 văn bản, sau đó bạn làm theo các bước sau: 
1. Bạn bôi đen văn bản 2 để copy tất cả sang văn bản 1 
2. Bạn quay trở về văn bản 1 di chuyển con trỏ đến đầu trang dữ liệu thuộc văn bản 2 
3. Chọn menu Insert --> Break.. 
4. Trong cửa sổ Break: 
* Bạn chọn Section break types 
* Đánh dấu chọn Next page >OK 
5. Sau khi đã ngắt được 2 phần văn bản, bạn để con trỏ ở đầu trang dữ liệu thuộc văn bản 2 
* Chọn vào File 
* Chọn Page Setup... > Chọn Margins > Chọn Orientation để đặt lại giấy xoay ngang hay xoay dọc >OK 

Chào các bạn, mình hay dùng sự kiện này để Copy Công

đăng 19:51 24-01-2013 bởi Lớp T13XC2 XD Cầu Đường

Chào các bạn, mình hay dùng sự kiện này để Copy Công
thức.Ví dụ: C1 = A1+B1
Sau khi nhấp chuột phải thì nó sẽ Copy Công thức cho C2:C6000

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C6000"), Type:=xlFillDefault
End Sub

Nếu là Công thức như trên thì ko nói làm gì,nhưng nếu mà gặp
anh IF hay anh SUMPRODUCT
thì sử lý rất chậm,Và lại dữ liếu ít khi tới C6000.

Nên nhờ các bạn sửa lại cái Code trên cho nó chạy với điều
kiện: Copy Công thức tới chỗ nào mà có dữ liệu tại cột A2:A6000 hay B2:B6000
Cảm ơn các bạn.

Các hàm tự tạo cho worksheet

đăng 10:51 13-04-2012 bởi Huy Pham Xuan   [ đã cập nhật 10:54 13-04-2012 ]

View Full Version : Các hàm tự tạo cho worksheet


Pages : [12 3
  1. Tìm kiếm một giá trị thỏa mãn nhiều điều kiện
  2. Mỗi tuần một hàm VBA
  3. Hàm chấm công
  4. Các hàm tự tạo thao tác với các tập tin, bảng tính & trang tính
  5. Hàm chuyển số thành chữ
  6. Các hàm worksheet hay của PUP
  7. Viết hàm như thế nào là tốt
  8. Hỏi cách chuyển từ số sang chữ trong Excel??
  9. Nghiên cứu tiếp các hàm CSDL (Cross tab)
  10. Thắc mắc về hàm đọc số ra chữ Anh ngữ
  11. Hàm vbaSWITCH() thay cho IF() & CHOOSE()!
  12. How to use AutoFilters in Excel VBA Macros
  13. Hiện thị giá trị nếu giá trị của hàm là mảng
  14. Chú thích đối với hàm tự tạo
  15. Copy vùng dữ liệu và lưu lại dưới dạng hình ảnh
  16. Chữ chạy trong Excel
  17. Copy Excel Sheet
  18. Bước đầu mã hóa đoạn văn (tiếng Việt chưa có dấu)
  19. Dùng VBA trong Excel để tạo và sửa chữa PivotTable
  20. Cách tính công thức trong TextBox
  21. Nén File bằng VBA
  22. Cắt bỏ dấu tiếng Việt
  23. Hỏi thuật toán đổi ngày dương sang ngày âm
  24. Xóa Sheet
  25. Xoá vùng lọc và điều kiện lọc của AutoFilter và Advanced Filter
  26. Lấy danh mục duy nhất
  27. Hàm tính tổng một ô trong tất cả các sheets
  28. Cách xóa Modul, Sub hoặc Function
  29. Hỏi về VBA
  30. Xem mã nguồn các VBA Project đã khoá
  31. Gọi thủ tục từ một file *.dll
  32. Toolbar face
  33. Lấy Thông Tin Từ File Không Mở !
  34. Hỏi về macro
  35. Chương trình làm lịch
  36. Thay đổi nền của thanh "Diễn tiến"
  37. DeleteEmptyRows
  38. Lưu file mà không muốn mở file ra??
  39. Ẩn File ngay sau khi File vừa mở
  40. Hỏi cách sum giống như kiểu Alt +
  41. Cộng công thức
  42. Ẩn, hiện nhiều sheet
  43. Tạo đồng hồ trong Excel
  44. In theo điều kiện
  45. Sử dụng hàm tự tạo trong Sub
  46. Hoi ve cach xuat hien Message
  47. Lấy địa chỉ IP
  48. Zip file trong VBA-Excel
  49. Một số hàm về ngày
  50. Các hàm về Unicode
  51. Link dữ liệu các sheet
  52. Kiểm tra số liệu
  53. Ma trận trong VBA
  54. Kiểm tra số CT trùng
  55. Xử lý số liệu
  56. Tính tổng từng sheet rổi cộng tổng các sheet
  57. Lọc - Copy sang sheet mới với điều kiện cho trước
  58. Cần giúp đỡ về Code
  59. Có thể tạo hàm tạo số ngẫu nhiên không trùng lặp ?
  60. Xin được giúp đỡ
  61. Dùng VBA xác định tên của máy tính
  62. Xóa dòng
  63. lưu dữ liệu excel
  64. lỗi macro
  65. Tách số từ chuỗi
  66. Lấy hàng tại vị trí phân trang
  67. Khóa ô không cho xem công thức
  68. xin giúp đỡ viết 1 macro để copy
  69. VBA xóa dòng trùng, trống
  70. Xin giúp đỡ nhập liệu Exel 2003
  71. Tự động tạo mã khách hàng
  72. VBA trích DL từ ngày -> ngày!!!
  73. VBA và Unicode
  74. Cần giúp đỡ về xử lý tiếng việt trong Menu
  75. Làm thế nào Protect hoặc unprotect nhiều sheet cùng 1 lúc
  76. Tìm kiếm trong tất cả các Sheets
  77. Protect/Unprotect Sheet
  78. Xin hỏi cách tắt thông Báo "Now Printing ..." khi in
  79. delete bị lỗi, xin go giùm
  80. Hàm trả về giá trị cột/dòng của ô tìm thấy ...
  81. Cách đóng hộp MsgBox tự động?
  82. Xóa sheet không có dữ liệu
  83. làm sao phân loại những ô có chứa công thức
  84. Tạo sheet mới ???
  85. Kiểm tra mật khẩu trong project
  86. Chỉ dùm user function
  87. Kiểm tra xem Workbook mở hay không ...
  88. Chuyển dữ liệu trong Excel sang *.txt
  89. Nhờ giúp đỡ: Copy dữ liệu trên một sheet ra nhiều sheet tương ứng
  90. Giúp loại bỏ cảnh báo
  91. Làm sao để xóa các names trong Excel
  92. ???InStrRev function
  93. Đưa 1 bảng ra trang html
  94. giúp em với
  95. Copy dữ liệu từ Mydocuments
  96. Quản lý công nợ và in thông báo
  97. Lập VBA giúp tôi giải bài toán này ?
  98. Thu nợ theo từng HĐX
  99. Tạo nút bấm in trong excel
  100. Xóa dòng theo 1 Code
  101. Cần giúp đỡ 2
  102. Điều kiện trong câu lệnh autofiter? - Mới học VB mong sự giúp dỡ!!!
  103. Có cách nào tạo một cái giống task pane trên excel?
  104. Cần giúp đỡ gấp gấp!
  105. các pác cho mình hỏi vể cách dấu công thức trong excel!
  106. Đọc serial ổ đĩa
  107. Bật/tắt chức năng của Excel
  108. Bài toán ma trận (Thuong)
  109. Một ứng dụng tham khảo
  110. Sưu tập tất cả các Class
  111. Đổi số ra chữ với Mã phông UniCode
  112. Xin hỏi về cách tạo macro di chuyển đến sau dòng dữ liệu cuối cùng
  113. Mở file *.doc từ Excel
  114. Bài toán tìm số với VBA?
  115. Tự động ghi thành bản ghi trong sheet từ form
  116. ??? Hide sheet
  117. Hiển thị pass trong VBA
  118. Cho minh hỏi về cách insert và paste?
  119. Các anh chị giúp hộ một giải pháp không trùng trong cột.
  120. Cách tạo sự kiện khi mở workbook
  121. Làm sao lọc được nhiều sheet theo một tiêu chí????
  122. So sánh 2 range ? giúp mình với
  123. update trong khi mở file
  124. Copy - Paste Value theo điều kiện
  125. Hỏi về cách cập nhật dữ liệu?
  126. Tạo dòng TC khi sang tháng khác!
  127. Làm sao để ko cho người khác nhìn thấy công thức trong ô.
  128. Hỏi cách xóa Sheet và đếm hàng
  129. Một kỹ thuật cũ nhưng đáng ghi nhớ.
  130. Luôn hiện sheet mặc định
  131. Yêu cầu thiết lập dạng thức kiểu ngày
  132. Điều kiện để tính tổng!
  133. Làm sao khi nhập vào code hiểu và không copy đè lên dữ liệu trước đó?
  134. VBA không chạy được trên máy khác.
  135. Đọc tiếng Anh trên Excel!
  136. Xóa bỏ thông báo của Excel
  137. Luôn hiện cell mặc định
  138. Cách sử dụng các hàm Sum(mảng), sumproduct trong VBA
  139. Tiếng Việt trong VBA
  140. Cách sử dụng Macro như autocorrect
  141. Làm sao để ghi ra một file excel mới từ những dòng có dữ liệu.
  142. Nội suy 4 số
  143. Code VB? Cần các huynh giúp đỡ
  144. Nhờ các cao thủ giúp đỡ
  145. Chọn Range trên nhiều Sheets
  146. Tạo 1 thông báo khi mở một sheet!
  147. Đọc số thập phân (số lẻ) như thế nào là đúng ?
  148. Hỏi về cách hiển thị thông số của mainboard
  149. Tìm Cell cùng giá trị nhưng khác sheet?
  150. Làm sao để xóa những dòng có chứa ô có giá trị là "#HREF!"
  151. Hiển thị công thức trong ô
  152. Công thức trong VBA
  153. Làm sao tạo dc Name động có tác dụng trên mọi Sheet?
  154. các pác cho mình hỏi code để dò tìm trên nhiều sheets?
  155. hàm chuyển Số Ra chữ trên Dữ liệu cũ không được
  156. Vòng lặp để rút ngắn đoạn mã?
  157. Đánh số báo danh, chia phòng thi bằng VBA
  158. Đọc số thành chữ trong clipboard
  159. Thêm thanh thực đơn ?
  160. Tìm dòng có giá trị cuối cùng ?
  161. Lấy đinh mức vật tư!
  162. Macro DienSo()
  163. Macro nhập dữ liệu
  164. Ai làm ơn giúp UNICOde với
  165. Định dạng như thế nào để có được font unicode?
  166. Dùng Macro xóa dòng có điều kiện
  167. Hàm quy định thời hạn sử dụng trong bảng tính excel
  168. Tên hàm là một giá trị của Cell?
  169. Xin gởi hàm FieldSplit
  170. Validation-Giá trị liền trước liền sau
  171. Hiện thông báo khi đang tính toán
  172. Unicode tiếng Việt trong VBA Excel
  173. Tạo dòng chữ chạy trong cell
  174. Code tính ngày cuối cùng!
  175. Mail merge trong excel ?
  176. Hàm chuyển chữ thường thành chữ hoa
  177. Tắt thanh cuộn ngang
  178. Giúp Mình Với - In Mà Không Cần Phủ Khối Và Delete Hàng?????
  179. Hỏi về cách viết code để tính tổng theo ngày tháng?
  180. Xác định chiều dài của một chuỗi theo đơn vị độ rộng của cột
  181. Thiết lập font cho Footer trong VBA
  182. Cần code chuyển đổi lịch âm dương (VBA)
  183. viết code cho phép tính nội suy
  184. Tạo một bảng thông báo khi mở một file
  185. Hiển thị nhiều dòng với Header/Footer
  186. Bài toán khó đây, mong các bác giúp
  187. Công cụ hỗ trợ tiếng Việt cho Excel
  188. Link excel với VBA
  189. Tô điểm cho Sheet với WordArt
  190. Hỏi về bảo mật Workbook bằng VBA?
  191. cho mình hỏi có cách nào mở được password trong VBA không?
  192. Một câu hỏi về chuỗi
  193. Sử dụng công thức có sẵn của Excel trong VB-Gán công thức SUMPRODUCT -Hỏi về CASE ...
  194. Gán gt vào Cell theo DK = VBA
  195. Thanh công cụ và nút công cụ
  196. Copy data từ file Excel này sang file Excel khác
  197. Gửi tặng các bạn hàm MsgBoxUni hiển thị font tiếng Việt/Unicode
  198. Đảo chuỗi
  199. Tính ngày tháng bằng chữ (help pls)
  200. Hàm đọc số bị lỗi
  201. Hỏi {Max(if())} = VBA
  202. Viết một hàm VBA "chuẩn"
  203. chọn vùng dữ liệu để đếm chữ hoăc số ?
  204. Lọc ra dữ liệu duy nhất từ một vùng chọn
  205. Giúp viết hàm tính công thức
  206. Làm thế nào để kiểm tra tên sheet có tồn tại hay không?
  207. Luôn mặc định chữ in hoa khi nhập dữ liệu vào bảng tính
  208. Gán function cho 1 cột
  209. Tạo File readonly
  210. Cách lấy dữ liệu vào 1 file dữ liệu thô
  211. Tạo 1 file mới đúng với template của file hiện có
  212. Sử dụng "Application.GetOpenFilename" như thế nào?
  213. Em cần giúp về vấn đề cập nhật dữ liệu trong EXCEL
  214. Chỉ cách xóa công thức từ VBA
  215. copy giá trị của bảng
  216. Làm thế nào thay đổi vùng chọn bằng VBA?
  217. ???Code tạo và xóa WB.
  218. Thuật toán về sửa CT = VBA.
  219. Survey cán bộ nhân viên
  220. Thuật toán về ĐK Bán hàng và GVHB!
  221. Thêm 1 Cách Chụp Hình Cell Bằng Vba
  222. Dùng Chuột Chọn Cell, Highlight Dòng Và Cột
  223. Cập nhật Data Validation
  224. Dùng VBA dấu số 0
  225. Hàm trả về "SheetName"
  226. Tự động điền ngày tháng năm vào nếu cell bên cạnh có dử liệu
  227. SheetName "động"
  228. Tạo dòng TC khi sang tháng khác!
  229. Số chứng từ tự động
  230. Cần giúp đỡ! -Y/c Macro kiểm soát Users nhập đầy đủ dữ liệu!
  231. ?Code làm mất dấu tiếng Việt
  232. Vòng lặp đặt ở đâu?
  233. lọc theo ngày tháng
  234. Hổ trợ nhập liệu dựa vào tác dụng cùa "TRA CỨU CHÉO"
  235. File Excel tự xóa
  236. Giúp chỉnh sửa Macro: Go2Sheet trong file Excel
  237. Kiểm tra thư mục, tập tin tồn tại?
  238. Cần tìm mã cho lệnh Refresh All
  239. Tìm chuỗi ký tự trong Cell
  240. Loại khoảng trắng & bỏ dấu tiếng việt
  241. Viết Help cho hàm tự tạo ?
  242. Cần Tìm kiếm 1 vùng trong 1 vung lớn hơn ( em không làm được, mong các anh giúp đỡ )
  243. Xóa button bằng VBA trong Excel
  244. Đọc chữ ra số
  245. Đánh STT theo nhiều điều kiện
  246. Làm sao bỏ Name Manager!
  247. Lỗi treo Excel khi sử dụng hàm tự tạo
  248. UDF - Array Functions
  249. Hàm tính ngày đầu tháng và ngày cuối tháng
  250. Hàm tính thùng / viên
  251. Diễn Đàn Giải Pháp Excel > Lập trình với Excel > Các hàm tự tạo cho worksheet

    View Full Version : Các hàm tự tạo cho worksheet


    Pages : 1 [23
    1. Mình định rút gọn hàm tự tạo, nhưng không được!
    2. Giúp cho một file để in phiếu thu/chi (quỹ tiền mặt,. . .)
    3. Hàm tự tạo tính toán nhanh hơn?
    4. Cho mình hỏi về VBA, excel
    5. Tự động thay đổi từ Excel sang Word
    6. Dùng VBA để đánh số thứ tự sau mỗi lần xóa bớt đi những dòng dữ liệu trong bảng tính
    7. Tìm tên các font trong cùng 1 ô
    8. MessageBox
    9. xóa toàn bộ dữ liệu trong sheet
    10. Tính tổng theo màu nền
    11. Giúp em tạo password in?
    12. Hàm Index (match) lấy giá trị sau cùng!!
    13. Thông báo Sheet có được bảo vệ không ??
    14. Hàm trả về một mảng ??
    15. Danh Sách Duy Nhất !!
    16. Xóa các dòng, cột ẩn bằng VBA
    17. Cách sửa hàm Đọc số ra chữ
    18. Cách sửa hàm Đọc số ra chữ
    19. UDF tìm kiếm giữa 2 range ?
    20. Application.Quit trước khi mở file Excel
    21. ? Xóa dòng với điều kiện ?
    22. Xin trợ giúp tạo macro tìm kiếm và thay thế
    23. tự dán dữ liệu xuống 1 dòng
    24. Hỏi về hàm hoặc code diễn giải cách tính
    25. nhận biết vùng chọn bằng chuột
    26. Sử dụng VBA để tạo dữ liễu 2 chiều
    27. Đề nghị giúp đỡ Function sau
    28. Hiển thị đối số của hàm ??
    29. Tính hạng ma trận
    30. Hạn chế lỗi khi sử dụng form
    31. Giúp em dùng code VBA với các bác!
    32. Cấu trúc lệnh VBA chép chồng lên tập tin có sẵn
    33. lỗi run time 1004
    34. Khống chế nhập số liệu
    35. Chuyển công thức excel thành code VBA
    36. Cho em tham khảo hàm VBA lấy số trong chuỗi với!
    37. UDF tính tồn kho (theo số lượng) tại một thời điểm bất kỳ
    38. UDF tính công nợ tại một thời điểm bất kỳ
    39. xếp chổ ngồi trong phòng thi
    40. chương trình phổ cập
    41. Xin giới thiệu các hàm thường gặp trong VBA
    42. Hỏi về bảo vệ files VBA
    43. 1 công thức cho ra 2 kết quả????
    44. ? workbook_beforePrint
    45. hàm chuyên đọc số (không kèm đơn vị tiền tệ)
    46. Đảo ngược chuỗi kí tự
    47. Hàm kiểm tra mã số thuế
    48. VBA - Đổi số thành chữ
    49. Xin giúp cải tiến hàm kẻ dòng trong bảng để nó chạy nhanh hơn
    50. Đếm bỏ quan ô trống
    51. Danh Mục duy nhất (sắp xêp), Lấy từ bất kỳ trong câu!
    52. Đếm tổng số trang in trên 1 Worksheet hoặc trong Woorkbook
    53. Sắp xếp các cell
    54. Mình cần một hàm trả về tên của Sheet hiện hành
    55. Xin giúp tôi hiện thị thông báo lỗi
    56. Làm sao thể hiện dạng Control Tiptext cho hàm tự tạo
    57. Viết code in tờ khai BHXH (Up dùm bạn chiprock126)
    58. Chuyển chữ HOA thành chữ thường không dùng công thức (Giống Shift+F3 trong Word)
    59. Hỏi về hàm đếm mầu trong excel 2007
    60. Thống kê số lượng khách hàng bằng hàm tự tạo hay bằng công thức đây?
    61. Hỏi về ClasModule
    62. Đọc số thành chữ có phần thập phân
    63. Sửa code trích môn thi lại
    64. Tìm 4 số bất kỳ theo điều kiện
    65. Lưu fìle sang một Workbook mới
    66. Lọc dữ liệu duy nhất
    67. Tạo UDF để đếm số phần tử với điều kiện là độ dài của phần tử
    68. Hàm trích các phần tử của chuổi
    69. Hỏi cách viết hàm nội suy mảng 2 chiều!
    70. Tổ Hợp chập 4
    71. Mã chèn một số khoảng trắng hay ký tự vào một ô
    72. Hàm Sum nhiều tính năng
    73. Xin hỏi có hàm nào chuyển mã từ định dạng &#unicode sang unicode không?
    74. Toàn diện về Find Method
    75. Trợ giúp nhập liệu "giờ" vào trong worksheet
    76. Autofilter theo tháng
    77. Tách số không dùng vòng lặp
    78. Hàm kiểm tra mã Container.
    79. Về vấn đề cập nhật cho hàm tự tạo khi dữ liệu thay đổi
    80. Thủ tục sao lưu file hiện hành ra 1 file mới (Backup file) trong cùng 1 thư mục
    81. Dò tìm nâng cao với hàm VlookupD
    82. Tính giúp tổng cực trị trong các dòng của 1 vùng dữ liệu
    83. Tìm cực tri của phương trình bâc 2
    84. Hàm Mã hóa đơn giản!
    85. Hàm tách số từ trong chuỗi
    86. Hàm tính số ngày lưu công kho bãi
    87. Chi tiết nội dung hàm tính thuế thu nhập cá nhân 2009?
    88. Rút gọn hàm để chương trình chạy nhanh hơn
    89. Hàm tính tỉ giá.
    90. Xếp loại nhân viên
    91. Lổi khi tạo hàm mới trong excel 2007
    92. Đọc số thành chữ 3 trong 1
    93. Lấy dữ liệu từ nhiều tiêu chí !
    94. Tính toán chuỗi biểu thức
    95. đề nghị giúp tạo hàm dò tìm vị trí
    96. Hàm Range
    97. Tạo giá trị value mỗi khi thay đổi trong worksheet_Change
    98. Hàm có khả năng thay đổi thuộc tính của Cell hay không?
    99. Giúp về hàm tự tạo biến chuỗi biểu thức thành giá trị
    100. Hàm Maxif _ Tính giá trị lớn nhất với điều kiện cho trước
    101. Chèn thêm dấu ngắt câu vào hàm đọc số ra chữ
    102. Chuyển hàm thành VBA Code
    103. Khóa 1 file dạng Bitmap
    104. cách tạo hàm tìm kiếm dữ liệu trùng lớn hon 1
    105. Hàm tính diện tích tam gíac
    106. Đổi số ra tiền (thành chữ) Code
    107. Xin hàm sắp xếp lại các thành phần của họ tên
    108. Chuyển 1 chuỗi thành chuỗi khác!
    109. 2 thông tin để tìm 1 giá trị
    110. Sao hàm CoutByColor của mình ko tự động update
    111. Xin giúp hàm mà sẽ phát 1 file âm thanh trong excel
    112. Nhờ khắc phục lỗi không sử dụng được Add-Ins
    113. Hỏi về hàm tách chữ
    114. Hoàn thiện hàm Jointif
    115. Tự động ghép số liệu
    116. Tạo dãy số ngẫu nhiên không trùng
    117. Hàm không trả về được giá trị Null
    118. Lỗi calculate formula trong excel.
    119. Link dữ liệu các File
    120. Viết code tính giá vốn theo FIFO!
    121. Xin Hỏi Về Hàm Cho "BÀI TOÁN CHIA KẸO"
    122. Trợ giúp xác định tình trạng đặt lọc
    123. viết hàm để sửa chữ trong Excel
    124. Hỏi về link công thức giữa 2 sheet?
    125. Hàm chuyển chữ viết thành cách gõ !
    126. excel và web
    127. Tạo hàm mới trong excel 07
    128. Giúp Em liên kết dữ liệu giữa các Sheet !!! thanks
    129. Tìm phân bố của một dãy số
    130. Hỏi về cách tạo hàm mới trong Excel 2003
    131. Sửa code để lọc ngẫu nhiên các sản phẩm
    132. Làm cách nào để Protect các ô, dòng trong sheet ?
    133. Sử dụng hàm tự tạo của .xla file trong VBA code của một file khác
    134. Đặt điều kiện bôi màu cho dòng
    135. Các bác giúp tôi sửa cái hàm chuyển số thành chữ cái này.
    136. cách tạo pass để bảo vệ code
    137. Cách in sổ mà không cần bấm "nonblanks"
    138. nhờ làm giúp hàm =sumex(array1,array2)
    139. Hỏi cách tạo hàm Vlookup bằng VBA
    140. Khóa công thức
    141. Nhờ gỡ rối hàm tự động tăng số chứng từ
    142. Xin giới thiệu hàm Filter trong VBA.
    143. Tự tạo File sưu tầm bài hay của GPE
    144. Nhờ các anh lập hàm tính tổng
    145. Hỏi về hàm distinct tự tạo trong Excel
    146. Làm sao hàm JoinUnique của Thầy NDU sử dụng được khi AutoFilter
    147. Công cụ Merge trong Excel
    148. giúp em tạo mục lục với
    149. Nhờ giúp Macro loc dữ liệu
    150. cài đặt hàm người ta tạo ra vào excel như thế nào ?
    151. Hàm dò tìm dữ liệu theo địa chỉ dạng text
    152. Mình muốn lập hàm tìm giá trị và tính trung bình
    153. liên kết giữa các sheet
    154. Chuyển thành File Addin
    155. giúp em tạo cách chọn dữ liệu
    156. cách lập kiểu mũi tên chọn cơ sơ dữ liệu
    157. Nội suy tuyến tính
    158. Gửi tặng file quản lý kho nhập xuất tồn trên excel
    159. Giúp em tạo liên giữa 2 cell với nhau
    160. bác nào cho em hỏi về cách lưu file excel thành file text cái
    161. dấu hàng trống.
    162. đếm màu trong excel
    163. Hàm tách số từ 1 chuổi theo "/"
    164. Trong một năm có bao nhieu ngày âm lịch
    165. VBA thêm hàm round vào công thức, ai giúp em với
    166. ai giúp e viết code tra bảng nội suy có 3 yếu tố với
    167. Xin trợ giúp tạo form đăng nhập Excell
    168. ai giúp viết hàm chuyển đổi dữ liệu kiểu ngày tháng sang kiểu xâu
    169. Lọc danh sách theo lớp
    170. Nhờ chuyển công thức sang VBA
    171. Chuyển Worksheet_Change(...) thành Function(...)
    172. Tổng hợp dữ liệu từ nhiều file excel
    173. Tạo hàm countif này như nào?
    174. Làm sao để hiển thị gợi ý các đối số của hàm UDF?
    175. Hàm mới trong Excel: SQL() giá trị trả về là một vùng trong Excel.
    176. Hàm tự tạo tổng hợp xuất nhập tồn theo đơn vị là chai & ly rượu
    177. Tạo hàm tính tổng theo nhiều điều kiện tùy biến
    178. Liên kết các sheet giữa các workbook
    179. dùng combobox để tra thép hình
    180. Tạo công thức tự động khi copy bảng sang sheet mới
    181. Xin hỏi cách tạo border cho header và footer
    182. Giúp chuyển hàm thành Code
    183. Tổng hợp dữ liệu các sheet vào sheet tổng hợp
    184. Hide một số dòng, chỉ unhide được bằng pass.
    185. Hiển thị cú pháp hàm tự tạo
    186. Giúp em tính giá vốn khi xuất hàng
    187. Tạo hàm tương tự Vlookup tìm trong nhiều bảng
    188. Anh huuthang_bd giúp em tính giá vốn với
    189. Các bạn giúp mình tách giá trị một chuỗi trong PHP với.
    190. Cải tiến hàm convert từ TCVN3 > Unicode (Excel, Access Tested)
    191. tự động lưu dữ liệu sang bảng tính mới
    192. Set print area tự động theo dữ liệu nhập vào.
    193. Link To Sheet By Title
    194. In tự động theo form
    195. Cho em hỏi về lưu vba trong Excell 2007
    196. Cách nào để từ file tổng hợp chuyển sang các flie riêng
    197. auto insert ngày và giờ
    198. Hàm dò tìm và tính phức hợp trên 2 mảng, với điều kiện trên 4 mảng khác.
    199. Giúp hoàn thành bản excel
    200. Sort tự động bằng nút ấn
    201. Cách tạo hóa đơn theo danh sách
    202. Lọc dữ liệu và xuất sang các sheets
    203. Excel không nhận diện được sheet, báo lỗi
    204. Sử dụng Validation trong tối ưu hóa việc nhập liệu
    205. hàm tự tạo tính tiền nước
    206. Hàm xác định bộ gõ Unicode hay VNI?
    207. Lại chủ để tách sô (nhưng tách từ trong công thức)
    208. lập giúp công thức hoặc code cho bảng phân công chuyên môn
    209. Argument Descriptions for UDF?
    210. Tổng hợp dữ liệu từ nhiều sheet
    211. Không lưu được macro trong excel
    212. Tô màu chữ/số theo điều kiện
    213. Xin giúp đỡ Macro mail merge cho bảng lương
    214. Combobox tùy chọn
    215. Giúp mình tạo mã khách hàng trong exel
    216. Cách chuyển số liệu từ dạng bảng sang dạng cột
    217. Chuyển nhanh địa chỉ tương đối sang tuyệt đối ở nhiều cell
    218. Hàm tính điểm TB của tín chỉ Trong CĐ,ĐH
    219. Hàm tính giá trị lớn nhất
    220. Hàm xác định phương trình từ số liệu cho trước
    221. Tạo sheet mới, link giá trị sheet cũ không hiểu.
    222. Nhờ các bác giúp em vấn đề này với (link DL các sheet)
    223. Nhờ các anh chị sửa giúp em hàm này
    224. Ads-in Chuyển ngày bằng số sang ngày bằng chữ trong excel
    225. đặt tên sheet
    226. Tự động copy thêm sheet
    227. Vài thắc mắc về Userform và hàm tìm kiếm nhờ được giúp đỡ.
    228. Nhờ anh em giúp đỡ. Sử dụng hàm Vlookup để tra dữ liệu từ tập tin khác
    229. Theo dõi kho bằng excel
    230. Nhờ các bạn giúp hàm excel đặt số thứ tự
    231. Nhờ các bạn giúp hộ hàm tính tổng các số có trong chuỗi kí tự!
    232. Auto sort dữ liệu
    233. /-(àm tự tạo để tổng hợp các loại công dị thường.
    234. Chèn hình vào cell bằng hàm tự tạo
    235. Nhờ viết Marco(Hàm) sử lý dữ liệu sau
    236. Hàm tra bảng nội suy hai chiều
    237. Chữ wordart chạy trên trang excell
    238. Cách xuất một Sheet ra một Workbook mới chứa Sheet đó bằng VB (để lưu giữ file)
    239. Xác định địa chỉ của cell áp dụng hàm tự tạo (không dùng ActiveCell)
    240. Hàm Rút gọn phân số, đổi số thập thành phân số
    241. Disable message thông báo có tên trùng khi copy một sheet
    242. Nhờ giúp hàm tính tổng
    243. Viết hàm tự tạo kết hợp với list!!!
    244. Tạo danh sách bằng VBA để sử dụng cho hàm tự tạo!
    245. Giúp em viết hàm tự tạo!
    246. Tạo điều kiện để ẩn đi các dòng mong muốn
    247. Lập VBA cho phép chép tập tin a.xls từ c:\A sang d:\D
    248. Tạo hàm Daucham()
    249. Làm sao xử lý được Range 3D trong hàm tự tạo?
    250. Giúp mình tạo 1 hàm tính điểm Trung bình chung tích lũy (QC 43 tín chỉ)
      1. Viết code cho Button sheet này in nội dung của sheet khác
      2. Lọc cửa hàng ra để in!
      3. Giúp: Hàm UCase trong VBA
      4. Hướng dẫn cách Copy sheet
      5. Hàm Trả Về Giá Trị Là Vùng Chọn Tham Chiếu
      6. Đổi VND sang USD
      7. Bảng tra các hệ số trong lập dự toán
      8. Giúp mình giải quyết vđề: Tính thời gian bắt đầu và kết thúc
      9. Giúp cách tạo đường dẫn
      10. Hỏi về "Tự Động SortBy"????
      11. Hàm chuyển mã Font Unicode tiếng Việt trên VBA
      12. Thêm một file đọc số bằng chữ hoàn toàn XD bằng hàm Excel
      13. Ẩn, hiện và xóa nhiều sheet trong workbook
      14. Làm sao để quản lý & theo dõi số lượng chi tiết của từng mặt hàng đã bán .
      15. Hàm nội suy 2 chiều nâng cao
      16. office 2007 - Làm sao để nếu không enable macro thì file cũng tự đóng luôn?
      17. Nhờ tạo nút bấm để chuyển chọn dữ liệu trong list của Data validation
      18. Lập hàm này thế nào hả các bác
      19. Thay đổi link dữ liệu từ excel sang word
      20. Giúp đỡ hàm xác định học lực
      21. Hàm tự tạo "Đánh số phiếu tự động"
      22. Hàm UDF Sum này sai ở đâu?
      23. Các bạn giúp mình hàm tự tạo tách các chữ cái họ tên tiếng Việt để làm mã nhân viên
      24. Ý tưởng dịch thuật trên bảng tính =TranslateE2V("friend") = "bạn"
      25. Hàm chuyển chuỗi kỹ tự thành công thức
      26. Nhờ hướng dẫn fill dữ liệu
      27. Nhờ code dán giá trị trong clipboard vào macro
      28. công thức tính số ngày công thực tế nhiều hơn ngày công trong tháng bằng hàm if
      29. Tìm địa chỉ cell cho đối tượng Shape
      30. cách tạo dấu check trong excel
      31. Có thể tạo ra 1 hàm với đối số là Object hay không?
      32. Cộng tổng một số (chứ không phải cộng tất) từ những sheet cấu trúc giống nhau
      33. Hàm kiểm tra chứng minh thư có khớp với mã tỉnh
      34. Hỏi về cách lấy dữ liệu có điều kiện trong ễl 2010
      35. tạo macro để tách dữ liệu trong sheet
      36. Tìm dữ liệu giá vận chuyển
      37. Làm sao chèn hình trong trường hợp này
      38. Xin công thức tách số trong chuỗi ký tự
      39. Xếp lịch trực cho bảo vệ.
      40. Giúp mình lọc dữ liệu này với
      41. Giúp em tự tạo sheet mới sau khi nhập dữ liệu
      42. Mã code nằm ở đâu
      43. Trích xuất một cụm cả text và ký tự
      44. Hỏi Đáp: Cho e hỏi các cao thủ GPE vấn đề hàm tự tạo
      45. Mong được giúp đỡ: Tạo macro có chức năng xuất những cột cần thiết sang 1 file mới
      46. Lấy dữ liệu có khoảng trống và co merge cell từ nhiều file
      47. Hỏi về hàm tính tiền thực lãnh
      48. Hàm có 2 điều kiện
      49. Xin hỏi các bạn về công thức hàm tạo màu ...!


Mở file excel mà không cần phải enable macro

đăng 05:30 08-02-2012 bởi Huy Pham Xuan   [ đã cập nhật 06:39 08-02-2012 ]

Mở file excel mà không cần phải enable macro



1. Ấn Alt+F11 để vào cửa sổ Visual basic Editor
2. Vào View --> Project Explorer, click chuột phải vào từng Module (nếu có nhiều Module thì làm từng cái một) trong folder Module --> chọn Remove Module ....(tên Module)
3. Một hộp thoại hiện ra, bạn click NO, sau đó đóng màn hình Visual Basic Editor lại!
4. Lưu file excel lại.
5. Đóng file excel lại.
6. Bây giờ bạn mở file đó lên lại thử xem, nó hết hỏi bạn phải enable macro rồi đó!
Chúc vui và thành công! 

------------------
cach 2 : hay nhat
Muốn khỏi Enable macro mọi lúc thì Convert XLS thành EXE đi là xong
Link download đây:
http://cpap.com.br/orlando/download/XLtoEXE.exe

Tạo một Macro đơn giản trong MS Excel

đăng 04:37 08-02-2012 bởi Huy Pham Xuan

Tạo một Macro đơn giản trong MS Excel

Thursday, December 18, 2008
Nếu bạn là người thường xuyên làm việc với bảng tính Excel và có những thao tác định dạng phải thực hiện lặp lại nhiều lần thì sử dụng Macro là một lựa chọn tuyệt vời cho bạn. Việc tạo ra một Macro đơn giản như vậy thì không đòi hỏi bạn phải có kiến thức về Visual Basic mà MS Excel đã cung cấp sẵn chức năng này. Việc của bạn lúc này chỉ là thực hiện những thao tác để Excel ghi lại và tự động chạy cho những lần tiếp theo.

Trước tiên hãy khởi động bảng tính Excel mà bạn muốn định dạng.
Một điều các bạn cần lưu ý, khi tạo Macro theo cách này Excel sẽ ghi lại toàn bộ những thao tác bạn đã thực hiện trong quá trình tạo Macro, nó sẽ ghi nhớ theo địa chỉ tuyệt đối. Có nghĩa là bạn thực hiện định dạng tại ô nào, vùng nào thì sau này khi chạy Macro tại bất kỳ bảng tính nào thì nó cũng sẽ chỉ định dạng ở những ô, vùng tương ứng như vậy. Sở dĩ phải nói tới điều này vì vùng dữ liệu của các bảng tính có thể khác nhau, bạn nên thực hiện vùng định dạng tương đối rộng để nó phù hợp với tất cả các bảng tính khác của bạn sau này.

Để tạo mới một Macro bạn vào Tool > Macro > Record New Macro. Một cửa sổ hiện ra.


  • Macro name: Đặt tên cho Macro
  • Shortcut key: Phím tắt cho Macro (Sau này khi mở bảng tính và muốn chạy Macro bạn chỉ cần bấm tổ hợp phím này).
  • Store Macro in: Bạn chọn là Personal Macro Workbook
  • Discription: Mô tả thông tin
Chọn OK để tiến hành tạo Macro.
Bây giờ hãy tiến hành thực hiện những định dạng cần thiết.
Khi định dạng xong bạn hãy bấm Stop (Pop-up xuất hiện trên màn hình) hoặc vào Tool > Macro > Stop recording.


Sau khi hoàn thành việc tạo Macro, bạn đóng bảng tính lại (Không cần lưu bảng tính). Khi có một cửa sổ hiện ra như sau bạn chọn Yes.


Muốn xem danh sách các Macro hiện có bạn vào Tool > Macro > Macro


  • Run: Chạy một Macro
  • Step Info: Chỉnh sửa Macro trong MS Visual Basic
  • Options: Thay đổi phím tắt và thông tin về Macro

Nếu có nhiều Macro được tạo ra và bạn không thể nhớ được phím tắt của chúng và bạn cũng không muốn mỗi khi chạy một Macro lại phải vào Tool > Macro.... Vậy hãy tạo cho nó một biểu tượng trên thanh công cụ.
Bấm chuột phải lên vùng trống trên thanh công cụ chọn Customize. Một cửa sổ hiện ra:


Trong mục Commands bạn bấm và giữ chuột trái vào một biểu tượng chương trình bất kỳ và kéo nó lên vùng trống trên thanh công cụ.
Tiếp theo chọn Modify Selections để thiết lập cho nút lệnh này.


  • Name: Đặt tên cho nút lệnh
  • Edit button image: Tự tạo nút lệnh theo cách của bạn
  • Change button image: Chọn biểu tượng cho nút lệnh bằng những hình có sẵn
  • Defaul style, Text Only, Image and Text: Chọn kiểu hiển thị
  • Assign Macro: Đây là bước quan trọng nhất, bạn chọn để gán Macro đã tạo vào nút lệnh này.
Từ đây mỗi khi bạn mở một bảng tính bất kỳ, nút lệnh đã tạo sẽ xuất hiện trên thanh Menu và bạn chỉ cần nhấn nút để chạy Macro. Bạn có thể tạo bao nhiêu nút lệnh tùy ý.

Tạo Menu trong Excel

đăng 03:43 08-02-2012 bởi Huy Pham Xuan   [ đã cập nhật 03:46 08-02-2012 ]

Tạo Menu trong Excel
« vào lúc: 14 Tháng Mười Một , 2008, 01:28:27 PM »
Tôi vào diễn đàn dạy học Intel thấy có bạn hỏi về cách tạo Menu trên Excel nhưng vì chưa tham gia đăng ký nhưng thấy có câu hỏi về việc này của 1 người nên viết tạm vào diễn đàn dạy học Lâm Đồng.
Đây là đoạn lệnh VBA trong Excel để tạo Menu. Muốn chương trình chạy theo ý muốn bạn cần viết thêm các Macro1, Macro2 thực hiện các công việc mong muốn.

Bạn thử chạy (run) trực tiếp xem.
Sub InsertMenu()
    Dim taomenu As CommandBar
    Dim ctlPopup As CommandBarPopup

    Set taomenu = Application.CommandBars("Worksheet Menu Bar")

    With taomenu.Controls
        Set ctlPopup = .Add(Type:=msoControlPopup, _
            Before:=2)
        With ctlPopup
            .Caption = "TenMenu"
            With .Controls.Add
                .Caption = "Menucon1"
                .OnAction = "Macro1"
   
            End With
            With .Controls.Add
                .Caption = "Menucon2"
                .OnAction = "Macro2"
            End With
        End With
    End With
End Sub
 Logged
Email: huynhbahuu@yahoo.com.vn
Hiệu trưởng trường THPT Tà Nung - Đà Lạt

Offline gvdaton

  • Giáo viên tập sự
  • **
  • Bài viết: 13
  • Điểm thưởng nhận được: 2
    • Email
Re: Tạo Menu trong Excel
« Trả lời #1 vào lúc: 18 Tháng Chín , 2010, 08:23:31 AM »
Cam on thay nhieu
 Logged

Offline minhhuy971

  • Giáo viên mới
  • *
  • Bài viết: 2
  • Điểm thưởng nhận được: 0
    • Email
Re: Tạo Menu trong Excel
« Trả lời #2 vào lúc: 22 Tháng Hai , 2011, 04:57:56 PM »
Thầy cho em hỏi nếu tạo rồi muốn xoá nó đi thì làm sao thầy
 Logged

Offline huynhbahuu

  • THPT Tà Nung
  • Ban điều hành
  • GV giỏi cấp tỉnh
  • *****
  • Bài viết: 552
  • Điểm thưởng nhận được: 15
    • Email
Re: Tạo Menu trong Excel
« Trả lời #3 vào lúc: 22 Tháng Hai , 2011, 05:43:20 PM »
Cách 1: 
1. Di chuyển chuột đến thanh menu (vị trí nào trên thanh menu cũng được)
2. Nhấn chuột phải.
3. Trên thanh menu đỗ xuống (popup) chọn: Customize
4. Di chuyển chuột đến menu: "TenMenu", nhấn giữ chuột trái và rê thả vào hộp thoại Customize.
Cách 2:
Chọn menu: Tools\Customize
Thực hiện tương tự như bước 4 ở cách 1.
Cách 3:
Chạy (run) đoạn mã VBA sau:
Sub XoaMenu()
Dim cb As CommandBar
Dim cbp As CommandBarPopup
Set cb = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
Set cbp = cb.Controls("TenMenu")
If Not IsNull(cbp) Then
cbp.Delete
End If
End Sub

Excel-Tạo hàm và dùng nó

đăng 03:38 08-02-2012 bởi Huy Pham Xuan   [ đã cập nhật 03:40 08-02-2012 ]

Excel-Tạo hàm và dùng nó

Bài này tôi hướng dẫn cho người chưa biết tự tạo lập một hàm Excel và sử dụng nó qua các bước như thế nào. Trước đây Nguyễn Phương Thảo đã viết rất nhiều bài viết lập trình Office ở Web Lê Hoàn (Echip sau này). Bạn có thể tham khảo các bài viết khác ở Echip. Nháy vào đây.

(Chọn tác giả Nguyễn Phương Thảo để hiện các bài viết của mục này)



Ở đây ví dụ cụ thể là tạo một hàm mà Excel chưa có hàm đó. Ta sẽ tạo và bổ sung cho Excel hàm này. Sau khi bổ sung, ta sử dụng hàm này như một hàm vốn có của Excel.

Đầu tiên ta hãy vào Excel. 

Cất luôn tệp đang dùng ở dạng XLA (Đây là dạng bổ sung chức năng cho Excel, nên nó có có tên tiếng Anh là Add-In bổ sung)

Chọn Click vào thực đơn File>Save As...

Hiện bảng cất, chú ý chọn Add-In như hình vẽ, đánh tên tệp bổ sung vào, ví dụ ở đây tên là HamMoi.XLA.

user posted image

Rồi. Ta nhấn Alt + F11 để chuyển sang VBA. Ta nháy vào VBAProject(HamMoi.XLA) ở cây bên trái chữ đậm đó. Sau đó click vào thực đơn Insert > Module

user posted image 
Khi đó Module là 1 trang trắng.

user posted image

Ta copy đoạn mã lập trình này và dán vào trang trắng đó. Nó sẽ tự đổi màu các từ khóa. Yên tâm, không việc gì mà sợ 04.gif

CODE

Function UnicodeChar(UniCharCode As String) As String
On Error GoTo Loi
Dim str
Dim desStr As String
Dim I
If Mid(UniCharCode, 1, 1) = ";" Then
UniCharCode = Mid(UniCharCode, 2)
End If
If Right(UniCharCode, 1) = ";" Then
UniCharCode = Mid(UniCharCode, 1, Len(UniCharCode) - 1)
End If
str = UniCharCode
str = Split(str, ";")
For I = LBound(str) To UBound(str)
desStr = desStr & ChrW$("&H" & str(I))
Next
UnicodeChar = desStr
Loi:
Exit Function
End Function

Function vnd(ByVal NumCurrency As Currency) As String
Static CharVND(9) As String, BangChu As String, I As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer
DonViTien = ";111;1ED3;6E;67" ' dong
DonViLe = ";78;75" ' xu
If NumCurrency = 0 Then
vnd = UnicodeChar(";4B;68;F4;6E;67;20" & DonViTien)
Exit Function
End If
If NumCurrency > 922337203685477# Then ' So lon nhat cua loi CURRENCY
vnd = UnicodeChar(";4B;68;F4;6E;67;20;111;1ED5;69;20;111;1B0;1EE3;63;20;73" & _
";1ED1;20;6C;1EDB;6E;20;68;1A1;6E;20;39;32;32;2C;33;33;37" & _
";2C;32;30;33;2C;36;38;35;2C;34;37;37")
Exit Function
End If
CharVND(1) = ";6D;1ED9;74" ' mot
CharVND(2) = ";68;61;69" ' hai
CharVND(3) = ";62;61" ' ba
CharVND(4) = ";62;1ED1;6E" ' bon
CharVND(5) = ";6E;103;6D" ' nam
CharVND(6) = ";73;E1;75" ' sau
CharVND(7) = ";62;1EA3;79" ' bay
CharVND(8) = ";74;E1;6D" ' tam
CharVND(9) = ";63;68;ED;6E" ' chin
SoLe = Int((NumCurrency - Int(NumCurrency)) * 100) ' 2 ko so
PhanChan = Trim$(str$(Int(NumCurrency)))
PhanChan = Space(15 - Len(PhanChan)) + PhanChan
NganTy = Val(Left(PhanChan, 3))
Ty = Val(Mid$(PhanChan, 4, 3))
Trieu = Val(Mid$(PhanChan, 7, 3))
Ngan = Val(Mid$(PhanChan, 10, 3))
Dong = Val(Mid$(PhanChan, 13, 3))
If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
BangChu = ";6B;68;F4;6E;67;20" + DonViTien + ";20"
I = 5
Else
BangChu = ""
I = 0
End If
'-----------------------------------------------------
' Bat dau doi
'-----------------------------------------------------
While I <= 5
Select Case I
Case 0
SoDoi = NganTy
Ten = ";6E;67;E0;6E;20;74;1EF7" ' ngàn ti
Case 1
SoDoi = Ty
Ten = ";74;1EF7" ' ti
Case 2
SoDoi = Trieu
Ten = ";74;72;69;1EC7;75" ' trieu
Case 3
SoDoi = Ngan
Ten = ";6E;67;E0;6E" ' ngàn
Case 4
SoDoi = Dong
Ten = DonViTien ' dong
Case 5
SoDoi = SoLe
Ten = DonViLe ' xu
End Select
If SoDoi <> 0 Then
Tram = Int(SoDoi / 100)
Muoi = Int((SoDoi - Tram * 100) / 10)
DonVi = (SoDoi - Tram * 100) - Muoi * 10
If Right(BangChu, 3) = ";20" Then
BangChu = Left(BangChu, Len(BangChu) - 3)
End If
BangChu = BangChu + IIf(Len(BangChu) = 0, "", ";2C;20") + _
IIf(Tram <> 0, Trim(CharVND(Tram)) + ";20;74;72;103;6D;20", "")
If Muoi = 0 And Tram <> 0 And DonVi <> 0 Then
BangChu = BangChu + ";6C;1EBB;20"
Else
If Muoi <> 0 Then
BangChu = BangChu + IIf(Muoi <> 0 And Muoi <> 1, _
Trim(CharVND(Muoi)) + ";20;6D;1B0;1A1;69;20", ";6D;1B0;1EDD;69;20")
End If
End If
If Muoi <> 0 And DonVi = 5 Then
BangChu = BangChu + ";6C;103;6D;20" + Ten + ";20"
Else
If Muoi > 1 And DonVi = 1 Then
BangChu = BangChu + ";6D;1ED1;74;20" + Ten + ";20"
Else
BangChu = BangChu + IIf(DonVi <> 0, Trim(CharVND(DonVi)) + ";20" + Ten, Ten) + ";20"
End If
End If
Else
BangChu = BangChu + IIf(I = 4, DonViTien + "", "")
End If
I = I + 1
Wend
If SoLe = 0 Then
BangChu = BangChu + IIf(Right(BangChu, 3) = ";20", "", ";20") + ";63;68;1EB5;6E"
End If
BangChu = UnicodeChar(BangChu)
'Doi sang tieng Viet Unicode
' Doi chu cai dau tiên thành chu hoa
Mid$(BangChu, 1, 1) = UCase$(Mid$(BangChu, 1, 1))
vnd = BangChu
End Function

Ta có:

user posted image

Sau đó Click vào nút cất Save trên thanh công cụ. Xong. Ta đã tạo ra và cất các hàm trong tệp hàm mới.

Bạn có thể copy tệp HamMoi.XLA đến máy khác để bổ sung hàm cho Excel, nhưng tôi bổ sung tại chính máy này, nên tôi làm như sau.

Đang ở VBA, thì nhấn Alt + F11 để quay về Excel.

Click thực đơn Tools > Add-In...
user posted image

Hiện:
user posted image

Nếu có tên tệp hàm mới thì đánh dấu, nếu không thấy thì chọn Browse... để chọn HamMoi.XLA, OK

user posted image Ta được như hình thì lưu ý HamMoi phải được đánh dấu, và OK.

user posted image

Từ đây ta có thể dùng các hàm trong Excel ở bất cứ đâu được rồi.

Ở đây hàm bổ sung của ta tên là VND. Nên khi sử dụng ta đánh =VND(số) hoặc =VND(ô chứa số). Lưu ý phải có dấu =.

Ví dụ tôi muốn đọc số ở ô B3, ta đánh như hình:

user posted image

Nếu bạn muốn bổ sung thêm hàm mới khác vào tệp HamMoi.XLA thì lại Alt + F11 để sang VBA, nháy vào Module1 của VBAProject (HamMoi.XLA) và đánh bổ sung xuống bên dưới hàm đã có. Sau đó nhớ cất Save nhé! Việc bổ sung này là dùng luôn, không phải làm lại thao tác Add-In nữa, vì mình đã Add-In rùi.

Tạo hàm chấm công trong Excel

đăng 03:35 08-02-2012 bởi Huy Pham Xuan

Tạo hàm chấm công trong Excel

Đ



Ở các công ty, doanh nghiệp vừa và nhỏ việc chấm công thông thường được thực hiện trên Excel. Qua tìm hiểu tôi thấy rằng đa số dùng phương pháp chấm công như sau: có đi làm thì sẽ được chấm là X, nghỉ phép là P..., sau đó dùng một số hàm trong Excel để tính số ngày công trong một tháng của nhân viên. Thường số ngày làm việc luôn nhiều hơn số ngày nghỉ, nếu chấm công như trên thì bạn phải nhập vào bảng tính Excel nhiều hơn so với chỉ nhập vào những ngày nghỉ của nhân viên. Ngoài ra còn có những trường hợp đặc biệt như nghỉ phép ½ ngày, tăng ca... hoặc tính công nhật (ở một số công ty có cả công nhân thời vụ và công nhân chính thức), tính theo năng suất...

Vâng, vấn đề thật rắc rối! Ở đây tôi không có tham vọng giải quyết tất cả các vấn đề trên mà chỉ muốn giới thiệu một hàm chấm công có thể giúp cho công việc này dễ dàng hơn.

Cấu trúc của hàm chấm công như sau:

Public Function chamcong(ByVal Khoang As Range, ByVal Chucnang As String) As Single

Khoang: là khoảng (thông thường là một hàng, từ cột... đến cột...) tương ứng với hàng hay khoảng mà bạn chấm công cho một nhân viên.

Chucnang: là chuỗi hay ký tự đại diện cho một chức năng chấm công của bạn.

Giả sử ở đây tôi quy định:

• Nghỉ phép là: A

• Nghỉ bệnh là: S

• Nghỉ ma chay là: C

• Nghỉ không lương là: U

• Tăng ca ngày thường (tính hệ số nhân          1,5) là: N

• Tăng ca ngày nghỉ (tính hệ số nhân 2) là: D

Vậy nếu trong ngày một nhân viên nghỉ phép ½ ngày, tăng ca (ngày thường) 3 tiếng thì chuỗi chấm công như sau: “A0.5;N3”. Ở đây dùng dấu chấm phẩy (“;”) để phân cách, nếu muốn bạn cũng có thể thay đổi thứ tự trên.

Trong hàm chấm công, tôi có sử dụng Class “clsString” của tác giả Lê Đức Hồng ở website www.vovisoft.com. Trong cửa sổ Visual Basic Editor, bạn chọn Insert->Class Module, nhập vào class “clsString” như sau:

 

‘Author: Le Duc Hong

‘http://www.vovisoft.com

Option Explicit

Private SText As String

Private SDelimiter As String

Private IPos As Integer

Private ILen As Integer

Public MaxToken As Integer

Private Tokens() As String

Public Property Get Text() As Variant

   Text = SText

End Property

Public Property Let Text(ByVal vNewValue As Variant)

   SText = vNewValue

   ILen = Len(SText): IPos = 1

End Property

Public Property Get Delimiter() As Variant

   Delimiter = SDelimiter

End Property

Public Function TokenAt(TNum) As String

   If (TNum > 0) And (TNum <= MaxToken) Then

      TokenAt = Tokens(TNum)

   Else

      TokenAt = “”

   End If

End Function

Public Property Let Delimiter(ByVal vNewValue As Variant)

   SDelimiter = vNewValue

   Tokenise

End Property

Private Sub Tokenise()

   Dim i

   i = 0: IPos = 1

   Do Until IPos > ILen

      i = i + 1

      ReDim Preserve Tokens(i)

      Tokens(i) = GetToken

   Loop

   MaxToken = i

   IPos = 1

End Sub

Public Sub ReplaceToken(TNum, NewToken)

   If (TNum > 0) And (TNum <= MaxToken) Then

      Tokens(TNum) = NewToken

      ReconstructText

   End If

End Sub

Private Sub ReconstructText()

   Dim i

   SText = “”

   For i = 1 To MaxToken

      SText = SText & Tokens(i)

      If i < MaxToken Then SText = SText & SDelimiter

   Next

End Sub

Public Function KeepLeftPart(NumChar) As String

   If ILen >= NumChar Then

      SText = Left(SText, NumChar): ILen = Len(SText)

   End If

   KeepLeftPart = SText

End Function

Public Function KeepRightPart(NumChar) As String

   If ILen >= NumChar Then

      SText = Right(SText, NumChar): ILen = Len(SText)

   End If

   KeepRightPart = SText

End Function

Public Function KeepMidPart(SPos, NumChar) As String

   If ILen >= SPos Then

      SText = Mid(SText, SPos): ILen = Len(SText)

   End If

   If ILen >= NumChar Then

      SText = Right(SText, NumChar)

   End If

   KeepMidPart = SText

End Function

Public Property Get CurrentPos() As Variant

   CurrentPos = IPos

End Property

Public Property Let CurrentPos(ByVal vNewValue As Variant)

   IPos = vNewValue

End Property

Public Function GetToken() As String

   Dim Pos

   GetToken = “”

   If SDelimiter = “ “ Then

      Do While Mid(SText, IPos, 1) = “ “

         IPos = IPos + 1

         If IPos > ILen Then

            Exit Function

         End If

      Loop

   End If

   Pos = InStr(IPos, SText, SDelimiter)

   If Pos > 0 Then

      GetToken = Mid(SText, IPos, Pos - IPos)

      IPos = Pos + Len(SDelimiter)

   Else

      GetToken = Mid(SText, IPos, ILen - IPos + 1)

      IPos = ILen + 1

   End If

End Function

Public Sub Substitude(Param, ParamValue)

   Dim Pos, PLen

   PLen = Len(Param)

   Pos = InStr(SText, Param)

   Do While Pos > 0

      SText = Left(SText, Pos - 1) & ParamValue & Mid(SText, Pos + PLen)

      Pos = InStr(SText, Param)

   Loop

   ILen = Len(SText)

End Sub

Public Function GetLastToken() As String

   Dim Pos, Tlen

   Tlen = Len(SDelimiter)

   GetLastToken = “”

   If ILen = 0 Then

      Exit Function

   End If

   Pos = ILen - Tlen + 1

   Do While Pos > 0

      If Mid(SText, Pos, Tlen) = SDelimiter Then

         GetLastToken = Mid(SText, Pos + Tlen)

      End If

      Pos = Pos - 1

   Loop

End Function

Public Property Get Length() As Integer

   Length = ILen

End Property

Public Property Get TokenCount() As Variant

   TokenCount = MaxToken

End Property

 

Sau đó bạn “Insert” module và nhập đoạn mã hàm chấm công sau vào.

 

Public Function chamcong(ByVal Khoang As Range, ByVal Chucnang As String) As Single

Dim Socot As Integer, Sohang As Integer

Dim i As Integer, j As Integer, k As Integer

Dim Btotal As Single

Dim Bgiatriso As Single

Dim Bchucnang As String

Dim SoLoai As Byte ‘ Bien nay nham xac dinh so loai ngay nghi, tang ca... trong mot chuoi

Dim BChuoi As clsString

Dim BGiatri

On error resume next

‘Xac dinh so cot trong bien Khoang

Socot = Khoang.Columns.Count

‘Xac dinh so hang trong bien Khoang

Sohang = Khoang.Rows.Count

‘ Nham bao dam so sanh dung ta dung ham UCase

Chucnang = UCase(Chucnang)

‘Duyet qua cac cell trong bien Khoang

For i = 1 To Sohang

    For j = 1 To Socot

        BGiatri = Khoang.Cells(i, j).Value

        BGiatri = Trim(BGiatri)

        ‘ Bat dau xu ly bgiatri qua Class clsString

        Set BChuoi = New clsString

        BChuoi.Text = BGiatri

        ‘Ky tu de phan cach cac Chuc nang

        BChuoi.Delimiter = “;”

        ‘Xac dinh so Chuc nang trong 1 cell

        SoLoai = BChuoi.TokenCount

        For k = 1 To SoLoai

            ‘Chuoi cua tung chuc nang

            BGiatri = BChuoi.TokenAt(k)

            Bchucnang = UCase(Left(BGiatri, Len(Chucnang)))

            Bgiatriso = Val(Right(BGiatri, Len(BGiatri) - len(Chucnang)))

            Select Case Bchucnang

                Case Chucnang

                    Btotal = Btotal + Bgiatriso

            End Select

        Next k

    Next j

Next i

Chamcong = Btotal

End Function

 

Với hàm chấm công như trên, bạn có thể dùng các chuỗi ký tự dài hơn để thể hiện chức năng chấm công (ví dụ như: “nghiphep”, “nghibenh”, “tangca” ...), hay trong công thức bạn có thể tham chiếu đến một cell nào đó đại diện cho chức năng chấm công.

Ví dụ: ngày 22/02 tôi chấm công “nghiphep1”, ngày 23/02 tôi chấm công “nghiphep0.5;tangca3”. Trong ô AM8, tôi sẽ nhập vào công thức:

 

=chamcong(G8:AH8,$AM$7)  (ô AM7 chứa chữ “nghiphep”)

 

Trong ô AN8, tôi nhập công thức sau:

 

=chamcong(G8:AH8,$AN$7)  (ô AN7 chứa chữ “tangca”)

Dĩ nhiên sử dụng các chuỗi ký tự như trên thì dễ hiểu, nhưng bảng chấm công sẽ rất lượm thuộm.

Bảng tính sau minh họa cho ví dụ trên.

Hy vọng rằng bài viết trên giúp ích các bạn phần nào trong công việc chấm công nhàm chán nhưng... không được sai!

 

levanduyet@pmail.vnn.vn.

 

Đính Chính
Trong bài “Điều khiển PC từ xa “ của tác giả Nguyễn Việt Hà đăng trên PC World VN A 11/2002, trang 107 có một số lỗi sau
Đơn vị trị số F (microFara), nên nhiều bạn phản ánh làmcủa tụ C1 bị in sai thành 100 thiết bị không hoạt động. Xin sửa lại là 100nF (nanoFara; 1nF = 10-6F = 10m 6 pF).
Mắt nhận hồng ngoại tiếng Anh gọi là “IR-detector” chứ không phải là “IR-decoder” như báo đã đăng.
Thành thật xin cáo lỗi cùng tác giả và bạn đọc.


Cach tao ham

đăng 03:32 08-02-2012 bởi Huy Pham Xuan


Hình 1

Nếu trong một file Excel dùng để tính toán mà bạn cần sử dụng nhiều lần đến công thức để tính một công thức nào đó thì bạn nên tạo hàm để tính nhanh hơn và tiện lợi hơn.

Ví dụ trong trường hợp này, chúng ta sẽ tạo một hàm dùng đ tính diện tích một tam giác.

*** Sau đây là các bước tạo hàm "Heron" (không có dấu ngoặc kép) để tính diện tích tam giác khi biết 3 cạnh của tam giác theo công thức như hình 1.

     - Gọi lệnh Tools - Macro - Visual Basic Editor. (hay nhấn tổ hợp phím Alt + F11)
     - Excel sẽ mở cửa sổ màn hình biên soạn Microsoft Visual Basic.

     - Gọi lệnh Insert - Module. (Hình 2)
     - Bạn sẽ được 1 Module Sheet với ghi nhận là Book1 - Module1 (Code) trên Title

     -Gọi lệnh Insert - Procedure. (Hình 3)


Hình 2


Hình 3

     - Hộp thoại Add Procedure xuất hiện. Trong khung Name bạn gõ tên hàm là Heron. Dưới mục Type chọn  Function, dưới mục Scope giữ nguyên  Public. Nhấn OK(Hình 4)
     Lưu ý: Tên hàm dài từ 1 đến 255 ký tự, khởi đầu phải là mẫu tự (A-Z), còn lại có thể là mẫu tự và số, không được có khoảng trắng hay dấu chấm câu.


Hình 4

     - Visual Basic sẽ ghi giúp bạn 2 dòng lệnh: Khởi đầu Public Function Heron() và kết thúc bằng  End Function, là mốc khởi đầu và kết thúc của một hàm. Các dòng giữa dành cho bạn tự biên soạn theo nhu cầu.

     - Giữa 2 hàm Public Function và End Function bạn gõ nội dung của hàm Heron.

     - Gõ theo các đối số (A, B, C) phía sau tên hàm, đó là các tên tượng trưng cho các thông số (Symbolic Parameter) sẽ trao cho hàm. Các đối số phải cách nhau dấu phẩy, bất kể bạn chọn List Separator trong Control Panel là dấu gì.

     - Khi biên soạn, Visual Basic sẽ dò lỗi cú pháp tửng lệnh của bạn mỗi khi bạn Enter, và có thể thông báo ngay lỗi đó. Nếu đúng cú pháp, nó sẽ chỉnh lại khoảng cách giữa 2 từ, viết lại các từ khóa hay tên các hàm của Basic cho nghiêm chỉnh (Proper).

     - Các dòng lệnh có thể có các màu khác nhau:
        + Dòng lệnh đang bị lỗi: 
màu đỏ
        + Dòng chú thích: 
xanh lá cây
        + Các từ khóa (keyword): 
xanh
        + Tên của biến và hàm: đen

QUY ƯỚC VỀ CÁCH GHI CÂU LỆNH

MINH HỌA

    - Trên một dòng, thường viết một lệnh. Ở cuối dòng, có thể ghi thêm chú thích, với điều kiện ghi thêm dấu nháy đơn, và sẽ có màu xanh lá cây.     Dim A, B, C AS Integer
     A = 0    
' Gán trị ban đầu
    - Nếu dấu nháy đơn ghi ở đầu dòng , trọn dòng đó chỉ là chú thích.     ' Chương trình tính diện tích tam giác
    - Nếu ghi nhiều lệnh trên cùng một dòng, phải cách nhau dấu hai chấm (:)     A = 0 : B = 12 : C = 1001
    - Nếu lệnh quá dài, có thể nối tiếp xuống dòng dưới, với điều kiện cuối dòng trên phải có một khoảng trắng và dấu gạch dưới.     Dim Can, Chi
     Can = Array ("Giáp", "Ất", "Bính", _
            "Đinh", "Mậu", "Kỷ", "Canh", _
            "Tân", "Nhâm", "Quý")

 *** Hàm tính diện tích tam giác được phát biểu như sau: Hàm Heron cần nhận 3 đối số A, B, C ứng với số đo 3 cạnh. Nếu số đo cạnh 1 mà lớn hơn tổng 2 cạnh kia thì là tam giác "dỏm" nên đáp số = 0, Ngược lại là tam giác "zin" nên đáp số được tính như sau: căn bậc 2 của (p * (p - a) * (p - b) * (p - c)) với p là nửa chu vi của tam giác được tính bởi công thức: p = (a + b + c) / 2.

     - Và bây giờ bạn đánh hàm như hình 5.


Hình 5

- Để kiểm tra lỗi cú pháp, hãy gọi lệnh Debug và chọn  Compile VBAProject. Nếu thấy nó nín khe thì bạn hãy mừng vì như vậy tức là không phát hiện được lỗi nào về cú pháp. (chỉ lỗi cú pháp thôi, còn giải thuật thì chưa). (Hình 6)

- Ngược lại, tùy hoàn cảnh, sẽ thông báo một tỷ thứ lỗi, ví dụ như một số lỗi sau:
 
 Expect end of statement (phát biểu chưa kết thúc) -  Variable not defined (biến không định nghĩa) -  For without Next (For không có Next) -  Next without For (Next không có For) - Expect: Then or GoTo (đáng lẽ phải có từ khóa Then hay GoTo) -  Block If without End If (lệnh If thiếu End If) -  Sub or Function not defined (tên hàm hay tên Sub không định nghĩa) - Vân... vân... và vân vân...


Hình 6

THỬ NGHIỆM HÀM

     - Gọi lệnh View - Immediate Window (hay nhấn Ctrl - G) (Hình 7).

     - Xuất hiện cửa sổ Immediate. Trong cửa sổ này bạn thử gõ ?Heron(3, 4, 5) và Enter. Nếu thấy ngay bên dưới hiện ra kết quả là 6 thì xin "cúng hỷ". Nếu nó cho ra kết quả tùm lum tào lao thì bạn chỉ có một nước là phải rà soát lại cho đến khi nào thành công. Thử tiếp như hình 8.

     ~~~ Bây giờ bạn có thể đóng cửa sổ Visual Basic lại và áp dụng hàm này vào các sheet của bạn bằng cách đánh =Heron(A, B, C) - ví dụ: =Heron(30, 40, 50) hay =Heron(A1, B1, C1) đều được.

Lưu ý là nếu máy bạn có chương trình diệt virus thường trú ở thanh Taskbar thi nó sẽ báo file này của bạn có virus macro hỏi bạn có diệt không thì bạn làm ơn đửng có diệt, nếu không bao nhiêu công sức của bạn bỏ ra từ nãy giữ coi như "công cóc", hay lúc bạn chạy các chương trình diệt virus thì cũng đừng có diệt virus macro file này nha.

!!!!!!... Chúc Bạn Thành Công ...!!!!!!


Hình 7


Hình 8

~~~~~~

Thủ thuật tạo hàm riêng cho Excel

đăng 03:30 08-02-2012 bởi Huy Pham Xuan

Thủ thuật tạo hàm riêng cho Excel

09:24 10/11/2005
Chia sẻ: 
XHTTWebsite: Với những người thường xuyên phải sử dụng nhiều đến Excel hoặc các nhân viên kế toán muốn một số hàm riêng biệt để tính toán, chuyển đổi mà trong Excel không hỗ trợ. Đơn giản, giả dụ như bạn muốn in ấn một bảng kê có ghi tiền bằng chữ cho các bảng kê hoặc có thể sử dụng để tính cước phí chỉ cần thông qua một cột đơn vị, dung lượng, thời lượng sử dụng thì chẳng có hàm (function) nào trong Excel hỗ trợ. Lúc đó bạn sẽ phải lập trình cho mình một số hàm riêng trong công việc của mình. Các bước thực hiện bạn sẽ phải làm như sau. Tạo các macro cho worksheet. Vào Excel sau đó bạn tạo một worksheet mới. Sau đó vào menu Tools -> Macro -> Visual Basic Editor.
 
Sau khi cừa sổ chương trình Visual Basic Editor được mở ra bạn hãy chọn menu Insert -> Module. Tại đây bạn có thể khai báo các hàm riêng cho bạn. Chúng ta thừ làm ví dụ cho một bài toán đơn giản như sau: Một công ty bán phần mềm, nếu người mua mua của công ty các phiên bản đăng ký bản quyền thì dưới 10 phiên bản giá 5.000.000đ/phiên bản, nếu trên 10 bản thì giá từ bản thứ 11 trở đi là 4.000.000đ/phiên bản và từ bản thứ 31 trở đi thì giá là 2.500.000đ/phiên bản. Trong cừa sổ module của bạn hãy nhập đoạn code như dưới đây để tạo function tính tiền theo số lượng: Public Function Tinhtien(soluong As Integer) As Double    Tinhtien = 0    If soluong > 30 Then Tinhtien = 2.5 * (soluong - 30)    If soluong > 10 Then       If soluong > 30 Then Tinhtien = Tinhtien + 80       'do từ phiên bản 11 đến 20 giá là 4tr/1 phiên bản = 80tr       If soluong <= 30 Then Tinhtien = Tinhtien + 4 * (soluong - 10)       Tinhtien = Tinhtien + 50 '10 phiên bản đầu giá 50tr    Else       Tinhtien = Tinhtien + soluong * 5    End If    Tinhtien = Tinhtien * 10 ^ 6 'quy ra tien trieu    End Function
 
Sau đó bạn hãy lưu công việc của bạn, chọn menu File sau đó chọn Save, trong mục lưu giữ bạn hãy chọn tại FileType là Microsoft Office Excel Add-In (*.xla) rồi lưu lại với một tên file nào đó có thể lưu với tên Test.xla rồi nhấn Save.
 
Kích hoạt functions riêng của bạn Sau khi lưu giữ xong file Test.xla bạn hãy quay trở lại cừa sổ của Excel, chọn menu Tools -> Add-Ins, cừa sổ Add-Ins xuất hiện:
 
Nhấn Browse rồi chọn tới file Test.xla của bạn vừa được lưu giữ khi đó trên cừa sổ hộp thoại sẽ xuất hiện Test ở trong danh sách. Đánh dấu vào ô vuông phía trước Test để kích hoạt các hàm có trong file đó. Nhấn OK để thoát. sử dụng hàm của bạn Vào cell nào đó trong worksheet để thừ nghiệm kết quả của bạn, lựa chọn menu Insert -> Functions sẽ thấy hộp thoại như hình dưới đây:
 
Chọn tại phần Category hãy chọn User Defined sau đó chọn các hàm riêng của bạn ở danh sách phía dưới. Kết quả thừ nghiệm với hàm TinhTien như ví dụ trên sẽ cho bạn kết quả như ý. Kết quả ở hình dưới đây được sử dụng thêm hàm chuyển đổi từ số sang chữ.
 

1-10 of 13