جمع آوری اعداد

**Nima** · 2014/04/19, 16:16

در نگاه اول پاسخ این موضوع خیلی سادست شما میتونید مقدار سلول مورد نظر در شیت مقصد رو برابر سلول مورد نظر در شیت مبدا قرار بدید.
مگر اینکه هدف شما چیز دیگه ای باشه که بهش اشاره نکردید.

**ali.b** · 2014/04/19, 16:32

ممنون از پاسختون
بله من خوب اشاره نکردم. من یک فرم طراحی کردم که برحسب تعداد اماری که وارد میکنم در یک شیت جدید وارد میکنه (یعنی تعداد شیت ها از قبل مشخص نیست ممکنه یه بار 10 تا باشه یا در امار بعدی 100 تا)
حالا میخوام تمام اعدادی که در سلول a1 در هر شیت وارد شده رو در یک شیت به صورت ستون قرار داده بشن
یعنی 10 تا شیت دارم اون 10 تا عدد در یک ستون sort بشن و نوشته بشن
فکر کنم تو vb باید کار کرد

**Nima** · 2014/04/19, 17:05

خوب اکه بخوای از وی بی ای استفاده از یه همچین کدی میشه استفاده کرد البته کد زیر مقادیری که تو سلول A1 هر شیت هست رو تو ستون A شیت بانامSummary لیست میکنه:

کد:

Sub sortSummary()
Dim wkst As Worksheet
Dim row As Long
row = 1
For Each wkst In ActiveWorkbook.Worksheets
   If wkst.Name <> "Summary" Then
      Worksheets("Summary").Cells(row, 1) = wkst.Range("A1")
      row = row + 1
   End If
Next
End Sub

جمع آوری اعداد

جمع آوری اعداد

کامنت

کامنت

کامنت