Board logo

標題: 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/)