ексель

[Sla]

Address$ = Target.Address
записываете адрес ячейки в  Address$

Mid(iAddress$, 2) = "  "
убирает букву из адреса

Вот с этого места поподробнее, пожалуйста

iAddress$ = I
сохраняет строковую переменную в цифровую

 

[andi_ua]

и?

[andi_ua]

?

[andi_ua]

ячейка А5
убирает букву "А"

[Sla]

Mid Statement
Replaces a specified number of characters in a Variant (String) variable with characters from another string.
Syntax
Mid(stringvar, start[, length]) = string

Mid Function
Returns a Variant (String) containing a specified number of characters from a string.
Syntax
Mid(string, start[, length])

Как видно из описания Это разные вещи
если первая заменяет указанный интервал, то вторая возвращает указанный интервал.

а посему

Код:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
    iAddress$ = Target.Address
    iAddress$ = Mid(iAddress$, 4)
    If MsgBox("Внимательно изучаем HELP : " & iAddress$, vbYesNo, "") = vbYes Then
       Cancel = True
       End If
       
End Sub

[andi_ua]

привет.

Автор: Sla
Цитата
andi_ua, давай шевелить мозгами
"I" это I
а если попробывать
r = "A" + I + "B"
print r

а если ето делать

 q = 5
    Range("C" + q, "D" + q, "F" + q, "H" + q, "J" + q).Select
    Range("J" + q).Activate
то не получаетца. чем ето можно заменить?

[Sla]

не получаетца. чем ето можно заменить?

andi_ua, я так не могу...
Что не получается, какая ошибка?
Что по этому поводу говорит г-н HELP?
Ты думаешь что я тебе выложу готовый код? так я вроде уже столько натырок дал, что уже давно можно было бы закончить задачу

[andi_ua]

ну я и пытаюсь скласть ее вмести

выдает ошибку Wrong namber of argument  or invalid property assigment

на сколько я понимаю то загвостка в  iAddress$ или нет?
Range("C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$).Select

[Sla]

так переведи ошибку!

[andi_ua]

непраильно заданое число

[Sla]

andi_ua, круто с переводом

неверное число параметров или неправильное назначение свойств

[andi_ua]

ну а как надо было сделать?

[Sla]

Сравни

Range("A3,B3,D3,F3,H3,J3,L3,N3,P3,R3,T3,V3,X3,Z3,AB3,AD3").Select

Range("C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$).Select

 и расскажи в чем разница

[andi_ua]

в первом варианте выдиляет строку 3
а во втором строку iAddress$ так?

[andi_ua]

если писать так то выдает ошыбку
Range("C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$).Select

[Sla]

Второй раз спрошу

Сравни

Range("A3,B3,D3,F3,H3,J3,L3,N3,P3,R3,T3,V3,X3,Z3,AB3,AD3").Select

Range("C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$).Select

 и расскажи в чем разница

[andi_ua]

а ето не ответ?

если писать так то выдает ошыбку
Range("C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$).Select

[andi_ua]

 ето тоесть

в первом варианте выдиляет строку 3
а во втором строку iAddress$ так?

[Sla]

чем отличается
"A3,B3,D3,F3,H3,J3,L3,N3,P3,R3,T3,V3,X3,Z3,AB3,AD3"
от

"C" + iAddress$, "D" + iAddress$, "F" + iAddress$, "H" + iAddress$, "J" + iAddress$

[Deniss]

Доброй ночи! Нужна помощь!!!!!! Есть два файла в одном названия расположены по порядку кодов, т.е 14527 солнце,14528 счастье, 14529 радость и т.д., а вдругом в том порядке который необходим, но без кодов, например счастье, радость, солнце. Нужно чтобы в третем файле распологалось по тому порядку, как во втором, но уже с кодами. Пример: 14528 счастье, 14529 радость, 14527 солнце.
Копировать вставить очень сложно, ибо информации очень много. Подскажите ламеру есть ли такая формула, которая автоматически отсортирует в выше означенном порядке мою инфу?