ذخيره اطلاعات در اكسل

[homai]

با سلام
يه فايل تهيه شده كه هر روزه توسط كاربر پر ميشه ودر نهايت پرينت گرفته ميشود فرداي اون روز توسط كاربرديگري پاك ميشه ومجدداً داخل اون نگارش ميشه، حالا ميخوايم به نحوي اين اطلاعات ذخيره بشه اگه امكان داره راهنمايي بفرماييد

باتشكر

[shamsololama]

با درود فراوان


بسته به اینکه میخواهید در همان فایل و در شیتی دیگر ذخیره شود و یا انکه در یک ورک بوک جدید و جداگانه ذخیره شود مقداری با هم متفاوت است
ولی در کدام از موارد ذکر شده مد نظر شما باشد با گذاشتن یک کلید برای اجرا ماکرو می توانید در آن ماکرو دستوری بنویسید که صفحه را ذخیره و سپس خالی کند برای ورود دیتا جدید

که اگر برای اجرای آن مشکلی داشتید یک نمونه فایل را بفرستید تا انجام دهم

[homai]

باسلام
جناب شمس العلما باتوجه به اينكه فايل مهمي نميباشد هركدام ساده تر است انتخاب ميكنم لطفاً تشريح بفرماييد تا مانند پستهاي قبلي شما از دانش شما استفاده نمايم
فايل نمونه تقديم ميگردد

[attachment=150]

[shamsololama]

با درود فراوان

نمونه فایل برای ذخیره و انتقال فایل در این کد اول مسیر ذخیره را میپرسد و سپس نام فایل برای ذخیره شدن و بعد از آن فایل را خالی میکند

این را بر اساس فایل نمونه ای که فرستادی انجام دادم که در صورت نیاز میتوانی گزینه انتخاب سلها برای خالی کردن را خودت تغییر بدی

فایل نمونه:

[attachment=151]

[homai]

سلام وتشكر از محبت شما
فايل رو دانلود كردم اما پيغام ميده
لطفا راهنمايي بفرماييد

[shamsololama]

با درود فراوان

چه پیغامی میده چون اینجا امتحان کردم مشکلی نداره

[homai]

با سلام به پيوست عكس مورد نظر تقديم ميگردد
[attachment=154]

[shamsololama]

با درود فراوان

دلیل این ارور این است که شما ماکرو اکسل خود را فعال نکرده اید برای این کار از میسر زیر انتخاب امنیت ماکرو را روی LOw تنظیم کنید

Tools-Macro_security

Low را تیک بزنید

بعد از این کار یک بار فایل رو ببندید و دوباره باز کنید

[sh_amar]

سلام استاد گرامی
ببخشید آیا امکان دارد در مورد کدها یک توضیح مختصر دهید
البته اگر وقت دارید و از حوصله این تالار خارج نیست
با سپاس فراوان

[shamsololama]

سلام استاد گرامی
ببخشید آیا امکان دارد در مورد کدها یک توضیح مختصر دهید
البته اگر وقت دارید و از حوصله این تالار خارج نیست
با سپاس فراوان


با درود فراوان

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
در یان قسمت یک دیالوگ فایل را با متغییر fd ست می کنیم که با انتخاب هر مسیری از این دیالوگ فایل
مراحل زیر انجام شده و مسیر را در متغییر Addr ذخیره میکند
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
addr = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing

در این قسمت با یک اینپود باکس نام فایل را برای ذخیره شدن انتخاب میکنیم
Dim nam
nam = InputBox("äÇãí ÑÇ ÈÑÇí ÐÎíÑå ÝÇíá æÇÑÏ ˜äíÏ")

If Len(nam) > 0 Then

در این کد از Sheet1 یک کپی گرفته و با ترکیب متغییرهای که آدرس و نام را در آن ذخیره کرده ایم یک کپی یا بک آپ از فایل گرفته
و سیو می کنیم
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:=addr & "\" & nam, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
در این قسمت فایل جدیدی را که ایجاد کرده ایم می بندیم
Windows(nam & ".xls").Close
در این کد نیز فایل اصلی را انتخاب کرده و سل های مورد نظر را خالی می کنیم
Windows("data.xls").Activate
Sheet1.Range("b3:e7") = ""

[homai]

باسلام
جناب شمس العلما
ضمن تشكر مجدد از راهنمايي هاي شما
برخي از سلولهاي ديگه فايل رو پس از فشردن كليد ذخيره تخليه ميكنم "بطور مثال تاريخ صورتحساب"
آيا ميشه محدوديتي گذاشته شود كه پس از فشردن كليد ذخيره،كاربر اولين كاري رو كه انجام ميده وارد نمودن تاريخ باشه وگرنه بقيه سلولها بسته باشه

تقديروتشكر

[shamsololama]

با درود فراوان

بله برای این کار باید این کد را در صفحه وی بی شیت یک بنویسید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Row <> 1 Then
If Len(Sheet1.Range("h1").Value) = 0 Or Len(Sheet1.Range("g1").Value) = 0 Or Len(Sheet1.Range("f1").Value) = 0 Then
MsgBox "ابتدا تاریخ را وارد کنید"
End If
End If
End Sub

[ar2170]

باسلام و عرض خسته نباشید خدمت شما دوست گرامی
اگه براتون امکان داره در مورد فایلی مشابه آنچه در بالا آمده برای اضافه کردن یک شیت خالی بعد از save شیت جاری بجای ایجاد یک فایل جدید توضیح بفرمایید ممنون میشم .
با تشکر

[mahdi7]

سلام
در اكسل2007 بايد كجا امنيت ماكرو را روي لو بگذاريم

[khakzad]

سلام
excel option/trust center/trust center setting/macro/enable all macro