- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
½Ð±ÐVBA»s³yBar Code¡G
¦bData ªí内 ®Ú¾Ú ÄæB ¦Ü Äæ H ¡]¼È©wH, ¥i¯à·|§ó¦hÄæ¼Æ¡^ªº¸ê®Æ¡A¨C¦æ»s³y ...
198188 µoªí©ó 2024-6-13 15:26 ![](https://forum.twbts.com/images/common/back.gif)
¤À¨Éªì¨Bµ²ªG- Sub Make_BarCode()
- Dim i, j As Integer
- With Worksheets("Data")
- j = Range("C1").End(xlDown).Row
- For i = 2 To j
- Range("A" & i).Select
- filepath = "https://api.qrserver.com/v1/create-qr-code/?size=95x95&data=" & Range("C1").Value & ":" & Range("C" & i).Value & vbLf & Range("D1").Value & ":" & Range("D" & i).Value & vbLf & Range("E1").Value & ":" & Range("E" & i).Value & vbLf & Range("F1").Value & ":" & Range("F" & i).Value & vbLf & Range("G1").Value & ":" & Range("G" & i).Value & vbLf & Range("H1").Value & ":" & Range("H" & i).Value & vbLf & Range("I1").Value & ":" & Range("I" & i).Value & vbLf & Range("J1").Value & ":" & Range("J" & i).Value & vbLf & Range("K1").Value & ":" & Range("K" & i).Value & vbLf & Range("L1").Value & ":" & Range("L" & i).Value & vbLf & Range("M1").Value & ":" & Range("M" & i).Value
- With ActiveSheet.Pictures.Insert(filepath)
- H1 = .TopLeftCell.Height
- H2 = .Height
- .Top = .TopLeftCell.Top + (H1 - H2) / 2
- H1 = .TopLeftCell.Width
- H2 = .Width
- .Left = .TopLeftCell.Left + (H1 - H2) / 2
- End With
-
- Range("B" & i) = "*" & Range("C" & i) & "*"
- Range("B" & i).Font.Name = "Bar-Code 39"
- Range("B" & i).Font.Size = "25"
- Next i
- End With
- End Sub
- Sub Remove_QR_Code()
- Dim i, j As Integer
- With Worksheets("Data")
- For Each pic In ActiveSheet.Pictures
- pic.Delete
- Next pic
- j = Range("B1").End(xlDown).Row
- For i = 2 To j
- Range("B" & i) = ""
- Range("B" & i).Font.Name = "Calibri"
- Next i
- End With
- End Sub
½Æ»s¥N½X |
|