How Use IFERROR(2007) Function in Excel 2003 (UDF IFERROR2003)

   Hi ! Here Suggest to you

[ In 2007 Let's Use 2003 IFERROR ] Let's Look & Find
7  8  9  10	A B C D E F Name Tel Finder Answer Kim 101 kim 101 101 Hong 304 johan None None Jhon 502 hong 304 304

Used Formula ...(With Running MicrosoftExcel Ver 2003)
No	Addr'	If use below Formula, You'll Get Result as Right	Result	Etc
1	E8	=IF(ISERROR(VLOOKUP(D8,$A$8:$B$10,2,0)),"None",VLOOKUP(D8,$A$8:$B$10,2,0))	101
2		E8  His Formula Used This Cell  -> E8:E10
3	F8	=IFERROR2003(VLOOKUP(D8,$A$8:$B$10,2,0),"None")	101
4		F8  His Formula Used This Cell  -> F8:F10
How about this suggest?

Function IFERROR2003(WriteFormula, WriteAnswer)
Dim Answ As Variant
On Error Resume Next
Answ = Application.Evaluate(WriteFormula)
If Not (IsError(Answ)) Then
     IFERROR2003 = Answ
Else
Select Case Answ
     Case CVErr(xlErrDiv0):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNA):     IFERROR2003 = WriteAnswer
     Case CVErr(xlErrName):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNull):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNum):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrRef):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrValue):  IFERROR2003 = WriteAnswer
     Case Else:               IFERROR2003 = Answ
End Select
End If
End Function
Any Bug Or Ask ... Mail Or Post Reply

How Use Replace Function in Excel 97 (UDF Replace97)

Function Replace97(OriStr As Variant, _
               Str1 As String,  Str2 As String, _
               Optional Pos As  Double = 1)
Dim i9 As Double
Dim Fn As WorksheetFunction
Set Fn = Application.WorksheetFunction
If Pos = 1 Then
    Replace97 = Fn.Substitute(OriStr, Str1, Str2)
Else
Replace97 = OriStr
    For i9 = Pos To Len(OriStr)
    Replace97 = Fn.Substitute(Replace97, Str1, Str2, i9)
    Next
End If
End Function

How Use Split Function in Excel 97 (UDF Split97)

Function Split97(OriStr, Optional OptStr As String  = ",")
Dim GetText    As String
Dim GetPoss    As Double
Dim MidStr     As Variant
Dim AnsStr     As Variant
ReDim MidStr(0 To Len(CStr(OriStr)))
Dim i As Double, j As  Double
GetText = OriStr
For i = 1 To Len(CStr(OriStr))
GetPoss = InStr(GetText, OptStr)
     If GetPoss > 0 Then
          MidStr(j) = Left(GetText, GetPoss - 1)
          GetText = Mid(GetText, GetPoss + 1)
          j = j + 1
     Else
          MidStr(j) = Mid(GetText, GetPoss + 1)
          Exit For
     End If
Next
ReDim AnsStr(0 To j)
For i = 0 To j
     AnsStr(i) = MidStr(i)
Next
Split97 = AnsStr
End Function

String Date Calculate

As Seeing DateValue is String the Difficule to Calculate Follow Convert to Date(number) if Formula Want Below Method

   Hi ! Here Suggest to you

DataSheet= UseFormula   [ How Calculate Date( is STRING ) ] Let's Look & Find
1  2  3  4  5  6  7	A B C D E F Cell Format m/d/yyyy Calculete Dec-21-2008 Dec-31-2008 10 =B2-A2 Dec-21-2008 Mar-01-2009 70 =B5-A5 Cell Format String( Text ) Start End Calculete Dec/21/2008 Dec/31/2008 #VALUE! 21/Dec/2008 31/Dec/2008 10 Dec/21/2008 Mar/01/2009 #VALUE! 21/Dec/2008 01/Mar/2009 70

Used Formula ...(With Running MicrosoftExcel Ver 2003)
No	Addr'	If use below Formula, You'll Get Result as Right	Result	Etc
1	C2	=B2-A2	10
2	C3	=B3-A3	70
3	C6	=B6-A6	#VALUE!
4	C7	=B7-A7	#VALUE!
5	D6	=MID(A6,FIND("/",A6)+1,LEN(A6)-FIND(RIGHT(A6,5),A6)-1)&LEFT(A6,FIND("/",A6))&RIGHT(A6,4)	21/Dec/2008
6	D7	=MID(A7,FIND("/",A7)+1,LEN(A7)-FIND(RIGHT(A7,5),A7)-1)&LEFT(A7,FIND("/",A7))&RIGHT(A7,4)	21/Dec/2008
7	E6	=MID(B6,FIND("/",B6)+1,LEN(B6)-FIND(RIGHT(B6,5),B6)-1)&LEFT(B6,FIND("/",B6))&RIGHT(B6,4)	31/Dec/2008
8	E7	=MID(B7,FIND("/",B7)+1,LEN(B7)-FIND(RIGHT(B7,5),B7)-1)&LEFT(B7,FIND("/",B7))&RIGHT(B7,4)	01/Mar/2009
9	F6	=E6-D6	10
10	F7	=E7-D7	70
How about this suggest?

Sheet2Web How to Easy Sheet Data Post 2.00

When Post Excel Sheet data to web / Html
for advice to other man or post your blog...
this tool should Useful
if Use stay this file on your Excel folder
XLStart or Library folder.

folder 1 : C:\Program Files\Microsoft Office\Office\XLStart
folder 2 : C:\Program Files\Microsoft Office\Office\Library

2008.08.31 Added Include Link Method and 1 bug removed

Click to DownLoad Here ->> DownLoad xla file or DownLoad Zip file (New)

Sheet2Web How to Easy Sheet Data Post

When Post Excel Sheet data to web / Html
for advice to other man
or post your blog...
this tool should Useful
if Use stay this file on your Excel folder
XLStart or Library folder.

folder 1 : C:\Program Files\Microsoft Office\Office\XLStart
folder 2 : C:\Program Files\Microsoft Office\Office\Library


Click to DownLoad Here ->> DownLoad xla file or DownLoad Zip file (2008.08.31 changed)
Move Here (New)

	as seeing you can use 1 kind of data and formula 3 kind of only data which you selected posting easy and free type.

Sample Document

   Hi ! Here Suggest to you

Nice Question Thanks. DataSheet= SampleDoctment
1  2  3  4  5  6  7  8	A B C D E SampleDosumentMaking Month Section1 Section2 Section3 Max Jan 500 600 400 600 Feb 600 700 600 700 Mar 700 800 800 800 Apr 800 900 1,000 1000 May 900 1,000 1,200 1200 Summary 3,500 4,000 4,000

Used Formula ...(With Running MicrosoftExcel Ver 2003)
No	Addr'	If use below Formula, You'll Get Result as Right	Result	Etc
1	E3	=MAX(B3:D3)	600
2		E3  His Formula Used This Cell  -> E3:E7
3	B8	=SUM(B3:B7)	3,500
4		B8  His Formula Used This Cell  -> B8:D8
How about this suggest?