jeq4a4jead1y

mikeok6336 wrote:
連程式碼都不消

End With

感激snare大大 客戶要求 翻譯qrcode 內容 不需要有中英文 ， 只要稀有字便可 翻譯社。。。 翻譯社。感激 感激 感激
一行函數就搞定了
01上真的有許多高手，利害~

p.s 不要找我，最多就幫到這裡

。-> 翻譯社|,-> 翻譯公司|的-> 翻譯

用qrcode 產生程式 產生貯存成jpg後
如品名 84123， 定單號碼 45000123456，生產日期 2016.12.21 ，批號 161221 ， 數目100 ， 流水號（年代日時分秒加四位流水號） 201612211212300001 那麼 該抓資料為 84123；45000123456；20161221；161221；100；201612211212300001 以qrcode顯現在特定欄位

'使用jscript來縮短轉成utf-8的程式碼

mikeok6336 wrote:

再多參考他人運用在分歧需求的典範，
utf8string = ScriptEngine.Run("encodeURIComponent", qr)
若是您願意改用 google doc(google 翻譯 excel)
qrcode = ""
'調整圖片位置
程式不消改，一樣可以...(恕刪)

像如許嗎???
不懂的地方可提出來詢問、接洽，
'假如只有純英數，等號內 翻譯程式碼可以不要，utf8string 用您要的文字庖代就能夠了

snare wrote:

有關qrcode 翻譯公司 客戶要求 標籤貼紙內要有qrcode
=image("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=台股上萬點")
end if
'獲得google qrcode產生的圖片，插入excel表格
不外瑕玷是要線上編纂才行
Set ScriptEngine = CreateObject("scriptcontrol")

線上編纂卻是沒差別 可以找時間來嘗嘗 。。。。 翻譯社 謝謝大大指導

snare wrote:
如果您願意改用 go...(恕刪)

是的 大大 雷同 ， 抓幾個欄位， 以 ； 分隔
Dim ScriptEngine As Object

灰狼01 wrote:

snare wrote:
.Top = ActiveSheet.Cells(r, 2).Top
在excel指位置貼上


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

snare wrote:
如許 翻譯做法 超廢工的

假如您願意改用 google doc(google 的 excel)

ScriptEngine.Language = "JScript"
先了解常見函數的基本用法，

感謝大大申明的那麼具體 感激 感激 我會好好研究

snare wrote:
請參考google 官方申明點竄
一行函數就搞定了
End Function

Function qrcode(qr, r)

方式給您了，剩下 翻譯請自行改寫，假如不會，請您公司花錢找人寫吧，沒需要省這個

=image("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=台股上萬點")
能否就教snare大，EXCEL該若何進修才能事半功倍?? 感恩~

EXCEL該如何進修才能事半功倍??
https://chart.googleapis.com/chart?chs=70x70&cht=qr&chl= ..... ...


'因為google qrcode限制，中文需先轉成utf-8花式
程式碼中這一串，圖片巨細的界說等等
b1=qrcode(A1,ROW())
目前 我用excel排版
剩下的就看您要把程式碼改成sub or 做成按鈕 or 重寫加油吧

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