|
ASAKIさん、先程はご教授方、ありがとうございました。
それで先程のご回答の内容(AfterUpdateイベントの件です)ですが、リストボックス
へ数値を返した際に、該当の数値に着色する場合も、やはりAfterUpdateイベントに
なるのでしょうか?例えば、次のような構文の場合、ELSE:にその内容を入れたいのですが、どのように入力すればよろしいのでしょうか?色々、勉強したのですが、わかりませんでした。どうか、宜しくお願い致します。
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 "集計表に、該当する店名がありません。手入力して下さい。"
|
|