Екцел - Покрени макро када унесете податке у ћелију

Ако корисник жели да покрене Макро у програму Мицрософт Екцел када се пронађе да је Д10 ћелија попуњена, догађај за промену радног листа мора се користити у Екцел радном листу, а не у модулу. Д10.хтлмл је преузет и постављен је оригинални код који је кориштен за покретање макроа . Висуал Басиц икона на картици Девелопер је изабрана за Мицрософт Екцел-2007. Након прегледања радног листа на коме се жели да се код покрене, декларације и опште се одбацују и изабире радни лист. Реч 'Селецтион' је уклоњена из 'Привате Суб Ворксхеет_СелецтионЦханге' у прозору кода. За промену вредности у Д10 ћелији, '$ Д $ 10' је циљна адреса која је подешена. Ово би заузврат учинило да радни лист промени догађај "Позови" макро .

Питање
Решење
Белешка

Питање

Имам макро који се покреће када корисник кликне на дугме. Уместо тога, желим да се макро покрене када је ћелија Д10 попуњена. Подаци за Д10 долазе из падајућег Провера ваљаности података, ако је то важно. Ово би требало да буде лако, али не могу да схватим.

Решење

Можете задржати свој Макро у модулу један. Морате да користите догађај промене радног листа у самом радном листу, а не у модулу. Дозволите ми да објасним: даћу један фајл који ће бити објашњен. У радном листу, опсег А5: А25 је попуњен бројевима. Ако унесете бројчану вредност у ћелију Д10, опсег Г5: Г10 ће копирати оно што је у А5: А25. Ако избришете вредност у Д10, садржај опсега Г5: Г10 ће бити избрисан.

//ввв.4схаред.цом/филе/89145449/43ц8ц38/Цханге_Валуе_оф_Д10.хтмл\т

Какав год био ваш оригинални код да покренете ваш Мацро, вратите га у првобитни облик.

Пошто користите Екцел 2007, то је оно што треба да урадите:

1) Кликните на картицу Девелопер.
2) Кликните на икону Висуал Басиц.
3) У прозору са леве стране окна, двапут кликните на лист где треба да се покреће ваш код.
4) Сада, на врху прозора кода, видећете (Генерал) са падајућим менијем и (Децларатионс) са падајућим.
5) Кликните на падајући мени (Генерал) и изаберите Ворксхеет.
6) Сада у прозору кода видјет ћете Приватни под радни лист_СелецтионЦханге (БиВал Таргет Ас Ранге)
7) Уклоните ријеч "Избор". Желите да уклоните "Селецтион" јер то значи да када кликнете на ћелију у радном листу нешто ће се догодити. Ви то не желите, желите да унесете вредност у Д10. Сада би требало да чита Приватни под радни лист_Промени (БиВал Таргет Ас Ранге)
8) Овдје желите код ...

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

Ако је Таргет.Аддресс = "$ Д $ 10" Затим

Позови МиМацро

Енд Иф

Енд Суб