|
▼やっちん 様
週末から体調を崩しておりましたため、お礼が遅くなりまして申し訳ありません。
本日、一通り試してみたのですが、やっちんさんの再計算案がイメージに
近い動きでしたが、確かに重いですね。また下の回答の案でも適用できそうなので
そちらの方で試行錯誤して行きます。
というわけで、アドバイスだけ頂いてその成果物をここに掲載できないこと残念です。
今回は、ありがとうございました。
>よくよく考えてみると、A列とB列の同じ行の値が必要なだけなので
>Selectionchangeで例えばD1とE1に入れて
>その2つのセルを参照させればユーザー定義関数は不要なような・・・。
>D1とE1で分かりにくければセルに名前を「備考1」、「備考2」と付けて
>参照するのもいいですし。
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim Rng As Range
>
> Set Rng = Intersect(Target, Columns("C"))
> Application.EnableEvents = False
>
> If Rng Is Nothing Then
> Range("D1:E1").Value = ""
> ElseIf Rng.Count > 1 Then
> Range("D1:E1").Value = ""
> Else
> Range("D1:E1").Value = Cells(Target.Row, 1).Resize(, 2).Value
> End If
>
> Application.EnableEvents = True
>End Sub
|
|