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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • omnia

    • 2011/09/12
    • 64
    #1

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

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

      • 2012/05/24
      • 63
      #2
      RE: تعيين ستون خودكارپرشونده

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

      کد PHP:
      =IF(B1="";A1;B1) 

        کامنت

        • tali_1367

          • 2013/05/14
          • 30
          #3
          RE: تعيين ستون خودكارپرشونده

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

            کامنت

            • امين اسماعيلي
              مدير تالار ويژوال بيسيك

              • 2013/01/17
              • 1198
              • 84.00
              #4
              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
              در پناه خداوندگار ایران زمین باشید و پیروز

                کامنت

                قبلی template بعدی
                چند لحظه..