- ベストアンサー
セル範囲を返す関数
次のようにしますと「型が一致してません」エラーになってしまいます。 どうしたらセル範囲を返す関数が作れますか？ Public Function inuinu() As Range Set inuinu = Range(Cells(1, 1), Cells(3, 3)) 'Debug.Print inuinu.Count End Function 返値にAreasの指定もしてみましたが巧くいきませんでした。
- SariGEnNu
- お礼率80% (461/574)
- Visual Basic
- 回答数3
- ありがとう数6
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
＞?inuinu ＞としてみたら「型が一致しません」とエラー表示されてしまう ? inuinu は ? Range("A1:C3") 即ち ? Range("A1:C3").Value と同じでValueプロパティが省略されていると見なされる。 ということは、複数のセルの値を同時に表示させようとしていることになるのでエラーになる。 但し、inuinuがセル範囲ではなく、セルをひとつ返すとき（例えば、Ｂ５だけ返す場合）はエラーにはならないで、その返されたセルの値が表示される。 （結論） inuinu関数から返されたセル範囲のセルの数を表示させたいなら、Countプロパティを省略しては拙いということです。 ? inuinu.Count とか ? inuinu.Cells.Count 以上。
その他の回答 (2)
- hana-hana3
- ベストアンサー率31% (4940/15541)
＞?inuinu としてみたら「型が一致しません」とエラー表示されてしまいました。 inuinu だけならエラーになりませんよ。
お礼
ありがとうございます。 おかげさまでかなり理解できました。
- hana-hana3
- ベストアンサー率31% (4940/15541)
何をしたいのか解りませんが、提示されたコードを貼付けた後、下記のコードを実行したらアドレスを取得できましたよ。 Sub test() MsgBox inuinu.Address End Sub
お礼
ありがとうございます。 hana-hana3さんのご回答のようにしてみたらこれは何のエラーもなく実行できました。 最終的にやりたいことは複雑なセル範囲のセルの個数を返す関数ですが 私は、Sub test()を介さずに、イミディエイトウィンドウから直接 ?inuinu としてみたら「型が一致しません」とエラー表示されてしまいました。 なぜ、このようなことが起きるのだろうか疑問に思っています。
関連するQ&A
- ForEach...文でRows(1)を指定エラー
For Each element In group ...Next ステート文で、group に Rows(1) を指定し、セルのValueプロパティを取得しようとするとエラー「型が一致しない」が出る。指定した範囲内の１行目のセルの値を確認しようと以下のマクロを作り、実行するとエラーが出る。その理由をどなたか教えてください。 Sub testA() Dim r0 As Range Dim r1 As Range Dim cr As Range Dim i As Integer Dim result as Boolean Set r0 = Worksheets("Sheet1”).Range("B4:D5") Set r1 = r0.Rows(1) For Each cr In r1 Debug.Print cr.Value ‘*** (0) エラー発生 Next cr ‘*** 以下はうまくいく。 For Each cr In r1 Debug.Print cr.row ‘*** (1) Debug.Print cr.Column ‘*** (2) Next cr result = TypeOf r1 Is Range ‘*** (3) Debug.Print result ‘*** True ‘*** 確認したいことをFor Each … Next を使わないで, ‘*** セルを相対位置で指定すればうまくいく。 For i = 1 to r1.Columns.count Debug.Print r1.Cells(1, i).row Debug.Print r1.Cells(1, i).Column Debug.Print r1.Cells(1, i).Value ‘*** エラーなし Next i End Sub よく分からないのは(1)(2)(3) なのに なぜ Value プロパティ取得で(0)「型が一致しない（実行時エラー’13’）」になるところです。環境はExcel 2013, Windows 10です。 よろしくお願いします。
- 締切済み
- Excel（エクセル）
- Phonetic[型が一致しません]になる理由
Sub サンプル1() Debug.Print Application.WorksheetFunction.Phonetic(Range("A1")) End Sub はうまくいくのに、 Sub サンプル1() Debug.Print Application.WorksheetFunction.Phonetic("日本") End Sub ********************************************************* は、[型が一致しません]になるのはなぜでしょうか？ オブジェクトブラウザを見ると、 Function Phonetic(Arg1 As Range) As String になってることから、rangeを指定しなくていけないからですか？
- ベストアンサー
- オフィス系ソフト
- VBAのRangeオブジェクトについて
いつもお世話になっております。 VBAのRangeオブジェクトについてご教示下さい。 例えば下記のPGを組みます。 Sub test() Dim r As Excel.Range Set r = Me.Range("A1") Debug.Print r.Cells.Count End Sub この時、Debug.Printには"1"と表示されます。 Debug.Printでブレイクを置き、ここでA列を削除するとDebug.printでエラーが出てしまいます。 Rangeオブジェクト生成後、もしも参照先のセルが削除してしまった場合、条件分岐の処理を入れたいのですが、どのように処理をいれればよろしいでしょうか？ セル削除後、Rangeのプロパティを参照した時点でエラーが発生してしまいます。 Typeで確認するとRangeがちゃんと取れるのですが・・・。 "参照先のセルが消されたかどうか"を判別する方法はあるのでしょうか？
- ベストアンサー
- Visual Basic
- 入力用のセルと管理用のセルを分けるには？？
Private Sub Worksheet_Change(ByVal Target As Range) Dim myC As String Dim x As Range If Intersect(Target, Range("A1,C2,D4")) Is Nothing Then Exit Sub Select Case Target.Address(0, 0) Case "A1": myC = "E" Case "C2": myC = "F" Case "D4": myC = "G" End Select If Cells(Rows.Count, myC).End(xlUp).Value = "" Then Set x = Cells(Rows.Count, myC).End(xlUp) Else Set x = Cells(Rows.Count, myC).End(xlUp).Offset(1) End If x.Value = Target.Value End Sub 入力用セルと、管理用のセルを分けたい・・・・・ という質問をしてこのマクロを教えていただいたんですが、 実際には入力用にしたいセルが、４０箇所以上ありまして 一つ一つ反映させるのではなく、すべての箇所に入力して確認後に まとめて反映させたいのですが不可能でしょうか？？ 何か方法があるようでしたらヨロシクお願いします！！ エクセル２００３です。
- 締切済み
- オフィス系ソフト
- VBA)範囲指定した全セルに関数を入れたいのですが。。。
当方、始めてのマクロ作成に奮闘中の身です。 ご教授いただきたく、質問させていただきます。 ◎質問 範囲指定した全セルに関数を入力したいのですが、アクティブセルのみにしか関数が入らず困っています。 Dim abc As Integer abc = Sheets("シート名").Range("A1").CurrentRegion.Rows.Count Range(Cells(2, 12), Cells(abc, 12)).Select ActiveCell.FormulaR1C1 = "=COUNTIF(R1C1:RC[-11],RC[-11])" 一番下の部分の関数を入力したいのですが、アクティブセルのみの入力になってしまい、下から2番目の指定範囲には反映されません。 下から2番目の指定範囲セル全てに適用するにはどうしたら良いでしょうか。 よろしくお願いいたします。
- 締切済み
- その他（ビジネス・キャリア）
- セルを結合するマクロ
マクロ初心者です。 Aセルをブランク領域で選択してマクロを実行しますとセルが結合します。 最後の空白がどこまでかは、何か指定がないといけないので、仮にエンドと名付けます。 このコードはA列のみです。A列からM列またはL列までと指定するにはどうすれば良いですか？ ご教鞭をお願いします。 Sub test() Set Rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) Set blanks = Rng.SpecialCells(xlCellTypeBlanks) For Each ar In blanks.Areas Union(ar(1).Offset(-1), ar).Merge Next Cells(Rows.Count, 1).End(xlUp).ClearContents End Sub
- ベストアンサー
- Excel（エクセル）
- マクロで指定したセル内の改行を削除
エクセル2013です。 既に動いているマクロに別な処理を追加したいです。 まずその追加したい処理だけの単独のコードを 作成し、正しく動いたら 今使用しているマクロの最初に組込たいです。 内容はシート内において、指定した複数のセルの中の すべての改行を削除です。 マクロでなくてもできますが、上記理由でマクロで行いたいです。 ・質問1 Sub 実験() 最終行 = Cells(Rows.Count, 6).End(xlUp).Row 'F列の最終行を求める Range(Cells(4, 1), Cells(最終行, 6)).Value = Replace(Range(Cells(4, 1), Cells(最終行, 6)).Value, vbLf, "") End Sub これですと 「型が一致しません」でERRです。 これは何処が悪いのでしょうか？ ・質問２ Sub 改行削除() Dim 対象範囲 As Range 最終行 = Cells(Rows.Count, 6).End(xlUp).Row 'F列の最終行を求める Set 対象範囲 = Range(Cells(4, 1), Cells(最終行, 6)) 対象範囲.Replace vbLf, "", xlPart End Sub ↑これなら正しく動きました。 でこれを、今動いているマクロの先頭に入れたら 対象範囲.Replace vbLf, "", xlPart ↑ ここで「型が一致しません」でERRです。 なぜ単独では動作するのに、別のマクロの先頭に組み込むとERRに なるのかわかりません。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excel VBA ユーザー定義関数をイベントマクロで使用する
Excel VBA ユーザー定義関数をイベントマクロで使用する Excel2003を使用しています。 あるセルと同色に塗りつぶされたセルの値を合計したく、下記1のユーザー定義関数を作成しました。 このユーザー定義関数を下記2のイベントプロシージャ内で呼び出して使用したいのですが、可能でしょうか？ 可能であれば、どのようにコードを書いたらいいでしょうか？ Call を使用するのかな？と思い、コードを追加してみましたが、引数の型が一致しないといった内容のエラーメッセージが表示されてしまいました。 よろしくお願いします。 ------------------------------------------------------------- 1．ユーザー定義関数(同色セルの合計) Function SumColor(hanni As Range, iro As Range) As Double Dim myrng As Range SumColor = 0 For Each myrng In hanni If myrng.Interior.ColorIndex = iro.Interior.ColorIndex Then SumColor = SumColor + myrng.Value End If Next myrng End Function 2．イベントマクロ(C列3行目以下ダブルクリックで塗りつぶし) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 And Target.Row >= 34 Then Range(Cells(Target.Row, 3), Cells(Target.Row + 1, 38)).Interior.ColorIndex = 36 End If End Sub
- ベストアンサー
- オフィス系ソフト
- セルの値でなくセルの関数を参照したい
次のコードでセルI13の値を入力できましたが、 '---------------------- 'Dim i As Integer 'For i = 2 To Worksheets.Count - 6 'With Worksheets(i) '.Range("I13") = Worksheets(1).Range("I13").Value 'End With 'Next セルの値でなく関数を入力しようとして次のコードに修正したらエラーになりました。どこがいけないのでしょうか。 Dim i As Integer For i = 2 To Worksheets.Count - 6 With Worksheets(i) .Range("I13").Formula = "=" & Worksheets(1).Name & "!I13" End With Next
- ベストアンサー
- Visual Basic
- 指定した範囲のセル内の数値を検索したい(VBA)
いつもありがとうございます。 また皆様のお知恵を拝借したいと思い質問をさせて頂きました。 現在VBAを勉強中なのですが、以下の場合、コードはもっと簡単になるでしょうか？ 【やりたい事】 プログラムを実行すると、シート２に数値が返されます。 ※数値が返される範囲は「A1～A100」だとします。 シート2の「A1～A100」には「１～４」の数値が返され、それぞれの数値が何個あるかを検索。 検索した結果を、「シート１」の指定したセルに表示する。 【記述したコード】 dim x as integer x = 0 For x = 1 To 101 If Sheets("シート2").Cells(x, 1) = "1" Then 1count = 1count + 1 End If If Sheets("シート2").Cells(x, 1) = "2" Then 2count = 2count + 1 End If If Sheets("シート2").Cells(x, 1) = "3" Then 3count = 3count + 1 End If If Sheets("シート2").Cells(x, 1) = "4" Then 4count = 4count + 1 End If Next x 上記のコードで「"x"count」に数値を加算していき、最終的に以下のように各数値をシート１に表示させています。 Sheets("シート1").Range("A1") = 1count Sheets("シート1").Range("A2") = 2count Sheets("シート1").Range("A3") = 3count Sheets("シート1").Range("A4") = 4count 結果的にはうまくカウントされて、結果も正しく表示されるのですが、 列をまとめて検索してやる方法などがあれば、もっと短く分かりやすく おさまるのではと思い、質問をさせて頂きました。 こうやるともっと簡単にできるよなどがあれば、教えて頂けないでしょうか。 Excelの関数などを使用しても構いません。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 おかげさまでVBAのメカニズムが理解できました。