ВБА: Проналажење Хдц-а у Екцел радном листу или УсерФорм-у

Ево два мала примера како пронаћи Хдц у радном листу:

  • Кликом на Схеет1 приказује се УсерФорм.
  • Поставите показивач на УФ, држите леви тастер миша и повуците миша.
  • Затварањем УФ подлоге се наставља и повлачи лук на листу.

Почетак

  • Нова радна свеска
  • Додајте УсерФорм име = УсерФорм1

Залијепите сљедећи код у листу1:

 Привате Децларе Функциа Арц Либ "гди32" (БиВал хдц Ас Лонг, БиВал Кс1, Лонг, БиВал И1 Лонг, БиВал Кс2 Лонг, БиВал И2 Лонг,

БиВал Кс3 Ас Лонг, БиВал И3 Лонг, БиВал Кс4 Лонг, БиВал И4 Лонг) Ас Лонг

Привате Децларе Функција АрцТо Либ "гди32" (БиВал хдц Ас Лонг, БиВал Кс1 Лонг, БиВал И1 Лонг, БиВал Кс2 Лонг, БиВал И2 Лонг,

БиВал Кс3 Ас Лонг, БиВал И3 Лонг, БиВал Кс4 Лонг, БиВал И4 Лонг) Ас Лонг

Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге)

Дим Б Ас Лонг

'активирајте УЦ и цртајте на њему (проналажење ХДЦ-а)

УсерФорм1.Схов

'Проналажење ХДЦ-а у Екцел радном листу

монхдц = 0

Да Док михдц = 0

михдц = ГетФорегроундВиндов ()

Б = михдц

михдц = ГетДЦ (михдц)

Лооп

'Нацртајте директно на радном листу

Б = Арц (михдц, 120, 500, 320, 400, 320, 400, 780, 500)

Енд Суб

У модулу усерформ

Налепите следећи код:

 Приватни тип ПОИНТАПИ

Кс Ас Лонг

И Ас Лонг

Енд Типе

Привате Децларе Функција ДелетеОбјецт Либ "гди32" (БиВал хОбјецт Ас Лонг) Ас Лонг

Привате Децларе Функција СелецтОбјецт Либ "гди32" (БиВал хдц Лонг, БиВал хОбјецт Ас Лонг)

Привате Децларе Функција ГетФорегроундВиндов Либ "усер32" () Ас Лонг

Функција приватног декларисања ЦреатеПен Либ "гди32" (БиВал нПенСтиле Лонг, БиВал нВидтх Лонг, БиВал црЦолор Лонг) Као дуго

Привате Децларе Функција ЛинеТо Либ "гди32" (БиВал хдц Ас Лонг, БиВал Кс Ас Лонг, БиВал И Ас Лонг)

Привате Децларе Функција МовеТоЕк Либ "гди32" (БиВал хдц Ас Лонг, _

БиВал Кс Ас Лонг, БиВал И Ас Лонг, лпПоинт Ас Ани) Ас Лонг

Функција приватног декларисања ГетДЦ Либ "усер32" (БиВал хвнд Ас Лонг) Ас Лонг

Привате Децларе Функција СетПикелВ Либ "гди32" (БиВал хдц Ас Лонг, БиВал Кс Ас Лонг, БиВал И Ас Лонг, БиВал црЦолор Лонг) Ас Бите

Привате монхдц Ас Лонг

Дим Буфф Као Боолеан

Привате Суб УсерФорм_МоусеДовн (БиВал Буттон Ас Интегер, БиВал Схифт Ас Интегер, БиВал Кс Ас Сингле, БиВал И Ас Сингле)

Буфф = Труе

Енд Суб

Привате Суб УсерФорм_МоусеМове (БиВал Буттон Ас Интегер, БиВал Схифт Ас Интегер, БиВал Кс Ас Сингле, БиВал И Ас Сингле)

Да Док михдц = 0

михдц = ГетФорегроундВиндов ()

михдц = ГетДЦ (монхдц)

Лооп

Ако Буттон 1 Затим изађите из Суб

хРПен = ЦреатеПен (ПС_СОЛИД, 10, РГБ (0, 255, 0))

ДелетеОбјецт СелецтОбјецт (михдц, хРПен)

Иф Буфф Тхен

МовеТоЕк михдц, Кс * 1.32, И * 1.32, & Х0

Буфф = Фалсе

Енд Иф

ЛинеТо михдц, Кс * 1.32, И * 1.32

ДоЕвентс

Енд Суб

Претходни Чланак Sledeći Чланак

Топ Савети