[[20150424173427]] 『一つのコマンドボタンでセルの文字を変更したい』(深川) ページの最後に飛ぶ

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

 

『一つのコマンドボタンでセルの文字を変更したい』(深川)

宜しくお願い致します。

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


Mookさん、βさん 早速の回答ありがとうございます。

おかげさまで出来ました^^

ネットをさ迷ってもわからず苦戦しておりました。

感謝。
(深川) 2015/04/24(金) 18:27


コメント返信:

[ 一覧(最新更新順) ]


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