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 雞年全勤獎章論壇贊助勳章

2^#

發表於 2019-1-20 19:42 | 只看該作者

回復 1# jsc0518
Dear 各位大大,
我已經利用巨集方式做出來了，想請教另一個QR CODE問題
*QR CODE 語法為本站所得知
我將三個欄位變成一個欄位，並取得QR CODE，但是否有方式可以將QR CODE的圖示移到該欄位的正中間位置呢？
我想要的畫面如下

現況執行VBA後畫面如下

檔案如下：

123.rar (16.96 KB)

Just do it.

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

3^#

發表於 2019-1-21 09:55 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/586509129

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

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 雞年全勤獎章論壇贊助勳章

4^#

發表於 2019-1-21 18:30 | 只看該作者

回復 3# hcm19522

感謝您的回覆我來試試看

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兔年全勤獎章

5^#

發表於 2019-1-22 15:06 | 只看該作者

回復 2# jsc0518

圖片置中?

GetQR_Code.zip (20.49 KB)

學海無涯_不恥下問

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

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