Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3938 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59348】加算 ふうか 08/12/7(日) 20:14 質問[未読]
【59350】Re:加算 neptune 08/12/7(日) 20:46 回答[未読]
【59351】Re:加算 ふうか 08/12/7(日) 21:27 発言[未読]
【59352】Re:加算 neptune 08/12/7(日) 22:05 発言[未読]
【59369】Re:加算 Hirofumi 08/12/8(月) 19:00 発言[未読]
【59374】Re:加算 ふうか 08/12/8(月) 21:58 発言[未読]
【59348】加算
質問  ふうか  - 08/12/7(日) 20:14 -
引用なし
パスワード
   少し前に似たような質問をさせて頂いたのですが・・・・・

例えば
「テキストボックス」「コマンドボタン」を各一個用意して
コマンドボックスを一回クリックしたら「1」もう一回クリックしたら「2」

コマンドボックスを一回クリックするごとに
「1」「2」「3」「4」「5」となる様な物は出来ないでしょうか？

欲を言えば「一応回数を決めた状態で」
「3回」と決めたら
「1」「2」「3」戻って「1」「2」「3」となりたいです。

ちなみに
Private Sub CommandButton1_Click()
　　Static kasan As Integer
　　kasa = 1
　　If kasan < 100 Then
　　　　TextBox1 = kasan + 1
　　End If
End Sub

これでは出来ませんでした。


よろしくお願いします
【59350】Re:加算
回答  neptune  - 08/12/7(日) 20:46 -
引用なし
パスワード
   ▼ふうか さん：
ん？？？

前のサンプルがそっくりそのまんまですが。。。。

せっかく書いたのに少しは研究してくださいよ。。。。

>例えば
>「テキストボックス」「コマンドボタン」を各一個用意して
>コマンドボックスを一回クリックしたら「1」もう一回クリックしたら「2」
>
>コマンドボックスを一回クリックするごとに
>「1」「2」「3」「4」「5」となる様な物は出来ないでしょうか？
サンプルの出力先をTextBoxに変更して制限数を変えるだけじゃないですか。

>欲を言えば「一応回数を決めた状態で」
>「3回」と決めたら
>「1」「2」「3」戻って「1」「2」「3」となりたいです。
そういう仕様になってますよ。出力先をTextBoxに変更したらよいだけです。
【59351】Re:加算
発言  ふうか  - 08/12/7(日) 21:27 -
引用なし
パスワード
   neptuneさんすいません
教えて頂いたサンプルを試したのですがブレイクしながら実行するのは問題ないのですが、通常で実行すると途中で止まってしまったので改めて加算部分だけで考えようと思い再投稿したのです。

前に教えて頂いた物で「Staticは保持変数」「Callはプロシージャの呼び出し」ってのは理解できたんですが、私の使い方？考え方？が微妙だと思うのですが出来ませんでした。

なので教えて頂いたサンプルでもまだ私なりに色々使って試させてもらってますが
その他に方法があるのか？と思っての再投稿でした。

なにぶん始めたばかりで本当に基礎構文を続けて書く位しか出来なく応用して使うのが全然出来なく重複した質問すいませんでした、もう少し自分で考えて分からない事が明確になった時に改めて投稿させて頂きます。
【59352】Re:加算
発言  neptune  - 08/12/7(日) 22:05 -
引用なし
パスワード
   ▼ふうか さん：

>教えて頂いたサンプルを試したのですがブレイクしながら実行するのは問題ない
>のですが、通常で実行すると途中で止まってしまったので改めて加算部分だけ
>で考えようと思い再投稿したのです。
「通常で実行すると途中で止まってしまったので」ならそれはそれで
プログラミングのバグです。
もしかしたら初心者の方には困難なものかもしれません。

とまるソースをUPしてくれれば乗りかかった船ですから、解析できる
所は協力します。ちなみに、LoadPictureは重い処理ですから、連続処理は
環境、読み込むファイルサイズなどの影響でに何らかの弊害があるかもしれません。
「私の使い方？考え方？が微妙だと思うのですが出来ませんでした。」
という問題ではないような気がします。

TextBoxのtextプロパティを書き換えるのは全く問題はないはずです。

#コピペでそのまま使えるものを書くという意味ではありませんので悪しからず。
【59369】Re:加算
発言  Hirofumi  - 08/12/8(月) 19:00 -
引用なし
パスワード
   ▼ふうか さん：
>neptuneさんすいません
>教えて頂いたサンプルを試したのですがブレイクしながら実行するのは問題ないのですが、通常で実行すると途中で止まってしまったので改めて加算部分だけで考えようと思い再投稿したのです。
>
>前に教えて頂いた物で「Staticは保持変数」「Callはプロシージャの呼び出し」ってのは理解できたんですが、私の使い方？考え方？が微妙だと思うのですが出来ませんでした。
>
>なので教えて頂いたサンプルでもまだ私なりに色々使って試させてもらってますが
>その他に方法があるのか？と思っての再投稿でした。
>
>なにぶん始めたばかりで本当に基礎構文を続けて書く位しか出来なく応用して使うのが全然出来なく重複した質問すいませんでした、もう少し自分で考えて分からない事が明確になった時に改めて投稿させて頂きます。

数字を繰り返すと言うならこんなのでも

Private Sub CommandButton1_Click()

　　'繰り返しの最大番号
　　Const clngRepetition As Long = 4

　　Static lngCount As Long
　　
　　'繰り返す数字を作成
　　lngCount = lngCount Mod clngRepetition + 1
　　'TextBox1に代入
　　TextBox1.Text = lngCount
　　
End Sub
【59374】Re:加算
発言  ふうか  - 08/12/8(月) 21:58 -
引用なし
パスワード
   neptuneさん
ありがとうございます。
まずは皆様から今まで伺った事を整理して、きちんと試して内容を理解した上で
改めてソースを全部書き加え質問させて頂きます。
本当に色々丁寧にありがとうございます

Hirofumiさん
ありがとうございます
さっそく普通に試してみました、本当に色々あるんですね・・・・・
参考にさせて頂きます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3938 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free