Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10038 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24110】特定のセルに入力したときに他のセルの値をコピーするには？ お初 05/4/12(火) 14:03 質問[未読]
【24112】Re:特定のセルに入力したときに他のセルの... Jaka 05/4/12(火) 14:10 回答[未読]
【24113】Re:特定のセルに入力したときに他のセルの... Jaka 05/4/12(火) 14:13 回答[未読]
【24116】Re:特定のセルに入力したときに他のセルの... お初 05/4/12(火) 14:51 お礼[未読]
【24117】Re:特定のセルに入力したときに他のセルの... Jaka 05/4/12(火) 15:01 発言[未読]
【24110】特定のセルに入力したときに他のセルの値...
質問  お初  - 05/4/12(火) 14:03 -
引用なし
パスワード
   まったくの初心者ですみまんせん。

セルD1に文字を入力したときに
A5〜A10（セル内は数式）の値だけをC5〜C10にコピーするのってできるのでしょうか？
【24112】Re:特定のセルに入力したときに他のセル...
回答  Jaka  - 05/4/12(火) 14:10 -
引用なし
パスワード
   こんにちは。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　If Target.Address(0, 0) = "D1" Then
　　　 Range("C5:C10").Value = Range("A5:A10").Value
　　End If
End Sub
【24113】Re:特定のセルに入力したときに他のセル...
回答  Jaka  - 05/4/12(火) 14:13 -
引用なし
パスワード
   もしかして、こっち？
他の条件は適当に増やしてください。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　If Target.Address(0, 0) = "D1" Then
　　　 If Target.Value <> "" Then
　　　　　Range("C5:C10").Value = Range("A5:A10").Value
　　　 End If
　　End If
End Sub
【24116】Re:特定のセルに入力したときに他のセル...
お礼  お初  - 05/4/12(火) 14:51 -
引用なし
パスワード
   こんにちはご回答ありがとうございます。

できました。
でも、コピー元（C5:C11）も値に変わってしまうのですが数式のまま残せないですか？
【24117】Re:特定のセルに入力したときに他のセル...
発言  Jaka  - 05/4/12(火) 15:01 -
引用なし
パスワード
   ▼お初 さん：
>でも、コピー元（C5:C11）も値に変わってしまうのですが数式のまま残せないですか？

？？？？。
コピー元って、A5:A10じゃないんですか？

例えば
A1に　=1　と入っていて、B1にA1の値だけコピペすると、B1に何が入っていても「1」となりますけど...。（要するに上書き）

ちょっと意味が良く解りません？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10038 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free