Показать сообщение отдельно
Старый 22.03.2010, 09:38     # 675
Alex Dark
КОТовский
 
Аватар для Alex Dark
 
Регистрация: 12.03.2003
Адрес: ОренБюргер
Пол: Male
Сообщения: 1 569

Alex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех ГуруAlex Dark Отец (мать) всех Гуру
to Evgeshka
Добавь этот код. Процедуру SupperSpace подвесь на клавишу.
Обрабатывает колонку, в которой стоит курсор. Меняет твой символ chr(160) на пробел chr(32) потом лишние пробелы с лева и с права удаляет

там есть второй вариант, он за комментирован.

Да прибудет тебе счастье

Код:
Sub SupperSpace()
    Dim Row As Integer, Col As Integer, St As Integer
    Col = ActiveCell.Column
    Row = 1
    St = 0
    Do While True
        If IsEmpty(Cells(Row, Col).Value) Then
            St = St + 1
        Else
            'первый вариант. 
             f = Trim(StrTran(Cells(Row, Col).Value, Chr(160), Chr(32)))
            Cells(Row, Col).Value = f
            
            'второй вариант. В нем подставляется значение ячейки в виде формулы
            'f = "=" + Chr(34) + Trim(StrTran(Cells(Row, Col).Value, Chr(160), Chr(32))) + Chr(34)
            'Cells(Row, Col).Value = Null
            'Cells(Row, Col).Formula = f
        End If
        Row = Row + 1
        If St > 10 Then
            Exit Do
        End If
    Loop
End Sub

Function StrTran(A As String, B As String, C As String) As String
For i = 1 To Len(A)
    aa = Mid(A, i, 1)
    If aa = B Then
        StrTran = StrTran + C
    Else
        StrTran = StrTran + aa
    End If
Next
End Function
добавлено через 39 минут
Цитата:
Сообщение от kasha Посмотреть сообщение
...В нем, на странице Sheet1 клетке B10 есть ссылка (создал я её через кнопку "функции" > hyperlink... , ссылка в B10 выглядит след. образом =HYPERLINK([test.xlsx]Sheet2!$C$5) и при попытке нажать на неё вылетает ошибка "cannot open the specified file".
Среди нас телепатов нет, а офис тем более этим не страдает. Надо указывать полный путь до файла.

Цитата:
Сообщение от kasha Посмотреть сообщение
... но только в неназначенном месте, а мне надо чтоб он точно прыгал на обозначенную клетку.
...
как правильно написать формулу или ссылку, которая будет открывать нужный файл на сетевом диске в нужной клетке будет вставать курсор.
Пробовал на 2003. здесь это не возможно.
в 2007 не смотрел, но думаю этого там нет.
Ты помощь по функции посмотри иль сюда брось. В у мелкософта в онлайн не нашел.
__________________
Все мы финансовые гении и эффективные менеджеры,
только не у всех одногруппник или сосед по даче - президент.
Alex Dark вне форума