[[20120811093130]]　『クリックすると数字が入る方法』（まき）　ページの最後に飛ぶ

『クリックすると数字が入る方法』（まき）

　 EXCEL2010です
　クリックするとそのセルに数字「１」が入る方法はありませんか？
　

 方法その１

 そうしたいセルに　=IF(AND(ROW()=CELL("row"),COLUMN()=CELL("col")),1,"")
 こんな式をいれておいて、以下のおまじないをはり付けておく。

 シートタブを右クリック -->コードの表示で、でてきた場所（シートモジュール）に

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Calculate
 End Sub

 方法その２

 シートモジュールだけで。（セルに式は不要）

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Value = 1
 End Sub

 ただし、いずれも『クリック』ではなく、クリックも含めて『選択したセル』が　1 になる。
 方法その２の場合、複数セルを選択すると、選択したすべてのセルが1になる。

 また、方法その１は、選択がかわると、前のセルの 1 は消える。
 方法２は、前のセルの 1 は残る。

 (ぶらっと)

ありがとうございます
方法２で表全体ではなく、一部分だけの設定は無理でしようか？

 たとえば、B2:F10の領域だけに適用するなら

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Set r = Intersect(Target, Range("B2:F10"))
    If Not r Is Nothing Then r.Value = 1
 End Sub

 (ぶらっと)

 ありがとうございます
　感謝します。
　初心者ですが、EXCELってなんでもできるのですね。

コメント返信：

[ 一覧(最新更新順) ]

[[20120811093130]] 『クリックすると数字が入る方法』（まき） ページの最後に飛ぶ

[[20120811093130]]　『クリックすると数字が入る方法』（まき）　ページの最後に飛ぶ