|
IROC さん、こんにちは。
>クリックで、セルに色が付くようにして、
>色の付いたセルだけ計算しては如何でしょうか?
私も↑これに賛成ですが・・・・。
シートのダブルクリックのイベントで
'=============================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
.Value = Evaluate("=char(" & .Address & "+11552)")
End With
Cancel = True
End Sub
こんなことしているのでしょうか?
取りあえず、例題だけ・・・。
'========================================================
Sub test()
Dim asum As Long
asum = 0
For Each rng In Range("a1:d3")
With rng
wk = Evaluate("code(" & .Address & ")")
If wk >= 11553 And wk <= 11556 Then
asum = asum + wk - 11552
End If
End With
Next
MsgBox asum
End Sub
上記は、a1:d3の範囲で○で囲んだ数字の合計を計算しています。
出かけてしまうので、後は、よろしくお願いします。
|
|