Excel VBA質問箱 IV

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

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


47575 / 76732 ←次へ | 前へ→

【34109】Re:ActiveCellの移動による表示切替につ...
お礼  わいわい  - 06/1/26(木) 15:28 -

引用なし
パスワード
   ▼やっちん 様
週末から体調を崩しておりましたため、お礼が遅くなりまして申し訳ありません。
本日、一通り試してみたのですが、やっちんさんの再計算案がイメージに
近い動きでしたが、確かに重いですね。また下の回答の案でも適用できそうなので
そちらの方で試行錯誤して行きます。
というわけで、アドバイスだけ頂いてその成果物をここに掲載できないこと残念です。
今回は、ありがとうございました。

>よくよく考えてみると、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

0 hits

【33772】ActiveCellの移動による表示切替について わいわい 06/1/20(金) 10:46 質問
【33781】Re:ActiveCellの移動による表示切替について やっちん 06/1/20(金) 12:30 発言
【33788】Re:ActiveCellの移動による表示切替につ... わいわい 06/1/20(金) 14:31 質問
【33789】Re:ActiveCellの移動による表示切替につ... BB 06/1/20(金) 16:31 発言
【33791】Re:ActiveCellの移動による表示切替につ... わいわい 06/1/20(金) 17:41 質問
【33801】Re:ActiveCellの移動による表示切替につ... こたつねこ 06/1/20(金) 20:48 発言
【33804】Re:ActiveCellの移動による表示切替につ... やっちん 06/1/20(金) 21:36 回答
【33806】Re:ActiveCellの移動による表示切替につ... やっちん 06/1/20(金) 22:42 発言
【34109】Re:ActiveCellの移動による表示切替につ... わいわい 06/1/26(木) 15:28 お礼

47575 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free