Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
10 - 20 件目を表示
一致するキーワードは見つかりませんでした。
全般
質問者が納得Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Set myRng = Union(Range("C5:C9"), Range("E5:E9"))
If Intersect(Target, myRng) Is Nothing Then Exit Sub
If WorksheetFunction.IsNumber(Target.Value) = True Then
Applic...
5390日前view0
全般
質問者が納得① IF 文の意味をご存知でしょうか？
Q15の値が空欄かどうかは、下記のうにすれば判定できます。
参考にして下さい。
If Range("Q15").Value = "" Then
MsgBox "空欄"
Else
MsgBox "データ有り"
End If
②に付いては質問が理解出来ません。
5456日前view0
全般
質問者が納得セルの個数と空白セルの個数を比較するとか？
Dim Rg As Range
Set Rg = Range("A1:A1000")
If Rg.Cells.Count = WorksheetFunction.CountBlank(Rg) Then
MsgBox "全て空白"
Else
MsgBox "空白でないセルがある"
End If
5466日前view0
全般
質問者が納得質問者様の例題どおりに今、同じことを舞も行ってみました。
①月間売り上げデーターをカラム７と８に打ち込んで
②目盛の最大値と最小値をカラム３に打ち込んで
③ＶＢＡに質問者様のコードをコピーして
④すんなり、動きましたよ。
エラーは出ませんでした。
もう一度、最初からゆっくりと実行してみてください。
できれば、全て初めから。
それに、してもカラム３に最大最小を配置なさるなんて、ちょっと素敵です。 アイデアを頂いてもいいかしら？
5753日前view0
全般
質問者が納得私ならまず、ＢＩＯＳレベルのエラーを改善します。ＮＩＣ以外のモデムやIEEE1394などのデバイスを全て取り外しＢＩＯＳをデフォルトにしてみます。
これでＯＳレベルのエラーが改善しなければ、クリーンインストールします。
ＮＩＣはチップではなくメーカーや型番をお調べになってドライバーを探すとよいです。
「ＰＣスロットが壊れていますが」の状況によっては、ＰＣスロットは使わないのが無難な気がします。
がんばってくださいね。
5844日前view0
- 1
- 2
