請問Excel 共四欄位資料轉換成一欄位，並分段顯示，公式要怎麼下？
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 258
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-12-25
       
|
請問Excel 共四欄位資料轉換成一欄位，並分段顯示，公式要怎麼下？
Dear 大大,
我在A1~A4蘭都有資料
希望能在C1欄上把此四欄集合再一起(並要分段)，如下圖
請問公式要怎麼下呢？
Thanks！
|
|
|
Just do it.
|
|
|
|
|
- 帖子
- 1392
- 主題
- 4
- 精華
- 0
- 積分
- 1402
- 點名
- 0
- 作業系統
- WIN
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-9-11
- 最後登錄
- 2024-12-26
|
3#
發表於 2019-1-21 09:55
| 只看該作者
|
|
google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 258
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-12-25
|
4#
發表於 2019-1-21 18:30
| 只看該作者
回復 3# hcm19522
感謝您的回覆我來試試看 |
|
|
Just do it.
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 258
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-12-25
|
6#
發表於 2019-1-22 19:04
| 只看該作者
回復 5# Hsieh
Dear Hsieh,
是的，我想把QR CODE放置欄位的中央
是否可以教我把附件檔案ExcelQR CODE放置欄位的中央
 123.rar (16.96 KB)
現在是在欄位的左上角落處
|
|
|
Just do it.
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 258
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-12-25
|
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.
|
|
|
|
|
發表於 2019-1-22 15:06
| 
