Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8187 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   はじめまして。
初心者ですが、よろしくおねがいします。
こういうやり方で作成したいと思ってます。

１万円札　五千円札　千円札
　２　　　　２　　　　２０

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

１万円札　五千円札　千円札
　３　　　　２　　　　１０

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

１万円札　五千円札　千円札
　４　　　　１　　　　５　

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

１万円札　五千円札　千円札
　３　　　　１　　　　１５

というやり方をしたいのです。
よろしくお願いします。
【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 さん：
どこがわからないのでしょうか？
１万円札の枚数のセルをＡ２
五千円札の枚数のセルをＢ２
千円札の枚数のセルをＣ２として
>[千円札１０枚を１万円札に両替]をするコードは
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 さん：
>どこがわからないのでしょうか？
>１万円札の枚数のセルをＡ２
>五千円札の枚数のセルをＢ２
>千円札の枚数のセルをＣ２として
>>[千円札１０枚を１万円札に両替]をするコードは
>Sub Test1()
>　　Range("C2").Value = Range("C2").Value - 10
>　　Range("A2").Value = Range("A2").Value + 1
>End Sub
>他も同じようにすれば簡単です。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8187 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free