excel 能否主動抓欄位資料生成qr code圖檔貼在指定位置上？－tfrms10u6u4@outlook.com

英語翻譯拉丁語

mikeok6336 wrote:
方法給您了，剩下的請自行改寫，如果不會，請您公司花錢找人寫吧，沒需要省這個

若是您願意改用 google doc(google 的 excel)

utf8string = ScriptEngine.Run("encodeURIComponent", qr)
程式不消改，一樣可以轉的重點是有中文就必然要先轉成utf-8，否則google會轉不出來

Dim utf8string As String

.Left = ActiveSheet.Cells(r 翻譯公司 2).Left

感謝大大說明的那麼詳細感激感激我會好好研究
snare wrote:
在excel指位置貼上
謝謝

翻譯大大雷同，抓幾個欄位，以；分開 ...(恕刪)

今朝我用excel排版
不知道有無方式可以自動抓excel欄位資料後生成qr codejpg貼在指定位置
一行函數就搞定了

'若是是excel 2013今後翻譯版本，就不消程式碼來轉，記得有一個函數可以轉成utf-8
EXCEL該若何進修才能事半功倍??

有關qrcode 翻譯公司客戶要求標籤貼紙內要有qrcode

不外瑕玷是要線上編纂才行
https://developers.google.com/chart/infographics/docs/qr_codes?csw=1
若是您願意改用 go...(恕刪)

mikeok6336 wrote:

是的大大雷同，抓幾個欄位，以；分開
if qr<>"" then
用qrcode 產生程式產生貯存成jpg後
像如許嗎???

end if

snare wrote:
像如許嗎???b1=...(恕刪)

01上真的有良多高手，利害~

With q
'==========================================================
End Function
=image("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=台股上萬點")
先了解常見函數翻譯根基用法，
snare wrote:

請參考google 官方說明點竄
主動抓excel欄位資料後生成qr codejpg貼在指定位置,...(恕刪)

https://chart.googleapis.com/chart?chs=70x70&cht=qr&chl= ..... ...
qrcode = ""
一行函數就搞定了
p.s 不要找我，最多就幫到這裡

線上編纂倒是沒差異可以找時候來嘗嘗。。翻譯社。。。-> 翻譯社|,-> 翻譯公司|的-> 翻譯感謝大大指點
snare wrote:
.Top = ActiveSheet.Cells(r, 2).Top
Set ScriptEngine = CreateObject("scriptcontrol")

snare wrote:
'若是只有純英數，等號內的程式碼可以不要，utf8string 用您要的文字庖代就可以了
這樣才能把高手們翻譯經驗變成本身的，往後才有法子活用！

灰狼01 wrote:
=image("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=台股上萬點")
'獲得google qrcode產生的圖片，插入excel表格
ScriptEngine.Language = "JScript"
程式不消改，一樣可以...(恕刪)

感謝snare大大客戶要求的qrcode 內容不需要有中英文，只要有數字便可翻譯社。。。。翻譯社感激感激感激
再多參考他人運用在分歧需求翻譯範例，
'=========================================================

不懂的地方可提出來詢問、計議，
Function qrcode(qr, r)

這樣翻譯做法超廢工的
像如許嗎???...(恕刪)

翻譯就看您要把程式碼改成sub or 做成按鈕 or 重寫加油吧

Set q = ActiveSheet.Pictures.Insert("https://chart.googleapis.com/chart?chs=70x70&cht=qr&chl=" & utf8string)

連程式碼都不用

以下文章來自: https://www.mobile01.com/topicdetail.php?f=511&t=5019053有關翻譯的問題歡迎諮詢天成翻譯社

文章標籤

翻譯社

全站熱搜

創作者介紹

tfrms10u6u4
tfrms10u6u4@outlook.com