Create a User Defined Function (macro)


Create a User Defined Function
 Excel allows you to create custom functions, called "User Defined Functions" (UDFs) that can be used the same way you would use SUM() or some other built-in Excel function. This can be especially useful for advanced mathematics or special text manipulation. In fact, many Excel add-ins provide large collections of specialized functions.
This article will help you get started creating user defined functions with a couple of useful examples
  1. Open up a new workbook.
  2. Get into VBA (Press Alt+F11)
  3. Insert a new module (Insert > Module)
  4. - Copy and Paste the Excel user defined function examples -
  5. Get out of VBA (Press Alt+Q)
  6. Use the functions (They will appear in the Paste Function dialog box, Shift+F3, under the "User Defined" category)
If you want to use a UDF in more than one workbook, you can save your functions in your own custom add-in. Simply save your excel file that contains your VBA functions as an add-in file (.xla for Excel 2003 or .xlam for Excel 2007+). Then load the add-in (Tools > Add-Ins... for Excel 2003 or Developer > Add-Ins for Excel 2010+).
Warning! Be careful about using custom functions in spreadsheets that you need to share with others. If they don't have your add-in, the functions will 
Benefits of User Defined Excel Functions
  • Create a complex or custom math function.
  • Simplify formulas that would otherwise be extremely long "mega formulas".
  • Diagnostics such as checking cell formats.
  • Custom text manipulation.
  • Advanced array formulas and matrix functions.
Limitations of UDF's
  • Cannot "record" an Excel UDF like you can an Excel macro.
  • More limited than regular VBA macros. UDF's cannot alter the structure or format of a worksheet or cell.
  • If you call another function or macro from a UDF, the other macro is under the same limitations as the UDF.
  • Cannot place a value in a cell other than the cell (or range) containing the formula. In other words, UDF's are meant to be used as "formulas", not necessarily "macros".
  • Excel user defined functions in VBA are usually much slower than functions compiled in C++ or FORTRAN.
  • Often difficult to track errors.
  • If you create an add-in containing your UDF's, you may forget that you have used a custom function, making the file less sharable.
  • Adding user defined functions to your workbook will trigger the "macro" flag (a security issue: Tools > Macros > Security...).
User Defined Function Examples
Example #1: Get the Address of a Hyperlink
The following example can be useful when extracting hyperlinks from tables of links that have been copied into Excel, when doing post-processing on Excel web queries, or getting the email address from a list of "mailto:" hyperlinks.
This function is also an example of how to use an optional Excel UDF argument. The syntax for this custom Excel function is:
=LinkAddress(cell,[default_value])
To see an example of how to work with optional arguments, look up the IsMissing command in Excel's VBA help files (F1).
Function LinkAddress(cell As range, _ 
                     Optional default_value As Variant) 
  'Lists the Hyperlink Address for a Given Cell 
  'If cell does not contain a hyperlink, return default_value 
  If (cell.range("A1").Hyperlinks.Count <> 1) Then 
      LinkAddress = default_value 
  Else 
      LinkAddress = cell.range("A1").Hyperlinks(1).Address 
  End If 
End Function 


Example #2: Extract the Nth Element From a String
This example shows how to take advantage of some functions available in VBA in order to do some slick text manipulation. What if you had a bunch of telephone numbers in the following format: 1-800-999-9999 and you wanted to pull out just the 3-digit prefix?
This UDF takes as arguments the text string, the number of the element you want to grab (n), and the delimiter as a string (eg. "-"). The syntax for this example user defined function in Excel is:
=GetElement(text,n,delimiter)
Example: If B3 contains "1-800-333-4444", and cell C3 contains the formula, =GetElement(B3,3,"-"), C3 will then equal "333". To turn the "333" into a number, you would use =VALUE(GetElement(B3,3,"-")).
Function GetElement(text As Variant, n As Integer, _ 
                    delimiter As String) As String 
    GetElement = Split(text, delimiter)(n - 1)
End Function 


Example #3: Return the name of a month
The following function is based upon the built-in visual basic MonthName() function and returns the full name of the month given the month number. If the second argument is TRUE it will return the abbreviation.
=VBA_MonthName(month,boolean_abbreviate)
Example: =VBA_MonthName(3) will return "March" and =VBA_MonthName(3,TRUE) will return "Mar".
Function VBA_MonthName(themonth As Long, Optional abbreviate As Boolean) As Variant 
    VBA_MonthName = MonthName(themonth, abbreviate)
End Function 


Example #4: UDF for a Custom Mathematical Formula
One of the nice things about custom Excel functions is that you can simplify Excel formulas that would otherwise use nested If...Then... statements. As an example, let's say we have a simple function that includes division, but the formula changes when the divisor is zero. Also, we want to do some error checking, so we don't end up with #VALUE all over our spreadsheet.
For this example, we'll look at the KEI formula (Keyword Effectiveness Index), which when simplified looks something like this when using built-in Excel functions:
=IF(supply=0,demand^2,demand^2/supply)
The syntax for the custom user defined function is:
=KEI(demand,supply,[default_value])

Function KEI(demand As Variant, supply As Variant, _ 
             Optional default_value As Variant) As Variant 
'Keyword Effectiveness Index (KEI) 
    If IsMissing(default_value) Then 
        default_value = "n/a" 
    End If 
    If IsNumeric(demand) And IsNumeric(supply) Then 
        If supply = 0 Then 
            KEI = demand ^ 2 
            Exit Function 
        Else 
            KEI = demand ^ 2 / supply 
            Exit Function 
        End If 
    End If 
    KEI = default_value 

End Function 


Here is Example of Macro:

Function deduct(money As Long)
 Dim Salary As Long
 Salary = money * 1
 Select Case Salary
    Case 0 To 200000
        deduct = 2600
    Case 200001 To 250000
        deduct = 2925
    Case 250001 To 300000
        deduct = 3575
    Case 300001 To 350000
        deduct = 4225
    Case 350001 To 400000
        deduct = 4875
    Case 400001 To 450000
        deduct = 5525
    Case 450001 To 500000
        deduct = 6175
    Case 500001 To 550000
        deduct = 6825
    Case 550001 To 600000
        deduct = 7475
    Case 600001 To 650000
        deduct = 8125
    Case 650001 To 700000
        deduct = 8775
    Case 700001 To 750000
        deduct = 8425
    Case 750001 To 800000
        deduct = 10075
    Case 800001 To 850000
        deduct = 10725
    Case 850001 To 900000
        deduct = 11375
    Case 900001 To 950000
        deduct = 12025
    Case 950001 To 1000000
        deduct = 12675
    Case 1000001 To 100000000
        deduct = 13000
 End Select
End Function

Mix Style Vlogs

Comments

Post a Comment

Popular posts from this blog

រូបគំនូរប្រវត្តិសាស្ត្រ ជាច្រើននៅលើជញ្ជាំងព្រះវិហារ វត្តកំពង់ធំត្រូវបានគេបង្ហាញ ក្រោយពេលវាយកំទេចចោលរាបស្មើដី

Image
រូបគំនូរប្រវត្តិសាស្ត្រជាច្រើនត្រូវបានលោក ព្រាប ចាន់ម៉ារ៉ា បង្ហាញនៅលើ Facebook របស់លោកដោយអារម្មណ៍សោកស្តាយយ៉ាងខ្លាំង ពេលទទួលដំណឹងថា រូបគំនូរ និង ព្រះវិហារដ៏ចំណាស់ ក្នុងវត្តកំពង់ធំ ត្រូវបានគេវាយកំទេចរាបស្មើដល់ដី បាត់ទៅហើយ។ បើតាមប្រភពព័ត៌មានបានអោយដឹងថា វត្តកំពង់ធំ ត្រូវបានសាងសង់ឡើងនៅឆ្នាំ 1633 ចំណែកឯព្រះវិហារ ត្រូវបានសាងសង់នៅក្នុងឆ្នាំ 1948 ខណៈពេលដែលគំនូរនៅលើជញ្ជាំងព្រះវិហារ ត្រូវបានគេគូរនៅក្នុងឆ្នាំ 1960 ពេលនេះត្រូវបានវាយកំទេចចោល ទោះបីធ្លាប់បានដាក់ជាបេតិកភណ្ឌជាតិ កាលពីឆ្នាំ 2007 យ៉ាងណាក្តី។ លោក ព្រាប ចាន់ម៉ារ៉ា បានរៀបរាប់នៅលើ Facebook លោកថា៖ “គំនូរជាប្រវត្តិសាស្ត្រនៅវត្តកំពង់ធំ គូរឆ្នាំ១៩៦០ មានរូបអ្នកដឹកនាំ​ល្បីៗ​លើលោកសម័យនោះ ដែលមានទំនាក់ទំនងជាមួយខ្មែរ ដូចជា ចិន, រុស្សី, អាមេរិក, ឥណ្ឌា, ឥណ្ឌូនេស៊ី, ភូមា… និងព្រះឆាយាលក្ខណ៍​ព្រះបរមរតនកោដ្ឋ។ល។ ដែលអ្នកស្រាវជ្រាវខ្មែរនិងបរទេស​ចាប់អារម្មណ៍​សិក្សា ត្រូវគេវាយកម្ទេចឲ្យវិនាសអន្តរាយ (ក្នុងព្រះវស្សា​និងក្នុងរដូវបុណ្យភ្ជុំបិណ្ឌឆ្នាំ២០១៧នេះ)”
Read more

ធ្លាក់សពណ៌ត្នោត មានន័យដូចម្តេច? ស្ត្រីគ្រប់រូបគួរដឹងពីឥឡូវនេះ

Image
ធ្លាក់ស​ពណ៌​ត្នោត​ច្រើន​ថ្ងៃ​គឺជា​រឿង​ដែល​ត្រូវ​បារម្ភ​។ ការ​ធ្លាក់ស​បែបនេះ អ្នកនឹង​កត់សម្គាល់ឃើញ​អាស្រ័យទៅលើ​ចំណុច​ណាមួយ​នៃ​វដ្ត​រដូវ ហើយ​ខាងក្រោម​នេះ​ជា​របៀប​សម្គាល់​អាស្រ័យ​លើ​វដ្ដ​រដូវ​។​ ​    ​* មុនពេល​មក​រដូវ ៖ ធ្លាក់ស​ពណ៌​ត្នោត មុនពេល​ចាប់ផ្ដើម​រដូវ​គឺជា​រឿង​ធម្មតា មិនត្រូវ​ព្រួយបារម្ភ​ទេ​។ ប៉ុន្ដែ​ប្រសិនបើ​វា​បន្ត ២-៣ ថ្ងៃ​រហូតដល់​មក​រដូវ​គឺជា​រឿង​ត្រូវ​ព្រួយបារម្ភ​។ មូលហេតុ​ដោយសារ មិនមាន​ប្រូ​សេ​ស្តេ​រ៉ូ​ច្រើន ដែល​វា​គួរតែមាន​ច្រើន​និង​មាន​សុខ​ភាពល្អ​ក្នុងការ​រក្សា​ស្ត្រី​ឱ្យមាន​ផ្ទៃពោះ​។ ហើយ​វីតាមីន B6 គឺអាច​ជួយ​ផលិត​ប្រូ​សេ​ស្តេ​រ៉ូ​នេះ​ឡើងវិញ និង​តម្រូវឱ្យ​ជួប​ពេទ្យ​រោគ​ស្ត្រី​។​ ​    ​* ពាក់កណ្ដាល​រដូវ ៖ វា​អាចជា​សញ្ញា​នៃ​ការបញ្ចេញ​ពង​អូវុល ឬ​ជាស​ញ្ញា​នៃ​ការផលិត​អ័រម៉ូន​មិន​គ្រប់គ្រាន់​។ អ័រម៉ូន Estrogen  និង​ប្រូ​សេ​ស្តេ​រ៉ូ​មាន​សុខភាព​ល្អ​ជួយ​រក្សា​ស្រទាប់​ស្បូន រហូតដល់​មក​រដូវ​។​ ​    ​* ចុងរដូវ ៖ ឈាម​នឹង​ចាប់ផ្ដើម​ហូរ​ដើម្បី​បញ្ចប់​រដូវ​របស់​អ្នក ហើយ​វា​មិនមែនជា​រឿង​ល្អ​ទេ​សម្រាប់​ស្ត្រី​ណា​ដែលមាន​ធ្លាក់ស​ពណ៌​ត្នោត​នោះ​។ នេះ​គឺជា​ឈាម​ចាស់ ដែល​នៅ​យូរ​ទម្រាំ​វា​ហូរ​ចេញមក
Read more

ចៀសវាង ៧ចំណុចនេះពេលកក់សក់ បើមិនចង់អោយសក់ខូច

Image
សក់ស្រស់ស្អាត, ភ្លឺរលោង និងគ្មានអង្គែលើស្បែកក្បាល គឺជាអ្វីដែលមនុស្សគ្រប់រូបប្រាថ្នាចង់បាន។ ប៉ុន្តែជារៀងរាល់ថ្ងៃស្ត្រីគ្រប់រូបតែងតែធ្វើឲ្យសក់ខូចដោយមិនដឹងខ្លួន ក៏ព្រោះតែការកក់សក់មិនបានត្រឹមត្រូវ, ការសម្ងួតសក់ និងការធ្វើម៉ូដសក់ជាដើម។ ដូច្នេះដើម្បីជៀសវាង បញ្ហាទាំងនេះ សូមចៀសវាងទង្វើមួយចំនួនដូចខាងក្រោម: ១. កុំកក់សក់ញឹកពេក កុំព្យាយាមប្រើសាប៊ូកក់សក់ញឹកញាប់ពេក ព្រោះវាអាចបណ្តោលឲ្យស្ងួតស្បែកក្បាល។ ២. ពេលកក់សក់កុំទុកយូរពេក នៅពេលដែលកក់សក់កុំទុកសាប៊ូនៅលើក្បាលយូរពេក បើទោះបីជាអ្នកកក់សក់យូរៗម្តង ឬញឹកញាប់ក៏ដោយ។ ៣. កុំអេះខ្លាំងពេក ដើម្បីបង្កាការបាក់ និងជ្រុះសក់ សូមប្រើដៃអេះថ្នមៗនៅពេលកក់សក់។ ៤. មិនត្រូវប្តូរប្រភេទសាប៊ូញឹកញាប់ទេ ការប្រើសាប៊ូតែមួយប្រភេទត្រូវបានផ្តល់អនុសាសន៍ ប្រសើរជាងការផ្លាស់ប្តូរសាប៊ូថ្មីរៀងរាល់ខែ។ ៥. មិនត្រូវលាងសម្អាតដោយប្រើទឹកដែលមានសីតុណ្ហភាពខ្ពស់ សូមកុំព្យាយាមប្រើទឹកដែលមានសីតុណ្ហភាពខ្ពស់ពេក អ្នកត្រូវប្រើទឹកក្តៅឧណ្ឌៗ ឬទឹកត្រជាក់នៅពេលដែលលាងសម្អាត ដើម្បីកុំឲ្យប៉ះពាល់ដល់ស្បែកក្បាល។ ៦. កុំត្រដុសនៅពេលសក់សើម ចៀសវាងការត្រដុស នៅពេលដែលសក់របស់អ្នកកំពុងតែសើម ព្រោះពេលនេះសក់ងាយនឹងផុយ ហើយឆាប់បាក់។ ៧.
Read more