| |
▼だるま さん：
早速の回答、ありがとうございます。
頂いたコードで、確かに動きました。（すごい！）
でも、実は、１行目だけでなく、変更した行について行いたいのです。
例えば、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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/10/25(水) 16:23 -
