標題: Excel 依條件帶出對應圖片 [打印本頁]

---

作者: jsc0518    時間: 2019-7-31 11:11     標題: Excel 依條件帶出對應圖片

Dear All,
我在網路上有看到依條件帶出對應國旗(公式使用-->OFFSET,MATCH)，但我想要在B3~B8也同樣可以自動帶出國旗
但一直試不出來，是否有其他方式呢？

[attach]31099[/attach]

動作GIF
[attach]31100[/attach]

[attach]31101[/attach]

---

作者: jeffrey628litw    時間: 2019-7-31 13:27

回復 1# jsc0518


    請參考這個看看。

[attach]31103[/attach]

檔案下載：[attach]31102[/attach]

---

作者: jsc0518    時間: 2019-7-31 19:26

回復 2# jeffrey628litw

OK，我知道你的方法了。
但若是我在B欄位有B2~B100的話，那定義名稱那邊不就要設定99個
是否可以只需定義一個名稱，在B2~B100就可以帶出國旗呢？
Thanks！

---

作者: jeffrey628litw    時間: 2019-7-31 20:19

回復 3# jsc0518


    如果 B2~B100 圖片是要同步(假設是同一個 中華民國)，則圖片只要定義一個假設給圖片定義A，其他99個圖片就複製100個，

    Ctrl + F3 裡面的公式就只要一個就好。

  如果100圖片要各別變化就要定義100張圖片(例如圖片1=A，圖片2=B ......依此類推)，Ctrl + F3 裡面的公式就要100個。

---

作者: jeffrey628litw    時間: 2019-7-31 21:17

回復 3# jsc0518


      請參考我在這發的這一帖，裡面有範例：http://forum.twbts.com/thread-5040-1-1.html

---

作者: jsc0518    時間: 2019-8-1 07:19

回復 5# jeffrey628litw
挖賽，您這太專業了。厲害厲害！

---

作者: 准提部林    時間: 2019-8-4 09:14

利用Change改變圖片:
[attach]31118[/attach]

---

作者: jsc0518    時間: 2019-8-4 15:14

回復 7# 准提部林
Dear 准提部林,
您真的太厲害了，謝謝您囉！

---

作者: 霸氣走全身    時間: 2021-7-9 01:30

回復 7# 准提部林
可以問一下嗎
如果在E欄位（名稱）F欄位（照片）也有呢
巨集如何修改
才能跟BC欄一樣呢

---

作者: 准提部林    時間: 2021-7-9 10:16

回復 9# 霸氣走全身


Private Sub Worksheet_Change(ByVal Target As Range)
Dim SCunt&, xF As Range
With Target
     If .Row = 1 Or .Count > 1 Then Exit Sub
     If .Column = 2 Or .Column = 5 Then  'B欄/E欄
        On Error Resume Next
        Me.Shapes("_" & .Address(0, 0)).Delete
        On Error GoTo 0
        If .Value = "" Then Exit Sub
        SCunt = Me.Shapes.Count
        Set xF = [對照!B:B].Find(.Value, Lookat:=xlWhole)
        If xF Is Nothing Then Exit Sub
        xF(1, 2).Copy .Cells(1, 2)
        If SCunt = Me.Shapes.Count Then Exit Sub
        Me.Shapes(SCunt + 1).Name = "_" & .Address(0, 0)
     End If
End With
End Sub

'=============================

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)