エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150424173427]]: #score: 9211; @digest: c071d7f5ec43e8f7a81c1a208d8c22b0; @id: 67856; @mdate: 2015-04-24T09:27:38Z; @size: 1022; @type: text/plain; #keywords: 深川 (12470), 一a1 (7323), 度ボ (3931), 川） (2734), （深 (2686), 回押 (1473), commandbutton1 (1186), 苦戦 (1079), 値以 (737), click (532), ッキ (522), ボタ (508), 一例 (482), トリ (482), 押す (460), タン (456), ドボ (416), windows8 (414), private (401), ルa1 (364), 金) (361), コマ (305), 2015 (291), マン (257), ネッ (241), 「1 (239), mook (217), 感謝 (210), range (168), 早速 (164), excel2010 (158), ンド (156); 『一つのコマンドボタンでセルの文字を変更したい』（深川）
宜しくお願い致します。 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 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150424173427.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ