Excel VBA質問箱 IV

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

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


30714 / 76732 ←次へ | 前へ→

【51282】Re:範囲の中に数値を一つだけ表示
質問  チロル  - 07/9/10(月) 0:55 -

引用なし
パスワード
   先日はありがとうございました。
一つ目の課題はクリア出来たのですが、次の課題がどうしてもわかりません。

次の課題というのも前回と似たようなものなのですが、

前回は
 A1:C5の中に1を一つだけ表示する、
というコードをお願いしましたが、
今回は、
 A1:C5の中に1を一つだけ表示し、
 且つ、
 A6:C10の中に1を一つだけ表示する、
というものがほしいのです。

前回教えていただいた式を参考にして、
単純にIFを二つ入れればできるんじゃないかと考えたのですが、
コードの中身が理解できていないせいでどうもうまくいきません。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim clvl As Variant
  
  If Application.Intersect(Target, Range("A1:C5")) Is Nothing Then Exit Sub
  If Target.Offset(-1, 0) <> "" Then
    clvl = Target.Offset(-1, 0)
    Range("A1:C5").ClearContents
    Target.Offset(-1, 0) = clvl
  End If
  
  
  If Application.Intersect(Target, Range("A6:C10")) Is Nothing Then Exit Sub
  If Target.Offset(-1, 0) <> "" Then
    clvl = Target.Offset(-1, 0)
    Range("A6:C10").ClearContents
    Target.Offset(-1, 0) = clvl
  End If
  
End Sub


出来れば今後のためにも自分で覚えていきたいので、
なにかヒントになるようなものを頂ければ幸いです。
よろしくお願いします。
0 hits

【51103】範囲の中に数値を一つだけ表示 チロル 07/8/28(火) 16:31 質問
【51105】Re:範囲の中に数値を一つだけ表示 けん 07/8/28(火) 17:25 回答
【51106】Re:範囲の中に数値を一つだけ表示 多摩川 07/8/28(火) 17:30 回答
【51112】Re:範囲の中に数値を一つだけ表示 多摩川 07/8/28(火) 17:46 発言
【51108】Re:範囲の中に数値を一つだけ表示 Jaka 07/8/28(火) 17:38 発言
【51111】Re:範囲の中に数値を一つだけ表示 Jaka 07/8/28(火) 17:44 発言
【51139】Re:範囲の中に数値を一つだけ表示 チロル 07/8/29(水) 17:57 お礼
【51282】Re:範囲の中に数値を一つだけ表示 チロル 07/9/10(月) 0:55 質問
【51283】Re:範囲の中に数値を一つだけ表示 多摩川 07/9/10(月) 8:24 発言
【51284】Re:範囲の中に数値を一つだけ表示 チロル 07/9/10(月) 9:32 質問
【51285】Re:範囲の中に数値を一つだけ表示 多摩川 07/9/10(月) 11:51 発言
【51290】Re:範囲の中に数値を一つだけ表示 チロル 07/9/10(月) 15:31 質問
【51295】Re:範囲の中に数値を一つだけ表示 多摩川 07/9/10(月) 16:34 回答

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