Gift history
Please access after login.


Wait a moment...

Excel VBA 課題2 「0」が勝手に入ってキタ 修正済!! 左と右入れ替え

463
6
2020-09-18 13:23:05
0.00 mXYM
(0)

おはようございます。

今日も課題をこなしていきますよ(^^)/

課題2はこんな問題!!

 

対象のセルに数字を入力して比較

ヒントにあるように「if文」で条件分岐だね!!

組んでみたよ!!

Sub kadai2()
    Dim Lefti As Integer
    Dim Righti As Integer
    
    Cells(8, 2).Value = Lefti
    Cells(8, 3).Value = Righti
    
    If Lefti > Righti Then
        MsgBox "左が" & Lefti - Righti & "大きい"
    ElseIf Lefti < Righti Then
        MsgBox "右が" & Righti - Lefti & "大きい"
    Else
        MsgBox "左と右は等しい"
    End If
End Sub

 

対象のセルを左側を「Lefti」右側を「Righti」に入れて「if分岐」!! させたよ

あってるかな?

 

実行させてみる('ω')ノ

ポチっとな

 

 

 

 

 

orz (´;ω;`)ウゥゥ

実行させたら勝手に「0」が 入るんですが www

なんででしょう? えっ!!

 

おしえてくださーーーーーーーい!!

プログラム一筋縄ではいかせてくれません(´;ω;`)ウゥゥ

 

twitterで おえさんが!!

ネムログのコメに書いてくれました

それを修正する必要があるのがこちらの部分!!

Cells(8, 2).Value = Lefti 
Cells(8, 3).Value = Righti

 

ここの 左と右を入れ替える

左の値を 右に入れる 

左にはまだ値が入ってないから「0」になるって事ですね

 

Lefti = Cells(8, 2).Value
Righti = Cells(8, 3).Value

これに修正ww

 

全体的には

Sub kadai2()
    Dim Lefti As Integer
    Dim Righti As Integer
    
    Lefti = Cells(8, 2).Value
    Righti = Cells(8, 3).Value
    
    If Lefti > Righti Then
        MsgBox "左が" & Lefti - Righti & "大きい"
    ElseIf Lefti < Righti Then
        MsgBox "右が" & Righti - Lefti & "大きい"
    Else
        MsgBox "左と右は等しい"
    End If
End Sub

 

デスwww

 

そしたら!!!

 

動くようになりました!!

ありがとうございます!! www

いやー スゴイ基本的な事わかっていない!!

右と左 間違えたら 「うごきません!!」

 

今回のことで頭に叩き込めれました!!

おえさんありがとうございます!!

 

次!! 課題3に続く!!

 

 

 

うほ!!

 

 

 

 

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,