Вопрос : Образцы консультации/Кодего VB 2010

Я хотел был бы начать учить вариант 2010. Где самая лучшая дорога начать?
Can кто-то посылает мной соединения?
class=

Ответ : Образцы консультации/Кодего VB 2010

попытайтесь это,

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

Быстрое Кодий находки основано на http://www.experts-exchange.com/A_29119.html

Приветственные восклицания

Дэйв
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
Приватное Sub Worksheet_Change (цель ByVal как ряд)
    Тусклый ws как рабочий лист
    Тусклое rng1 как ряд
    Тусклое rng2 как ряд
    Тусклое cel1 как ряд

    Если Application.Intersect (колонки («a»), цель) ничего после этого, то выходите подводная лодка

    С применением
        .ScreenUpdating = ложно
    Конец с

    Установите ws = листы («OpenItaly»)
    Установите rng1 = ws. Ряд (ws. [a2], ws. Клетки (Rows.Count, «a»). Конец (xlUp))
    Установите cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, ложные)
    Если не cel1 ничего после этого
        Установите rng2 = cel1
        strFirstAddress = cel1.Address
        Сделайте
            Установите cel1 = rng1.FindNext (cel1)
            Установите rng2 = соединение (rng2.EntireRow, cel1)
        Закрепите петлеть пока strFirstAddress <> cel1.Address
    Закончитесь если

    Если не rng2 ничего после этого rng2.EntireRow.Delete
    Application.ScreenUpdating = True
 
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us