ексель

[andi_ua]

здраствуйте, вопрос такой нажымаем на ячейку, нужно что б ее координаты сохранялися в другую ячейку с пожальшей ее обробкой.

как такое сделать?

[Sla]

наша пестня хороша начинай сначала
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

ActiveCell.Cells.Address

[andi_ua]

ну обясни, не доходит.
кнопок на каждого лепить не серйозно. ячеек около 4000 а переключателей не поставиш ексель умерает.

думал так
нажал на етот пример его координаты записало в какуюту ячейку а с той ячейки уже строить график

[Sla]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

при кликаньи на ячейку запустится этот обработчик
он и вернет тебе  тебе адрес ячейки

зы мне в лом писать тестовую прграммку

[andi_ua]

выдает Invalid use of property

[Sla]

все таки заставил
в модуль ЭтаКнига, в редакторе VB щелкаешь дважды и откроется окошечко

Код:

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

[andi_ua]

спасибо большое

[andi_ua]

извени что достаю, а что б выдавало тока одну цифру. ты написал так выдает "A5" а что б тока 5 было? не трудно помочь?

[Sla]

Не извиняю , но если нажать две волшебных кнопочки стоя на слове address
можно получить следующее

Address Property
               

Hyperlink object (Syntax 1): Returns or sets the address of the target document. Read/write String.

Range object (Syntax 2): Returns the range reference in the language of the macro. Read-only String.

Syntax 1

expression.Address

Syntax 2

expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

expression   Required. An expression that returns a Hyperlink object (Syntax 1) or a Range object (Syntax 2).

RowAbsolute   Optional Variant. True to return the row part of the reference as an absolute reference. The default value is True.

ColumnAbsolute   Optional Variant. True to return the column part of the reference as an absolute reference. The default value is True.

ReferenceStyle   Optional Variant. Can be one of the following XlReferenceStyle constants: xlA1 or xlR1C1. Use xlA1 to return an A1-style reference. Use xlR1C1 to return an R1C1-style reference. The default value is xlA1

External   Optional Variant. True to return an external reference. False to return a local reference. The default value is False.

RelativeTo   Optional Variant. If RowAbsolute and ColumnAbsolute are False, and ReferenceStyle is xlR1C1, you must include a starting point for the relative reference. This argument is a Range object that defines the starting point.

Remarks

If the reference contains more than one cell, RowAbsolute and ColumnAbsolute apply to all rows and columns.

[andi_ua]

ну спасибо я уже help читал)) я понял что Address возвращает  в виде A5. а как можно оставить тока одну эту 5? так можно?

[Sla]

конечно можно
F1

Mid Function
     

Returns a Variant (String) containing a specified number of characters from a string.

Syntax

Mid(string, start[, length])

The Mid function syntax has these named arguments:

Part Description
string Required. String expression from which characters are returned. If string contains Null, Null is returned.
start Required; Long. Character position in string at which the part to be taken begins. If start is greater than the number of characters in string, Mid returns a zero-length string ("").
length Optional; Variant (Long). Number of characters to return. If omitted or if there are fewer than length characters in the text (including the character at start), all characters from the start position to the end of the string are returned.



Remarks

To determine the number of characters in string, use the Len function.

Note   Use the MidB function with byte data contained in a string, as in double-byte character set languages. Instead of specifying the number of characters, the arguments specify numbers of bytes. For sample code that uses MidB, see the second example in the example topic.

[andi_ua]

розабрался))
 
как ето можно заминить? ато выдает что силишком длинная формула
Range("C5,D5,F5,H5,J5,L5,N5,P5,R5,T5,V5,X5,Z5,AB5,AD5,AF5,AH5,AJ5,AL5").Select
    Range("AL5").Activate

[andi_ua]

и еще как можно сделать А5 что б "5" задавалась в програме

[Sla]

сформулируй свои вопросы, ничего не понял

[andi_ua]

как можно сделать так что б ячейка А5 а сама цыфра  "5"  задавалась в макросе

[andi_ua]

сделал запись макроса, когда повторяю то выдает ошыбку "слишком большая формула" на скока понимаю сдесь выдиляет рядок Charts.Add

Range("C5,D5,F5,H5,J5,L5,N5,P5,R5,T5,V5,X5,Z5,AB5,AD5,AF5,AH5,AJ5,AL5").Select
    Range("AL5").Activate
Charts.Add
   

[Sla]

О себе : если туп как дерево - родишься баобабом (с)

еще раз, подробно, ЧТО ТЫ ХОЧЕШЬ получить. Опиши действия.

[andi_ua]

вопшем то что ты помог до етого. нажымеш на ячейку она сохраняет например А5 удаляетца буква отаетца тока одна цыфра. и ету цыфру чтоб подставляло для других букв(B,C,D) и т д.  чтоб по етим рисовало график код для 6 значений такой

Sub kil()
'
' kil Макрос
' Макрос записан 24.04.2008 (Zver)
'


    Range("A2,B2,D2,F2,H2,J2").Select
    Range("J2").Activate
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Лист2").Range("A2,B2,D2,F2,H2,J2")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист2"
End Sub

а для 30 выдает ошыбку что слишком большая формула

[Вад]

А если формулу делать в духе A2:J2? Или у тебя данные в ячейках "через одну"?

[andi_ua]

они идут не по порядку а через одну

[Sla]

а для 30 выдает ошыбку что слишком большая формула

Ключевая фраза. Есть ограничение на количество диапазонов

Как выйти из этой ситуации?
Создать "временный лист", в него записать в непрерывном диапазоне данные для графика, построить график
или
Выделить на этом листе место, благо, его еще много, и туда скопировать данные в непрерывный диапазон  для графика, построить график

[andi_ua]

спасибо и к "баобабом (с)" доходит

а на щет того что б вставлять
    Range("A3,B3,D3,F3,H3,J3,L3,N3,P3,R3,T3,V3,X3,Z3,AB3,AD3").Select
    Range("AD3").Activate
  нужную цыфру? она уже есть просто как ее поставить вместо "3" или не понятно обяснил?

[Sla]

    Range("A"+"5"+","+.....).Select
    Range("AD"+"5").Activate


ps баобабы - это ко мне,а не к тебе.

[andi_ua]

 

ну например вот так можно как-то сделать?
 I = 2
    Range("A" + "I", "B" + "I").Select
    Range("B" + "I").Activate

[Sla]

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

[andi_ua]

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

вот код может че не правильно?

 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
    iAddress$ = Target.Address
    Mid(iAddress$, 2) = "  "
    iAddress$ = I
   

    Range("A" + I, "B" + I, "D" + I).Select
    Range("D" + I).Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Лист2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Лист2").Range("A" + I, "B" + I, "D" + I)
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
End Sub
End Sub

[Sla]

Aaaa, убейте миня ап стену   

я привел условный код
тебе интерпретатор ВСЁ сказал,

Wrong namber of argument  or invalid property assigment


а это!!!!?

iAddress$ = Target.Address
Mid(iAddress$, 2) = "  "
iAddress$ = I

ну рааскажи что ты написал

[andi_ua]

  оставляет тока цифру я смотрел через msgbox вроде то,  а как надо было? еще что то напутал?

[Sla]

andi_ua, сделай так

Address$ = Target.Address
Расскажи что делается в этой строке

Mid(iAddress$, 2) = "  "

Расскажи что делается в этой строке

iAddress$ = I
Расскажи что делается в этой строке

Потом продолжим...

[andi_ua]

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

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

iAddress$ = I

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