Gift history
Please access after login.


Wait a moment...

Excel VBA  課題3 mod 割り切れる事を判定させる

545
3
2020-09-19 20:08:20
0.00 mXYM
(0)

おはようじゃないけど

おはようございます!!

今日も課題をしてきました。(^^)/

課題3はこんな問題

 

自分の思いついたプログラムの流れは

1-30 を 判定させるから For文 を使う

判定文字入力のセルは for文の変数が代用できる!!

ヒントにあるように割り切れるって事は「余りは0」

余りの計算、分からないのでググってみました。

VBAで割り算の余りを求めるMOD関数は? ←リンクに飛びます

ここによると 5÷2=2...1 の書き方は

5 mod 2 で いいらしい 余りが 変数にいれられる!

だからここの例では 変数 i mod (5 か 3) が 0 になる条件式をつくればいいよね

Sub kadai3()
    Dim i As Integer
    
    For i = 1 To 30
        If i Mod 3 = 0 Then
            Cells(10, i + 1).Value = "A"
        ElseIf i Mod 5 = 0 Then
            Cells(10, i + 1).Value = "B"
        ElseIf i Mod 3 = 0 And i Mod 5 = 0 Then
            Cells(10, i + 1).Value = "C"

        End If
    Next
End Sub

これを実行させると

 

こうなリました

一番最後の条件式であった C がいないですね?

一番最後だから多分「おまえ、いらない」っていわれましたね?

15と30を見ると最初のA条件式が採用されてますね!

「ま、なんでもはやいもん勝ちですから」( ;∀;)

両方に引っかかるのは先の条件に引っかかるみたい

なら C の 条件を 一番最初にすると .....

 

Sub kadai3()
    Dim i As Integer
    
    For i = 1 To 30
        If i Mod 3 = 0 And i Mod 5 = 0 Then
            Cells(10, i + 1).Value = "C"
        ElseIf i Mod 5 = 0 Then
            Cells(10, i + 1).Value = "B"
        ElseIf i Mod 3 = 0 Then
            Cells(10, i + 1).Value = "A"
        End If
    Next
End Sub

 

これを実行させたら.....

 

完成しました!!

 

条件の順番を考慮しないと表示されない項目もでますね

 

次 「課題4へ」 続く

 

 

 

 

 

 

Writer
はじめまして!! プロフィール写真、三次元娘から 二次元娘に替えましたがなにか?((;´Д`) NEMが熱くなってきたので色々調べているとここに行き着きました!! 自分はNEMが安いうちにハーベストできる額にしたかったんで 少ないですが買えるだけ買いました!! 少しずつでも買い足していきたいです!! 趣味はゲームセンターで音ゲーばかりやってます。 主にDDR(ダンスダンスレボリューション)をしてます。 シングルもダブルもしています 今までまったりプレイしてましたが、 発狂譜面の攻略がしたくなって、まだ落ちる事が多いですが、 楽しくなりました。 NEMの活用ですがアミューズメント系で活用されないか 模索していきたいと思います こんな自分ですがどうか、宜しくお願いします。

Login required to post comment
Loading...
https://symbol-sakura-16.next-web-technology.com:3001,https://symbol.harvest-monitor.com:3001,https://hideyoshi-node.net:3001,https://harvest-01.symbol.farm:3001,https://criptian-xym-node.net:3001,https://35665.xym.stir-hosyu.com:3001,https://yuna.keshet.finance:3001,https://keshet01-symbol-paradise.com:3001,https://keshet03-symbol-paradise.com:3001,https://keshet04-symbol-paradise.com:3001,https://cryptocat-xym-node.com:3001,https://misaki-xym.com:3001,https://ik1-305-12844.vs.sakura.ne.jp:3001,https://17107.xym.stir-hosyu.com:3001,https://23639.xym.stir-hosyu.com:3001,https://sym-main-01.opening-line.jp:3001,https://sym-main-02.opening-line.jp:3001,https://sym-main-03.opening-line.jp:3001,https://sym-main-04.opening-line.jp:3001,https://sym-main-05.opening-line.jp:3001,https://sym-main-06.opening-line.jp:3001,https://sym-main-07.opening-line.jp:3001,https://sym-main-08.opening-line.jp:3001,https://sym-main-09.opening-line.jp:3001,https://sym-main-10.opening-line.jp:3001,https://symbol-node-01.kokichi.tokyo:3001,https://50038.xym.stir-hosyu.com:3001,https://27423.xym.stir-hosyu.com:3001,https://angel.vistiel-arch.jp:3001,https://xym.stakeme.tokyo:3001,https://00-symbol-node.yagiyoshi.com:3001,
6BED913FA20223F8,051FAEC15105C808,73019335A785A3AE,5289A9B0DBB7EB25,6B245EAF1302E444,2C4A4893229DD0A9,