Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A function of reverse complement
I've written an excel function aim to change a RNA sequence to its reverse complement (e.g. from "ACGUUGUA" to "UACAACGU") as: Function ReverseComplement(Rcell As Range, Optional IsText As Boolean) Dim i As Integer Dim strReverseSeq As String Dim strSenseSeq As String strSenseSeq = Trim(Rcell) For i = 1 To Len(strSenseSeq) strReverseSeq = Mid(strSenseSeq, i, 1) & _ strReverseSeq Next i If IsText = False Then ReverseComplement = CLng(strReverseSeq) Else ReverseComplement = strReverseSeq End If strSeqA1 = Replace(strReverseSeq, "A", "1") strSeqC2 = Replace(strSeqA1, "C", "2") strSeqG3 = Replace(strSeqC2, "G", "3") strSeqT4 = Replace(strSeqG3, "U", "4") strSeq1T = Replace(strSeqT4, "1", "U") strSeq2G = Replace(strSeq1T, "2", "G") strSeq3C = Replace(strSeq2G, "3", "C") strSeq4A = Replace(strSeq3C, "4", "A") End Function The first half works fine, which reverse the sequence, but the second part doesn't work, which cannot make the comoplements Please help for debug. Much thanks. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
typing a complement (i.e. notA) character in Excel | Excel Discussion (Misc queries) | |||
LINKEDRANGE function - a complement to the PULL function (for getting values from a closed workbook) | Excel Worksheet Functions | |||
How do I solve for complement rule of P(X > or = 4.0) in excel? | New Users to Excel | |||
Reverse MATCH Function | Excel Discussion (Misc queries) | |||
Reverse of Chr Function | Excel Programming |