Բարև Ձեզ, անհրաժեշտ է օգնություն:
Ես ունեմ ենթակետ: աշխատում է B5-ում բջջային արժեքի հիման վրա: Բջջի արժեքը մուտքագրելուց և enter սեղմելուց հետո աշխատանքային գրքույկը բացում է նամակ և ուղարկում տեղեկատվություն A2 և A5 բջիջների արժեքի մասին: Նաև կախված B5(1-11) արժեքից, այն ուղարկում է համապատասխան արժեքը A19-A29-ում:
Այն, ինչ ես հիմա ուզում եմ, որ դա անի, արժեքները sheet2-ում պահելն է: Ամեն անգամ, երբ B5-ի արժեքը փոփոխվում է մի տող, որը բաղկացած է
Ամսաթիվ; A2; համապատասխան A19-A29 և A5 պետք է ստեղծվեն թերթ 2-ում: Վերևում ամենավերջինով:
Հնարավո՞ր է:
Private Sub Worksheet_Change (ByVal Target as Range)
Ս.թ. սխալի Ռեզյումե Next
'If Target.Cells.Count > 1 Ապա Դուրս եկեք Sub
Սահմանել xRg = հատում (միջակայք («B5»), թիրախ)
Եթե xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Եթե IsNumeric(Target.Value) և Target.Value = 1 Ապա
Զանգահարեք Mail_small_Text_Outlook1
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 2 Ապա
Զանգահարեք Mail_small_Text_Outlook2
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 3 Ապա
Զանգահարեք Mail_small_Text_Outlook3
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 4 Ապա
Զանգահարեք Mail_small_Text_Outlook4
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 5 Ապա
Զանգահարեք Mail_small_Text_Outlook5
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 6 Ապա
Զանգահարեք Mail_small_Text_Outlook6
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 7 Ապա
Զանգահարեք Mail_small_Text_Outlook7
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 8 Ապա
Զանգահարեք Mail_small_Text_Outlook8
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 9 Ապա
Զանգահարեք Mail_small_Text_Outlook9
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 10 Ապա
Զանգահարեք Mail_small_Text_Outlook10
Վերջ: Եթե
Եթե IsNumeric(Target.Value) և Target.Value = 11 Ապա
Զանգահարեք Mail_small_Text_Outlook11
Վերջ: Եթե
Վերջ Sub
Շնորհակալություն Ջերի