Прошу помочь разобраться в макросе с Target и Intersect
Саня
Дата: Суббота, 28.04.2012, 11:01 |
Сообщение № 41
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
вот где я это видел
[vba]
Code
Range("B5").Select Range("$B$5").Select Range("Дата").Select Range("B" & 5).Select [B5].Select [Дата].Select Range("A5").Next.Select Range("C5").Previous.Select Range("A5").Range("B1").Select Range("B1").Range("A5").Select Application.Goto Range("B5") Application.Goto Reference:=Range("B5") Application.Goto Reference:=Range("Дата") Application.Goto "Дата" Application.Goto [Дата] Application.Goto Reference:="Дата" Application.Goto Reference:=[Дата] Range(Names!Дата).Select Range(ThisWorkbook.Names!Дата).Select Range(Application.Names!Дата).Select Range(Names("Дата")).Select Range(ThisWorkbook.Names("Дата")).Select Range(Application.Names("Дата")).Select Names!Дата.RefersToRange.Select ThisWorkbook.Names!Дата.RefersToRange.Select Application.Names!Дата.RefersToRange.Select Names("Дата").RefersToRange.Select ThisWorkbook.Names("Дата").RefersToRange.Select Application.Names("Дата").RefersToRange.Select Range("B5:B10").Item(1).Select Range("B5:B10").Item(1, 1).Select Range("A5:CM5").Item(1, 2).Select Range("B1:B10").Item(5).Select Range("B1:B10").Item(5, 1).Select Range("C1:D10").Item(5, 0).Select Range("D1:H50").Item(5, -1).Select Range("A17:E15").Item(-9, 2).Select Range("D10:E15").Item(-4, -1).Select Range("B5:B10")(1).Select Range("B5:B10")(1, 1).Select Range("D1:H50")(5, -1).Select Range("A17:E15")(-9, 2).Select Range("D10:E15")(-4, -1).Select Range("B5:B10").Cells(1).Select Range("B5:B10").Cells(1, 1).Select Range("A5:CM5").Cells(1, 2).Select Range("B1:B10").Cells(5).Select Range("B1:B10").Cells(5, 1).Select Range("C1:D10").Cells(5, 0).Select Range("D1:H50").Cells(5, -1).Select Range("A17:E15").Cells(-9, 2).Select Range("D10:E15").Cells(-4, -1).Select Range("B:B").Item(5).Select Range("B:B").Cells(5).Select Range("B:B").Rows(5).Select Range("B:B").Rows("5:5").Select Range("5:5").Item(2).Select Range("5:5").Cells(2).Select Range("5:5").Columns(2).Select Range("5:5").Columns("B").Select Range("5:5").Columns("B:B").Select Range("B:B 5:5").Select Range("B:B" & " " & "5:5").Select Range("B1").Offset(4).Select Range("C1").Offset(4, -1).Select Range("C10").Offset(-5, -1).Select Range("B5,B5").Select [B5:B5].Select [B5.B5].Select Range("B5.B5").Select Range("B5:B5").Select Range("B5:B5:B5").Select Range("B5", "B5").Select Range("$B$5", "$B$5").Select Range("B5", Range("B5")).Select Range(Range("B5"), "B5").Select Range(Range("B5"), Range("B5")).Select Range(Cells(1026), Cells(1026)).Select Range(Cells(5, 2), Cells(5, 2)).Select Range(Cells(5, "B"), Cells(5, "B")).Select Range(Cells(5, "B:B"), Cells(5, "B:B")).Select Cells(5, 2).Select Cells(5, "B").Select Cells(5, "B:B").Select Cells(1026).Select Rows(5).Cells(2).Select Rows(5).Columns(2).Select Rows(5).Columns("B").Select Rows(5).Columns("B:B").Select Rows("5:5").Columns("B").Select Rows("5:5").Columns("B:B").Select Columns(2).Cells(5).Select Columns(2).Rows(5).Select Columns(2).Rows("5:5").Select Columns("B").Cells(5).Select Columns("B").Rows(5).Select Columns("B").Rows("5:5").Select Columns("B:B").Cells(5).Select Columns("B:B").Rows(5).Select Columns("B:B").Rows("5:5").Select
[/vba]
вот где я это видел
[vba]
Code
Range("B5").Select Range("$B$5").Select Range("Дата").Select Range("B" & 5).Select [B5].Select [Дата].Select Range("A5").Next.Select Range("C5").Previous.Select Range("A5").Range("B1").Select Range("B1").Range("A5").Select Application.Goto Range("B5") Application.Goto Reference:=Range("B5") Application.Goto Reference:=Range("Дата") Application.Goto "Дата" Application.Goto [Дата] Application.Goto Reference:="Дата" Application.Goto Reference:=[Дата] Range(Names!Дата).Select Range(ThisWorkbook.Names!Дата).Select Range(Application.Names!Дата).Select Range(Names("Дата")).Select Range(ThisWorkbook.Names("Дата")).Select Range(Application.Names("Дата")).Select Names!Дата.RefersToRange.Select ThisWorkbook.Names!Дата.RefersToRange.Select Application.Names!Дата.RefersToRange.Select Names("Дата").RefersToRange.Select ThisWorkbook.Names("Дата").RefersToRange.Select Application.Names("Дата").RefersToRange.Select Range("B5:B10").Item(1).Select Range("B5:B10").Item(1, 1).Select Range("A5:CM5").Item(1, 2).Select Range("B1:B10").Item(5).Select Range("B1:B10").Item(5, 1).Select Range("C1:D10").Item(5, 0).Select Range("D1:H50").Item(5, -1).Select Range("A17:E15").Item(-9, 2).Select Range("D10:E15").Item(-4, -1).Select Range("B5:B10")(1).Select Range("B5:B10")(1, 1).Select Range("D1:H50")(5, -1).Select Range("A17:E15")(-9, 2).Select Range("D10:E15")(-4, -1).Select Range("B5:B10").Cells(1).Select Range("B5:B10").Cells(1, 1).Select Range("A5:CM5").Cells(1, 2).Select Range("B1:B10").Cells(5).Select Range("B1:B10").Cells(5, 1).Select Range("C1:D10").Cells(5, 0).Select Range("D1:H50").Cells(5, -1).Select Range("A17:E15").Cells(-9, 2).Select Range("D10:E15").Cells(-4, -1).Select Range("B:B").Item(5).Select Range("B:B").Cells(5).Select Range("B:B").Rows(5).Select Range("B:B").Rows("5:5").Select Range("5:5").Item(2).Select Range("5:5").Cells(2).Select Range("5:5").Columns(2).Select Range("5:5").Columns("B").Select Range("5:5").Columns("B:B").Select Range("B:B 5:5").Select Range("B:B" & " " & "5:5").Select Range("B1").Offset(4).Select Range("C1").Offset(4, -1).Select Range("C10").Offset(-5, -1).Select Range("B5,B5").Select [B5:B5].Select [B5.B5].Select Range("B5.B5").Select Range("B5:B5").Select Range("B5:B5:B5").Select Range("B5", "B5").Select Range("$B$5", "$B$5").Select Range("B5", Range("B5")).Select Range(Range("B5"), "B5").Select Range(Range("B5"), Range("B5")).Select Range(Cells(1026), Cells(1026)).Select Range(Cells(5, 2), Cells(5, 2)).Select Range(Cells(5, "B"), Cells(5, "B")).Select Range(Cells(5, "B:B"), Cells(5, "B:B")).Select Cells(5, 2).Select Cells(5, "B").Select Cells(5, "B:B").Select Cells(1026).Select Rows(5).Cells(2).Select Rows(5).Columns(2).Select Rows(5).Columns("B").Select Rows(5).Columns("B:B").Select Rows("5:5").Columns("B").Select Rows("5:5").Columns("B:B").Select Columns(2).Cells(5).Select Columns(2).Rows(5).Select Columns(2).Rows("5:5").Select Columns("B").Cells(5).Select Columns("B").Rows(5).Select Columns("B").Rows("5:5").Select Columns("B:B").Cells(5).Select Columns("B:B").Rows(5).Select Columns("B:B").Rows("5:5").Select
[/vba]
Саня
Ответить
Сообщение вот где я это видел
[vba]
Code
Range("B5").Select Range("$B$5").Select Range("Дата").Select Range("B" & 5).Select [B5].Select [Дата].Select Range("A5").Next.Select Range("C5").Previous.Select Range("A5").Range("B1").Select Range("B1").Range("A5").Select Application.Goto Range("B5") Application.Goto Reference:=Range("B5") Application.Goto Reference:=Range("Дата") Application.Goto "Дата" Application.Goto [Дата] Application.Goto Reference:="Дата" Application.Goto Reference:=[Дата] Range(Names!Дата).Select Range(ThisWorkbook.Names!Дата).Select Range(Application.Names!Дата).Select Range(Names("Дата")).Select Range(ThisWorkbook.Names("Дата")).Select Range(Application.Names("Дата")).Select Names!Дата.RefersToRange.Select ThisWorkbook.Names!Дата.RefersToRange.Select Application.Names!Дата.RefersToRange.Select Names("Дата").RefersToRange.Select ThisWorkbook.Names("Дата").RefersToRange.Select Application.Names("Дата").RefersToRange.Select Range("B5:B10").Item(1).Select Range("B5:B10").Item(1, 1).Select Range("A5:CM5").Item(1, 2).Select Range("B1:B10").Item(5).Select Range("B1:B10").Item(5, 1).Select Range("C1:D10").Item(5, 0).Select Range("D1:H50").Item(5, -1).Select Range("A17:E15").Item(-9, 2).Select Range("D10:E15").Item(-4, -1).Select Range("B5:B10")(1).Select Range("B5:B10")(1, 1).Select Range("D1:H50")(5, -1).Select Range("A17:E15")(-9, 2).Select Range("D10:E15")(-4, -1).Select Range("B5:B10").Cells(1).Select Range("B5:B10").Cells(1, 1).Select Range("A5:CM5").Cells(1, 2).Select Range("B1:B10").Cells(5).Select Range("B1:B10").Cells(5, 1).Select Range("C1:D10").Cells(5, 0).Select Range("D1:H50").Cells(5, -1).Select Range("A17:E15").Cells(-9, 2).Select Range("D10:E15").Cells(-4, -1).Select Range("B:B").Item(5).Select Range("B:B").Cells(5).Select Range("B:B").Rows(5).Select Range("B:B").Rows("5:5").Select Range("5:5").Item(2).Select Range("5:5").Cells(2).Select Range("5:5").Columns(2).Select Range("5:5").Columns("B").Select Range("5:5").Columns("B:B").Select Range("B:B 5:5").Select Range("B:B" & " " & "5:5").Select Range("B1").Offset(4).Select Range("C1").Offset(4, -1).Select Range("C10").Offset(-5, -1).Select Range("B5,B5").Select [B5:B5].Select [B5.B5].Select Range("B5.B5").Select Range("B5:B5").Select Range("B5:B5:B5").Select Range("B5", "B5").Select Range("$B$5", "$B$5").Select Range("B5", Range("B5")).Select Range(Range("B5"), "B5").Select Range(Range("B5"), Range("B5")).Select Range(Cells(1026), Cells(1026)).Select Range(Cells(5, 2), Cells(5, 2)).Select Range(Cells(5, "B"), Cells(5, "B")).Select Range(Cells(5, "B:B"), Cells(5, "B:B")).Select Cells(5, 2).Select Cells(5, "B").Select Cells(5, "B:B").Select Cells(1026).Select Rows(5).Cells(2).Select Rows(5).Columns(2).Select Rows(5).Columns("B").Select Rows(5).Columns("B:B").Select Rows("5:5").Columns("B").Select Rows("5:5").Columns("B:B").Select Columns(2).Cells(5).Select Columns(2).Rows(5).Select Columns(2).Rows("5:5").Select Columns("B").Cells(5).Select Columns("B").Rows(5).Select Columns("B").Rows("5:5").Select Columns("B:B").Cells(5).Select Columns("B:B").Rows(5).Select Columns("B:B").Rows("5:5").Select
[/vba]
Автор - Саня Дата добавления - 28.04.2012 в 11:01
Саня
Дата: Суббота, 28.04.2012, 11:07 |
Сообщение № 42
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
Quote (Alex_ST )
Саш, у массива/словаря/коллекции тоже есть свойства Item А попробуй-ка ты обратись к Item, номер которого больше чем есть в объекте? Ошибочка будет! Что в общем-то вполне логично. Вот и с диапазоном, я был уверен и даже проверять не стал пока здесь не наткнулся... Если задаётся Range("A1:B2"), то это должно быть как массив 2х2 ячейки. И обращение к элементу за пределами объекта должно было вызвать ошибку!
согласен. там вообще с синтаксисом весело - пиши, что хочешь, ошибки не возникнет, но результат почти стихийный...
Quote (Alex_ST )
Саш, у массива/словаря/коллекции тоже есть свойства Item А попробуй-ка ты обратись к Item, номер которого больше чем есть в объекте? Ошибочка будет! Что в общем-то вполне логично. Вот и с диапазоном, я был уверен и даже проверять не стал пока здесь не наткнулся... Если задаётся Range("A1:B2"), то это должно быть как массив 2х2 ячейки. И обращение к элементу за пределами объекта должно было вызвать ошибку!
согласен. там вообще с синтаксисом весело - пиши, что хочешь, ошибки не возникнет, но результат почти стихийный... Саня
Ответить
Сообщение Quote (Alex_ST )
Саш, у массива/словаря/коллекции тоже есть свойства Item А попробуй-ка ты обратись к Item, номер которого больше чем есть в объекте? Ошибочка будет! Что в общем-то вполне логично. Вот и с диапазоном, я был уверен и даже проверять не стал пока здесь не наткнулся... Если задаётся Range("A1:B2"), то это должно быть как массив 2х2 ячейки. И обращение к элементу за пределами объекта должно было вызвать ошибку!
согласен. там вообще с синтаксисом весело - пиши, что хочешь, ошибки не возникнет, но результат почти стихийный... Автор - Саня Дата добавления - 28.04.2012 в 11:07
nerv
Дата: Суббота, 28.04.2012, 12:10 |
Сообщение № 43
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Я, наверное, привередничаю, но считаю такое комментирование не со всем правильным. Читайте все буквально, вам же будет проще. код [vba]Code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 1 Then Application.EnableEvents = False With Target With .Offset(, 4) .Value = Time .NumberFormat = "[$-F400]h:mm:ss AM/PM" .EntireColumn.AutoFit End With With .Offset(, 5) .Value = Date .NumberFormat = "d/m/yyyy" .EntireColumn.AutoFit End With End With Application.EnableEvents = True End If End Sub
[/vba] псевдо-код [vba]Code
Приватная Процедура [Рабочий]Лист_[Cобытие]Изменение([Параметр передается]ПоЗначению [Имя_переменной]Цель [Объявить]Как [Тип_данных]Диапазон) Если Цель.Ячейки.Считать > 1 Тогда ВыйтиИз Процедуры Если Цель.Столбец = 1 Тогда Приложение.РазрешитьСобытия = Ложь С Цель С .Смещение([строки], [столбцы] 4) .Значение = Время .Номер[Тип?]Формата = "[$-F400]h:mm:ss AM/PM" .ВесьСтолбец.Автоподбр [Ширины] Конец С С .Смещение([строки], [столбцы] 5) .Значение = Дата .Номер[Тип?]Формата = "d/m/yyyy" .ВесьСтолбец.Автоподбр [Ширины] Конец С Конец С Приложение.РазрешитьСобытия = Истина Конец Если Конец Процедуры
[/vba]
Я, наверное, привередничаю, но считаю такое комментирование не со всем правильным. Читайте все буквально, вам же будет проще. код [vba]Code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 1 Then Application.EnableEvents = False With Target With .Offset(, 4) .Value = Time .NumberFormat = "[$-F400]h:mm:ss AM/PM" .EntireColumn.AutoFit End With With .Offset(, 5) .Value = Date .NumberFormat = "d/m/yyyy" .EntireColumn.AutoFit End With End With Application.EnableEvents = True End If End Sub
[/vba] псевдо-код [vba]Code
Приватная Процедура [Рабочий]Лист_[Cобытие]Изменение([Параметр передается]ПоЗначению [Имя_переменной]Цель [Объявить]Как [Тип_данных]Диапазон) Если Цель.Ячейки.Считать > 1 Тогда ВыйтиИз Процедуры Если Цель.Столбец = 1 Тогда Приложение.РазрешитьСобытия = Ложь С Цель С .Смещение([строки], [столбцы] 4) .Значение = Время .Номер[Тип?]Формата = "[$-F400]h:mm:ss AM/PM" .ВесьСтолбец.Автоподбр [Ширины] Конец С С .Смещение([строки], [столбцы] 5) .Значение = Дата .Номер[Тип?]Формата = "d/m/yyyy" .ВесьСтолбец.Автоподбр [Ширины] Конец С Конец С Приложение.РазрешитьСобытия = Истина Конец Если Конец Процедуры
[/vba] nerv
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук YM 41001156540584 / WM WMR R21924176233 https://github.com/nervgh/vba
Сообщение отредактировал nerv - Суббота, 28.04.2012, 12:11
Ответить
Сообщение Я, наверное, привередничаю, но считаю такое комментирование не со всем правильным. Читайте все буквально, вам же будет проще. код [vba]Code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 1 Then Application.EnableEvents = False With Target With .Offset(, 4) .Value = Time .NumberFormat = "[$-F400]h:mm:ss AM/PM" .EntireColumn.AutoFit End With With .Offset(, 5) .Value = Date .NumberFormat = "d/m/yyyy" .EntireColumn.AutoFit End With End With Application.EnableEvents = True End If End Sub
[/vba] псевдо-код [vba]Code
Приватная Процедура [Рабочий]Лист_[Cобытие]Изменение([Параметр передается]ПоЗначению [Имя_переменной]Цель [Объявить]Как [Тип_данных]Диапазон) Если Цель.Ячейки.Считать > 1 Тогда ВыйтиИз Процедуры Если Цель.Столбец = 1 Тогда Приложение.РазрешитьСобытия = Ложь С Цель С .Смещение([строки], [столбцы] 4) .Значение = Время .Номер[Тип?]Формата = "[$-F400]h:mm:ss AM/PM" .ВесьСтолбец.Автоподбр [Ширины] Конец С С .Смещение([строки], [столбцы] 5) .Значение = Дата .Номер[Тип?]Формата = "d/m/yyyy" .ВесьСтолбец.Автоподбр [Ширины] Конец С Конец С Приложение.РазрешитьСобытия = Истина Конец Если Конец Процедуры
[/vba] Автор - nerv Дата добавления - 28.04.2012 в 12:10
Alex_ST
Дата: Суббота, 28.04.2012, 12:34 |
Сообщение № 44
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
nerv , если это шутка, то смайлик можно было бы поставить. А если нет, то Вы первый, кто считает не правильным мой стиль программирования и комментирования
nerv , если это шутка, то смайлик можно было бы поставить. А если нет, то Вы первый, кто считает не правильным мой стиль программирования и комментирования Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение nerv , если это шутка, то смайлик можно было бы поставить. А если нет, то Вы первый, кто считает не правильным мой стиль программирования и комментирования Автор - Alex_ST Дата добавления - 28.04.2012 в 12:34
Serge_007
Дата: Суббота, 28.04.2012, 12:45 |
Сообщение № 45
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Quote (Alex_ST )
если это шутка, то смайлик можно было бы поставить.
Алекс, неужели ты на планете не привык к шуткам Юры М? Он тоже смайлы редко ставит Прикольно Вот так: Code
Процедура усВыгрузитьОстаткиТоваров () Экспорт РегламентноеЗадание = РегламентныеЗадания.НайтиПредопределенное(Метаданные.РегламентныеЗадания.усВыгрузкаОстатков); МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(Новый Структура("РегламентноеЗадание, Состояние", РегламентноеЗадание, СостояниеФоновогоЗадания.Активно)); Если МассивЗаданий.Количество() > 1 Тогда Возврат; КонецЕсли; усВыполнитьВыгрузкуОстатков(); Конецпроцедуры
выглядит реально действующий код для 1С. Похоже?
Quote (Alex_ST )
если это шутка, то смайлик можно было бы поставить.
Алекс, неужели ты на планете не привык к шуткам Юры М? Он тоже смайлы редко ставит Прикольно Вот так: Code
Процедура усВыгрузитьОстаткиТоваров () Экспорт РегламентноеЗадание = РегламентныеЗадания.НайтиПредопределенное(Метаданные.РегламентныеЗадания.усВыгрузкаОстатков); МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(Новый Структура("РегламентноеЗадание, Состояние", РегламентноеЗадание, СостояниеФоновогоЗадания.Активно)); Если МассивЗаданий.Количество() > 1 Тогда Возврат; КонецЕсли; усВыполнитьВыгрузкуОстатков(); Конецпроцедуры
выглядит реально действующий код для 1С. Похоже?Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Quote (Alex_ST )
если это шутка, то смайлик можно было бы поставить.
Алекс, неужели ты на планете не привык к шуткам Юры М? Он тоже смайлы редко ставит Прикольно Вот так: Code
Процедура усВыгрузитьОстаткиТоваров () Экспорт РегламентноеЗадание = РегламентныеЗадания.НайтиПредопределенное(Метаданные.РегламентныеЗадания.усВыгрузкаОстатков); МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(Новый Структура("РегламентноеЗадание, Состояние", РегламентноеЗадание, СостояниеФоновогоЗадания.Активно)); Если МассивЗаданий.Количество() > 1 Тогда Возврат; КонецЕсли; усВыполнитьВыгрузкуОстатков(); Конецпроцедуры
выглядит реально действующий код для 1С. Похоже?Автор - Serge_007 Дата добавления - 28.04.2012 в 12:45
Alex_ST
Дата: Суббота, 28.04.2012, 13:34 |
Сообщение № 46
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
Да, Серёга … Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами! Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели
Да, Серёга … Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами! Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение Да, Серёга … Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами! Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели Автор - Alex_ST Дата добавления - 28.04.2012 в 13:34
Serge_007
Дата: Суббота, 28.04.2012, 13:55 |
Сообщение № 47
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Quote (Alex_ST )
Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами!
А мы это уже обсуждали
Quote (Alex_ST )
Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами!
А мы это уже обсуждали Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Quote (Alex_ST )
Код из 1С прикольный. Никогда даже не пробовал посмотреть. Думал, что там какой-то свой язык. А оказывается в 1С тот же VBA, но только с переведёнными на великий, могучий и терпеливый операторами!
А мы это уже обсуждали Автор - Serge_007 Дата добавления - 28.04.2012 в 13:55
Alex_ST
Дата: Суббота, 28.04.2012, 14:06 |
Сообщение № 48
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
Я начало того топика посмотрел, не заинтересовало, вот и не стал дальше читать.
Я начало того топика посмотрел, не заинтересовало, вот и не стал дальше читать. Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение Я начало того топика посмотрел, не заинтересовало, вот и не стал дальше читать. Автор - Alex_ST Дата добавления - 28.04.2012 в 14:06
nerv
Дата: Суббота, 28.04.2012, 14:13 |
Сообщение № 49
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Quote (Alex_ST )
Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели biggrin
Главное, что до Excel'я не добрались разработчики Word'а
Quote (Alex_ST )
Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели biggrin
Главное, что до Excel'я не добрались разработчики Word'а nerv
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук YM 41001156540584 / WM WMR R21924176233 https://github.com/nervgh/vba
Ответить
Сообщение Quote (Alex_ST )
Наверное и к Ёкселю эти же люди подбирались, но им вовремя по рукам дали и они только формулы перевести успели biggrin
Главное, что до Excel'я не добрались разработчики Word'а Автор - nerv Дата добавления - 28.04.2012 в 14:13
Alex_ST
Дата: Суббота, 28.04.2012, 14:17 |
Сообщение № 50
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
А особенно - разработчики таблиц Ворда!
А особенно - разработчики таблиц Ворда! Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение А особенно - разработчики таблиц Ворда! Автор - Alex_ST Дата добавления - 28.04.2012 в 14:17
nerv
Дата: Суббота, 28.04.2012, 18:13 |
Сообщение № 51
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Кстати, вопрос на засыпку: "как в Word обойти таблицу с объединенными ячейками"?
Кстати, вопрос на засыпку: "как в Word обойти таблицу с объединенными ячейками"? nerv
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук YM 41001156540584 / WM WMR R21924176233 https://github.com/nervgh/vba
Ответить
Сообщение Кстати, вопрос на засыпку: "как в Word обойти таблицу с объединенными ячейками"? Автор - nerv Дата добавления - 28.04.2012 в 18:13
Alex_ST
Дата: Суббота, 28.04.2012, 20:20 |
Сообщение № 52
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
А что значит "обойти"? Перебрать все ячейки что ли? Но в любом случае не знаю, т.к. программирование объектной модели Ворда для меня - тёмный лес.
А что значит "обойти"? Перебрать все ячейки что ли? Но в любом случае не знаю, т.к. программирование объектной модели Ворда для меня - тёмный лес. Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение А что значит "обойти"? Перебрать все ячейки что ли? Но в любом случае не знаю, т.к. программирование объектной модели Ворда для меня - тёмный лес. Автор - Alex_ST Дата добавления - 28.04.2012 в 20:20
nerv
Дата: Воскресенье, 29.04.2012, 14:41 |
Сообщение № 53
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Quote (Alex_ST )
Перебрать все ячейки что ли?
Ага. Только при этом мне еще нужно знать как они объединены. Пока у меня есть этот код (ни о чем) [vba]Code
Sub example() Dim cell As cell For Each cell In ActiveDocument.Tables(1).Range.Cells MsgBox cell.Range.Text MsgBox cell.ColumnIndex MsgBox cell.RowIndex Next End Sub
[/vba] и эта таблица (см. файл) Чтобы все стало уж совсем ясно: мне нужно построить html-таблицу на основе таблицы Word
Quote (Alex_ST )
Перебрать все ячейки что ли?
Ага. Только при этом мне еще нужно знать как они объединены. Пока у меня есть этот код (ни о чем) [vba]Code
Sub example() Dim cell As cell For Each cell In ActiveDocument.Tables(1).Range.Cells MsgBox cell.Range.Text MsgBox cell.ColumnIndex MsgBox cell.RowIndex Next End Sub
[/vba] и эта таблица (см. файл) Чтобы все стало уж совсем ясно: мне нужно построить html-таблицу на основе таблицы Wordnerv
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук YM 41001156540584 / WM WMR R21924176233 https://github.com/nervgh/vba
Сообщение отредактировал nerv - Воскресенье, 29.04.2012, 14:52
Ответить
Сообщение Quote (Alex_ST )
Перебрать все ячейки что ли?
Ага. Только при этом мне еще нужно знать как они объединены. Пока у меня есть этот код (ни о чем) [vba]Code
Sub example() Dim cell As cell For Each cell In ActiveDocument.Tables(1).Range.Cells MsgBox cell.Range.Text MsgBox cell.ColumnIndex MsgBox cell.RowIndex Next End Sub
[/vba] и эта таблица (см. файл) Чтобы все стало уж совсем ясно: мне нужно построить html-таблицу на основе таблицы WordАвтор - nerv Дата добавления - 29.04.2012 в 14:41
Serge_007
Дата: Воскресенье, 29.04.2012, 17:20 |
Сообщение № 54
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Quote (nerv )
"как в Word обойти таблицу с объединенными ячейками"?
Вообще-то в этой теме это оффтоп... Саш, у нас ведь есть ветка по "Неэксель"
Quote (nerv )
"как в Word обойти таблицу с объединенными ячейками"?
Вообще-то в этой теме это оффтоп... Саш, у нас ведь есть ветка по "Неэксель" Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Quote (nerv )
"как в Word обойти таблицу с объединенными ячейками"?
Вообще-то в этой теме это оффтоп... Саш, у нас ведь есть ветка по "Неэксель" Автор - Serge_007 Дата добавления - 29.04.2012 в 17:20
light26
Дата: Воскресенье, 29.04.2012, 21:02 |
Сообщение № 55
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация:
91
±
Замечаний:
0% ±
2007, 2010, 2013
Quote (Serge_007 )
Саш, у нас ведь есть ветка по "Неэксель"
Есть личности, которым за их заслуги можно простить некоторые шалости ))) Офтоп ужо давно пошел )))
Quote (Serge_007 )
Саш, у нас ведь есть ветка по "Неэксель"
Есть личности, которым за их заслуги можно простить некоторые шалости ))) Офтоп ужо давно пошел )))light26
Я не волшебник. Я только учусь
Ответить
Сообщение Quote (Serge_007 )
Саш, у нас ведь есть ветка по "Неэксель"
Есть личности, которым за их заслуги можно простить некоторые шалости ))) Офтоп ужо давно пошел )))Автор - light26 Дата добавления - 29.04.2012 в 21:02
Serge_007
Дата: Воскресенье, 29.04.2012, 21:49 |
Сообщение № 56
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Quote (light26 )
Есть личности, которым за их заслуги можно простить некоторые шалости )
А я никому банов и не навешивал Просто можно создать новую тему и перенести оффтоп здешний туда где он оффтопом быть перестанет
Quote (light26 )
Есть личности, которым за их заслуги можно простить некоторые шалости )
А я никому банов и не навешивал Просто можно создать новую тему и перенести оффтоп здешний туда где он оффтопом быть перестанет Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Quote (light26 )
Есть личности, которым за их заслуги можно простить некоторые шалости )
А я никому банов и не навешивал Просто можно создать новую тему и перенести оффтоп здешний туда где он оффтопом быть перестанет Автор - Serge_007 Дата добавления - 29.04.2012 в 21:49
light26
Дата: Понедельник, 30.04.2012, 08:21 |
Сообщение № 57
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация:
91
±
Замечаний:
0% ±
2007, 2010, 2013
Quote (Serge_007 )
А я никому банов и не навешивал
А тебя никто ни в чем не упрекал
Quote (Serge_007 )
А я никому банов и не навешивал
А тебя никто ни в чем не упрекал light26
Я не волшебник. Я только учусь
Ответить
Сообщение Quote (Serge_007 )
А я никому банов и не навешивал
А тебя никто ни в чем не упрекал Автор - light26 Дата добавления - 30.04.2012 в 08:21
Chelius
Дата: Суббота, 16.03.2013, 03:47 |
Сообщение № 58
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Может кто сказать как найти Каждое пересечение регионов? Ведь в результате получается только последнее, в форме региона! Например [vba]Код
Set Rng1 = Intersect(rngBig, rngTreug)
[/vba] Результат последний регион - пересечение. Как найти каждый? пробывал конструкцию типа [vba]Код
For Each rngTreug In rngBig rngTreug.Interior.ColorIndex = 5 'закрасить синим Next
[/vba] результат отрицательній
Может кто сказать как найти Каждое пересечение регионов? Ведь в результате получается только последнее, в форме региона! Например [vba]Код
Set Rng1 = Intersect(rngBig, rngTreug)
[/vba] Результат последний регион - пересечение. Как найти каждый? пробывал конструкцию типа [vba]Код
For Each rngTreug In rngBig rngTreug.Interior.ColorIndex = 5 'закрасить синим Next
[/vba] результат отрицательній Chelius
Ответить
Сообщение Может кто сказать как найти Каждое пересечение регионов? Ведь в результате получается только последнее, в форме региона! Например [vba]Код
Set Rng1 = Intersect(rngBig, rngTreug)
[/vba] Результат последний регион - пересечение. Как найти каждый? пробывал конструкцию типа [vba]Код
For Each rngTreug In rngBig rngTreug.Interior.ColorIndex = 5 'закрасить синим Next
[/vba] результат отрицательній Автор - Chelius Дата добавления - 16.03.2013 в 03:47
nilem
Дата: Суббота, 16.03.2013, 07:08 |
Сообщение № 59
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
Цитата (Alex_ST )
...Target(1, 5) вместо правильного Target.Offset(0, 4)...
Имхо, Target(1, 5) как раз лучше/правильнее, чем Target.Offset(0, 4). Ведь в 1-м случае мы (ну, или компилятор) просто отсчитываем индексы (1 и 5) от Target, а во 2-м - приходится считать индексы (0 и 4) и еще выполнять метод Offset. Мелочь, конечно, но все же... Еще вот здесь Упс, просмотрел - тема, оказывается, прошлогодняя и на 3 страницы
Цитата (Alex_ST )
...Target(1, 5) вместо правильного Target.Offset(0, 4)...
Имхо, Target(1, 5) как раз лучше/правильнее, чем Target.Offset(0, 4). Ведь в 1-м случае мы (ну, или компилятор) просто отсчитываем индексы (1 и 5) от Target, а во 2-м - приходится считать индексы (0 и 4) и еще выполнять метод Offset. Мелочь, конечно, но все же... Еще вот здесь Упс, просмотрел - тема, оказывается, прошлогодняя и на 3 страницы nilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Суббота, 16.03.2013, 07:11
Ответить
Сообщение Цитата (Alex_ST )
...Target(1, 5) вместо правильного Target.Offset(0, 4)...
Имхо, Target(1, 5) как раз лучше/правильнее, чем Target.Offset(0, 4). Ведь в 1-м случае мы (ну, или компилятор) просто отсчитываем индексы (1 и 5) от Target, а во 2-м - приходится считать индексы (0 и 4) и еще выполнять метод Offset. Мелочь, конечно, но все же... Еще вот здесь Упс, просмотрел - тема, оказывается, прошлогодняя и на 3 страницы Автор - nilem Дата добавления - 16.03.2013 в 07:08
Alex_ST
Дата: Суббота, 16.03.2013, 09:39 |
Сообщение № 60
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
0% ±
2003
Упс! Не дочитал до конца и кинулся искать когда же я это говорил Минут 5 потратил пока нашёл. А потом наконец-то пост Николая дочитал чтобы посетовать на то, что еле нашёл и что это было почти год назад 27.04.2012, 20:06 Конечно, очень не удобно, что движок форума хотя бы дату поста в цитату не вставляет. Я уж даже и не мечтаю о ссылке на него, как сделано, например, на 4PDA
Упс! Не дочитал до конца и кинулся искать когда же я это говорил Минут 5 потратил пока нашёл. А потом наконец-то пост Николая дочитал чтобы посетовать на то, что еле нашёл и что это было почти год назад 27.04.2012, 20:06 Конечно, очень не удобно, что движок форума хотя бы дату поста в цитату не вставляет. Я уж даже и не мечтаю о ссылке на него, как сделано, например, на 4PDA Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение Упс! Не дочитал до конца и кинулся искать когда же я это говорил Минут 5 потратил пока нашёл. А потом наконец-то пост Николая дочитал чтобы посетовать на то, что еле нашёл и что это было почти год назад 27.04.2012, 20:06 Конечно, очень не удобно, что движок форума хотя бы дату поста в цитату не вставляет. Я уж даже и не мечтаю о ссылке на него, как сделано, например, на 4PDA Автор - Alex_ST Дата добавления - 16.03.2013 в 09:39