|
はじめまして
2003 XP
結合されたCellに値(数字)を入れています。
"A10:A11,A18:A19,A27:A28,A35:A36,A43:A44,A52:A53,A60:A61,A68:A69,A77:A78,A85:A86,A93:A94"の各セルに
12,345 → 小合計 ¥12,345-
↑
このように表示したいのですが
始めたばかりなので、どのようにしていいか、よくわかりません。
宜しくお願い致します。
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
ActiveSheet.Range("A10:A11,A18:A19,A27:A28,A35:A36,A43:A44,A52:A53,A60:A61,A68:A69,A77:A78,A85:A86,A93:A94").Value _
= Range("A2:A3").Value
Application.EnableEvents = True
End Sub
|
|