VB.NETで色を比較するＩＦ文を作成したいのですが| OKWAVE

if文からcase文への置き換え

ピクチャボックスをクリックしたら、チェックボックスがチェックされるメソッドを作りたいと思っています。 Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click,PictureBox2.Click 'ここから If sender Is PictureBox1 Then If Me.CheckBox1.Checked = False Then Me.CheckBox1.Checked = True Else Me.CheckBox1.Checked = False End If ElseIf sender Is PictureBox2 Then If Me.CheckBox2.Checked = False Then Me.CheckBox2.Checked = True Else Me.CheckBox2.Checked = False End If End If 'ここまで End Sub 上記のif文をCase文に置き換えたくて、 'ここから Select Case sender Case PictureBox1 If Me.CheckBox1.Checked = False Then Me.CheckBox1.Checked = True Else Me.CheckBox1.Checked = False End If Case PictureBox2 If Me.CheckBox2.Checked = False Then Me.CheckBox2.Checked = True Else Me.CheckBox2.Checked = False End If End Select 'ここまで上記のように書き換えたのですが、エラーが出てしまいます（ビルドは通るのですが）。 Case文の使い方が間違っているんだとは思いますが、どこがどう間違っているのがよくわかりません。ご教授いただけないでしょうか？

vb.netでのif文について

vb.netでエクセルを操作するプログラムを作ってて、 Dim xlrange As Excel.Range Dim xlcells As Excel.Range xlrange=xlcells(1,1) if xlrange.value<>"*合計*" then xlrange.value="" end if というプログラムを考えたのですが、うまくいきません。 if文の条件にxlrange.valueは使えるのでしょうか？

VB6,Ifから抜けるには?

If a = b then 　　xxx 　If c = d then 　　　ここ！　End If 　　yyy End If zzz 上のここ！から抜け、zzz以降の処理を継続するにはどうすればよいでしょうか？ Exit Subをやってしまうとプロシージャ自体から抜けてしまいます。

vb初心者。急いでます！

修論に取り組む院生です。 vb2010で簡単なソフトを作成中なのですが、以下のようなコードが何度も出てくるため、なんとか短くしたいんです。型変換や色指定部分の工夫などが考えられると思うのですが、なかなか上手くいかず焦っています。 Dim a213,a214,c212,c213,c214 As Double If a213 < 1 Then ha13.BackColor = Color.FromArgb(160, 140, 255) ElseIf a213 < 20 Then ha13.BackColor = Color.FromArgb(120, 160, 255) ElseIf a213 < 40 Then ha13.BackColor = Color.FromArgb(100, 200, 150) ElseIf a213 < 60 Then ha13.BackColor = Color.FromArgb(255, 255, 70) ElseIf a213 < 80 Then ha13.BackColor = Color.FromArgb(255, 170, 0) Else ha13.BackColor = Color.FromArgb(255, 80, 100) End If If a214 < 1 Then ha14.BackColor = Color.FromArgb(160, 140, 255) ElseIf a214 < 20 Then ha13.BackColor = Color.FromArgb(120, 160, 255) ElseIf a214 < 40 Then ha14.BackColor = Color.FromArgb(100, 200, 150) ElseIf a214 < 60 Then ha14.BackColor = Color.FromArgb(255, 255, 70) ElseIf a214 < 80 Then ha14.BackColor = Color.FromArgb(255, 170, 0) Else ha14.BackColor = Color.FromArgb(255, 80, 100) End If If c212 < 1 Then hc12.BackColor = Color.FromArgb(160, 140, 255) ElseIf c212 < 20 Then hc12.BackColor = Color.FromArgb(120, 160, 255) ElseIf c212 < 40 Then hc12.BackColor = Color.FromArgb(100, 200, 150) ElseIf c212 < 60 Then hc12.BackColor = Color.FromArgb(255, 255, 70) ElseIf c212 < 80 Then hc12.BackColor = Color.FromArgb(255, 170, 0) Else hc12.BackColor = Color.FromArgb(255, 80, 100) End If If c213 < 1 Then hc13.BackColor = Color.FromArgb(160, 140, 255) ElseIf c213 < 20 Then hc13.BackColor = Color.FromArgb(120, 160, 255) ElseIf c213 < 40 Then hc13.BackColor = Color.FromArgb(100, 200, 150) ElseIf c213 < 60 Then hc13.BackColor = Color.FromArgb(255, 255, 70) ElseIf c213 < 80 Then hc13.BackColor = Color.FromArgb(255, 170, 0) Else hc13.BackColor = Color.FromArgb(255, 80, 100) End If If c214 < 1 Then hc14.BackColor = Color.FromArgb(160, 140, 255) ElseIf c214 < 20 Then hc14.BackColor = Color.FromArgb(120, 160, 255) ElseIf c214 < 40 Then hc14.BackColor = Color.FromArgb(100, 200, 150) ElseIf c214 < 60 Then hc14.BackColor = Color.FromArgb(255, 255, 70) ElseIf c214 < 80 Then hc14.BackColor = Color.FromArgb(255, 170, 0) Else hc14.BackColor = Color.FromArgb(255, 80, 100) End If 初めにhが付くものはpicturebox名です。条件に応じてpictureboxの色を変えるコードで、色は全部で6色で固定です。このあたりももっと工夫できる気がしてはいるのですが・・・時間がないので、とりあえずは期限までに面倒な手順でもソフトを完成させようと思っていますが、さすがに量が多いのでこちらも時間的に危ういです。。いいアイディアをお持ちの方、よろしくお願いします！！！

ＩＦ文

（Ａ）IF　条件　THEN 単純実行文１　ELSE　単純実行文２ (B)IF　条件 THEN 実行処理１ ELSE 実行処理２Ａの文では単純実行分なのになぜ改行すると(B)の文みたいに実行処理になるのでしょうか？実行処理と単純実行文の違いを教えてください

例外ってIf文の中に入れますか？If文の外でTry...Catchしますか？？

例外ってIf文の中に入れますか？If文の外でTry...Catchしますか？？ Sub Cal(By Val Data As String) 　If ( Flag = "hoge") Then 　Total = js.Eval(Work) 　End If End Sub それと、”エラーコードをテキストの説明に変換する”FormatMessage関数を使おうと思っています。「例外処理　＝　FormatMessage関数」という図式は古いですか？いまはもっと違う方法ですか？

if文がbegin - endな訳は？

if 条件 > 0 then 　begin 　　条件あり　end else 　begin 　　それ以外。　end; Delphiでは、こうなるのですがなぜ｛｝を使わないのでしょうか？｛｝はコメントになるけど、//でも/*　*/　でもいいじゃないですか。それに比べて、begin　-　end　って面倒じゃないですか？何かの本でif文が多いのは汚いプログラムだ、と読んだのですが、当時はPerl,PHPしか知らなかったので、それほど汚くないじゃん。と思ったのですが、Delphiを使ってみると、やっぱりif文が汚く感じます。もちろん、コンパイルするので、書き方は開発者の自由なのは分かりますが、｛｝ではいけない明確な理由があるんでしょうか？豆知識を持っている方、プログラム経験上分かった方、よろしくお願いします。

長いＩＦ文を短くしたい

よろしくお願いしますいつもｇｏｏのみなさんに大変お世話になっておりますマクロは２カ月ほど前から勉強していますお陰様で、私のマクロも日々進歩できていますエクセルのバージョンは2013です質問内容長いＩＦ文を短くしたいＩＦ　条件１　and 条件２　and 条件３ and 条件４　and 条件5 Then 　　処理 End If このようにＩＦ文が長いために、マクロ編集画面が見にくくなっています Select Case　を使わずに短くする方法はないでしょうか？

if文の条件式の書き方

If intTemp <= intTemp2 <= intTemp3 Then というif文があります。このif文の意味とどの時にifの中に入るのでしょうか？ intTemp = 1 intTemp2 = 2 intTemp3 = 3 の時には通る intTemp = 5 intTemp2 = 4 intTemp3 = 3 のときも通る intTemp = 5 intTemp2 = 8 intTemp3 = 3 の時も通ってしまいます。本当はコンパイルエラーだと思ってのですが・・・全然わからないのでわかりやすくお願いします。

fortran if文

fortranのif文で、以下の様に場合わけしてプログラムしたのですが、このようなエラー文が出ます。どう対処したらいいのか教えて下さい。 Error: An unterminated block exists. プログラム↓ if(-0.5d0.LE.theta.LE.0.0d0) then eta=2 if(0.0d0.LT.theta.LT.0.5d0) then eta=5 if(0.5.LE.theta.LE.1.0d0) then eta=3 場合わけの範囲指定の仕方が不味いのではないかと思っていますが、どうしていいものかわからず・・皆様のお力を貸して下さい。

再質問　長いＩＦ文を短くしたい

お世話になっております先日1/24に、条件を示さずに「長いＩＦ文を短くしたい」という質問をしてしまいましたこちらの手抜きをお詫びします前回keithinさんにアドバイスいただいた方法で書き直しましたのでこれをさらに簡単に書く方法があれば教えてください以下は、Private Sub Worksheet_Change(ByVal Target As Range)内のマクロです If Target.Row >= 15 And Target.Row <= 100 And Target.Column = 9 Then If Range("I" & Target.Row).Value < Range("J" & Target.Row).Value Then If Range("G" & Target.Row).Value >= 1 Then If Range("I" & Target.Row).Value >= Range("G" & Target.Row).Value Then If Range("I" & Target.Row).Value Mod Range("G" & Target.Row).Value = 0 Then 　処理 End If End If End If End If End If

IF文の使い方を教えてください

もし　A5001　に　データがあるのなら処理を中止し、データが無ければ処理を継続する。内容のマクロを考えてますが、 A5001にデータがないなら処理を中止は下記の記述で良いかと思いますが、逆にあったら処理を中止する記述はどうすればよいのですか？ Value　が怪しいかと思うのですが・・・・お願いします。 If Range("読み込み!A5001").Value = "" Then MsgBox "データがありません", vbOKOnly, "データ有無確認" Exit Sub End If ret = MsgBox("過去のシュミレーションデータを削除します。よろしいですか？", vbYesNo + vbQuestion, "データ削除実行確認") If ret = vbNo Then Exit Sub End If

Excel VBA If文の処理について

Excel VBA If文の処理方法で質問です。 http://www.sigoto.co.jp/excel/statement/state09.htm　を参考にしながら作ってます。 ▲空白なら　の方法は記載されていますが… If 要素.Value = Empty Then　～ ▲セルに(文字・数値に関係なく)情報があるなら…　という定義をしたいのですがどうやればよろしいでしょうか？ If 要素.Value != Empty Then　～これだとエラーが返りました。VBAは (※Else以外の方法で) 否定文の処理方法ってありますか？ *内容抜粋* Set cell = Range("G5:I9") If cell.Value = "" Then　'…ここの定義どうやれば良いか？・・ End If アドバイスよろしくお願い致します。

VBの質問＃if 0 then ってどう言う意味？

VBの質問です。処理１ #If 0 Then 処理２ #End If 処理３てどういう意味ですか？

アクセスvba if文の記述方法

検索フォームを作成しました。入力項目は「氏名」「カナ」で入力チェックをおこなっております。（未入力）メッセージを表示「未入力です」（入力有）結果一覧のフォームを表示未入力チェックは正常に処理されておりメッセージが表示されます。項目に値を入力した場合フォームが起動しません。 if文から外した場合は正常に実行されます。この条件の場合if文でどのように記述したらよいのでしょうか。宜しくお願いします。 Private Sub 検索_Click() Dim mct As Control Dim flg As Boolean flg = False For Each mct In Me.Controls 　If mct.ControlType = acTextBox Then 　　If mct.Tag = "Check" Then 　　　If Not IsNull(mct) Then 　　　　flg = True 　　　　Exit Sub 　　　End If 　　End If 　End If Next mct If flg = True Then 　Dim str As String 　str = "[氏名] Like ""*" & Me!氏名 & "*"" And [カナ] Like ""*" & Me!カナ & "*""" 　DoCmd.OpenForm "結果一覧", , , str Else 　MsgBox ("未入力です") End If End Sub

VBA の if 文の質問です

下記のようなif文を実行したのですが Or のあとの条件が無視されてしまっているようなのですが、このような書き方ではだめなのでしょうか？ else if で地道に分岐させたほうがいいのでしょうか？ If Cells(1, 1).Value <> "" Or Cells(1, 2).Value <> "test" Or Cells(1,3) <> 0 Then 処理内容 End If

うまくできない？？NO３

If Index = 1 Or 6 Or 11 Or 16 Or 21 Then If P1(1).BackColor = vbRed Then P1(1).BackColor = vbBlue Else P1(1).BackColor = vbRed End If If P1(6).BackColor = vbRed Then P1(6).BackColor = vbBlue Else P1(6).BackColor = vbRed End If If P1(11).BackColor = vbRed Then P1(11).BackColor = vbBlue Else P1(11).BackColor = vbRed End If If P1(16).BackColor = vbRed Then P1(16).BackColor = vbBlue Else P1(16).BackColor = vbRed End If If P1(21).BackColor = vbRed Then P1(21).BackColor = vbBlue Else P1(21).BackColor = vbRed End If '-------------------------------------------------------------------- ElseIf Index = 2 Or 7 Or 12 Or 17 Or 22 Then ～～～省略 ElseIf Index = 5 Or 10 Or 15 Or 20 Or 25 Then If P1(5).BackColor = vbRed Then P1(5).BackColor = vbBlue Else P1(5).BackColor = vbRed End If If P1(10).BackColor = vbRed Then P1(10).BackColor = vbBlue Else P1(10).BackColor = vbRed End If If P1(15).BackColor = vbRed Then P1(15).BackColor = vbBlue Else P1(15).BackColor = vbRed End If If P1(20).BackColor = vbRed Then P1(20).BackColor = vbBlue Else P1(20).BackColor = vbRed End If If P1(25).BackColor = vbRed Then P1(25).BackColor = vbBlue Else P1(25).BackColor = vbRed End If End If '--------------------------------------------------------------------- End Sub ※みにくくてすいません　リンクを張るのは禁止らしいので・・・できないですね・・・関連URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=418248 関連URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=418250

うまくできない？？NO２

Private Sub P1_Click(Index As Integer) If Index = 1 Or 2 Or 3 Or 4 Or 5 Then If P1(1).BackColor = vbRed Then P1(1).BackColor = vbBlue Else P1(1).BackColor = vbRed End If If P1(2).BackColor = vbRed Then P1(2).BackColor = vbBlue Else P1(2).BackColor = vbRed End If If P1(3).BackColor = vbRed Then P1(3).BackColor = vbBlue Else P1(3).BackColor = vbRed End If If P1(4).BackColor = vbRed Then P1(4).BackColor = vbBlue Else P1(4).BackColor = vbRed End If If P1(5).BackColor = vbRed Then P1(5).BackColor = vbBlue Else P1(5).BackColor = vbRed End If '------------------------------------------------------------------- ElseIf Index = 6 Or 7 Or 8 Or 9 Or 10 Then ～～～～～省略 ElseIf Index = 21 Or 22 Or 23 Or 24 Or 25 Then If P1(21).BackColor = vbRed Then P1(21).BackColor = vbBlue Else P1(21).BackColor = vbRed End If If P1(22).BackColor = vbRed Then P1(22).BackColor = vbBlue Else P1(22).BackColor = vbRed End If If P1(23).BackColor = vbRed Then P1(23).BackColor = vbBlue Else P1(23).BackColor = vbRed End If If P1(24).BackColor = vbRed Then P1(24).BackColor = vbBlue Else P1(24).BackColor = vbRed End If If P1(25).BackColor = vbRed Then P1(25).BackColor = vbBlue Else P1(25).BackColor = vbRed End If End If '------------------------------------------------------------------ 続く・・・関連URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=418248

if文について

Excel 2007 VBAを使用しています。 ↓のクリックイベントを実行するとif文のところで不具合があります。商品シートのC列には、状況が保存されています。該当した年月、"受取済み"、"注文中"以外の行データをリストさせます。商品シートのJ列、W列には、該当した年月、"受取済み"、"注文中"以外の行データが存在するのですが、まったく検出してくれません。対処方法を教えてくれませんか? ------------------------------------------- Option Explicit Private Sub CB1_Click() '変数を定義 Dim i As Long Dim maxRow As Long Dim inSheet As Worksheet Dim outSheet As Worksheet '入出力先のシートをオブジェクト変数へ格納 Set inSheet = Worksheets("商品") Set outSheet = Worksheets("結果") 'テキストボックスの内容を判定 If (Me.TextBox21.Value = "") Or (Not IsDate(Me.TextBox21.Value)) Then MsgBox "日付が入力されていません" Exit Sub End If '最終行番号を取得 maxRow = Me.Cells(Rows.Count, "A").End(xlUp).Row '商品シートの最終行番号で分岐処理 If maxRow > 3 Then '出力先を削除してヘッダーをコピー outSheet.Cells.Delete inSheet.Range("A3").EntireRow.Copy outSheet.Range("A1") Application.CutCopyMode = False Else '4行目以降にデータが入力されていなければメッセージで終了 MsgBox "該当データがありません" Exit Sub End If '4行目から最終行まで繰り返し For i = 4 To maxRow 'J列が日付であれば処理 If IsDate(inSheet.Cells(i, "J").Value) Then '--------機能しない箇所(開始) If Year(inSheet.Cells(i, "J").Value) <= Year(Me.TextBox21.Value) And _ Month(inSheet.Cells(i, "J").Value) <= Month(Me.TextBox21.Value) And _ CStr(inSheet.Cells(i, "W").Value) <> "受取済み" And CStr(inSheet.Cells(i, "W").Value) <> "注文中" Then '--------機能しない箇所(終了) inSheet.Rows(i).Copy outSheet.Rows(cnt + 2) End If End If Next i End Sub

IF文の使用制限について(VBA)

いつもお世話になります。 VBAで分からない事があったので、質問をすることにしました。お手数をおかけしますが、よろしくお願いします。現在、以下のようなコードを記述しています。例） IF x > y AND x <= z then ”処理” End If 値「x」がｙよりも大きくて、ｚより小さいかもしくは同じ値の場合は処理をする。というようなコードを記述しています。順調に作業を進めていたのですが、１つのFunction？内に合計25個の例で挙げたIF文を記述しているのですが、最後の25個目まで正しく処理されるでしょうか？一つのFunctionで、IF文の使用できる回数制限みたいなものは存在するのでしょうか？どうしても、後半の3つのIF文だけ正しく処理されなくて困っています…。コードは何回も見直したので間違っていないと思うのです…。もし、IF文の使用個数の制限など無いというのであれば、もう一度見直してみたいと思います。質問は以上となります。よろしくお願いいたします。

VB.NETで色を比較するＩＦ文を作成したいのですが

みんなの回答

関連するQ&A

if文からcase文への置き換え

vb.netでのif文について

VB6,Ifから抜けるには?

AIは使う人の年齢や市場にも影響する？人工知能の可能性

vb初心者。急いでます！

ＩＦ文

例外ってIf文の中に入れますか？If文の外でTry...Catchしますか？？

if文がbegin - endな訳は？

長いＩＦ文を短くしたい

if文の条件式の書き方

fortran if文

再質問　長いＩＦ文を短くしたい

IF文の使い方を教えてください

Excel VBA If文の処理について

VBの質問＃if 0 then ってどう言う意味？

アクセスvba if文の記述方法

VBA の if 文の質問です

うまくできない？？NO３

うまくできない？？NO２

if文について

IF文の使用制限について(VBA)

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VB.NETで色を比較するＩＦ文を作成したいのですが

みんなの回答

関連するQ&A

if文からcase文への置き換え

vb.netでのif文について

VB6,Ifから抜けるには?

AIは使う人の年齢や市場にも影響する？人工知能の可能性

vb初心者。急いでます！

ＩＦ文

例外ってIf文の中に入れますか？If文の外でTry...Catchしますか？？

if文がbegin - endな訳は？

長いＩＦ文を短くしたい

if文の条件式の書き方

fortran if文

再質問 長いＩＦ文を短くしたい

IF文の使い方を教えてください

Excel VBA If文の処理について

VBの質問＃if 0 then ってどう言う意味？

アクセスvba if文の記述方法

VBA の if 文の質問です

うまくできない？？NO３

うまくできない？？NO２

if文について

IF文の使用制限について(VBA)

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

再質問　長いＩＦ文を短くしたい

カテゴリ
一覧

専門家に質問してみよう
専門家登録