Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как проще всего сделать, чтоб минимум манипуляций Добавлено: 24.10.08 18:39  

Автор вопроса:  гость | Web-сайт: http://garden.gov.ua | ICQ: 472928857 
програмно добавить строку и в ней пронумеровать непустые ячейки, типа вот так:


Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:AB1"), Type:=xlFillSeries


- только количество столбцев будет всегда разным, и этот пример не канает.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1 		Добавлено: 26.10.08 18:10
  1. if not cells(1,i).Value = Empty then

условие того, что ячейка не пустая или цикл
  1. do while not cells(1,i).Value = Empty
  2.     cells(1,i).value = i
  3.     i = i + 1
  4. loop

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам