| |
申し訳ありませんでした。まだ初心者なもので、説明が曖昧で不適切でした。
改めて説明させていただきます。
＞リストボックスに数値を返す
は、シートにある数値をリストボックスに表示させたいということです。
具体的には、ユーザーフォームで、シート("直納分計算書・海上")に幾つかの店のデータ（数値・日付・店名）を入力します。（この分の構文は省略しています。）
その日付の対象となるシート（１日、２日〜３０日）を検索し、
そのシートの中にある各店名の表へデータを貼り付け、もし、表に店名が
なければ、「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 "集計表に、該当する店名がありません。手入力して下さい。"
|
|
kz
- 04/4/20(火) 19:44 -
