[[20170323125955]] 『一つのセルに 決められた数字を入力するには』(にゃん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『一つのセルに 決められた数字を入力するには』(にゃん)

A1のセルに
B1 に 15 を入力しておく
B2 に 210 を入力しておく
B3 に 350 を入力しておく

B1を クリックすると A1 に 15を表示
B2を クリックすると A1 に 210を表示
B3を クリックすると A1 に 350を表示 するにはどうすればよいですか

< 使用 Excel:unknown、使用 OS:unknown >


 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Intersect(Target, Range("B1:B3")) Is Nothing Then Exit Sub
     Range("A1").Value = Target.Value

 End Sub

 ※シートモジュールに貼り付けてください
(bi) 2017/03/23(木) 13:15

ありがとうございます。専門用語すぎてわかりません。申し訳ありません。
(にゃん) 2017/03/23(木) 13:36

 エクセルのバージョンが2007以上と仮定します。

 シート名上(画面左下のSheet1、Sheet2・・・と並んでいるところのSheet1)で右クリック
 ↓
 コードの表示
 ↓
 開いた画面に上記コードを貼り付け
 ↓
 名前を付けて保存で「Excel マクロ有効ブック(*.xlsm)」を選んで任意の場所に保存

 ※マクロ有効ブックで保存しないとマクロは保存されないので必ず.xlsmで保存してください。
(bi) 2017/03/23(木) 14:50

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.