میشه نمونه فایل رو بذارید
میشه نمونه فایل رو بذارید
این هم فایل مورد نظر
کد PHP:
Private Sub CommandButton1_Click()
Dim xx As String
xx = ComboBox1.Value
z1 = sheets(xx).Cells(sheets(xx).Rows.Count, "A").End(xlUp).Row
Z2 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row + 1
sheets(xx).Range("b3:e" & z1).copy Destination:=sheets("data").Range("b" & Z2)
Z3 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row
sheets("data").Range("f" & Z2 & ":f" & Z3) = xx
sheets("data").Range("f" & Z3).Select
Unload Me
End Sub
ویرایش توسط iranweld : 2016/07/06 در ساعت 19:49
سلام میشه یه توضیحی راجع به ساختن فایل مالیاتی که زحمتش رو کشیدین بگید چون میخوام بقیه ماهها و سال هم اضافه کنم.در ضمن کمبو باکس
بصورت پیش فرض فروردین رو انتخاب کنه.با سپاس فراوان
با سلام
در نام شیت خود ، نام سال را نیز اضافه کنید (فروردین 95)
یا در جدول خود یک ستون برای ماه و یک ستون برای سال اضافه کنید.
کد ذیل را برای پیش گزیده کمبوباکس به فروردین تغییر دهید
کد PHP:
ComboBox1.Value = ComboBox1.List(0)
کد PHP:
Private Sub UserForm_Initialize()
For i = 1 To sheets.Count
If sheets(i).Name <> "Data" And sheets(i).Name <> "report" Then
Me.ComboBox1.AddItem sheets(i).Name
End If
Next
ComboBox1.Value = ComboBox1.List(0)
End Sub
ویرایش توسط iranweld : 2016/07/08 در ساعت 20:39
سلام لطفا کد حذف کردن اطلاعات شیت دیتا بجز سطر اول و دوم یا سطرهای دلخواه بوسیله ماکرو در command button
با سلام
از کد ذیل استفاده کنید
کد PHP:
Private Sub CommandButton2_Click()
Dim xx As String
xx = InputBox("First row Number and "":"" and End Row Number", "Delete rows data", "3:8")
If xx = "" Or InStr(xx, ":") = 0 Then GoTo 0
Rows(xx).Delete Shift:=xlUp
Range("A3").Select
0
End Sub
ویرایش توسط iranweld : 2016/07/10 در ساعت 11:49
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)