[vba]総額表示プライスカード完成

総額表示プライスカード作りでバタバタ

コロナ不況ド真ん中
なんでこんな時に!
延期出来ないのか?

[vba]マジですか2021年4月までにプライスカード作り直し!

完成したプライスカード800枚!
数百枚のプライスカード・・・

ライバル卸が使ってる
専門メーカー製、高価なプライスカードシステム
それを買えない(=買わない)形部商事

私の目が黒いうちは、なんでもMS-Accessで自作

貧社のケチケチプライスカードシステム

市販品のカードに自作Accessプログラム
必要経費は、データ収集の人件費と専用用紙

「エーワン POP REVOLUTION プライスカード 棚什器用 40面 10枚」

Amazon価格344円÷400カード
プライスカード0.86円/枚

[vba]マジですか2021年4月までにプライスカード作り直し!

素人作りですが
それなりの見栄えだと思います

限られた印字スペースに盛りだくさんの項目
VBAでVisible・Hight・FontSizeをコントロール!

[vba]マジですか2021年4月までにプライスカード作り直し!

vbaで背景色を指定する
[code lang=”vb”]

Me![backbox].BackColor = "16777190" ‘初期値青

[/code]

文字数でフォントサイズを動的変更
[code lang=”vb”]

If Len(Me![商品名規格]) > 26 Then
Me![商品名規格].FontSize = 12
Else
Me![商品名規格].FontSize = 13
End If

If Me![売価税込] >= 1000 Then
Me![売価税込].FontSize = 16
Else
Me![売価税込].FontSize = 18
End If

[/code]

vbaで8桁バーコードと13桁バーコードをコントロール
[code lang=”vb”]

Me![JAN8].Height = 600
Me![JAN13].Height = 600

If myLen = 8 Then
Me![JAN13].Visible = False
Me![JAN8].Visible = True
Else
Me![JAN13].Visible = True
Me![JAN8].Visible = False
End If
[/code]

MS-Access超便利
中小企業の守神

不況を乗り切るには

可能な限りのDIYですよね

コメントを残す

メールアドレスが公開されることはありません。

CAPTCHA