標題: 請問Excel 共四欄位資料轉換成一欄位，並分段顯示，公式要怎麼下？ [打印本頁]

---

作者: jsc0518    時間: 2019-1-20 14:36     標題: 請問Excel 共四欄位資料轉換成一欄位，並分段顯示，公式要怎麼下？

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


[attach]29980[/attach]

---

作者: jsc0518    時間: 2019-1-20 19:42

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


現況執行VBA後畫面如下
[attach]29982[/attach]

檔案如下：
[attach]29983[/attach]

---

作者: hcm19522    時間: 2019-1-21 09:55

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

---

作者: jsc0518    時間: 2019-1-21 18:30

回復 3# hcm19522

感謝您的回覆我來試試看

---

作者: Hsieh    時間: 2019-1-22 15:06

回復 2# jsc0518

圖片置中?
[attach]29987[/attach]

---

作者: jsc0518    時間: 2019-1-22 19:04

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


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

[attach]29988[/attach]

---

作者: jsc0518    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)