Please correct the 2nd code, both for the same worksheet. FIRST CODE WORKING PERFECTLY Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D1")) Is Nothing Then Select Case Range("D1") Case "0.5": Half Case "1": One Case "1.25": OneTwentyFive End Select End If End Sub SECOND CODE NOT WORKING (plz correct the below) Private Sub Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Select Case Range("D2") Case "9.53": ninepointfivethree End Select End If End Sub

նոր

Անհրաժեշտ է ուղղում VBA կոդում

Excel

սյեդսալման

Չորեքշաբթի, Նոյեմբեր 24 2021

3 Գրառումներ

7.8K այցելություններ

Քվեարկել

արձակել

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

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

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

Ամանդա Լին

2 տարի առաջ

#2357

Քվեարկել

արձակել

Բարև Սայդսալման,

Նույն աշխատաթերթի համար կարող եք ծածկագիրը.

Private Sub Worksheet_Change (ByVal Target as Range)

Եթե ոչ խաչմերուկ (Թիրախ, միջակայք («D1»)) Ոչինչ է, ապա
Ընտրեք գործի շրջանակը («D1»)
Գործ «0.5»՝ Կես
Գործ «1»: Մեկ
Գործ «1.25»՝ OneTwentyFive
Վերջ ընտրեք
Վերջ: Եթե

Եթե ոչ խաչմերուկ (Թիրախ, միջակայք («D2»)) Ոչինչ է, ապա
Ընտրեք գործի շրջանակը («D2»)
Գործ «9.53»՝ ինը միավոր հինգերեք
Վերջ ընտրեք
Վերջ: Եթե

Վերջ Sub

Տարբեր աշխատաթերթերի համար դուք պարզապես կարող եք փոխել «Մասնավոր ենթափոխություն (ByVal-ի թիրախը որպես միջակայք)«ձեր երկրորդ կոդում՝ դեպի»Private Sub Worksheet_Change (ByVal Target as Range)".

Խնդրում եմ փորձիր. Ցանկացած հարց, խնդրում եմ ազատ զգալ կապվել ինձ հետ:

Amanda

սյեդսալման

2 տարի առաջ

#2358

Քվեարկել

արձակել

Այժմ այն աշխատում է ձեր ուղղմամբ

շատ շնորհակալ եմ օգնության համար

Ամանդա Լին

2 տարի առաջ

#2359

Քվեարկել

արձակել

Այժմ այն աշխատում է ձեր ուղղմամբ

շատ շնորհակալ եմ օգնության համար

Խնդրեմ.

Amanda

էջ:
1

Այս գրառման համար դեռևս պատասխաններ չեն տրվել:

Խնդրում ենք մուտք գործել՝ պատասխան փակցնելու համար

Դուք պետք է մուտք գործեք, որպեսզի կարողանաք պատասխան փակցնել: Մուտք գործեք՝ օգտագործելով աջ կողմում գտնվող ձևը կամ գրանցեք հաշիվ, եթե նոր եք այստեղ: Գրանցվել այստեղ »