[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『一つのセルに 決められた数字を入力するには』(にゃん)
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
エクセルのバージョンが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.