- 締切済み
偶数／奇数の判定
noname#118114の回答
以下のＰＧで可能です。 If b Mod 2 = 1 Then a = True Else a = False End If 尚、Modは商の余りを計算する演算子です。
- noname#22222
関連するQ&A
- 偶数、奇数の判定について
こんばんは 以下のマクロにて、最初はx=1なので「奇数」、次はx=x+1で2になっているので「偶数」と表示されるように作ったつもりなのですが、何故か全部「奇数」の表示になってしまいます。 どこがおかしいのか分からないので、教えて頂きたいです。 Sub macro() Dim x, y As Integer x = 1 Do y = x Mod 2 Select Case y Case y = 0 MsgBox "偶数" Case y = 1 MsgBox "奇数" End Select x = x + 1 Loop Until x = 10 End Sub
- 締切済み
- Visual Basic
- 奇数・偶数の判断 VBA
Sub Macro1() Dim i As Long i = 1 For i = 1 To 10 If i = ？ Then '偶数ならと言うコード MsgBox "偶数です" Else MsgBox "奇数です" End If Next End Sub ここまでは自分で作れたのですが、iが奇数か偶数かを判断するコードがわかりません。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで偶数と奇数を見分けられますか？
エクセルで A列の値が奇数だったらB列に○、偶数だったらB列に×を入れたいのです。 A列に入力したら、B列に○×を自動的にだすということを 関数を使ってできますか？ わかる方教えて下さい。
- ベストアンサー
- オフィス系ソフト
- アクションスクリプト2.0 奇数と偶数の判別
ボタンアクションでaとbに数字を入力して、 aとbに入力された数字が奇数か偶数を判別して cとdに出力したいのですがうまくいきません。 FLASH CS5.5を使っています。 わかる方コードを教えてくださると助かります。
- ベストアンサー
- Flash
- excel・VBAで奇数・偶数の分岐がうまくいかない。
一覧が入っているシートから宛名用のシール印刷をするために、VBAを使用しています。 ラベル印刷は ┏━━━━┓┏━━━━┓ ┃ 奇数 ┃┃ 偶数 ┃ ┗━━━━┛┗━━━━┛ みたいな感じです。 奇数：一覧シートの奇数行 偶数：一覧シートの偶数行 ですが、奇数の方はうまく出るのですが、偶数の方が１つおきになってしまいます。 これのどこが間違っているのでしょうか？ Worksheets("Sheet1").Select Last = Cells(1).CurrentRegion.Rows.Count For i = 2 To Last Worksheets("Sheet1").Select Yuubin = Cells(i, 1) Name = Cells(i, 6) Dim AllCount As Integer Worksheets("TEST").Select Kotae = i / 2 Amari = i Mod 2 AllCount = i / 12 If Amari = 0 Then Ichi = (((Kotae - 1) * 9) + 1) - AllCount Cells(Ichi, 2) = "〒" & Left(Yuubin, 3) & "-" & Right(Yuubin, 4) Cells(Ichi + 7, 4) = Name & " 様" ElseIf Amari = 1 Then Ichi = (((Kotae - 1) * 9) + 1) - AllCount Cells(Ichi, 17) = "〒" & Left(Yuubin, 3) & "-" & Right(Yuubin, 4) Cells(Ichi + 7, 19) = Name & " 様" & i End If '奇数偶数分岐 Next ' 全件分終るまで よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 奇数・偶数の数をカウントする方法
どなたかご存じでしたらご教授願います。 【質問】 下記の様に、Ａ１~Ｅ１に数字を入力したら、 その２行下に、入力した数字を表示して 奇数、偶数をカウントして右側に結果を表示するにはどうすればよいですか？ Ａ B C D E 3 4 5 10 31 ---------------------- 奇数 偶数 3 4 5 10 31 → 2 3 〇注意事項 ・入力する数字は1~99迄で、重複数字は入力しません。 ・使用するエクセルは2010です。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセル：偶数セルと奇数セルそれぞれの合計
エクセルで作成した表で 「A2+A4+A6」 や 「B3+B5+B7」のようにそれぞれ偶数セル、奇数セルの数値の合計を表示させたいのですが、よい計算方法はありますか？それとも何十個というセルを地道に足していくしかないのでしょうか？ 少ないセル数ならいいのですが、多くのセルの合計を出したいので困っています。どなたか分かりやすく教えていただけないでしょうか？お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのDeleteキーによるエラー
VBA初心者です。エクセル(2003)のVBAについて質問です。 セルに何か値が入力されたら、隣のセルに「TRUE」と入力し、 入力が消去されたら、隣のセルに「FALSE]と入力されるマクロを作成しています。 下記のコードをシートモジュールに入力し、 標準モジュールにはそれぞれ呼び出し用のマクロを入力しています。 A列とB列は結合されていて、その結合されたA・B列のセルに値が入力されたり消去されたりすると 隣のC列に結果が入力されるようにしたいのですが、 A・B列の値をDeleteキーで消去するとエラーになってしまいます。 BSキーで値を消去するとエラーは出ません。 Deleteキーでもエラーが出ない様にする方法はありますでしょうか。 どなたかご教授お願いします。 ----------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:B1,A3:B3,A5:B5")) Is Nothing Then If Target.Value <> "" Then Select Case Target.Address(0, 0) Case "A1" Call マクロ1_TRUE Case "A3" Call マクロ3_TRUE Case "A5" Call マクロ5_TRUE End Select ElseIf Target.Value = "" Then Select Case Target.Address(0, 0) Case "A1" Call マクロ1_FALSE Case "A3" Call マクロ3_FALSE Case "A5" Call マクロ5_FALSE End Select End If End If End Sub
- ベストアンサー
- オフィス系ソフト
- 奇数・偶数ページごとに差し込み印刷を設定する方法
ワードの差し込み印刷を使って、奇数ページ・偶数ページの それぞれのページに別の内容を差し込みたいのですが上手くいかないので教えてください フィールドの内容がA,B,C,D・・・だったとして 一ページ目にA、二ページ目にB、三ページ目にC、四ページ目にD・・・という風にしたいのですが 奇数ページ、NextRecord、偶数ページで差し込もうとすると 一ページ目にA、二ページ目にB、三ページ目にB、四ページ目にC・・・となってしまいます
- 締切済み
- その他MS Office製品
- ファンクションキーの使用制御について
こんばんわ。 VB6にて、２つのボタンに対してファンクションキー（F5とF7）を割り当てているのですが、 1回押したらプログラムが1サイクル終了するまで使用禁止にしたいのですが、わかりません。 ボタンの方は、EnableをTrue/Falseでできましたが、ファンクションキーはできません。 ちなみに今のファンクションキー割り当てのコードです。 Select Case KeyCode Case vbKeyF5 Call Command1_Click Case vbKeyF7 Call Command2_Click Case Else End Select です。 どなたかよろしくお願いいたします！
- ベストアンサー
- Visual Basic