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

どうしよう？

突然、営業担当から相談された

2021年3月末までに
得意先のプライスカードを
内税価格に作り変える必要が！

ネットで調べると確かにそう書いてる！
猶予期間が終了し2021年4月1日から総額表示が義務化（困ったぞ）

なんでコロナ禍で販売激減中に
こんなこと強制させるんだ！

２，３年延期すべきでは

誰に言えばいいんだ？
プラカード持って霞が関に行けば
延期してくれるかな？

とりあえず「プライスカード発行」vbaプログラムを改良

「二重価格プライスカード」を作成

これが新しい操作画面

レポートデザインビューがこれ

「税抜価格」印字の為、「内税価格」印字スペースが縮小

苦肉の策で、最大5桁(99,999円)とし、VBAで4桁(1,000円)以上と以下でフォントサイズを変える

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

完成した「二重価格プライスカード」がこれ
商品名全角20文字、価格は最大99,999円

データ収集は、私の自信作Androidアプリ「なんちゃってハンディターミナル」

さて、これで準備完了
後は、人をやり繰りし得意先のプライスカード情報を集めに行かねば・・・

コロナ＋増税で、売上減少と経費増の２重苦

これまでは無料サービス
でも今回、プライスカード作成費の一部だけでも負担していただけないかな？