Խնդրում ենք ուղղել 2-րդ կոդը, երկուսն էլ նույն աշխատաթերթի համար:

ԱՌԱՋԻՆ ԿՈԴԸ ԿԱՏԱՐԵԼԻ Է ԱՇԽԱՏՈՒՄ
Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D1»)) Ոչինչ է, ապա
Ընտրեք գործի շրջանակը («D1»)
Գործ «0.5»՝ Կես
Գործ «1»: Մեկ
Գործ «1.25»՝ OneTwentyFive
Վերջ ընտրեք
Վերջ: Եթե
Վերջ Sub

ԵՐԿՐՈՐԴ ԿՈԴԸ ՉԻ ԱՇԽԱՏՈՒՄ (Խնդրում ենք ուղղել ստորև նշվածը)
Մասնավոր ենթափոխություն (ByVal-ի թիրախը որպես միջակայք)
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D2»)) Ոչինչ է, ապա
Ընտրեք գործի շրջանակը («D2»)
Գործ «9.53»՝ ինը միավոր հինգերեք
Վերջ ընտրեք
Վերջ: Եթե
Վերջ Sub