jsc0518

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-1-20 14:36 | 只看該作者

請問Excel 共四欄位資料轉換成一欄位，並分段顯示，公式要怎麼下？

Dear 大大,
我在A1~A4蘭都有資料
希望能在C1欄上把此四欄集合再一起(並要分段)，如下圖
請問公式要怎麼下呢？
Thanks！

樓主熱帖

Just do it.

jsc0518

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 2019-1-22 19:12 | 只看該作者

回復 5# Hsieh
Hello 我已更改您的語法，成功了
謝謝您！ ^_^

Function QR_Code(Target As Range, MyURL As String)
Dim MyPic As Picture
Dim pic As Picture
With ActiveSheet
For Each pic In .Pictures
If pic.TopLeftCell.Address = Target.Address Then Set MyPic = pic '儲存格內有條碼就以此圖片顯示
Next
If MyPic Is Nothing Then '若儲存格內無圖就插入QR Code圖片
  Set MyPic = .Pictures.Insert("https://chart.googleapis.com/chart?chs=100x100&cht=qr&chl=" & MyURL)
  MyPic.Top = Target.Top + (Target.Height - MyPic.Height) / 2 '圖片垂直置中
  MyPic.Left = Target.Left + (Target.Width - MyPic.Width) / 2 '圖片水平置中
End If
Set mychart = .Shapes.AddChart '設置圖表長寬
mychart.Height = MyPic.Height
mychart.Width = MyPic.Width
MyPic.Copy '複製QR Code
mychart.Chart.Paste '貼到圖表
mychart.Chart.Export "D:\code.jpg" '圖表匯出圖檔
MyPic.ShapeRange.Fill.UserPicture "D:\code.jpg" '更換QR Code
mychart.Delete '刪除圖表
Kill "D:\code.jpg" '刪除圖表圖檔
End With
End Function

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 2019-1-22 19:04 | 只看該作者

回復 5# Hsieh
Dear Hsieh,
是的，我想把QR CODE放置欄位的中央
是否可以教我把附件檔案ExcelQR CODE放置欄位的中央

123.rar (16.96 KB)

現在是在欄位的左上角落處

Just do it.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章