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 не смотрел, но думаю этого там нет.
Ты помощь по функции посмотри иль сюда брось. В у мелкософта в онлайн не нашел.