ایجاد دیتابیس از داده های خام

[saed.rasa]

سلام

چطور می توان از داده های خام دیتابیس ساخت ؟

سریع ترین و ساده ترین روشی که پیشنهاد می کنید چیست ؟ ترکیب توابع - اکسس و انتقال به اکسل - ترفند ها - کپی پیست - پیوت تیبل ویزارد ...

از توجه و راهنمایی هایتان تشکر می کنم.

[M_ExceL]

سلام

چطور می توان از داده های خام دیتابیس ساخت ؟

سریع ترین و ساده ترین روشی که پیشنهاد می کنید چیست ؟ ترکیب توابع - اکسس و انتقال به اکسل - ترفند ها - کپی پیست - پیوت تیبل ویزارد ...

از توجه و راهنمایی هایتان تشکر می کنم.
سلام،
کد زیر رو امتحان کنید :
در فایل پیوست، داخل شیت "R" روی باتن 1 کلیک کنید.

Sub m_excel()

Dim lr_copm_name, lr_s_part, lr_s_day As Integer
Dim d_counter, s_Activity As Byte
Dim p_counter, C_Activity As Long

lr_copm_name = Sheets(1).Cells(Rows.Count, 1).End(3).Row
lr_s_day = Sheets(1).Cells(Rows.Count, 3).End(3).Row
lr_s_part = Sheets(1).Cells(Rows.Count, 2).End(3).Row

With Application
.ScreenUpdating = False

C_Activity = 1
p_counter = 1
For copm_name = 2 To lr_copm_name
For s_day = 2 To lr_s_day
For s_part = 2 To lr_s_part
v_day = Sheets(1).Cells(s_day, 3)
v_comp = Sheets(1).Cells(copm_name, 1)
v_part = Sheets(1).Cells(s_part, 2)
d_counter = 1
s_Activity = 2
Do Until d_counter = 8
Sheets(4).Cells(p_counter, 1) = v_comp
Sheets(4).Cells(p_counter, 2) = v_part
Sheets(4).Cells(p_counter, 3) = v_day
Sheets(4).Cells(C_Activity, 4) = Sheets(1).Cells(s_Activity, 4)
d_counter = d_counter + 1
s_Activity = s_Activity + 1
C_Activity = C_Activity + 1
Loop
p_counter = p_counter + 7
Next
Next
Next

.ScreenUpdating = True
End With

End Sub

[saed.rasa]

خوبه!
ممنون که وقت گذاشتید و این کد ها را با حوصله نوشتید.

چه خوب می شد که اگر بدون vb هم، دیگر دوستان نظرات مفیدشان را ارائه دهند.