| |
▼初心者さん：こんばんわ、 ちんといいます。
1000件あるデータをDOにより、計算式を表示する件ですが。
セルの値が入力されたら、その行のみ計算式を表示するにしてみては？
シートBBBのワークシートに、
Private Sub Worksheet_Change(ByVal Target As Range)
'A1からC10を1行目から1000行目までかつ1列目から10列目までという条件
If Target.Column >= 1 And Target.Column <= 10 Then
Else
Exit Sub
End If
If Target.Row >= 1 And Target.Row <= 1000 Then
Else
Exit Sub
End If
'セルの値に変更があったときに実行したい処理を記述
Call 再計算(Target.Row, Target.Column)
End Sub
標準モジュールに以下の処理を記述する。
Sub 再計算(Gyou As Long, Retu As Long)
If CStr(Cells(Gyou, 10)) <> "" Then
WKBB3 = Cells(Gyou, 10).Formula ''R1C1
End If
If CStr(Cells(Gyou, 11)) <> "" Then
WKBB4 = Cells(Gyou, 11).Formula ''R1C1
End If
wkbb = 0
wkbb = "[" & WKBB3 & "]：[" & WKBB4 & "]"
Cells(Gyou, 12).Value = wkbb
End Sub
以上、参考までに・・・
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
