| Вопрос: Exsel это чудо | Добавлено: 25.03.07 00:00 |
Автор вопроса:  20vek
|
|
Первый раз вижу эксель, чудо,
а к нему задача. Не понимаю как пишутся макросы, пример. Range("C7").Select
Selection.Cut Range("A8").Select ActiveSheet.Paste Выделяемая ячейка C7 (7)это переменная,может быть и 220 нужно что бы писалось в ("A"& Переменная+1) Прошу ВАШЕЙ помощи. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  20vek Вопросов: 10 Ответов: 71 |
Профиль | | #1 | Добавлено: 25.03.07 00:28 |
|
iAddress = ActiveCell.Address
Range(iAddress).Select Selection.Cut Range(iAddress & 1).Select ActiveSheet.Paste iAddress имеет вид $c$20, осталось вот к этому 20 прибавить еденицу. Какие есть возможности у VBA? |
||
|
Номер ответа: 2 Автор ответа: 20vekВопросов: 10 Ответов: 71 |
Профиль | | #2 | Добавлено: 25.03.07 01:35 |
|
Сам через MsgBox нашел. Selection.Cut
Range("A" & Selection.Row + 1).Select ActiveSheet.Paste |
||
|
Номер ответа: 3 Автор ответа: night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #3 | Добавлено: 25.03.07 16:47 |
|
Сам через MsgBox нашел
...абалдеть! |
||
|
Номер ответа: 4 Автор ответа: 20vekВопросов: 10 Ответов: 71 |
Профиль | | #4 | Добавлено: 25.03.07 17:54 |
|
Я сам балдею!!!!!!!!!!
За ночь дембельскую работу сделал, в новую таблицу 20000 изменений вогнал. А вот, что Exsel я не видел не значит, что и VB то-же. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Распрямить() Selection.Cut Range("A" & Selection.Row + 1).Select ActiveSheet.Paste '**************************** MsgBox Selection.Row Cells(Selection.Row, "C"  .Select
Dim lSearchPos As String Dim N As Long N = InStr(1, Selection.Rows, " "
lSearchPos = Left(Selection.Rows, N) Dim x x = Len(Selection.Rows) - N ActiveCell.FormulaR1C1 = Right(Selection.Rows, x) Cells(Selection.Row, "B" .Select
ActiveCell.FormulaR1C1 = lSearchPos With ActiveCell.Characters(Start:=1, Length:=x).Font .Name = "Times New Roman" .FontStyle = "Bold Italic" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("B" & Selection.Row).Select N = Selection.Row - 1 Rows(N).Delete Rows(N - 1).Delete Sleep (500) End Sub |
||
Страница: 1 |