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

**M_ExceL** · 2020/01/26, 21:09

نوشته اصلی توسط saed.rasa

سلام

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

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

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

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

کد:

[SIZE=2][FONT=arial]
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
[/FONT][/SIZE]

فایل های پیوست شده