Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11091 / 76807

←次へ　｜　前へ→


	【71258】Re:EXCELの計算での質問

ちん - 12/2/15(水) 20:37 -


	引用なし

	パスワード

▼初心者さん：こんばんわ、　　ちんといいます。
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

以上、参考までに・・・

1 hits

▼

【71239】EXCELの計算での質問 初心者です。 12/2/13(月) 17:28