|
▼kanabun さん:
大変すばやい回答をありがとうございます。
初心者なので、とんちんかんなことを言っているかもしれませんが
なにとぞご容赦ください。
イベントプロシージャであるということ、了解いたしました。
書いていただいたコードをそのままシートモジュールに
転記したところ、反応がありません。
恥ずかしながら
・UpDown 1
・(num&)
・[B1]
のような表現を初めて見たもので、
そのまま使用してよいのかがわかりません。
アドバイスのほど、宜しくお願いいたします。
-----------------------------
参考までに、自分で書いたコードは下記になります。spinupの場合です。
If InStr(ActiveSheet.Range("A1").Value, "リンゴ") > 0 Then
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1
ElseIf InStr(ActiveSheet.Range("A1").Value, "みかん") > 0 Then
Sheet1.Range("B2").Value = Sheet1.Range("B2").Value + 1
ElseIf InStr(ActiveSheet.Range("A1").Value, "バナナ") > 0 Then
Sheet1.Range("B3").Value = Sheet1.Range("B3").Value + 1
End If
|
|