Вопрос : Vba Эксел - как обусловить если 3 клетки пусты?

Я буду кодирвоанием в Worksheet_BeforeDoubleClick () и использовании письма «r» купели Marlett для того чтобы показать x если клетка double-clicked, то но ясно x если double-clicked клетки, то again.

For 3 определенные (E46: E48) внутри этот ряд double-click, если x (Marlett «r») существует и double-click извлекает его (цель = vbNullString), то мне нужно проверить для того чтобы увидеть если любые 3 клетки, то (E46: E48) все еще содержат x (Marlett «r»), и если они все пробел, то меня нужно сделать что-то к по-разному cell.

I не могут получить, что мое Кодего работали: будет линией 8 в Кодем под тем не работает right.
Hope, котор кто-то может help. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
>If " class= " id= " codeSnippet782781 
 1 после этого выходит подводная лодка
Если не пересечь, то (цель, ряд («E18: E328»)) Ничего после этого
	Target.Font.Name = «Marlett»
	Если цель = vbNullString после этого
		Цель = «r»
	Еще
		Цель = vbNullStrung
		Если не пересечь, то (цель, ряд («E46: E48»)) Ничего после этого
			Если IsNull, то (ряд («E46: E48»)) После этого
				… сделайте что-то к по-разному клетке
			Еще
				… скучно - скучно
			Закончитесь если
	Закончитесь если
Закончитесь если
class=

Ответ : Vba Эксел - как обусловить если 3 клетки пусты?

Я имел Cancel = поистине заявление в более менее чем оптимальном месте. Если вы двигаете его перед последним концом, то если, то позволило бы нормальный случай double-click произойти, то если потребитель double-clicks вне ряда E18:, тоE328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Приватное Sub Worksheet_BeforeDoubleClick (цель ByVal как ряд, Cancel как булевско)
Если Target.Cells.Count > 1 после этого выходят подводная лодка
Если не пересечь, то (цель, ряд («E18: E328»)) Ничего после этого
    Target.Font.Name = «Marlett»
    Если цель = vbNullString после этого
        Цель = «r»
    Еще
        Цель = vbNullString
        Если не пересечь, то (цель, ряд («E46: E48»)) Ничего после этого
            Если Application.CountA, то (ряд («E46: E48»)) = 0 после этого
                Ряд («F46») = «поистине»
            Еще
                Ряд («F46») = «ложно»
            Закончитесь если
        Закончитесь если
    Закончитесь если
    Cancel = True
Закончитесь если
Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us