Excel word pitch to music note

[RoyS]

Does anyone know of an Excel spreadsheet that will match the pitch of the sound of a word to a musical note. Instead of using chords for a line, use notes for every word. Thanks - Roy

 

[Joseph.Marro]

RoyS,

There are a few sound driven logic functions. However, I have not seen a method for the translation of specific notes and their pitch. Here is a link to some methods I use when dealing with matching based off sound (I am not the author). The main functions that may be of use to you are:

SoundEx
SoundEx2
Daitch-Mokotoff SoundEx
Metaphone
Double Metaphone

The above files are all within the Fuzzy Logic 2.xls file located at http://www.blog.methodsinexcel.co.uk/category/udf/page/2/.

Joe Was provided a different variation of the Soundex implementation for VBA here on MrExcel.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Function SOUNDEX(Surname As String) As String
' The Custom Function "SOUNDEX" used in this macro was Developed by Richard J. Yanco.
' This function follows the Soundex rules given at
' [URL]http://home.utah-inter.net/kinsearch/Soundex.html[/URL]
' The VB Application "Soundex_Codes; By: Joe Was & John Walkenbach.
Dim Result As String, c As String * 1
Dim Location As Integer
Surname = UCase(Surname)
' First character must be a letter
If Asc(Left(Surname, 1)) < 65 Or Asc(Left(Surname, 1)) > 90 Then
SOUNDEX = ""
Exit Function
Else
' St. is converted to Saint
If Left(Surname, 3) = "ST." Then
Surname = "SAINT" & Mid(Surname, 4)
End If
' Convert to Soundex: letters to their appropriate digit,
' A,E,I,O,U,Y ("slash letters") to slashes
' H,W, and everything else to zero-length string
Result = Left(Surname, 1)
For Location = 2 To Len(Surname)
Result = Result & Category(Mid(Surname, Location, 1))
Next Location
' Remove double letters
Location = 2
Do While Location < Len(Result)
If Mid(Result, Location, 1) = Mid(Result, Location + 1, 1) Then
Result = Left(Result, Location) & Mid(Result, Location + 2)
Else
Location = Location + 1
End If
Loop
' If category of 1st letter equals 2nd character, remove 2nd character
If Category(Left(Result, 1)) = Mid(Result, 2, 1) Then
Result = Left(Result, 1) & Mid(Result, 3)
End If
' Remove slashes
For Location = 2 To Len(Result)
If Mid(Result, Location, 1) = "/" Then
Result = Left(Result, Location - 1) & Mid(Result, Location + 1)
End If
Next
' Trim or pad with zeroes as necessary
Select Case Len(Result)
Case 4
SOUNDEX = Result
Case Is < 4
SOUNDEX = Result & String(4 - Len(Result), "0")
Case Is > 4
SOUNDEX = Left(Result, 4)
End Select
End If
End Function
Private Function Category(c) As String
' Returns a Soundex code for a letter
Select Case True
Case c Like "[AEIOUY]"
Category = "/"
Case c Like "[BPFV]"
Category = "1"
Case c Like "[CSKGJQXZ]"
Category = "2"
Case c Like "[DT]"
Category = "3"
Case c = "L"
Category = "4"
Case c Like "[MN]"
Category = "5"
Case c = "R"
Category = "6"
Case Else 'This includes H and W, spaces, punctuation, etc.
Category = ""
End Select
End Function

 

[RoyS]

thanks a lot for the feedback, Roy

 

[bamaburns83]

Roy, I'm really trying hard to find the same thing...that is, a way to get pitch into excel. Will you please email me at jeff.burns.100@gmail.com?

I'm working on a unique/philosophical doctorate-level project that requires "pitch to MS Excel."

I'll let you know more about the project when you email me.

Kind Regards,

Jeff
jeff.burns.100@gmail.com

thanks a lot for the feedback, Roy