تعيين ستون خودكارپرشونده

[omnia]

با سلام من ميخام در اكسل بتونم مثلا در ستون B1 اگر چيزي نوشتم كه همون مقدار بمونه اما اگر چيزي ننوشتم مقدار ستون A1 رو بگيره
اين كد براي جايي كاربرد داره كه من در ستون B1 مثلا ميخام عبارتي رو پيشنهاد بدم اما اگر در مواقعي اين عبارت لازم به پيشنهاد نداشت مقدار ستون مجاورش بگيره خودكار كه خالي نمونه
كسي هست كمكم كنه
پيشاپيش ممنونم

[hoosein]

RE: تعيين ستون خودكارپرشونده

با سلام من ميخام در اكسل بتونم مثلا در ستون B1 اگر چيزي نوشتم كه همون مقدار بمونه اما اگر چيزي ننوشتم مقدار ستون A1 رو بگيره
اين كد براي جايي كاربرد داره كه من در ستون B1 مثلا ميخام عبارتي رو پيشنهاد بدم اما اگر در مواقعي اين عبارت لازم به پيشنهاد نداشت مقدار ستون مجاورش بگيره خودكار كه خالي نمونه
كسي هست كمكم كنه
پيشاپيش ممنونم

سلام
در سلول c1 فرمول زير رو بنويسيد

=IF(B1="";A1;B1) 

[tali_1367]

RE: تعيين ستون خودكارپرشونده

سلام
ببخشید میشه یک نمونه فایل اکسل نمونه هم بزارین .
ممنونم[hr]
سلام
ببخشید میشه یک نمونه فایل اکسل نمونه هم بزارین .
ممنونم

[امين اسماعيلي]

RE: تعيين ستون خودكارپرشونده

با درود

کار شما از طریق فرمول به نظر من امکان نداره. هرچند دوستمون در مورد سل C نوشتن. اما شما میخواستین تو خود b باشه. تنها راه که به نظر من میرسه vba هستشس. 2 کد زیر رو در کد شیت مورد نظر بنویسین. واسه سل B2 نوشته شده. اگر B2 خالی باشه A2 رو نشون میده.وگرنه خودشه. اگر نیاز به محدوده دارین بگین اصلاح بشه
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target.Value = "" Then
Target.Value = Range("A2")
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target.Value = "" Then
Target.Value = Range("A2")
End If
End If
End Sub