お世話になります。
指定したセルを先頭に、任意で指定した範囲で連続データを自動入力するマクロを組みたいです。
具体的には...
A1にシリアル番号の先頭番号_例えば"25"と入力
B1にシリアル番号の最後尾の番号_例えば"35"と入力
データを入力すると、C列の5行目を先頭に、25,26,・・・,35と下方向に自動割り当て。
自分ではなりに下記の様に、C列に指定した範囲で1つずつ入力するプログラムは組めましたが...
For i = Cells(1, 1) To Cells(1, 2)
Worksheets("Sheet1").Cells(i, 4) = i
Next i
これでは5行目から入力したいのに、25行目から始まってしまいます。
指定したセルに上記のプログラムで実行した数値を入力していくプログラムがいまいち
分かりません。
ご教授の程おねがい致します。
ボタンが１シート目に２８個並んでいます。
ボタンには、「あああ」「いいい」など、名前が表記されており、まだ「マクロの登録」を行っていません。
「ボタンをクリックすると、ボタンと同じ名前のシートをアクティブにする」
というマクロを、ボタンに登録したいです。
また、常に２８個ボタンがあるというわけではありません。２５個や、２６個になる場合もあります。
※１シート目にボタンを作り、そのボタンに名前を付ける作業は、
前回教えていただいた下記のマクロを行いました。
Sub ボタン設置()
With Worksheets(1)
For i = 1 To (Worksheets.Count - 1)
nX = 145 * (1 + ((i - 1) Mod 8))
nY = 30 * (1 + Int(i / 8))
.Buttons.Add(nX, nY, 140, 20).Text = Worksheets(i + 1).Range("I2").Value
Next i
End With
End Sub
書籍とサイトで教えていただいた説明などを見ながら、ExcelのVBAでセル内のデータの操作について勉強中ですが、タイトルのようなことをやる場合のオブジェクト式の選び方がわかりません。
よろしくお願いします。
例えば図のようなデータが入った"Sheet1"があり、行数、列数は様々なのですが、やりたいことは
・A列にエラーコード（ここでは"9999"または特定文字列）、空行、0が入っている行（ピンク色がついたセルのある行）は無視する。
・任意の列がコピー元（ここでは「A列＝コード」「B列＝商品名」「E列＝価格」で、上記に該当しないセルが対象
・そのセルの値のみ取得し、"Sheet2"のA～C列に上から順に（上詰めで）「値」のみをはりつけたい
Dim i As Long
Worksheets("Sheet1").Select
Rows(1).Copy Worksheets("Sheet2").Range("A1")
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i, "A") = 9999 And IsNumeric(Range("A" & i)) Then
この記述ではこのデータ操作ではエラーを変えすのですが、
根本的な「任意の列の特定の行のみの値の取得（と他シートへの複写）」の概念がわかっていません。
正しく動作する記述において、なぜそのオブジェクト式を採用するのかも含めて教えていただければと思います。
よろしくお願いします。
上司（上司A）がエクセルで作業予定表を作っております（添付画像の体裁です。実際はもっと日数や予定数があります）。
別の上司から、このエクセルの情報を一覧として別シートに抽出するよう指示されました。
一覧の形式としては、A列に作業開始日、B列に作業者名、C列に作業継続日数、と並べて記載し、作業割り当て者の無い日は抽出不要、です。
作業開始日、作業者の抽出自体はさして難しくありませんでしたが、作業継続日数は少々やっかいでした。
というのも上司Aの作業予定表では、作業者の作業継続状況をセルの塗りつぶしで表示しており、ここで終わり、という文字なり記号なりがあるわけでは無かったためです。
そこで、セルのプロパティで塗りつぶし状態をみて、それにより作業終了日を判定しようと考えました。
また、作業終了日翌日から別の作業が続いている場合はこれで判定出来ないため、空欄であること、という条件も追加しました。
以上を考え作成したコードですが、塗りつぶし判定のところでエラーが発生してしまいます。
エラーは、
実行時エラー 1004
アプリケーション定義またはオブジェクト定義のエラーです。
です。
試しに、「<>」を「=」にしてみたところ通ります。
（ただし望んだ結果は得られません。当然ながら……）
いったい何が問題か、どなたかアドバイス頂けませんでしょうか……。
-----以下コード-----
Option Explicit
Sub スケジュール抽出()
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
k = 1
For i = 2 To 11
For j = 1 To 4
If Not Cells(j, i) = "" Then
If Not j = 1 Then
Worksheets("Sheet2").Cells(k, 2).Value = Cells(j, i).Value
l = i
Do While Cells(j, l).Interior.ColorIndex <> xlColorIndexNone Or Cells(j, l).Value = "" ←ここでエラー
' Do While Cells(j, l).Interior.ColorIndex = xlColorIndexNone Or Cells(j, l).Value = "" ←こうするとエラーは起きない
l = l + 1
Loop
m = l - i
Worksheets("Sheet2").Cells(k, 3).Value = m '予定の継続日数
Else
Worksheets("Sheet2").Cells(k, 1).Value = Cells(j, i).Value
k = k + 1
End If
End If
Next
Next
MsgBox "抽出完了"
End Sub
VBAの勉強を始めたのですが、単純コピーはわかるようになったものの、空行の上詰めしながらのコピーでつまづいているので教えてください。
またセル範囲について、RangeとCellsの使い分けでもつまづいています。
画像の"Sheet1"のようなデータがあります。データの始まりはセル"A1"から始まっていますが、末尾（最終行）はデータのより様々で、最終行が決まっていません（n行）。
このデータを任意のシート（例では"Sheet2"）の左上からコピーしたいのですが、その際に元の"Sheet1"のA列にエラー行が入ることがあります。エラー行は次の2種類です。
1. "error"など特定の文字（数字ではないもの）が入っている行
2. 空行（A列だけで判断）
これらのデータ行は、行そのものをSheet2にはコピーせず、上へ詰めて正常行をペーストしていきたいのです。
Dim i As Integer
For i の書き方
WorksheetsとCells（またはRange)
エラー行のスキップの仕方
などがわかりません。
元（Sheet1）のデータは概ね体裁が決まっており、データの例外（エラー）は上の1. 2以外は考えずに、シンプルな書き方を望んでいますが、どのように記載したらよいでしょうか。
VBAの勉強を始めたのですが、単純コピーはわかるようになったものの、空行の上詰めしながらのコピーでつまづいているので教えてください。
またセル範囲について、RangeとCellsの使い分けでもつまづいています。
画像の"Sheet1"のようなデータがあります。データの始まりはセル"A1"から始まっていますが、末尾（最終行）はデータのより様々で、最終行が決まっていません（n行）。
このデータを任意のシート（例では"Sheet2"）の左上からコピーしたいのですが、その際に元の"Sheet1"のA列にエラー行が入ることがあります。エラー行は次の2種類です。
1. "error"など特定の文字（数字ではないもの）が入っている行
2. 空行（A列だけで判断）
これらのデータ行は、行そのものをSheet2にはコピーせず、上へ詰めて正常行をペーストしていきたいのです。
Dim i As Integer
For i の書き方
WorksheetsとCells（またはRange)
エラー行のスキップの仕方
などがわかりません。
元（Sheet1）のデータは概ね体裁が決まっており、データの例外（エラー）は上の1. 2以外は考えずに、シンプルな書き方を望んでいますが、どのように記載したらよいでしょうか。
自作関数を作っていますが、参照の仕方に困っています。
=AAA(A1,B1,C1)と読み込ませる場合。
=AAA(A1:C1） と読み込ませる場合。
があります。
しかし前者は、
Function AAA(b1, b2, b3) As Double
...省略
End Function
と書けば対応可能。
後者は、
Function AAA(b) As Double
...参照時にb(1)、b(2)、b(3)とかけば利用可能。
End Function
なのですが、両方読み込み可能とすることができません。
前者の記述では、後者のセル参照でエラーが発生。
後者の記述では、前者のセル参照でエラーが発生します。
対応策はあるでしょうか？お知恵を拝借願います。
マクロ初心者です。
添付のようなデータが30000万行位ありますが、
１）セルAの値が１６またはRFの場合はその行のデータをすべて残します
２）セルAの値が上記以外の場合はその行をすべて削除したいのですが
私なりに調べて次のようなマクロを記録しました。
Sub macro1()
Dim i As Integer
For i = 1 To 30000
If Cells(i, 1).Value = "16" Or Cells(i, 1).Value = "RF" Then
Cells(i, 1) = Cells(i, 1)
Else
Rows(i).Delete
End If
Next i
End Sub
１）の部分は何とか動いてくれているみたいですが
２）の条件に合わない行の削除の記録がぜんぜんだめみたいで途方に暮れています。
わかる方がいらっしゃいましたら是非ご教授願います。
