- ベストアンサー
vba なぜこうなるのか・・・。
こんばんは、よろしくお願いします。 A1セルにデータが入っている状態で、以下の変数を使いA列の最終データが入っている行を調べると、（65536）が表示されます。なぜ、（1）にならないのでしょうか？ ためしにA1及びA2セルにデータを入れマクロを実行すると、正確に2が表示されました。 Sub 練習() dim maxrow as long maxrow = Sheets(1).Range("a1").End(xlDown).Row msgbox maxrow End Sub EXCEL2000を使用しています。よろしくお願いします。
- sukeroku111
- お礼率47% (169/354)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
CTRL+↓やＥＮＤ＋↓の操作を反映したもので、そういうものだとしか言いようが無い Ａ１－Ａ４にデータがある場合に、Ａ４を選択してＣｔｒｌ＋↓でもエクセル９７－２００３では６５５３６になる。 選択セルの次の行から考えてということかな。 参考 http://www.moug.net/tech/exvba/0050088.html ーー データ最終行をとらえるには、 わたしはエクセルの最終行からＥｎｄ（ｘｌＵｐ）を使っている。
その他の回答 (1)
Endメソッドが返すセルは、「“Ctrl+方向キー”で移動するセル」と同義です。 この操作は「方向キーの方向にある、次の“データの端”」に移動します。 A列に何も入っていない、もしくはA1セルにしか値が入っていない状態（これは質問文に説明がないのでどちらだか分からないが、どちらでも結局同じ）で、A1カーソルを合わせでCtrl+↓を押すとどうなりますか？ ちなみに、これについて「なぜでしょう？」とか「こうならないようにしたいんですが」と言われても無理です。Excelの仕様なので。
お礼
早速のご回答ありがとうございました。これについては、こういうものという事がはっきりしただけでも収穫でした。ありがとうございました。
関連するQ&A
- excel vbaのエラー原因について
よろしくお願いします。初心者で勉強中です。以下のコードを作成してみましたがエラーが出ます。いろいろ調べてみましたが解決策がわからないので、教えて頂ければと思います。 ・シートは31シートあります（１番左のシート名は"初期設定"、２番目は 1日、３番目は２日と・・・、順に３０日まであります。) 。 ・やりたい事。 ・２番目シートの（A1からA10）までをコピーし、１番目シートのA2にはりつける。３番目シートの（A1からA10）までをコピーし、1番目シートの先ほど貼り付けたデータの１つ下の行にはりつける・・・順に３０日までのデータをすべて１番目シートに貼り付けたいと思っています。 ・"初期設定シート"の１行目には文字が入っているので、データの貼り付けは２行目からにする予定です ・作ったコード Sub 練習() Dim maxrow As Long Dim i As Long maxrow = Sheets(1).Range("a1").End(xlDown).Row For i = 2 To 31 Sheets(i).Select Sheets(i).Range("A1", "A10").Select Selection.Copy Worksheets(1).cells(maxrow＋1,1) Next i End Sub ・Ｆ８で１文ずつ確認すると、Selection.Copy Worksheets(1).cells(maxrow＋1,1) を実行したときに、「実行時エラーがでます」。 EXCEL2000を使用しています。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBA 貼付先のコントロール？
御世話になります。 色々調べて下記の構文が出来たのですが、あと一歩が足りません。 製造シートのＡ列のデータを抽出シートのRtmが代入されたセルの上から7行目以下に貼付たいのです。 宜しくお願い致します。 Sub sappri() Dim nTotal, i Dim Rtm As Variant nTotal = Sheets("製造データ").Range("A1").End(xlDown).Row Rtm = Sheets("製造データ").Range("J1") With Sheets("抽出") For i = 1 To nTotal .Cells(i * 3 - 2, Rtm).Value = Sheets("製造データ").Cells(i, 1).Value Next i End With End Sub
- ベストアンサー
- その他MS Office製品
- エクセルＶＢＡマクロの質問です。
マクロ初心者です。行き詰まってます。 sheet1には３００件程度のデータがあります。 このデータの３列目の値を、ＶＬＯＯＫＵＰでsheet3のＡ１：Ｂ３０範囲から参照します。そこで取得した回数分、sheet1の各行のデータをsheet2にコピーしたいんです。 そこで、コード文を作ってみましたが、マクロがうまく動きません。 すみませんが、お知恵を貸していただけないでしょうか？ Dim Z as Long Dim L As Long Dim P As Long Dim Kensaku As String Dim M4 As Range Dim PRow As Long Dim i As Long Set M4 =Sheets(“sheet3”).Range(“A1:B30“) L = Sheets(“sheet1”).Range(“A1”).End(xlup).Row For Z = 1 to L-1 Kensaku = Sheets(“sheet1”).Cells(Z+1,3).Value P=Worksheetfunction.Vlookup(Kensaku,M4,2,False) For i = 1 to P Prow=Sheets(“sheet2”).Range("A1").End(xlDown).Row Sheets(“sheet1”).Rows(Z+1).Copy Sheets(“sheet2”).Rows(Prow) Nexti Next Z
- 締切済み
- Visual Basic
- VBA データの統合機能
Winは7、Excelは2013を使用しています。 以前、データの統合機能というのをこちらで教わり、 その構文を使用させて頂いているのですが、 下記の、方法を集計のところの、Rnage("A7")のところに、変数 ｒｎを使用したいのですが、 エラーコード438が出てしまいます。 あと、年間集計のところにデータを書きだすところで、画像の青枠の様に1列おきに書き出したいのですが、可能でしょうか？ 以上、2点ご教示頂けますようお願い致します。 Sub test_データの統合機能() Dim sArray() As String ReDim sArray(Sheets.Count - 2) As String Sheets("年間集計").Select Cells.ClearContents '-------------------------------------------- '科目年間集計 '-------------------------------------------- For i = 2 To Sheets.Count sShtName = Sheets(i).Name sShtAddress = Sheets(i).Range("M2").CurrentRegion.Address(, , xlR1C1) sArray(i - 2) = sShtName & "!" & sShtAddress Next i Sheets(1).Range("A1").Consolidate Sources:=sArray, _ Function:=xlSum, _ TopRow:=True, _ LeftColumn:=True, _ CreateLinks:=False '-------------------------------------------- '合計 '-------------------------------------------- Dim maxCol As Long Dim maxRow As Long Dim c As Integer Dim r As Integer maxCol = Range("A2").End(xlToRight).Column maxRow = Range("A2").End(xlDown).Row Cells(1, maxCol + 1) = "合計回数" Cells(1, maxCol + 2) = "合計時間" For r = 2 To maxRow For c = 2 To maxCol Step 2 Cells(r, maxCol + 1) = Cells(r, maxCol + 1) + Cells(r, c) Cells(r, maxCol + 2) = Cells(r, maxCol + 2) + Cells(r, c + 1) Next c Next r '-------------------------------------------- '方法を年間集計 '-------------------------------------------- Dim rn As Range Set rn = Cells(maxRow + 2, 1) For i = 2 To Sheets.Count sShtName = Sheets(i).Name sShtAddress = Sheets(i).Range("Q2").CurrentRegion.Address(, , xlR1C1) sArray(i - 2) = sShtName & "!" & sShtAddress Next i Sheets(1).Range("A7").Consolidate Sources:=sArray, _ Function:=xlSum, _ TopRow:=True, _ LeftColumn:=True, _ CreateLinks:=False '-------------------------------------------- 'このあとに合計を計算する '-------------------------------------------- '（略） End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルＶＢＡコンボボックスについて
リスト欄のセルA3から下方向に大分類（A16まで14種類）があります。 コンボボックス1に大分類をリスト化して選べるようにしたいと思っています。 しかし、(1)のようにＶＢＡを記入して、マクロを実行すると、コンボボックス1には、 大分類で14個あるリストの4つしか出てきません。 -(1)（抜粋）--------------------------------------------------------- Private Sub UserForm_Initialize() Dim MyVar1 As Variant MyVar1 = Sheets("リスト").Range("A3:A" & Range("A3").End(xlDown).Row) ------------------------------------------------------------------ (2)のように記述してマクロを実行すると、コンボボックス1には、14個全てが表示されます。 -(2)（抜粋）--------------------------------------------------------- Private Sub UserForm_Initialize() Dim MyVar1 As Variant MyVar1 = Sheets("リスト").Range("A3:A16") ------------------------------------------------------------------ 原因がわかる方、いらっしゃいませんか？ 出来れば、リスト欄のA列は14個よりも増える可能性があるので、Range("A3:A" & Range("A3") .End(xlDown).Row)のような範囲の指定がしたいです。 なお、リストシートのＡ3を選択して、「Ctrl+↓」でA16が選択されました。
- ベストアンサー
- オフィス系ソフト
- VBA 空白セルの行番号を格納する。
winは7、Excelは2013を使用しています。 画像の様な表があるのですが、 黄、緑、青の空白セルの行番号を、動的変数に格納できないかと四苦八苦しています。 下記の ed = Sheets(i).Cells(med(i), 13).End(xlDown).Row のところで実行時エラー1004がでてしまいます。 そのようにすればエラーが修正できるか教えて下さい。 よろしくお願い致します。 Sub test() Dim med() as Integer '------------------------------------------- 'まずは各シートの上から1つ目の空白のセルを見つけ、変数を格納 '------------------------------------------- For i = 1 To Sheets.Count - 1 ed = Sheets(i).Range("M2").End(xlDown).Row ReDim med(i) med(i) = ed ’この間に連想配列の処理をします。 Next i '------------------------------------------- 'その次に、上から2つ目の空白のセルを見つけ、変数に格納する。 '------------------------------------------- For i = 1 To Sheets.Count - 1 ed = Sheets(i).Cells(med(i), 13).End(xlDown).Row ’ここで実行時エラー1004がでます。 med(i) = ed ’この間で、1つ目の空白セルの次のセルから2つ目の空白セルの前までを ’連想配列で処理します。 Next i End Sub
- ベストアンサー
- Excel（エクセル）
- VBA で２つのプロシージャを一つにまとめたい
いつもここにはお世話になっており、ありがとうございます。 さて、タイトルにもありました通り、下記２つのプロシージャでコマンドボタンを設定して、実行しておりますが、これを一つのプロシージャ（ボタン）にまとめたく、ご指導お願いいたします。 ○作ろうとしているＶＢＡの概要 １）EXCELのデータベースで、一枚目の「inputシート」に入力し、２枚目の「dataシート」でデータをどんどん格納していきます。 ２）データは、「顧客ＣＤボタン」で管理しており、これをキーとしています。 ３）「顧客ＣＤ」は[inputシート」ではＣ４セル、「ｄａｔａシート」ではＡ列にで管理しています。 ３）データは新規にデータを入力したときの登録ボタン（一つ目のプロシージャ）、既存のデータを編集して、上書きするときの、変更登録ボタン（二つ目のプロシージャ）があります。 ○相談したい内容 「登録ボタン」と「変更」ボタンを一つにまとめて、ひとつのボタンとして、新規にデータを登録するときも、変更したデータを登録するときも、同じボタンで行えるようにしたい。 '■１つ目のプロシージャー Private Sub CommandButton1_Click() '登録ボタン Dim row As Integer row = WorksheetFunction.CountA(Sheets("data").Columns(1)) Sheets("data").Cells(row, 2).Value = Range("C5").Value row = WorksheetFunction.CountA(Sheets("data").Columns(1)) Sheets("data").Cells(row, 3).Value = Range("C6").Value row = WorksheetFunction.CountA(Sheets("data").Columns(1)) Sheets("data").Cells(row, 4).Value = Range("C7").Value row = WorksheetFunction.CountA(Sheets("data").Columns(1)) Sheets("data").Cells(row, 5).Value = Range("F5").Value ActiveWorkbook.Save End Sub '■２つ目のプロシージャー Private Sub CommandButton3_Click() '変更ボタン Dim fRange As Range Dim fRow As Long If (Range("C4").Value = "") Then '顧客CDが入力されていない？ MsgBox "顧客コードを入力してください。", vbExclamation Exit Sub End If Set fRange = Sheets("data").Columns(1).Find(What:=Range("C4").Value, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows) If (fRange Is Nothing) Then '見つからなかった？ MsgBox "入力された顧客コードが存在しません。", vbExclamation Exit Sub End If fRow = fRange.row '検索された顧客DCの行位置を求める Sheets("data").Cells(fRow, 2).Value = Range("C5").Value Sheets("data").Cells(fRow, 2).Value = Range("C5").Value Sheets("data").Cells(fRow, 2).Value = Range("C5").Value Sheets("data").Cells(fRow, 3).Value = Range("F5").Value
- ベストアンサー
- オフィス系ソフト
- VBAのファインドメソッドで検索すると対象外のデータが選択されることがある
CDのリスト表（12列で、現在2269行 範囲名"収録表"）Sheets("データ")から,キーワードで該当ディスクを検索し、 結果をSheets("検索")に転記する、プログラムを作りましたが、 仮に、該当データが10件、転記されたとして そのデータを見ると、中に1件、対象外のデータがはいっている事が たまにあります、いろんな原因を考えてみましたがわかりません。 もともと、VBAのファインドメソッドが、こんなエラーを起こしやすいのか、、、（そんな事、ないよね） どなたか、教えてください。 下が、プログラムです Sub 新規検索() Application.ScreenUpdating = False Dim myData, myRng As Range Dim myWord As String myWord = InputBox("キーワードを入力してください") データ処理中F.Show vbModeless データ処理中F.Repaint Set myData = Range("収録表") Set myRng = myData.Find(What:=myWord, LookIn:=xlValues, _ Lookat:=xlPart, MatchCase:=False, MatchByte:=False) If myWord = "" Then MsgBox ("キーワードを入力してください") Exit Sub End If If Not myRng Is Nothing Then Application.Goto Cells(myRng.Row, 1), True Else: Unload データ処理中F MsgBox ("該当データはありません") Exit Sub End If Sheets("検索").Range("K1") = myRng.Row '一番最初の検索値のRow Call コピー1 Do Until Range("K1") = Range("L1") Call 次を検索 Loop Call 検索終了 Unload データ処理中F Application.ScreenUpdating = True End Sub Sub 次を検索() Dim myData, myRng As Range Sheets("データ").Select Set myData = Range("収録表") Set myRng = Cells.FindNext(after:=ActiveCell.Offset(1)) If myRng <> "" Then Application.Goto Cells(myRng.Row, 1), True End If Sheets("検索").Range("L1") = myRng.Row '2番目以降の検索値のRow Call コピー2 End Sub Sub コピー1() Sheets("検索").Range("A3:L5000,L1").ClearContents Dim myData As Range Set myData = Range("収録表") Set motorng = Application.Intersect(myData, ActiveCell.EntireRow) Set sakiRng = Sheets("検索").Range("A65535").End(xlUp).Offset(1) motorng.Copy sakiRng Sheets("検索").Visible = True Sheets("検索").Activate End Sub Sub コピー2() Dim myData As Range Set myData = Range("収録表") Set motorng = Application.Intersect(myData, ActiveCell.EntireRow) Set sakiRng = Sheets("検索").Range("A65535").End(xlUp).Offset(1) motorng.Copy sakiRng Sheets("検索").Visible = True Sheets("検索").Activate End Sub Sub 検索終了() Dim r As Long r = Range("A65536").End(xlUp).Row Range("A" & r).Select ActiveCell.FormulaR1C1 = "=COUNTA(R3C:R[-1]C)" MsgBox "全部で" & Range("A" & r).Value & "件ありました" Range("A65535").End(xlUp).EntireRow.ClearContents Call 行頭表示 End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAコンボボックスについて
図の左のように、商品リスト欄のセルA3から下方向に大分類（A16まで14種類） セルB3～O3（Bから数えて14個目のO）列から下方向に小分類があります。 P2～P11には1から10までの数字が入っています。 図の右側がユーザフォームで、コンボボックスの番号を入れています。 コンボボックス「1.4.・・・28.」までは大分類を選べるようにして、 コンボボックス「2.5.・・・29.」までは左の大分類に応じた小分類の値を表示させたいと思っています。 大分類「111」→小分類「あ～そ」 大分類「222」→小分類「た～と」といった具合です。 そのコンボボックスの値を指定したセルに入力しようと思っています。 下のように記述した結果、問題が発生しました。 (1)大分類で14個ほどあるリストの3つほどしかでてこない。 (2)Select Caseの構文を使用していて、大分類が14個だから「Case 13」までと しているが、「大分類の数-1」までの変えられる数までにしたい。 アドバイスをいただけると助かります。 ------------------------------------------------------------------ Private Sub UserForm_Initialize() Dim MyVar1 As Variant MyVar1 = Sheets("商品リスト").Range("A3:A" & Range("A3").End(xlDown).Row) Dim MyVar20 As Variant MyVar20 = Sheets("商品リスト").Range("P2:P" & Range("P2").End(xlDown).Row) '種類欄を指定 With ComboBox1 .List() = MyVar1 End With ※・・・（省略）・・・ コンボボックス4から25まで※ With ComboBox28 .List() = MyVar1 End With '数量欄を指定 With ComboBox3 .List() = MyVar20 End With ※・・・（省略）・・・ コンボボックス6から27まで※ With ComboBox30 .List() = MyVar20 End With End Sub '1番目 Private Sub ComboBox1_Change() Dim MyVar1 As Variant ※・・・（省略）・・・ MyVar2～13 As Variant※ Dim MyVar14 As Variant Dim MyVar20 As Variant MyVar1 = Sheets("商品リスト").Range("A3:A" & Range("A3").End(xlDown).Row) ※・・・（省略）・・・ B列からＮ列まで※ MyVar15 = Sheets("商品リスト").Range("O3:O" & Range("O3").End(xlDown).Row) MyVar20 = Sheets("商品リスト").Range("P2:P11") Select Case ComboBox1.ListIndex Case 0 With ComboBox2 .List() = MyVar2 End With ※・・・（省略）・・・ Case1～ Ｃａｓｅ12 ※ Case 13 With ComboBox2 .List() = MyVar15 End With End Select End Sub
- ベストアンサー
- オフィス系ソフト
- マクロ EXCELの範囲をコピーして貼付け
『End(xlDown).Row』で取得した値を使ってセルの範囲指定＆コピーを行い、 新しく追加したシートに貼り付けたいのですがうまくいきません。 Sub attendanceJoin() Dim MaxRow As Integer 'シートの最終行の値 Workbooks("test.xls").Activate Dim NewWorkSheet As Worksheet Set NewWorkSheet = Worksheets.Add() '新しいシートを追加する MaxRow = Worksheets(2).Range("M1").End(xlDown).Row 'A列の最終行を取得 NewWorkSheet.Name = "統合" '新しく追加したシートの名前を変更 With Workbooks("test.xls") .Worksheets(2).Range("A1:M&MaxRow").Copy 'コピーするセルの範囲を指定 '↑ここでエラー。.Worksheets(2).Range("A1:M38").Copy を指定するイメージです。 .Worksheets("統合").Range("A1").PasteSpecial End With End Sub どなたか間違っている箇所のご教示お願い出来ますでしょうか。 どうぞよろしくお願い致します。
- ベストアンサー
- その他MS Office製品
お礼
今回も迅速な回答ありがとうございました。昨日からの疑問がスッキリしました。今後は私もＥｎｄ（ｘｌＵｐ）を使っていこうと思います。ありがとうございました。