فایل مدیریت عکاسی در اکسل

[مریم کاظمی]

برای هرکدوم از جای عکس ها که گذاشتم حدودا 200 الی 300 تا عکس دارم .

[حسام بحرانی]

عاجزانه خواهشمند هستم راهنمایی کنید . ممنون . فقط قسمت عکس ها مونده . اون برنامه بالایی خیلی خوبه ولی من نمی تونم استفاده کنم ازش

سلام
تعداد عکس هایی را که دارید چند تاست؟

[مریم کاظمی]

عاجزانه خواهشمند هستم راهنمایی کنید . ممنون . فقط قسمت عکس ها مونده . اون برنامه بالایی خیلی خوبه ولی من نمی تونم استفاده کنم ازش

[مریم کاظمی]

با زدن Alt +F11 به محیط ویژوال برید و طبق تصویر زیر بر روی شیت مورد نظر دابل کلیک کرده و به کدها دسترسی پیدا می کنید.کدها در رویداد Change شیت نوشته شده.

If Target.Address = Range("b2").Address Then
Application.ScreenUpdating = False

Set myObj = ActiveSheet.DrawingObjects

myDir = ActiveWorkbook.Path & "\pic"

این قسمت برنامه رو متوجه نمیشم. ؟؟؟؟؟؟؟؟؟؟؟؟؟

[مریم کاظمی]

فایل زیر را ملاحظه کنید. من برای یکی از عکس ها انجام دادم.
نکته: پوشه pic کنار فایل اکسلتون باشه که عکسها اونجا قرار بگیرند و نام عکس ها با نامی که تو سل b2 هست یکسان باشه.

من دقیقا همین کارو رو فایلی که برام فرستادید انجام میدم . برای همه عکسها پیغام موجود نیست میده

[مریم کاظمی]

UTM-PLH-Gazvin.rarفایل نهایی من این هست عکس هارو هم که چند تا قبلا فرستادم میتونید اسم عکسارو عوض کنید طبق اسم عکسای من . تو خونه های b2 ,h14,h3.b2 اسم عکسای خونه زرد رنگ هست .h14 اسم عکسای خونه سبز رنگ و h3 اسم عکسای خونه نارنجی هست که همه خونه ها اسمشون با تغییر اسم b2 تغییر میکنن. لطف راهنمایی کاملتری کنید .

[مریم کاظمی]

ممنون دستتون درد نکنه. الان درست شد . فقط لطف کنین بگین من توی این برنامه کدوم سمت هارو باید تغییر بدم برای دو تاعکس بعدی؟ و اینکه جای عکس تو برنامه کجا نوشته شده؟
اگه امکانش هست برنامه رو به صورت فارسی هم بنویسد تا من هم بفهمم ممنون

[mokaram]

پنجره های نشان داده شده در تصویر زیررا از منوی View فعال کنید.

[مریم کاظمی]

وقتی alt+f11 vرو میزنم این صفحه میاد

[mokaram]

لطفا تصویر فایل اکسل( زمانیکه فایل را باز کردید ) و تصویر محیط ویژوال را ارائه بدید.

[مریم کاظمی]

وقتی alt+f11 رو میزنم یه صفحه خالی باز میکنه . مثل اینکه ماکرو هم hide شده

[mokaram]

با زدن Alt +F11 به محیط ویژوال برید و طبق تصویر زیر بر روی شیت مورد نظر دابل کلیک کرده و به کدها دسترسی پیدا می کنید.کدها در رویداد Change شیت نوشته شده.

[مریم کاظمی]

بله درسته . من واقعیتش اصلا نفهمیدم شما از کجا این کارو انجام دادید.فکر کردم ماکرو هست و ولی نبود . فقط یه کم راهنمایی کنید که از چه دستوری یا از چه کدی استفاده کردید . من خودم بقیه راه رو میرم .ممنون

[mokaram]

قسمت عمده کار دانش vba می خواد و به قول یکی از اساتید گاها توضیح یه کاری از انجام اون به مراتب سخت تره.اگر سوالی بود مطرح کنید حتما هستند اساتید و دوستانی که بتونند راهنماییتون کنند.

[مریم کاظمی]

ممنون دستتون درد نکنه . میتونید به من هم یاد بدید . ممنون میشم.