- ベストアンサー
なぜandではうまくいかないの？
jcctairaの回答
- jcctaira
- ベストアンサー率58% (119/204)
単純なミスだと思います。 2007/1/1<=2007/10/3<=2007/12/31 → ピンク 上記の式をプログラムで行うと If #2007/1/1# <= #2007/10/3# And #2007/10/3# <= #2007/12/31# Then になります。 ※不等号の向きが違うと思います。 If 39081 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then ↓ If 39081 <= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then 注）39081は2006/12/30 だと思います。
関連するQ&A
- 値によってセル塗りつぶし
初心者です。 データの中から、セルC5からC88の中で数値が300以上はセルを赤に塗りつぶし、250以上300未満は青、200以上250未満は黄色、などとやりたいのですが、if...then...elseステートメントを組んでやってみると「型が一致しません。」となってしまいます。 Sub 選択範囲処理() Range("c5:c88").Select If Range("c5:C88") >= 300 Then Interior.ColorIndex = 3 ElseIf Range("c5:c88") <= 300 And Range("c5:C88") >= 250 Then Interior.ColorIndex = 5 ElseIf Range("c5:c88") <= 250 And Range("c5:c88") >= 200 Then Interior.ColorIndex = 6 ElseIf Range("c5:c88") <= 200 And Range("c5:c88") >= 150 Then Interior.ColorIndex = 20 Else Interior.ColorIndex = 10 End If End Sub ご教示頂けると大変助かります。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- セルには何も入ってないのに、数値型になる理由は？
セルに何も入ってない状態で Sub Macro() If IsNumeric(Range("a1").Value) = True Then MsgBox "A1には数値が入ってます" End If End Sub を実行すると、 "A1には数値が入ってます" が表示されます。 なぜでしょうか？ Sub Macro2() MsgBox TypeName(Range("a1").Value) End Sub を実行すると、stringが返ってきます。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡでの計算後のセルに２重線で囲む
まだＰＣ・ＶＢＡ不慣れな為、実行できないので、教えてください。 ｃ１６セルに休日を入力すると無理つぶしは成功しましたが、ｃ１６セルに祭日を入力すると赤の２重線で囲みたいのですが、できませんので、方法をお願いします。 もう１点がＣＥＬＬＳ・ＲＡＮＧＥを使った２種類の方法をお願いします。 よろしくお願いします。 Sub 練習44() Dim kyuyo As Currency If Range("ｃ16").Value = "祭日" Then Worksheets("練習1If～Then").Cells(16, 3).xlDouble.ColorIndex = 3 ElseIf Range("ｃ16").Value = "休日" Then Worksheets("練習1If～Then").Cells(16, 3).Interior.ColorIndex = 5 Else Worksheets("練習1If～Then").Cells(16, 3).Interior.ColorIndex = 10 End If End Sub
- ベストアンサー
- Visual Basic
- コンパイルエラー「プロシージャが大きすぎます」とのエラーが出ます
セルに入力する値によって、重複した場合にセルの色が変化するようにＶＢＡで記述しましたが、設定した行数が多すぎて、コンパイルエラー「プロシージャが大きすぎます」とのエラーが出ます。小さく記述するにはどの様に書いたらよいでしょうか？ご指導お願いいたします。 記述したＶＢＡは下記とおりです。約３５行ほどでエラーです。 Private Sub Worksheet_Change(ByVal Target As Range) Set myRng = Range("B2") '２行目の設定 For Each c In myRng If c.Value = "" Then c.Interior.ColorIndex = 2 'B2が空白ならばセルの色を白色 ElseIf c.Value = Range("I2") Then c.Interior.ColorIndex = 3 'B2=I2ならばセルの色を赤色 ElseIf c.Value = Range("J2") Then c.Interior.ColorIndex = 6 'B2=J2ならばセルの色を黄色 ElseIf c.Value = Range("K2") Then c.Interior.ColorIndex = 6 'B2=K2ならばセルの色を黄色 ElseIf c.Value = Range("L2") Then c.Interior.ColorIndex = 8 'B2=L2ならばセルの色を青色 ElseIf c.Value = Range("M2") Then c.Interior.ColorIndex = 8 'B2=M2ならばセルの色を青色 Else c.Interior.ColorIndex = xINone End If Next c Set myRng = Range("C2") '２行目の設定 For Each c In myRng If c.Value = "" Then c.Interior.ColorIndex = 2 'C2が空白ならばセルの色を白色 ElseIf c.Value = Range("I2") Then c.Interior.ColorIndex = 6 'C2=I2ならばセルの色を黄色 ElseIf c.Value = Range("J2") Then c.Interior.ColorIndex = 6 'C2=J2ならばセルの色を黄色 ElseIf c.Value = Range("K2") Then c.Interior.ColorIndex = 6 'C2=K2ならばセルの色を黄色 ElseIf c.Value = Range("L2") Then c.Interior.ColorIndex = 8 'C2=L2ならばセルの色を青色 ElseIf c.Value = Range("M2") Then c.Interior.ColorIndex = 8 'C2=M2ならばセルの色を青色 Else c.Interior.ColorIndex = xINone End If Next c Set myRng = Range("D2") '２行目の設定 For Each c In myRng If c.Value = "" Then c.Interior.ColorIndex = 2 'D2が空白ならばセルの色を白色 ElseIf c.Value = Range("I2") Then c.Interior.ColorIndex = 6 'D2=I2ならばセルの色を黄色 ElseIf c.Value = Range("J2") Then c.Interior.ColorIndex = 6 'D2=J2ならばセルの色を黄色 ElseIf c.Value = Range("K2") Then c.Interior.ColorIndex = 6 'D2=K2ならばセルの色を黄色 ElseIf c.Value = Range("L2") Then c.Interior.ColorIndex = 8 'D2=L2ならばセルの色を青色 ElseIf c.Value = Range("M2") Then c.Interior.ColorIndex = 8 'D2=M2ならばセルの色を青色 Else c.Interior.ColorIndex = xINone End If Next c ・ ・ End Sub
- ベストアンサー
- オフィス系ソフト
- このVBAソースのどこが間違ってるか教えてください
Dim csp As Integer 'ストップ Dim css As Integer 'ストップorスタート Sub Quest2() If css = 0 Then css = 1 Quest2a Else cstp = 1 css = 0 End If End Sub Sub Quest2a() Sheets("Sheet1").Select Range("B1:J10").Select Selection.Interior.ColorIndex = x1None Range("a1").Select cstp = 0 Do r = 1: c = 5 For i = 0 To 15 If i < 9 Then Cells(r, c).Interior.ColorIndex = x1None r = r + 1 If i < 5 Then c = c + 1 Else c = c - 1 End If Cells(r, c).Interior.ColorIndex = 3 Else Cells(r, c).Interior.ColorIndex = x1None r = r - 1 If i < 13 Then c = c - 1 Else c = c + 1 End If Cells().Interior.ColorIndex = 3 End If 'タイミング For tm1 = 1 To 1000: For tm2 = 1 To 100: Next If cstp = 1 Then Exit For End If Next DoEvents If cstp = 1 Then Exit For End If If r = 3 And c = 5 Then Cells(r, c).Interior.ColorIndex = x1None End If Next DoEvents If cstp = 1 Then Exit Do End If Loop Cells(10, 9) = Cells(r, c) Cells(10, 9).Interior.ColorIndex = 8 End Sub
- ベストアンサー
- その他（プログラミング・開発）
- 等しく「長いコーディング箇所」が何度も繰り返される場合のテクニック?!
等しく「長いコーディング箇所」が何度も繰り返される場合のテクニック?! 例えば、 If var = 1 Then Range(color_position).Interior.ColorIndex = const_color_1 Elseif var = 2 Then Range(color_position).Interior.ColorIndex = const_color_2 Elseif var = 3 Then Range(color_position).Interior.ColorIndex = const_color_3 ： ： Elseif var = 20 Then Range(color_position).Interior.ColorIndex = const_color_20 End IF なんて場合、 「Range(color_position).Interior.ColorIndex」の箇所が、何度も繰り返されるわけです。 そういう箇所が、至るところにある場合、ファイルサイズが大きくなり、 色々とデメリットがあるような気がしています。 （単純にファイルサイズが無駄に大きい、ファイルの保存に時間がかかる、などのデメリット。場合によっては、処理速度にも悪影響を及ぼす?!） そこで、 Dim set_color As Object Set set_color = Range(color_position).Interior.ColorIndex のようにすれば(Withを使っても良いですが）、前述のコード例は、 If var = 1 Then set_color = const_color_1 Elseif var = 2 Then set_color = const_color_2 Elseif var = 3 Then set_color = const_color_3 ： ： Elseif var = 20 Then set_color = const_color_20 End IF こんなにスッキリ♪ となりますが、こういう考え方で作業をするのは、 実際、価値があると言えますでしょうか？ むしろ、デメリットであったりするのでしょうか？ アドバイスを宜しくお願い致します。
- ベストアンサー
- Visual Basic
- シート保護をすると実行エラーになります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:A2000")) Is Nothing Then Exit Sub With Selection.Interior If .ColorIndex = xlNone Then .ColorIndex = 4 Else .ColorIndex = xlNone End If End With Cancel = True End Sub Ａ列任意のセルをダブルクリックすると色が変わるコードを組んでいます。しかしながら、 Ａ列のみロックを解除したのち、シート保護をすると、上記の実行がエラーになります。 どのようにすればエラーを回避できるのかお知恵をかしていただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- EXCELでセルの値が変化したときだけにマクロ実行
教えてください。 EXCELのA1セルの値が1→0に変化したときにMacro1を実行、0→1に変化したときにMacro2を実行したいと思い、以下のマクロを「シート名タブ右クリック」→「コードの表示」で開く画面に打ちました。 そうしたところキーボードからA1セルに1や0を打ち込むとMacro1・Macro2を実行するのですが。A1セルに関数式を入れ自動で1→0・0→1に変化してもMacro1・Macro2が実行されません。この場合どう修正すればMacroが実行されるようになりますか？ ※ちなみにA1セルの関数式はある条件を満たしたら1、そうでない時0という式です。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Value = 0 Then Macro1 End If If Target.Address = "$A$1" And Target.Value = 1 Then Macro2 End If End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのイベントで質問です。
ある範囲のセルの色をダブルクリックにより変えていますが、 下の("D5:D50,F5:F50,K5:K50,M5:M50"))の範囲を例えばSheet1の A2以下に始めの範囲、B2以下に終りの範囲を下に書いていって、 対象とする範囲を可変にしたいのですが、どのようにすれば いいでしょうか。 例えば("D5:D50,F5:F50,K5:K50,M5:M50"))であれば A2に「D5」 B2に「D50」 A3に「F5」 B3に「F50」 などとセルにセル番地をいれておいて、コードを変えなくても シート上で範囲を変えていけるようにできないでしょうか。 やり方があれば教えてください。 よろしくお願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim r As Range Set r = Intersect(Target, Range("D5:D50,F5:F50,K5:K50,M5:M50")) If r Is Nothing Then Exit Sub With r.Interior If .ColorIndex = xlNone Then .ColorIndex = 3 ElseIf .ColorIndex = 3 Then .ColorIndex = 4 ElseIf .ColorIndex = 4 Then .ColorIndex = xlNone End If End With Cancel = True End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルですが・・・。
チェックボックスについてです。 Private Sub CheckBox1_Click() If CheckBox1 Then Range("F1:F6").Interior.ColorIndex = 3 Else Range("F1:F6").Interior.ColorIndex = xlNone End If End Sub 以前、上記のように教えていただいたのですが、 これですと、1行しか設定していませんよね？ これを、例えば100行くらい自動で設定できませんか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。