|
▼だるま さん:
早速の回答、ありがとうございます。
頂いたコードで、確かに動きました。(すごい!)
でも、実は、1行目だけでなく、変更した行について行いたいのです。
例えば、C5,D5,E5を入力すれば、F5に、
C10,D10,E10を入力すれば、F10に
文字列を入れたいのですが、入力or変更した行をどうやって判別すればよいのか、教えてください。
>こんにちは
>
>こんな感じでいかがでしょうか。^d^
>(対象のシートモジュールにコピペしてください。)
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim RR As Range
> Dim R As Range
> Dim S As String
>
> Set RR = Range("C1,D1,E1")
> If Intersect(RR, Target) Is Nothing Then Exit Sub
> S = ""
> If Application.WorksheetFunction.CountA(RR) = RR.Count Then
> S = "固定文字"
> For Each R In RR
> S = S & R.Value
> Next
> End If
> Range("F1").Value = S
>End Sub
|
|