- ベストアンサー
無効なセルを参照した場合の判定について
- 表内のセルを選択した場合と、表外のセルを選択した場合に処理を分けたいと考えています。
- アクティブセルがhaniに含まれる場合(または含まれない場合)ですが、<>と=では無理なようなのですが、何を調べても分かりません。
- どなたかよろしくお願いいたします。Windows2003、XPです。
- kiyoritta
- お礼率45% (10/22)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- 検索後のセルの選択を正しくしたい
Excel2007でマクロ作成中の初心者です。 以下のコードの中で(1)のところがうまく作動できません。 ここの ActiveCell.Select を正常にするにはどうしたらよいかご教示をお願いします。 Sub 最終日の検索() Dim FC As Range Dim mydate As Date mydate = Range("BQ5").Value For Each FC In Range("BR30:BR300") If FC.Value = DateValue(mydate) Then Exit For End If Next If FC Is Nothing Then MsgBox "みつかりませんここでおわりです" Exit Sub End If MsgBox "見つかりました" & vbLf & FC.Address(0, 0) & vbLf & FC.Value ' ' ここに処理を追加したい ActiveCell.Select ’----------(1) Selection.Offset(0, 45).Select ActiveCell.Select 貼付けしてあるかどうか Set FC = Nothing End Sub ---------------------------------- Sub 貼付けしてあるかどうか() If ActiveCell.Value = "※※" Then MsgBox " 既に貼付けしてあります" Else MsgBox "貼付けしてないので処理します" End If End Sub
- ベストアンサー
- Visual Basic
- 現在選択中のセルの中に空白があるのなら
現在選択中のセルの中に空白があるのなら と言うコードを作りたいのですが Sub test() Dim r As Range Set r = Selection 'if rの中に空白があるなら then MsgBox "空白セルがあります" 'end if Set r = Nothing End Sub ここまでしかわかりませんでした。 ｉｆステートメントどうすればいいか教えていただけますか？ ご教授よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 選択セルの中身が変わる理由
4月 5月 6月 商品A 87 58 210 商品B 85 90 117 商品C 100 54 130 商品D 76 210 325 合計 348 412 782 Sub 数値条件セル選択() Dim 対象セル As Range Dim 選択セル As Range 'シート内の数値セルを選択 ActiveSheet.UsedRange.Select ActiveCell.SpecialCells(xlCellTypeConstants, xlNumbers).Select '「100以上」のセルを選択 １ For Each 対象セル In Selection ２ If Val(対象セル.Value) >= 100 Then ３ If 選択セル Is Nothing Then ４ Set 選択セル = 対象セル Else ５ Set 選択セル = Union(選択セル, 対象セル) End If End If Next '検索結果の表示 If 選択セル Is Nothing Then ActiveCell.Select MsgBox "該当セルはありませんでした" Else 選択セル.Select End If End Sub 教えてください 3,4の所なのですが、最初に見つけた100以上の値（6月の210）なので 選択セルに210が入るのですが、コレは分かりました。が最後までコードを進めていくと選択セルが（4月の100）になっています。 コレはなぜでしょうか。分かりません。教えてくださいお願いします。 VBAの勉強（初心者です）
- 締切済み
- Visual Basic
- マクロ セル参照時の記述
いつも回答ありがとうございます。 似たような質問をしていますが、下記の記述の(b3.value!"$B$1").の箇所でエラーがかかりました。 .SetSourceData Source:=Range(b3.value!"$B$1").CurrentRegion どのように変更したら上手く動作するのでしょうか？ｂ３は変数です。御指導の程宜しくお願い致します。 Sub グラフの作成() Dim Date1 As Date 'グラフの始点の日付 Dim Date2 As Date 'グラフの終点の日付 Dim SName As String '商品名 Dim b1 As Variant 'グラフの始点のセル番号 Dim b2 As Variant 'グラフの終点のセル番号 Dim b3 As Variant '対象の商品名のセル番号 Dim d1 As Variant 'b1と違う列のセル番号 Dim d2 As Variant 'b2と違う列のセル番号 Dim d3 As Variant 'b3と違う列のセル番号 With Worksheets("集計用") s1: Date1 = Application.InputBox("最初の日付を2012/12/1のように入力してください。") If Date1 = 0 Then MsgBox "キャンセルされました。", vbOKOnly Exit Sub End If Set b1 = .Columns("B").Find(Date1, , xlValues, 1) If b1 Is Nothing Then If MsgBox("入力した日付が見当たりません。" & vbNewLine & _ "再度入力しますか？", vbYesNo) = vbYes Then GoTo s1 Else MsgBox "処理を中止しました", vbOKOnly Exit Sub End If End If d1 = b1.Row s2: Date2 = Application.InputBox("最初の日付を2012/12/31のように入力してください。") If Date1 = 0 Then MsgBox "キャンセルされました。", vbOKOnly Exit Sub End If Set b2 = .Columns("B").Find(Date2, , xlValues, 1) If b2 Is Nothing Then If MsgBox("入力した日付が見当たりません。" & vbNewLine & _ "再度入力しますか？", vbYesNo) = vbYes Then GoTo s2 Else MsgBox "処理を中止しました", vbOKOnly Exit Sub End If End If d2 = b2.Row s3: SName = Application.InputBox("商品名を入力して下さい。") If SName = "False" Then MsgBox "キャンセルされました。", vbOKOnly Exit Sub End If Set b3 = .Rows("3").Find(SName, , xlValues, 1) If b3 Is Nothing Then If MsgBox("入力した商品名が見当たりません。" & vbNewLine & _ "再度入力しますか？", vbYesNo) = vbYes Then GoTo s3 Else MsgBox "処理を中止しました", vbOKOnly Exit Sub End If End If d3 = b3.Column Worksheets.Add After:=Worksheets("集計用") ActiveSheet.Name = b3.Value .Activate .Range(b1, b2).Copy _ Destination:=Worksheets(b3.Value).Range("B2") .Activate .Range(Cells(d1, d3), Cells(d2, d3)).Copy _ Destination:=Worksheets(b3.Value).Range("C2") With Worksheets(b3.Value).Range("D2:D" & Range("C65536").End(xlUp).Row) .Formula = "=SUM(C2,D1)" .Value = .Value End With End With Charts.Add With ActiveChart .ChartType = xlColumnClustered .SetSourceData Source:=Range(b3.value!$B$1").CurrentRegion With .Axes(xlValue) .MaximumScale = 10 .MajorUnit = 1 End With .Location Where:=xlLocationAsObject, Name:=b3.Value End With End Sub
- ベストアンサー
- オフィス系ソフト
- ：【Excel VBA】 Do Until ～ Loop 構文で途中の空白セルを飛ばしてデータのチェックをしたい
こんにちは。 Do Until ～ Loop 構文で 空白セルまでループして重複する値をチェックしたいと考えています。 --------------------------------------------- Sub 重複チェック() Dim 検索語 As String Dim 該当数 As Long Dim 確認 As Integer Range("A4").Activate Do Until ActiveCell.Value = "" 検索語 = ActiveCell.Value 該当数 = WorksheetFunction.CountIf(Range("A:A"), 検索語) If 該当数 >= 2 Then ActiveCell.AutoFilter Field:=1, Criteria1:=検索語 確認 = MsgBox("次を検索しますか？", vbYesNo) If 確認 = vbNo Then Exit Sub End If ActiveCell.Offset(1, 0).Activate Loop Range("A4").AutoFilter MsgBox "名前の重複チェックが終了しました。" End Sub --------------------------------------------- ただセルA列には行の途中、空白も含まれているため、 途中で止まってしまいます。 今後A列にはデータが追加されていきます。 途中の空白セルを飛ばして、 データーの最後までチェックするにはどのようにすればよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- 行方向の同じ値のセルを結合するマクロ
ネットで色々調べながら、A列方向の同じ値のセルを結合させるマクロ を作ってみたのですが、もっと簡単にできるようでしたら教えていただきたいです。 どうぞよろしくお願いいたします。 Sub セル結合() Dim r As Integer '行数 Dim i As Integer 'カウンタ r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1 Application.DisplayAlerts = False For i = 1 To r Cells(i, 1).Activate '項目の一つ下のセルをアクティブに If ActiveCell.Value = ActiveCell.Offset(1).Value Then Range(ActiveCell, ActiveCell.Offset(1)).Merge End If Next Application.DisplayAlerts = True End Sub
- ベストアンサー
- その他MS Office製品
- ＶＢＡでセル範囲条件の指定
下記のようなことを行いたいのですが、VBAの記述でうまくいかなくて困っています。 ----------------------- もし、現在選択中のセルがA1からA5の範囲にあるならば→「実行1」を行う もし、A1からA5の範囲内にないなら「実行2」を行う ------------------------ たったのこれだけのことなのですが、「A1からA5の範囲」を指定する方法がよくわかりません。 ------------------------ Sub セル範囲判定() If ActiveCell = Range("A1:A5") Then MsgBox "A1:A5がアクティブです" Else MsgBox "A1:A5がアクティブではありません" End If End Sub ------------------------- などとしてもうまくいきません。 構文が良くわかっていないので困っています。 「アクティブセルが○○なら」という部分を教えていただけると助かります。
- ベストアンサー
- オフィス系ソフト
- VBAのinputboxで何もいれずに[OK]を押した時エラーになります
よろしくお願い致します。 EXCELのVBAで「inputbox」を使ってセルを選択させたいと考えております。 下記のコードだと「キャンセル」や「×」で閉じられた時はmsgbox「キャンセル」が出てExit subするのですが、何も入力しないで「OK」を押した場合がどうしてもエラー（入力した数式は正しくありません）になります。 いろいろ調べて試したのですがどうしてもできず困っています。 どなたか教えてください。 Sub test() Dim myAns As Range On Error Resume Next Set myAns = Application.InputBox(Prompt:="セルを選択してください。", Title:="セル選択", Type:=8) On Error GoTo 0 If myAns Is Nothing Then MsgBox "キャンセル" Exit Sub ElseIf myAns = "" Then MsgBox "最低１つは選択してください" Exit Sub Else MsgBox myAns.Address(0, 0) End If End sub
- ベストアンサー
- その他（プログラミング・開発）
- ExcelVBAの知恵をお貸しください。
一つのシートで、複数のセル範囲を選択している場合に、セル範囲を選択しているのか？列、行を選択しているのかを判別する方法として次のようなのを考えました。 それとなく動いているのですが、なんとなくスマートでなく、場当たり的な感じがしますが、どのようにすればいいのか判りません！！ どなたか、アドバイス頂けないでしょうか？宜しくお願いいたします。 Sub test() Dim myRang As Range Dim myArry As Variant For Each myRang In Selection.Areas myArry = Split(Replace(myRang.Address, ":", ""), "$") If UBound(myArry) <> 2 Then MsgBox "セル範囲を選択しています。" & myRang.Address Else If IsNumeric(myArry(1)) Then MsgBox "行を選択しています。" & myRang.Address Else MsgBox "列を選択しています。" & myRang.Address End If End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- 指定したセルに1がない時、For を抜けたいのですが・・・
Office XP Personal 2002 Excel 2002 指定した範囲セルに1がない時、下記の1つの For だけ を抜けたいのですが・・・ どのように変更すればよろしいでしょうか？ よろしくお願い致します。 Sub test() Dim i As Integer Dim n As Range For i = 1 To Worksheets.Count - 1 Worksheets(i).Activate For Each n In .Range("E6", .Range("E6").End(xlDown)) If Not n.Cells.Value = 1 Then End If Next n MsgBox "「1」 がありません。", 48 Exit For 'For Each n In .Range("E6", .Range("E6").End(xlDown)) '続く '・ '・ End Sub
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。完璧にできました。実はこのマクロは、表内のセルを選択した場合、下に位置行挿入するためのものです。仕事でたくさんの名簿を町別に入力する作業が大量にあり、右クリックが億劫なので考えたものです。何カ月も前から考えてきたのですができませんでした。本当にありがとうございました。