• ベストアンサー

マクロで行指定する

いつもお世話になります。 しょうもない質問なので、過去の質問を見て解決しようとしていたのですが、40分ばかりで諦めた根性なしの7-samuraiです。 d = Activesheet.Range"A5").CurrentRegion.Rows.Countとうって、5行目から"d"までを選択したいのですが、その時の文が分かりません。 申し訳ないですが、宜しくお願い致します。

回答 全件
ベストアンサー
行全体なら、 Range("A5:A" & d + 4).Ent…
こんにちは。maruru01です。 Range("5:" & d…

質問者が選んだベストアンサー

  • ベストアンサー
  • jindon
  • ベストアンサー率43% (50/116)
回答No.2

行全体なら、 Range("A5:A" & d + 4).EntireRow.Select もいいと思いますが。

7-samurai
質問者

お礼

ありがとうございました。 実は、私のやりたかったことはまさにこれだったので、非常に助かりました。（私の書いた文章は、かなり言葉足らずでした。）

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。maruru01です。 Range("5:" & d + 4).Select でしょうか。 表の範囲で選択するなら、 c = ActiveSheet.Range("A5").CurrentRegion.Column.Count Range(Cells(5, 1), Cells(d + 4, c)).Select

7-samurai
質問者

お礼

ありがとうございました。 おかげさまで、問題解決しました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 最終行／処理対象のデータまでを表すＶＢＡ

    こんばんは、データの最終行／処理する対象のセルまで処理する場合のＶＢＡの記述について質問させてください！ＶＢＡの最終行／処理する対象のセルまで選択するために使用する記述方法が何種類かありますが、そのうち、書籍やネットで検索しても出てこない記述方法について今一つ理解ができていません(T_T) 本屋で売っている書籍やネットで検索すると出てくる記述方法 Range～.End(xlUp).Row Range～.CurrentRegion Range～.SpecialCells(xlLastCell) Range～.Cells(Rows.Count, 1).End(xlUp).Row 上記のようなＶＢＡは書籍やネットで検索すると説明や違いについても出てくるので、説明を読めば理解ができるのですが、 Sheets("テスト").Range("A1:C" & Sheets("テスト").Cells　_(1).CurrentRegion.Rows.Count) Range("A1").CurrentRegion.Cells(Range _("A1").CurrentRegion.Cells.Count).Row 上記のようなＶＢＡについては検索しても説明など出てこないうえに、 なぜ上記のような記述になるのかあまり理解できていません(>_<) 書籍やネットで検索すると出てくる「Range～.CurrentRegion」などの記述方法から何となく、CurrentRegionやCells.Countを使わないといけないというのは理解できますが、なぜ「～CurrentRegion.Rows.Count)」はRowsがカッコの中に入っていて、「～CurrentRegion.Cells.Count).Row」はカッコの外に出ているのか？？といった細かいことが分からずにいます。。。 半ば丸暗記のようにして使ってしまっているのですが、もし上記のようなＶＢＡについてわかるかたがいらっしゃれば、ご教授いただけるととても嬉しいです！ また、上記以外にもまだ検索しても出てこないようなＶＢＡがあるのでしょうか？？ 頭が混乱しそうです！(゜Д゜;)

  • EXCEL　マクロ　もし、最終行が１００００件を超えたなら。。

    こんにちは。 CurrentRegion.Rows.Count などを使って、 『もし、最終行が１００００件を超えたなら、メッセージ”データが１万件を超えました』と表示させるには どうしたらよいでしょうか？

  • VBAの意味。

    －－－－－－－－－－－－－１－－－－－－－－－－－－－－－ y = ActiveSheet.Range("C2").CurrentRegion.Rows.Count －－－－－－－－－－－－－２－－－－－－－－－－－－－－－ Cells(1 + y, 3) = Application.WorksheetFunction.Sum(Range(Cells(2, 3), Cells(y + 1, 3))) それぞれどういう意味を表しているのしょうか？

  • VBA AutoFilter 範囲指定

    いつもお世話になっております 過去に https://okwave.jp/qa/q9707059.html にてワークシートのデータをオートフィルターをかけて別なワークシートにデータを取り出す方法を教えて頂きました 送られてくる元データが変更になって、A3セルの上のA2セルの上にテキスト文字が入るようになったので、範囲指定を正しく出来るようにする方法を https://okwave.jp/qa/q9708868.html にて教えて頂きました 今回、https://okwave.jp/qa/q9707059.htmlで教えて頂いたワークシートのコードを実行させると元データが変更になったデータを利用すると、A1セルまで含まれた範囲がAutoFilter の領域と判断される為正しい結果となりません 添付画像のワークシートで Sub test9() Worksheets("Sheet1").Range(Cells(3, "A"), Cells(Range("A3").CurrentRegion.Rows.Count, Range("A3").CurrentRegion.Columns.Count)) _ .AutoFilter Field:=2, Criteria1:=Cells(5, "G").Value End Sub を実行させれば、"秋田”でフィルターがきちんとかけれらた状態になります そこで教えて頂いたコードを下記に変更して実行させてみたのですが Dim i As Long With Worksheets("Sheet1") .Range("B4", .Range("B4").End(xlDown)).Copy .Range("G4").PasteSpecial (xlPasteAll) .Range("G4", .Range("G4").End(xlDown)).RemoveDuplicates Columns:=Array(1), Header:=xlNo For i = 4 To .Cells(Rows.Count, "G").End(xlUp).Row Worksheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = .Cells(i, "G").Value .Range(Cells(3, "A"), Cells(Range("A3").CurrentRegion.Rows.Count, Range("A3").CurrentRegion.Columns.Count)) _ .AutoFilter Field:=2, Criteria1:=.Cells(i, "G").Value .Cells(3, 1).CurrentRegion.Copy Destination:=Worksheets(.Cells(i, "G").Value).Cells(3, 1) .AutoFilterMode = False Next .Range(Cells(3, "A"), Cells(Range("A3").CurrentRegion.Rows.Count, Range("A3").CurrentRegion.Columns.Count)) _ .AutoFilter Field:=2, Criteria1:=.Cells(i, "G").Value 部分で 実行時エラー'1004' アプリケーション定義またはオブジェクト定義のエラーです になってしまいます 元データがA2セルにテキスト文字が入った状態でも正常にコード動作させるにはどのようにしたらいいのでしょうか よろしくお願い致します

  • エクセル　マクロで行削除のコードについての質問です

    ある指定のセル範囲が空白ならその行自体を削除したいですが 上手くいきません。 記述したコードは以下の通りです。 Sub A01() Dim IRow As Long Dim d As Variant, i As Variant d = InputBox("抽出する日数を入力してください", "日数") If d = "" Then Exit Sub lRow = Cells(Rows.Count, 1).End(xlUp).Row For i = lRow To 2 Step -1 If ActiveSheet.Range(Cells(i, 5), Cells(i, d)) = Empty Then ActiveSheet.Rows(i).EntireRow.Delete End If Next End Sub Ifの判定の部分でエラーが出ます。 どう修正したらよいかご教示願います。

  • エクセルで指定した行範囲を別のシートにコピーするには？

    (1)指定した行（数値）を変数として登録する方法 tx1 = Sheets("0").Range("A1") tx2 = Sheets("0").Range("A2") tx3 = Sheets("0").Range("A3") A1＝2 A2＝2000 A3＝2500 (2)(1)で指定した変数を使用して行範囲を他のシートSheets(”1”)、Sheets("2”)にコピーペースト。 行（”2：1999”）　←tx1 : tx2-1(A2の数値から1を引いた数値) Rows(▲▲▲▲▲▲).Select Selection.Copy Sheets("1").Select Rows("1:1").Select ActiveSheet.Paste 行（”2000：2499”）　←tx2 : tx3-1(A3の数値から1を引いた数値) Range(▲▲▲▲▲▲).Select Selection.Copy Sheets("2").Select Rows("1:1").Select ActiveSheet.Paste ▲部分がエラーになってしまい、うまくいきません。 正しい方法を教えてください。

  • エクセル　最終行からの連続コピー

    エクセルで最終行から上に連続する１０行（最終行含む）をコピーしたいです。 途中、空白行が含まれている場合でも、最終行を特定し、コピーできるようにするには、下記のコードにどう手を加えたらよいでしょうか？ どなたかアドバイスをお願いします。 Sub Test() 　　Dim i As Long 　　Dim j As Integer 　　Dim rng As Range 　　With ActiveSheet 　　　　'フィルタ 　　　　.Range("A1").CurrentRegion.AutoFilter Field:=1 　　　　 　　　　'行選択 　　　　With .AutoFilter.Range 　　　　　　For i = .Cells(.Cells.Count).Row To 2 Step -1 　　　　　　　　If .Rows(i).Hidden = False Then 　　　　　　　　　　If rng Is Nothing Then 　　　　　　　　　　　　Set rng = .Rows(i) 　　　　　　　　　　Else 　　　　　　　　　　　　Set rng = Union(rng, .Rows(i)) 　　　　　　　　　　End If 　　　　　　　　　　j = j + 1 　　　　　　　　End If 　　　　　　　　If j >= 10 Then Exit For 　　　　　　Next i 　　　　　　'コピー 　　　　　　If Not rng Is Nothing Then 　　　　　　　　rng.Copy Worksheets("Sheet2").Range("A1") 　　　　　　　　Beep 　　　　　　Else 　　　　　　　　MsgBox "該当行は存在しません。", 48 　　　　　　End If 　　　　End With 　　End With 　　Set rng = Nothing なお、コードはこちらを参考にさせていただきました。 http://okwave.jp/qa3552420.html?ans_count_asc=1

  • マクロ実行が遅い・・・

    皆さんにおしえてもらいながら下記のようなマクロを組みました。 しかし、マクロを実行すると計算中が長いのです。 もしこのマクロに原因があれば教えてください。 よろしくお願いします。 －－－－－－－－－－－－－－－－－－－－－－－－－－ Sub 見積書作成() Sheets("見積書").Select '見積書シートを選択 For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If Cells(i, 5).Value = "0" Then '工数が「0」のときは Rows(i).RowHeight = 0 '行高さ「0」 End If Next For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 Range("E8:E55") = Application.Round(Range("E8:E55"), 0) '工数を四捨五入 Next Dim Rng As Range Const Retu = "C" '<--- ここで「小計」の列を指定します。 For Each Rng In Range(Retu & "1", Range(Retu & "65536").End(xlUp)) If Trim(Rng.Value) = "小　　　計" And _ Rng.Offset(, 6) = 0 Then Rng.EntireRow.Hidden = True End If Next Rng End Sub

  • エクセルのセル高調整で指定したセルから下を調整

    エクセルのセル高調整で指定したセルから下を調整したいのですが。エクセルVBAで下記の方法でやるとすべてのセルがFITします。やりたいことは、3行目以降のセル全体をＦＩＴさせたいのです。 どこを追記したら良いか教えて下さい。 Sub セル高調整() 'Sheets("すべて")のセルの高さの調整 Dim lrow As Integer Dim km As Long Application.ScreenUpdating = False '画面の更新を停止 ActiveSheet.Select Range("b3").CurrentRegion.Select Selection.Rows.AutoFit lrow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1 For km = 1 To lrow Rows(km).RowHeight = Rows(km).RowHeight + 10 Range("a3").Select Next km End Sub

  • Excelマクロについて

    先日、OKWEBで教えてもらったマクロに手を加えて作ろうとしたのですが、エラーがでて動かなくなりました。 わかる方がいましたら教えてください。 よろしくおねがいします。 Sub 見積書() Application.ScreenUpdating = False '見積書(完成)シートを選択 Sheets("見積書(完成)").Select '行の高さを「15」にする。 Rows("6:67").Select Range("F6").Activate Selection.RowHeight = 15 'S列のS6:S56をコピーしてE6:E7に貼り付ける。 Range("S6:S56").Select Selection.Copy Range("E6:E7").Select ActiveSheet.Paste '5列目(工数)が「0」のとき該当する行の高さを「0」にする。 For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If Cells(i, 5).Value = "0" And Cells(i, 7).Value = "0" Then Rows(i).RowHeight = 0 End If Next '「E8:E55」の範囲を四捨五入する。 For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 Range("E8:E55") = Application.Round(Range("E8:E55"), 0) '工数を四捨五入 Next 'C列の中に含まれる「小計」を検索しそこから6列目が「0」だったら行の高さを「0」にする。 Dim Rng As Range Const Retu = "C" For Each Rng In Range(Retu & "1", Range(Retu & "100").End(xlUp)) If Trim(Rng.Value) = "小　　　計" And _ Rng.Offset(, 6) = 0 Then Rng.EntireRow.Hidden = True End If Next Rng End Sub

インサートナットの金型構造
このQ&Aのポイント
  • 金型構造を最適化して、インサートナットとボスを同時成形する方法について知りたい
  • ナットが動いてしまう問題を解決するための金型のコントロール方法を教えてください
  • 推測ではナット位置出しピンとナットの勘合調整、縦型成型機の使用が考えられますが、他にも方法があるのでしょうか
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する