{"id":59,"date":"2021-02-11T06:26:56","date_gmt":"2021-02-10T21:26:56","guid":{"rendered":"http:\/\/192.168.0.97\/bibouroku\/2021\/02\/11\/post-18\/"},"modified":"2021-02-11T06:26:56","modified_gmt":"2021-02-10T21:26:56","slug":"post-18","status":"publish","type":"post","link":"https:\/\/www.donijan.com\/bibouroku\/2021\/02\/post-18.html","title":{"rendered":"\u5e33\u7968\u306b\u30d0\u30fc\u30b3\u30fc\u30c9\u3092\u51fa\u529b\u3057\u3066\u5165\u529b\u306e\u624b\u9593\u3092\u524a\u6e1b\u3059\u308b"},"content":{"rendered":"

\u4f1d\u7968\u306e\u5165\u529b\u95a2\u4fc2\u3067\u4e00\u756a\u624b\u9593\u304c\u304b\u304b\u308b\u306e\u304c
\u4f1d\u7968\u306e\u5165\u529b\u30fb\u30fb\u30fb\u3002
\u4ed5\u5165\u308c\u5148\u3055\u3093\u306b\u30fb\u30fb
\u30c7\u30fc\u30bf\u3067\u306e\u3084\u308a\u3068\u308a\u3092
\u304a\u9858\u3044\u3057\u3066\u3044\u308b\u3093\u3067\u3059\u304c\u30fb\u30fb\u30fb
\u306a\u304b\u306a\u304b\u30fb\u30fb\u30fb\u3053\u306e\u624b\u9593\u304c\u5c11\u3057\u3067\u3082\u5c11\u306a\u304f\u306a\u308c\u3070\u30fb\u30fb
\u672c\u5f53\u306b\u305f\u3059\u304b\u308b\u3093\u3067\u3059\u304c\u30fb\u30fb<\/p>\n

\u5e33\u7968\u306b\u30d0\u30fc\u30b3\u30fc\u30c9\u3092\u51fa\u529b\u3057\u3066\u5165\u529b\u306e\u624b\u9593\u3092\u5c11\u3057\u3067\u3082\u524a\u6e1b\u3059\u308b\u70ba\u306b\u30fb\u30fb<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

<\/p>\n

\u3000<\/p>\n

\uff11\uff0e\u5546\u54c1\u53f0\u5e33\u306e\u65b9\u306b\u30bb\u30c3\u30c8\u3057\u3066\u307f\u308b
\u3000\u3000\u51fa\u529b\u3059\u308b\u306e\u306f\uff21\u306e\u5217\u306b\u51fa\u529b<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

\uff12\uff0e\u30b3\u30fc\u30c9\u3092\u8a18\u8f09\u3057\u3066\u307f\u308b\u30fb\u30fb
\u3000\u3000VBA\u306e\u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a\u3092\u3057\u3066\uff2d\uff49\uff43\uff52\uff4f\uff33\uff4f\uff46\uff54 Access Barcode Control 1**.*\u3092\u9078\u3076<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

\uff13\uff0e\u30b3\u30fc\u30c9\u3092\u8a18\u8f09\u3059\u308b
\u3000\u3000\u4eca\u56de\u306f\u30bb\u30eb\u306e\u4e2d\u306b\u30bb\u30c3\u30c8<\/p>\n

<\/a><\/p>\n

‘\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b
‘————————————————————————–<\/p>\n

Sub test4() ‘\u30d0\u30fc\u30b3\u30fc\u30c9\u306e\u751f\u6210
Dim i As Long
Dim r As Range ‘\u30ec\u30f3\u30b8\u306e\u8a2d\u5b9a
Dim LastRow As Long<\/p>\n

With Worksheets(“Sheet1”)
.Columns(1).ColumnWidth = 20
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
Select Case .Shapes.Count
Case 0
Case Is > 0
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next i
End Select
End With
For i = 3 To LastRow ‘1700
Set r = Worksheets(“Sheet1”).Cells(i, 1)
With Worksheets(“Sheet1″).OLEObjects.Add(classtype:=”BARCODE.BarCodeCtrl”)
.Top = r.Top + 2
.Left = r.Left + 2
.Height = r.Height – 3
.Width = r.Width – 4
With .Object
.Style = 2
.SubStyle = 0
.Value = Worksheets(“Sheet1”).Cells(i, 2).Value
End With
End With
Next i
End Sub<\/p>\n

‘————————————————————————–<\/p>\n

\uff14\uff0e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u3066\u307f\u308b\u3068\u30d0\u30fc\u30b3\u30fc\u30c9\u304c\u51fa\u529b\u3067\u304d\u308b<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

\uff15\uff0e\u30d0\u30fc\u30b3\u30fc\u30c9\u3092\u6d88\u53bb\u3059\u308b\u30b3\u30fc\u30c9\u3092\u66f8\u304f<\/p>\n

<\/a><\/p>\n

‘————————————————————————–
Sub text5() ‘\u30d0\u30fc\u30b3\u30fc\u30c9\u306e\u6d88\u53bb<\/p>\n

Dim i As Long
With Worksheets(“Sheet1”)
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next i
.Columns(1).ColumnWidth = 1
End With<\/p>\n

End Sub<\/p>\n

‘————————————————————————–<\/p>\n

\u3000<\/p>\n

\uff16\uff0e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u6d88\u53bb\u3055\u308c\u308b<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

\uff17\uff0e\u4eca\u5ea6\u306f\u65e2\u5b58\u306e\u30b3\u30fc\u30c9\u3092\u5909\u66f4\u3057\u3066\u307f\u308b\u30fb\u30fb\uff10\u3092\u5165\u308c\u3066\u307f\u308b<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

‘————————————————————————–
Sub test6() ‘\u30d0\u30fc\u30b3\u30fc\u30c9\u3078\u306e\u30c7\u30fc\u30bf\u3092\u5909\u3048\u308b
With Worksheets(“Sheet1”)
For i = 1 To .Shapes.Count
.Shapes(i).Select
With Selection.Object
.Style = 2
.Value = “0000000000000”
End With
Next i
End With<\/p>\n

End Sub
‘————————————————————————–<\/p>\n

\u3000<\/p>\n

\uff17\uff0e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u3066\u307f\u308b\u3068\u5909\u308f\u3063\u3066\u3044\u308b?<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

\u3000<\/p>\n

\uff18\uff0e\u62e1\u5927\u3059\u308b\u3068\u30fb\u30fb\u5909\u308f\u3063\u3066\u3044\u308b<\/p>\n

<\/a><\/p>\n

\u3000<\/p>\n

‘\u6700\u5f8c\u306f\u7d30\u304b\u306a\u8a2d\u5b9a\u90e8\u5206\u3092\u8a18\u9332\u3057\u3066\u304a\u304f<\/p>\n

‘**\u30d0\u30fc\u30b3\u30fc\u30c9\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u30d7\u30ed\u30d1\u30c6\u30a3\u8a2d\u5b9a**
‘\u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u3064\u3044\u3066\u306f\u4ee5\u4e0bURL\u306eMSDN\u53c2\u7167
‘https:\/\/msdn.microsoft.com\/ja-jp\/library\/cc427149.aspx
Const BC_Style As Integer = 7
‘\u30b9\u30bf\u30a4\u30eb
‘0: UPC-A, 1: UPC-E, 2: JAN-13, 3: JAN-8, 4: Casecode, 5: NW-7,
‘6: Code-39, 7: Code-128, 8: U.S. Postnet, 9: U.S. Postal FIM, 10: \u90f5\u4fbf\u7269\u306e\u8868\u793a\u7528\u9014\uff08\u65e5\u672c\uff09 11:QR\u30b3\u30fc\u30c9\u304c\u65b0\u305f\u306b\u30bb\u30c3\u30c8\u3055\u308c\u305f
Const BC_Substyle As Integer = 0
‘\u30b5\u30d6\u30b9\u30bf\u30a4\u30eb (\u4e0b\u8a18URL\u53c2\u7167)
‘https:\/\/msdn.microsoft.com\/ja-jp\/library\/cc427156.aspx
Const BC_Validation As Integer = 1
‘\u30c7\u30fc\u30bf\u306e\u78ba\u8a8d
‘0: \u78ba\u8a8d\u7121\u3057, 1: \u7121\u52b9\u306a\u3089\u8a08\u7b97\u3092\u88dc\u6b63, 2: \u7121\u52b9\u306a\u3089\u975e\u8868\u793a
‘Code39\/NW-7\u306e\u5834\u5408\u3001\u300c1\u300d\u3067\u30b9\u30bf\u30fc\u30c8\/\u30b9\u30c8\u30c3\u30d7\u6587\u5b57(*)\u3092\u81ea\u52d5\u7684\u306b\u8ffd\u52a0
Const BC_LineWeight As Integer = 3
‘\u7dda\u306e\u592a\u3055
‘0: \u6975\u7d30\u7dda, 1:\u7d30\u7dda, 2:\u4e2d\u7d30\u7dda, 3:\u6a19\u6e96, 4:\u4e2d\u592a\u7dda, 5: \u592a\u7dda, 6:\u6975\u592a\u7dda, 7:\u8d85\u6975\u592a\u7dda
Const BC_Direction As Integer = 0
‘\u30d0\u30fc\u30b3\u30fc\u30c9\u306e\u8868\u793a\u65b9\u5411
‘0: 0\u5ea6, 1: 90\u5ea6, 2: 180\u5ea6, 3: 270\u5ea6\u3000[0]\u304c\u6a19\u6e96
Const BC_ShowData As Integer = 1
‘\u30c7\u30fc\u30bf\u306e\u8868\u793a
‘0: \u8868\u793a\u7121\u3057, 1:\u8868\u793a\u6709\u308a
Const BC_ForeColor As Long = rgbBlack
‘\u524d\u666f\u8272\u306e\u6307\u5b9a
Const BC_BackColor As Long = rgbWhite
‘\u80cc\u666f\u8272\u306e\u6307\u5b9a
‘rgbBlack\u306a\u3069\u306e\u8272\u5b9a\u6570\u306f\u4ee5\u4e0bURL\u306eMSDN\u53c2\u7167
‘https:\/\/msdn.microsoft.com\/ja-jp\/VBA\/Excel-VBA\/articles\/xlrgbcolor-enumeration-excel<\/p>\n","protected":false},"excerpt":{"rendered":"

\u4f1d\u7968\u306e\u5165\u529b\u95a2\u4fc2\u3067\u4e00\u756a\u624b\u9593\u304c\u304b\u304b\u308b\u306e\u304c\u4f1d\u7968\u306e\u5165\u529b\u30fb\u30fb\u30fb\u3002\u4ed5\u5165\u308c\u5148\u3055\u3093\u306b\u30fb\u30fb\u30c7\u30fc\u30bf\u3067\u306e\u3084\u308a\u3068\u308a\u3092\u304a\u9858\u3044\u3057\u3066\u3044\u308b\u3093\u3067\u3059\u304c\u30fb\u30fb\u30fb\u306a\u304b\u306a\u304b\u30fb\u30fb\u30fb\u3053\u306e\u624b\u9593\u304c\u5c11\u3057\u3067\u3082\u5c11\u306a\u304f\u306a\u308c\u3070\u30fb\u30fb\u672c\u5f53\u306b\u305f\u3059\u304b\u308b\u3093\u3067\u3059\u304c\u30fb\u30fb \u5e33\u7968\u306b\u30d0\u30fc\u30b3\u30fc\u30c9\u3092\u51fa\u529b\u3057 […]<\/p>\n","protected":false},"author":7,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,17],"tags":[],"class_list":["post-59","post","type-post","status-publish","format-standard","hentry","category-excel","category-vba"],"_links":{"self":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/59"}],"collection":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/users\/7"}],"replies":[{"embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/comments?post=59"}],"version-history":[{"count":0,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/59\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/media?parent=59"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/categories?post=59"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/tags?post=59"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}