[[20040520104201]]　『フォームボタンを押すごとに１づつカウント』（智生）　ページの最後に飛ぶ

『フォームボタンを押すごとに１づつカウント』（智生）

[フォームにあるボタンを押すごとに１づつカウントすることは
　できるのでしょうか？]

 '↓宣言セクションに宣言（モジュールレベル変数）
 Dim TOTALCOUNT
　
 Private Sub CommandButton1_Click()
 TOTALCOUNT = TOTALCOUNT + 1
 Me.TextBox1.Value = TOTALCOUNT
 End Sub
　
コンナ感じでしょうか。
(KAMIYA)

上記の　Private Sub ・・・

 End Sub　をそのまま貼り付けて
ボタンとの連動はどのようにすればすみません
マクロを始めたばかりなもんで

 フォームのスピンボタンではダメでしょうか？　設定だけで出来ますよ。
[[20040520111829]]

 >Private Sub CommandButton1_Click()
 これはコントロールツールボックスのコマンドボタンの場合ですね。

 それともユーザーフォーム・・・？

  (INA)

　説明足らずですみません，コマンドボタンに名前をつけて
顧客からの電話対応の回数を名前を押すたびに表したいのです（智生）

 ユーザーフォームかと思ったのですが･･･。違いますか？
フォームツールバーのコマンドボタンをシートに配置して
シートに数値をカウントアップしていく、ということでしょうか。
標準モジュールへ下記。
　
 Sub ボタン1_Click()
 Rem A1へボタンを押した回数入力
 Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
 End Sub
　
ついでにクリアボタン。
　
 Sub ボタン2_Click()
 Rem A1の値をクリア
 Sheets("Sheet1").Range("A1").ClearContents
 End Sub
　
オブジェクト名は名前ボックスで確認してください。
(KAMIYA)

(KAMIYA)さん，ありがとうございました。イメージどおり
出来ました。(INA)さん適切なアドバイスありがとうございました。
ちょくちょく，よらせて頂きます。（智生）

コメント返信：

[ 一覧(最新更新順) ]

[[20040520104201]] 『フォームボタンを押すごとに１づつカウント』（智生） ページの最後に飛ぶ

[[20040520104201]]　『フォームボタンを押すごとに１づつカウント』（智生）　ページの最後に飛ぶ