vb « {patrickrice.net blog}

Archive for the ‘vb’ Category

Pull out e-mail addresses only in Excel

Wednesday, December 16th, 2015

Just a shot snippet of code to pull out e-mail addresses only, it works as a function in excel so you can write it as a function in excel.

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122, 64, 46: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

Function AlphaNumericOnly(strSource As String) As String

Dim i As Integer

Dim strResult As String

For i = 1 To Len(strSource)

Select Case Asc(Mid(strSource, i, 1))

Case 48 To 57, 65 To 90, 97 To 122, 64, 46: 'include 32 if you want to include space

strResult = strResult & Mid(strSource, i, 1)

End Select

AlphaNumericOnly = strResult

End Function

Tags: data cleaning, email, excel, vb
Posted in Code, data handling, e-mail, excel, vb, windows | Comments Off on Pull out e-mail addresses only in Excel

Table reating and text insertion

Tuesday, June 16th, 2015

Well there comes a time when you need to make a table in word and you need to insert data in to it, so here is my quick version, its not the greatest bit of code but it does the following job :

Creates a table
Inserts text

That’s all nothing more, nothing less.

Sub Macro3()
'



 Dim docActive As Document
 Dim tblNew As Table
 Dim celTable As Cell
 Dim intCount As Integer
 
 Set docActive = ActiveDocument
 Set tblNew = docActive.Tables.Add( _
 Range:=docActive.Range(Start:=0, End:=0), NumRows:=6, _
 NumColumns:=3)
 intCount = 1
 
 For Each celTable In tblNew.Range.Cells
 celTable.Range.InsertAfter vbCrLf & " Text here 1" & vbLf & "text here 2" & vbLf & "Text here 3 " & vbCrLf
 
' celTable.Range.InsertAfter "Cell " & intCount
 
 intCount = intCount + 1
 Next celTable
 
' tblNew.AutoFormat Format:=wdTableFormatColorful2, _
' ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True


End Sub

Sub Macro3()

Dim docActive As Document

Dim tblNew As Table

Dim celTable As Cell

Dim intCount As Integer

Set docActive = ActiveDocument

Set tblNew = docActive.Tables.Add( _

Range:=docActive.Range(Start:=0, End:=0), NumRows:=6, _

NumColumns:=3)

intCount = 1

For Each celTable In tblNew.Range.Cells

celTable.Range.InsertAfter vbCrLf & " Text here 1" & vbLf & "text here 2" & vbLf & "Text here 3 " & vbCrLf

' celTable.Range.InsertAfter "Cell " & intCount

intCount = intCount + 1

Next celTable

' tblNew.AutoFormat Format:=wdTableFormatColorful2, _

' ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True

End Sub

Handy links for this

https://msdn.microsoft.com/en-us/library/office/ff838470.aspx

Posted in Code, script, vb, windows, word | Comments Off on Table reating and text insertion

Father Of C And UNIX, Dennis Ritchie, has passed away at age 70

Thursday, October 13th, 2011

We seem to be loosing a lot of good people in the computer business, and the Father Of C And UNIX, Dennis Ritchie, has passed away at age 70. I know Steve Jobs helped create the the consumer demand for I.T. products but Dennis Ritchie was one of the inventors or the modern operating system, or what we know as Windows, Mac OS, and Linux. Some how I don’t think the worlds news papers will fill the front pages lamenting this loss, Which is sad really, seeing with out Denis Ritchie we may not have had the C programming language. Why is that important, well with out the C programming language, we as software poeople may not be able to write programs, which alot of have formed operating systems.

http://techcrunch.com/2011/10/13/father-of-c-and-unix-dennis-ritchie-passes-away-at-age-70/

Posted in Apple, bash, cloud, Code, e-mail, hardware, vb, windows | Comments Off on Father Of C And UNIX, Dennis Ritchie, has passed away at age 70

{patrickrice.net blog}

Archive for the ‘vb’ Category

Pull out e-mail addresses only in Excel

Table reating and text insertion

Father Of C And UNIX, Dennis Ritchie, has passed away at age 70

More:

amazon.com

Archives

log in details

amazon whish list

Blogroll