[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『一つのコマンドボタンでセルの文字を変更したい』(深川)
宜しくお願い致します。
Private Sub CommandButton1_Click()
Range("A1") = "1"
End Sub
上記でボタンを1回押すとセルA1に「1」と表示されるのですが。
そこで、もう一度ボタンを押すと「0」と表示し、またボタンを押すと「1」となるように押すたびに繰り返し表示させるにはどのようにしたらようのでしょうか?
< 使用 Excel:Excel2010、使用 OS:Windows8 >
やり方はいろいろあると思いますが、一例です。 Private Sub CommandButton1_Click() Range("A1").Value = IIF(Range("A1").Value = 1, 0, 1 ) End Sub
(Mook) 2015/04/24(金) 17:57
ちょっとトリッキーかも。以下でも。
Private Sub CommandButton1_Click() Range("A1").Value = IIf(Val(Range("A1").Value), 0, 1) End Sub
Val は万が一A1に数値以外が入っていた場合の対応。
(β) 2015/04/24(金) 18:10
おかげさまで出来ました^^
ネットをさ迷ってもわからず苦戦しておりました。
感謝。
(深川) 2015/04/24(金) 18:27
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.