求能在一个单元格输入文字，在另外一个单元格自动生成二维码

zhm1218

支持支持支持

li446425169

哪位能不能帮我一下，公司客户收货系统升级，必须生成二维码，自己也不懂，表格中B3的数据在上面的位置要生成一个二维码给客户扫描用，谢谢

windows99

huang1314wei 发表于 2016-12-23 21:06

大神这是什么原因

liyunqiu110

fxl447098457 发表于 2016-12-23 22:06
我去啊。动不动就要审核。改了代码一个后缀名又来一次。我服。。。
利用百度网盘的分享接口来生成二维码。 ...

请问老师怎么改变二维码的高和宽   还有去除四周的白边啊

andysky

下载地址：
https://pan.baidu.com/s/1Tqezl6tLbWuvhzlLsV8Qzg

674524050

fxl447098457 发表于 2016-12-23 21:51

大佬这段代码要怎么改能把图片插入到合并的单元格里

fxl447098457

674524050 发表于 2018-11-13 11:19
大佬这段代码要怎么改能把图片插入到合并的单元格里

我当时用的是百度的网络接口生成的二维码，如今已经失效了,建议用别的方法。如论坛的纯二维码生成。还有其他的插件生成二维码，都不错。至于图片插入合并单元格。其实和没合并是一样的插入。主要是设置图片的size和这个单元格的mergearea的宽度和高度保持一致就可以了,很简单的。

674524050

fxl447098457 发表于 2018-11-13 12:04
我当时用的是百度的网络接口生成的二维码，如今已经失效了,建议用别的方法。如论坛的纯二维码生成。还有 ...

就是我写的这段代码它把图片提取到合并单元格的时候就会报错，我自己尝试改过很多次还是不行，麻烦您看一下是需要怎么改

1. Sub LoadPic(ByVal URL As String, ByVal rng As Range)
   
2. With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
3.     .settext "<table><img src=""" & URL & """ width=""70"" height=""70"">"
   
4.     .putinclipboard
   
5.     ActiveSheet.Paste Destination:=rng
   
6. End With
   
7. Application.CutCopyMode = False
   
8. End Sub
   
9. Sub photo()
   
10. Dim i As Integer
    
11. Application.ScreenUpdating = False
    
12. Dim shp As Shape
    
13.     For Each shp In ActiveSheet.Shapes
    
14.         If shp.Type <> 8 And shp.Type <> 12 Then shp.Delete
    
15.     Next
    
16. For i = 2 To 10
    
17.     LoadPic Cells(i, 2).Value, Cells(i, 5)
    
18. Next
    
19. Application.ScreenUpdating = True
    
20. End Sub
    

复制代码

felix301

huang1314wei 发表于 2016-12-23 21:06

版主大大，你好 根据你的代码生成的二维码，扫描后有些是带??的错误码，请教如何改善 ，  比如 “面”字就是错码。

希望能得到你的回复   谢谢

huang1314wei

felix301 发表于 2019-6-20 21:56
版主大大，你好 根据你的代码生成的二维码，扫描后有些是带??的错误码，请教如何改善 ，  比如 “面”字 ...

你是用什么扫描的二维码，我这边用微信扫描出来，显示正常，可以正常显示汉字“面”