Помогите написать ещё одну функцию - назавем её реверс-комплемент (ReverseComplement). Нужно текст содержащийся в ячейке прочитать в обратном направлении и заменить в нем все буквы С на G, G на C, A на T и T на A.
Возможно понадобится функция реверс:
Сейчас я пользуюсь ей, а потом с помощью ПОДСТАВИТЬ меняю поочередно буквы, но это долго и много лишних ячеек. Пример прикрепляю.
Правда со вчерашнего дня хороший человек по имени БМВ подсказал более простой вариант:
но объединить эти две функции я не могу. Подскажите пожалуйста, может слепить эти функции в одну или, получается второй вопрос, можно ли какой-нибудь командой запускать две функции поочереди, как в случае макросов - макрос для объединения макросов.
Возможно понадобится функция реверс:
Код |
---|
Function dhReverseText(strText As String) As String Dim i As Integer For i = Len(strText) To 1 Step -1 dhReverseText = dhReverseText & Mid(strText, i, 1) Next i End Function |
Сейчас я пользуюсь ей, а потом с помощью ПОДСТАВИТЬ меняю поочередно буквы, но это долго и много лишних ячеек. Пример прикрепляю.
Правда со вчерашнего дня хороший человек по имени БМВ подсказал более простой вариант:
Код |
---|
Function strAmino(strNukle As String) As String Dim i As Integer, rez As String For i = 1 To Len(strNukle) Step 1 Select Case Mid(strNukle, i, 1) Case "G": rez = rez & "C" Case "C": rez = rez & "G" Case "T": rez = rez & "A" Case "A": rez = rez & "T" End Select Next i strAmino = rez End Function |
но объединить эти две функции я не могу. Подскажите пожалуйста, может слепить эти функции в одну или, получается второй вопрос, можно ли какой-нибудь командой запускать две функции поочереди, как в случае макросов - макрос для объединения макросов.