На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Windows
1. Указывайте версию Вашей ОС.
2. Запрещается размещать запросы и ссылки на кряки, серийники и т.п., а также вопросы нарушения лицензии ПО и его взлома.
3. Не разрешается давать советы из разряда "Поставь Linux".
4. Переустановка ОС - крайнее и безотказное лекарство, которое знают все. В таких советах никто не нуждается.
5. При публикации скриптов пользоваться тегами code. Тип подсветки кода выбирать строго в соответствии с языком публикуемого кода.
6. Прежде чем задать вопрос, обязательно загляните в FAQ и следуйте написанным рекомендациям для устранения проблемы. И если не помогло, а поиск по разделу не дал результатов - только тогда задавайте вопрос на форуме.
7. Вопросы, связанные с проблемами ПО, задавайте в разделе Программное обеспечение
Модераторы: Akina
  
> Отследить последнюю ячейку в экселе
    Проблема в следующем: Есть вордовый макрос. Из ворда в таблицу эксель передаются некие данные. Задача: отследить первую свободную ячейку на листе эксель. Код вида:Wksheet.Cells.SpecialCells(xlCellTypeLastCell).Activate работает некорректно. Может кто сталкивался?

    Заранее благодарен.
      Вот тебе простенький пример (только из Excel):
      Sub FindFreeColumn()
      For j = 1 To 65535
      For i = 1 To 255
      If Cells(j, i).Value2 = "" Then
      MsgBox ("Строка " & j & ", столбец " & i)
      j = 65535
      Exit For
      End If
      Next i
      Next j
      End Sub
      Sub FindFreeRow()
      For i = 1 To 255
      For j = 1 To 65535
      If Cells(j, i).Value2 = "" Then
      MsgBox ("Строка " & j & ", столбец " & i)
      i = 255
      Exit For
      End If
      Next j
      Next i
      End Sub
      Первая процедура просматривает по строкам (т.е. находит столбец в... скорее всего, первой строке), вторая - по столбцам.
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0195 ]   [ 15 queries used ]   [ Generated: 30.04.24, 20:00 GMT ]