Excel 依條件帶出對應圖片

jsc0518

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

下載 (26.46 KB)

2019-7-31 11:09

動作GIF

下載 (48.25 KB)

2019-7-31 11:10

TEST.rar (22.07 KB)

下載次數: 7

2019-7-31 11:11

jeffrey628litw

回復 1# jsc0518


    請參考這個看看。

下載 (28.03 KB)

2019-7-31 13:27

檔案下載： TEST v.01.rar (22.32 KB)

下載次數: 17

2019-7-31 13:25

jsc0518

回復 2# jeffrey628litw

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

jeffrey628litw

回復 3# jsc0518


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

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

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

jeffrey628litw

回復 3# jsc0518


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

jsc0518

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

准提部林

利用Change改變圖片:
Xl0000450.rar (21.52 KB)

下載次數: 21

2019-8-4 09:14

jsc0518

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

霸氣走全身

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

准提部林

回復 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

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