advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 44 for セルの幅 単位 (0.006 sec.)
セルの幅 (324), 単位 (3434)
[[20200817154148]]
#score: 9641
@digest: d5ff9aaa3b599cda28564725670ef0c6
@id: 84801
@mdate: 2020-08-17T07:13:23Z
@size: 1687
@type: text/plain
#keywords: macro3 (4294), 仮) (3290), 帰的 (3257), macro2 (2615), macro1 (2097), 識的 (1721), ご" (1636), call (1626), らma (1611), 再帰 (1481), 該シ (1447), う" (1371), 度作 (1224), case (1095), 推奨 (870), (仮 (859), し" (854), 意識 (820), キッ (806), 成中 (796), トプ (733), enableevents (698), ロシ (683), ぶど (632), 当該 (556), change (520), target (488), select (488), 実行 (483), ジャ (442), 月) (397), 回避 (396)
『入力された値によってマクロを実行する』(仮)
A1に「りんご」と入力したらMacro1を実行し、「ぶどう」と入力したらMacro2を実行、「なし」と入力したらMacro3を実行する。 というように指定したセルの値によって実行するマクロを分けることは出来ますか? < 使用 Excel:Excel2016、使用 OS:Windows10 > ---- Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1") Case "りんご" Call Macro1 Case "ぶどう" Call Macro2 Case "なし" Call Macro3 End Select End Sub (???) 2020/08/17(月) 16:03 ---- # 衝突してしまいました。 そのシートモジュールに、以下のプロシージャを書いてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Select Case Target.Value Case "りんご" Call Macro1 Case "ぶどう" Call Macro2 Case "なし" Call Macro3 End Select End Sub なお、Macro1の中で、当該シートのセルを更新するのであれば、 Application.EnableEvents = False Call Macro1 Application.EnableEvents = True といったようにしてください。 Macro1のなかで、またChangeイベントプロシージャが再帰的に 呼ばれてしまうのを回避する意図です。 なお^2、私は、以下のマクロをボタンに登録して、意識的にマクロをキックすることを推奨します。 Sub test() Select Case Range("A1").Value Case "りんご" Call Macro1 Case "ぶどう" Call Macro2 Case "なし" Call Macro3 End Select End Sub (γ) 2020/08/17(月) 16:05 ---- ありがとうございます。1度作成中のエクセルで試してみます。 (仮) 2020/08/17(月) 16:13 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202008/20200817154148.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 607944 words.

訪問者:カウンタValid HTML 4.01 Transitional