jsc0518

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 233
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-7-31 11:11 | 只看該作者

Excel 依條件帶出對應圖片

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

動作GIF

TEST.rar (22.07 KB)

樓主熱帖

Just do it.

jeffrey628litw

中學生 Rank: 2

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 20
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2024-9-16

2011兔年全勤獎章

2^#

發表於 2019-7-31 13:27 | 只看該作者

回復 1# jsc0518

請參考這個看看。

檔案下載：

TEST v.01.rar (22.32 KB)

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 233
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2019-7-31 19:26 | 只看該作者

回復 2# jeffrey628litw

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

Just do it.

TOP

jeffrey628litw

中學生 Rank: 2

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 20
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2024-9-16

2011兔年全勤獎章

4^#

發表於 2019-7-31 20:19 | 只看該作者

回復 3# jsc0518

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

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

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

TOP

jeffrey628litw

中學生 Rank: 2

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 20
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2024-9-16

2011兔年全勤獎章

5^#

發表於 2019-7-31 21:17 | 只看該作者

回復 3# jsc0518

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

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 233
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2019-8-1 07:19 | 只看該作者

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

Just do it.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

7^#

發表於 2019-8-4 09:14 | 只看該作者

利用Change改變圖片:

Xl0000450.rar (21.52 KB)

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 233
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

8^#

發表於 2019-8-4 15:14 | 只看該作者

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

Just do it.

TOP

霸氣走全身

　暱稱: 加菲貓

中學生 Rank: 2

帖子: 36
主題: 16
精華: 0
積分: 177
點名: 0
作業系統: Xp
軟體版本: offICE2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-23
最後登錄: 2021-7-20

9^#

發表於 2021-7-9 01:30 | 只看該作者

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

10^#

發表於 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

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

TOP