|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Dim n
n = InputBox("Please enter the total colum which you want to be copied in separate files", "Number of column in your file")
If n = blank Then Exit Sub 'check if the user click cancel or close button
'""""""""""""""""""""""""""""""""""
If IsNumeric(n) = False Then ' check if the user didn't enter number
MsgBox "your input is not number"
Exit Sub
End If
If n <= 0 Then ' check if the user didn't enter a number greater than 0
MsgBox " your input should be greater than zero"
Exit Sub
End If
Dim i
For i = 1 To n
Dim thisWb As Workbook
Set NewBook = Workbooks.Add
Set thisWb = Workbooks(ThisWorkbook.Name)
thisWb.Worksheets(ActiveSheet.Name).Columns(i).Copy
NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues)
NewBook.SaveAs Filename:=thisWb.Path & "\" & i & ".xlsx"
NewBook.Close savechanges:=True
Next i
کامنت