お世話になります
access初心者です。
下記教えていただければ有り難いです。
テーブルで下記データがあります。
商品名 在庫ケース数r
A1 5
A2 12
A3 3
A4 32
A5 8
A6 2
A7 22
このデータをレポートで添付ファイルのように赤の四角のボックスが数量分横に延びていくように出力したいです。
以前こちらで横に延びるためのコードは教えて頂きました。その節は本当に助かりました。ありがとうございました。
教えて頂いたコードを参考にして作ったコードは下記になります。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If 在庫ケース数r >= 1 Then
ボックス01.Visible = True
ボックス02.Visible = False
ボックス03.Visible = False
ボックス04.Visible = False
ボックス05.Visible = False
ボックス06.Visible = False
ボックス07.Visible = False
ボックス08.Visible = False
Else
ボックス01.Visible = False
End If
If 在庫ケース数r >= 2 Then
ボックス01.Visible = True
ボックス02.Visible = True
ボックス03.Visible = False
ボックス04.Visible = False
ボックス05.Visible = False
ボックス06.Visible = False
ボックス07.Visible = False
ボックス08.Visible = False
Else
ボックス02.Visible = False
End If
If 在庫ケース数r >= 3 Then
以下3~7は省略。
If 在庫ケース数r >= 8 Then
ボックス01.Visible = True
ボックス02.Visible = True
ボックス03.Visible = True
ボックス04.Visible = True
ボックス05.Visible = True
ボックス06.Visible = True
ボックス07.Visible = True
ボックス08.Visible = True
Else
ボックス08.Visible = False
End If
If 在庫ケース数r >= 9 Then
End If
End Sub
在庫ケ―ス9以上の場合、8個マスを表示して、折り返して2段目に四角マスを表示したいと思っています。
参考までにレポートのデザインビューの写真を添付します。
もし可能でしたら、やり方を教えて頂ければ有難いです。
宜しくお願い申し上げます
No.1ベストアンサー
- 回答日時:
こんにちは、私ならば…ということで。
テーブル
商品名 在庫ケース数r
A1 5
A2 12
A3 3
A4 32
A5 8
A6 2
A7 22
からクエリを作成します。
デザイングリッドに『図』フィールドを追加し、式を
図: String([在庫ケースr],"□")
とします。
これで在庫ケースrに応じて四角が増減しますのでこれからレポートを作成。
『図』のフォントサイズや色をお好みで調整。
『図』コントロールは四角が8個だけ並ぶように幅を微調整。
プロパティの『印刷時拡張』を「はい」に変更。
□の間の隙間はどうしようもないです。
四角形ボックスの可視・不可視くらいなら
VBAでSelect Case やFor Next を使用すれば
もっとシンプルで行数の少ないものが出来ますが
在庫ケース数rの数によって詳細セクションの高さも増減させるのは
無理なような気がします。
気まぐれな上司が8個並びはキリが悪いので10個にして。
あっ5個の方がいいかな・・両方作ってみて。
と言う時も考えるとなおさらね。
以上ご参考まで。
早々の返信ありがとうございます。
試してみました。
四角に少しすき間がありますが、うまくいきそうです。全部試した訳ではないですが、レポートでフォントをAR悠々ゴシック体E04にしたら四角のすき間がかなり小さくなりました。
とても助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンへの「Dropbox...
-
今日スマホでネットをしていた...
-
Excel VBAでMsgboxの値を取得す...
-
VBA listBoxから
-
リストボックスの全行表示
-
NEXUS 7で自炊したPDFが読めま...
-
エクセルでマクロを実行中に「...
-
AccessのMsgBox表示位置について
-
VB.net コンボボックス
-
VBA シートのボタン名を変更し...
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 438になった時の...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームのテキストボ...
-
ユーザーフォームを表示中にシ...
-
エクセルエラー13型が一致しま...
-
実行時エラー 3265「要求された...
-
なぜこんな初歩的なVBAのIf文で...
-
ウォッチ式の文字数制限について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA listBoxから
-
エクセルでマクロを実行中に「...
-
Excel VBA コンボボックスについて
-
AccessのMsgBox表示位置について
-
今日スマホでネットをしていた...
-
メッセージボックスの再表示の方法
-
リストボックスの全行表示
-
NEXUS 7で自炊したPDFが読めま...
-
Access メッセージボックスで文...
-
VB.net コンボボックス
-
Excel VBAでMsgboxの値を取得す...
-
VAB:メッセージボックスの色に...
-
Builder TMemo 最初の行から表示
-
画面上の文字が表示されない
-
サービスアプリからメッセージ...
-
エクセルでコンボボックス内に2...
-
写真のデータが表示されなくなった
-
worksheetFunctionクラスのVloo...
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
おすすめ情報
理想の形も添付させて頂きます
よろしくお願い申し上げます