Excel VBA質問箱 IV

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

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


8176 / 13644 ツリー ←次へ | 前へ→

【34721】数字の変化 sato 06/2/10(金) 15:36 質問[未読]
【34726】Re:数字の変化 だるま 06/2/10(金) 16:03 発言[未読]
【34761】Re:数字の変化 Koharu 06/2/11(土) 17:37 発言[未読]
【34795】Re:数字の変化 sato 06/2/13(月) 11:06 質問[未読]
【34768】Re:数字の変化 やっちん 06/2/11(土) 18:34 発言[未読]
【34797】Re:数字の変化 sato 06/2/13(月) 11:49 お礼[未読]

【34721】数字の変化
質問  sato  - 06/2/10(金) 15:36 -

引用なし
パスワード
   はじめまして。
初心者ですが、よろしくおねがいします。
こういうやり方で作成したいと思ってます。

1万円札 五千円札 千円札
 2    2    20

[一万円札→千円札10枚] というボタンをクリックして

1万円札 五千円札 千円札
 3    2    10

[一万円札→五千円札1枚と千円札5枚]のボタンをクリックして

1万円札 五千円札 千円札
 4    1    5 

[千円札10枚→一万円札]のボタンをクリックして

1万円札 五千円札 千円札
 3    1    15

というやり方をしたいのです。
よろしくお願いします。

【34726】Re:数字の変化
発言  だるま WEB  - 06/2/10(金) 16:03 -

引用なし
パスワード
   矢印の向きが逆ではありませんか。^d^

回答でなくてごめんなさい。

【34761】Re:数字の変化
発言  Koharu  - 06/2/11(土) 17:37 -

引用なし
パスワード
   ▼sato さん:

金種の処理は
シート関数でINT関数とMOD関数で作成された方が
簡単と思いますよ。
私はこの関数を使っていますが…

質問の意味が分かりにくいので回答が無いのかも
知れませんね。

【34768】Re:数字の変化
発言  やっちん  - 06/2/11(土) 18:34 -

引用なし
パスワード
   ▼sato さん:
どこがわからないのでしょうか?
1万円札の枚数のセルをA2
五千円札の枚数のセルをB2
千円札の枚数のセルをC2として
>[千円札10枚を1万円札に両替]をするコードは
Sub Test1()
  Range("C2").Value = Range("C2").Value - 10
  Range("A2").Value = Range("A2").Value + 1
End Sub
他も同じようにすれば簡単です。

【34795】Re:数字の変化
質問  sato  - 06/2/13(月) 11:06 -

引用なし
パスワード
   こんにちは。
意味が分からないということですみません。
聴覚障害者なので文章など欠けていると思いますが
なにとぞ理解お願いします。

もう一度説明します。

    A     B     C   ボタン
1  一万円札  五千円札  千円札    ↓
2    1     2     20  [千円札10枚両替]
                  [五千円札1枚+千円札5枚両替]
                  [千円札5枚両替]

千円札10枚両替をボタンでクリックしますと

    A     B     C   ボタン
1  一万円札  五千円札  千円札    ↓
2    2     2     10  [千円札10枚両替]
                  [五千円札1枚+千円札5枚両替]
                  [千円札5枚両替]

一万円札が2枚となり、千円札が10枚となるような変更できるとうれしいです。
よろしくお願いします。

【34797】Re:数字の変化
お礼  sato  - 06/2/13(月) 11:49 -

引用なし
パスワード
   やっちんさん、ありがとうございました。
おかげで解決できました。
ありがとうございました。


▼やっちん さん:
>▼sato さん:
>どこがわからないのでしょうか?
>1万円札の枚数のセルをA2
>五千円札の枚数のセルをB2
>千円札の枚数のセルをC2として
>>[千円札10枚を1万円札に両替]をするコードは
>Sub Test1()
>  Range("C2").Value = Range("C2").Value - 10
>  Range("A2").Value = Range("A2").Value + 1
>End Sub
>他も同じようにすれば簡単です。

8176 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free