|
申し訳ありませんでした。まだ初心者なもので、説明が曖昧で不適切でした。
改めて説明させていただきます。
>リストボックスに数値を返す
は、シートにある数値をリストボックスに表示させたいということです。
具体的には、ユーザーフォームで、シート("直納分計算書・海上")に幾つかの店のデータ(数値・日付・店名)を入力します。(この分の構文は省略しています。)
その日付の対象となるシート(1日、2日〜30日)を検索し、
そのシートの中にある各店名の表へデータを貼り付け、もし、表に店名が
なければ、「MsgBox "集計表に、該当する店名がありません。手入力して下さい。"」
のメッセージを表示させ、なおかつ、リストボックスに表示されている対象のデータ
に、分かりやすいように着色させたいのです。(以下の構文がこの分です)
この説明でお分かりいただけたでしょうか?説明が下手で申し訳ありませんが
宜しくお願い致します。
If Cells(行番号, 列番号) = "本店" Then
Worksheets("直納分計算書・海上").Select
Cells(行番号, 列番号 + 1).Select
Selection.Copy
Worksheets(i).Select
Range("C5").PasteSpecial OPERATION:=xlPasteSpecialOperationAdd, _
Paste:=xlValue
Application.CutCopyMode = False
Else: MsgBox "集計表に、該当する店名がありません。手入力して下さい。"
|
|