نمایش تصویر با انتخاب یک سلول

[prince66]

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

[Behnam]

سلام
اگر منظورتون ایجاد کامنت و نشون دادن عکس در کامنت هست یه راهی داره ، اگر کد نویسی ویژوال مد نظرتون هست یا مورد دیگه ای دقیق تر توضیح بدید
میتونید از لینک های زیر هم برای رسیدن به جوابتون کمک بگیرید

https://forum.exceliran.com/showthread.php/3130-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D8%B9%DA%A9%D8%B3-%D9%BE%D8%B1%D8%B3%D9%86%D9%84-%D8%A8%D8%A7-%D8%B2%D8%AF%D9%86-%DA%A9%D8%AF-%D9%BE%D8%B1%D8%B3%D9%86%D9%84%DB%8C

https://forum.exceliran.com/showthread.php/2431-multi-picture-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84

https://forum.exceliran.com/showthread.php/5154-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-%D8%B3%D9%84%D9%88%D9%84-%D9%87%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D9%84

https://forum.exceliran.com/showthread.php/4598-%D8%B1%D9%88%D8%B4-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-%D8%B3%D9%84%D9%88%D9%84-%D9%87%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D9%84

[prince66]

ممنون از لطف شما
منظور استفاده از کد ویژال است که وقتی کد کالا انتخاب شد با جستجو در عکس ها ،عکس کالای انتخاب شده را نمایش دهد و اگر تصویر در کادری مثل کامنت نمایش داده شود بهتر است

[M_ExceL]

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

با عرض سلام و ادب و کسب اجازه از جناب دارابی عزیز
داخل شیت اول یک Rectangle با ابعاد دلخواه برای تصاویر ایجاد کنید، سپس نام Rectangle1 رو به اون اختصاص بدید.
کد زیر رو داخل رویداد selectionchange شیت اول پیست کنید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Target.Address <> Range("a" & Target.Row).Address Then
         ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .BackColor.ObjectThemeColor = msoThemeColorBackground1
        .BackColor.TintAndShade = 0
        .BackColor.Brightness = 0
        .Patterned msoPattern5Percent
    End With
 Target.Select
 Exit Sub
 End If
If Target.Address = Range("a" & Target.Row).Address And Range("a" & Target.Row) <> "" Then
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
   With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture "E:\pictures\" & Target.Value & ".jpg"
        .TextureTile = msoFalse
    End With
    Range("a" & Target.Row).Select
    Else
        ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .BackColor.ObjectThemeColor = msoThemeColorBackground1
        .BackColor.TintAndShade = 0
        .BackColor.Brightness = 0
        .Patterned msoPattern5Percent
    End With
    Range("a" & Target.Row).Select
End If
End Sub

قسمت "E:\pictures" داخل کد رو با مسیر تصاویر خودتون جایگزین کنید.
نام تصاویر رو داخل ستون A وارد کنید .
اکنون با کلیک روی هر کدام، تصویر آن داخل Rectangle نشان داده خواهد شد.
می تونید سایز و مکان Rectangle رو هم با دلخواه داخل صفحه تغییر بدید تاثیری در عملکرد کد نخواهد داشت.
نکته ای که هست پسوند تصاویرتون jpg باید باشد. اگر png بود داخل کد اون رو تغییر بدید.
یا حق.

[prince66]

سلام دوست عزیز
تشکر بابت برنامه ای که نوشتید فقط یک سوال داشتم اگر به عنوان مثال بخواهم در شیت سوم این کد رو وارد کنم احتیاجی به تغییر کد ها می باشد یا نه ؟
برای تغییر ستون a به ستون دیگر فقط در کد ها بجای a نام ستون مورد نظر رو بنویسم یا نه؟
با تشکر

[M_ExceL]

سلام دوست عزیز
اگر به عنوان مثال بخواهم در شیت سوم این کد رو وارد کنم احتیاجی به تغییر کد ها می باشد یا نه ؟

سلام، خواهش میکنم
نیازی به تغییر نیست همین کد رو وارد کنید.

برای تغییر ستون a به ستون دیگر فقط در کد ها بجای a نام ستون مورد نظر رو بنویسم یا نه؟

بله، هر جا a هست بجاش نام ستون مورد نظر رو وارد کنید.