• 締切済み

SPREAD最終行のみ編集可とする

はじめまして。 何回か利用させてもらってます。 プログラミング暦浅いのですが、教えてください。 ＤＢからデータをＳＰＲＥＡＤに表示します。（ここまでできました。） 1列空を追加してそこに項目を入力、ボタンを押すとＤＢに追加できるようにしたいのですが、、、 ます、列の追加で spdList.Sheets(0).RowCount = テーブル格納名.Rows.Count + 1 だと、エラーが起きてしまうのですが、+1がいけないんですか？ よくわからないので教えてください。

回答 全件
構成がよく分からないのですが、 With vaSpread1 …

みんなの回答

noname#118114
noname#118114
回答No.1

構成がよく分からないのですが、 With vaSpread1 .MaxRows = .MaxRows + 1 End With ではダメですか？

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCELVBAで行の削除

    WIN98SE　EXCEL2000です。 G列に99の文字があったらその行を削除するというVBAを下記のように作りました。 Dim i As Integer Dim rowcount As Integer rowcount = Cells(1,1).CurrentRegion.Rows.Count For i = 1 To rowcount If Cells(i, 7) = "99" Then Rows(i).Delete Next i これを実行するとG列に99のある行が連続してあると1行おきに削除されます。どこをなおせばよいのか教えてください。よろしくお願いします。

  • エクセルVBA　最終行にデータを追加する

    エクセルのユーザーフォームにチェックリストを用意しました CheckBox1～CheckBox5まであり、 CheckBox1をクリック（true）にすると、セルに“あ” CheckBox2をクリック（true）にすると、セルに“い” CheckBox3をクリック（true）にすると、セルに“う” CheckBox4をクリック（true）にすると、セルに“え” CheckBox5をクリック（true）にすると、セルに“お” を反映させようと思っています たとえば、 ・CheckBox1のみクリック（ｔｒｕｅ）で、Ａ１に“あ” ・CheckBox2のみクリック（ｔｒｕｅ）で、Ａ１に“い” ・CheckBox1、CheckBox3をクリック（ｔｒｕｅ）で、Ａ１に“あ”、Ａ２に“う” ・CheckBox２～CheckBox5をクリック（ｔｒｕｅ）で、Ａ１に“い“、Ａ２に“う“、Ａ３に”え”、Ａ４に“お” といった感じで、選んだチェック項目について、Ａ列においてＡ１から次々とデータを入力しようとしています そこで、 sheets1.Range("Ａ:Ａ").Clear If CheckBox1.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "あ" End If If CheckBox2.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "い" End If If CheckBox3.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "う" End If If CheckBox4.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "え" End If If CheckBox5.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "お" End If としました （実際は、CheckBoxの名前が1～5と数字ではないので、ｆｏｒは使いませんでした） すると、 CheckBox1～CheckBox5を全てクリック（ｔｒｕｅ）しても、Ａ１に“お”が反映されるだけで“あ”～”え”が入力されません どうすれば、思い通りになるのでしょうか 初歩的な質問だと思うのですが、よろしくお願いします

  • Excelの最終行を取得

    ワークブックモジュールにこんなVBAを追加しました。 '入力行のセルをアクティブにする Private Sub Workbook_Open() Dim 入力行 As Long 入力行 = Worksheets(1).Range("A3"). _ CurrentRegion.Rows.Count + 1 Worksheets(1).Cells(入力行, 2).Select End Sub これは問題なく実行されました。 しかし、以前にこのような関数をA500まで設定していたので空白の行をアクティブにしてしまいました。 =IF(OR($B487<>"",$C487<>"",$D487<>"",$E487<>"",$F487<>""),ROW()-2,"") 関数を消すと実際の最終行を取得することはできたのですが、行番号の関数は追加されませんでした。 テーブルの大きさに合わせて自動で関数を追加するというようなことはできるのでしょうか？また更にいい方法があれば教えてください。

  • エクセル VBA 特定文字がある行を別シートに移動

    ソフト　excel2003 o列に文字列が入力された表があります。 マクロ実行時下記のようにするには、VBAのコードをどのように記入すればよろしいでしょうか？ 赤枠で囲んだボタンをクリックすると シート１のO列に　中　が入力されている行を切り取りし中シートに貼り付け （下の行は上方向にシフト） ※　シート１の内容は日毎に更新されますので、更新後、赤枠で囲んだボタンをクリックするとその時点で　中　が入力されているものは中シートのリストへ追加されるようにしたいのです。 以前ここで教えていただいたものを参考に作成してみたの（以下に記載）ですがうまくいきません。 お助けいただけないでしょうか。 宜しくお願い致します。 Sub ボタン中シート_Click() 'Sheet2の挿入位置(C列は結合セルではなく、必ず何か入っている事） nMax2 = Sheets("中シート").Cells(Rows.Count, 3).End(xlUp).Row + 1 With Sheets("sheet1") nMax1 = .Cells(Rows.Count, 9).End(xlUp).Row For i = nMax1 To 2 Step -2 If .Cells(o, 15) = "中" Then .Range(.Cells(o, 1), .Cells(o + 1, 10)).Copy Sheets("中シート").Cells(nMax2, 1).Insert Shift:=xlDown .Range(.Cells(o, 1), .Cells(o + 1, 10)).Delete Shift:=xlUp End If Next i End With End Sub

  • excel vba 複数シートから最終行値取得

    ほぼ初心者です。皆様ご教授願います。 出納簿について 出納簿の一覧表としてSheet4のL列10行目から、Sheet5以降のシート名（出納簿の品名ある分） となっています。（例：リンゴ、出納簿のシート数は年度途中に新規項目を追加します。） その各出納簿シートのH列の残数（最終行）をSheet4のM列10行目から順に次のコードにしているのですが Range("M10").Value = Sheets(5).Range("C" & Rows.Count).End(xlUp).Columns(6).Value ・ ・ と追加の度に書き加えている状況です、これをわざわざ書き加えることなく 済む方法はないでしょうか？説明が分かりにくくてすいませんがよろしくお願いいたします。 ＊出納簿シートは年度初め５シートからスタートし、その後増加していきますが、年間最大20シートです。 こんな感じです。 Sheet4　 　　　　　 　　　 L 　　　 M ・・・・・・　　　　　 10 　　 　　 リンゴ　　 10 11　　　　　　　　　・　　　　・ 12　　　　　　　　　・　　　　・

  • エクセルでK列の最終行のセル値を指定のセルに・・・

    いつもお世話になっております。 5月に下記のコードを教えてもらい、簡単な改良や条件を追加しながら複数のシートに展開中なのですが新しいパターンが出たのでHELPです。 K列の最終行の値を同じ表のH６のセルに転記してそれを使って出た計算結果（セルH7）の値をH列の最終行のセルに転記したいのですが。 （具体的な列とセルはシートで変わる可能性があります） 下記のコードは別のシート（計算表）の特定（結果）のセルの値を指定した列に転記するコードでこれで何とかしようとしましたが歯が立たず。 なにとぞよろしくお願いいたします。 Option Explicit Sub Sample3()　 　Dim MyRange As Range 　With ThisWorkbook 　　Set MyRange = _ 　　　.Sheets("入力表").Cells(Rows.Count, 5).End(xlUp) 　　MyRange.Offset(1, 0).Value = .Sheets("計算表").Range("J15").Value 　　MyRange.Offset(1, 1).Value = .Sheets("計算表").Range("J20").Value 　End With End Sub

  • アプリケーションまたはオブジェクト定義のエラーです

    データを入力するシート「input]、データを格納するシート　「data」とがあり、 新規のレコードを追加入力するために 新規入力ボタン(CommandButton2)を作成しましたが、 実行しようとすると、表記のエラーが出てしまします。 コードの確認、とそして、どこがいけないのかをご指摘いただけないでしょうか？どうかよろしくお願いいたします。 以下コードです。 Private Sub CommandButton2_Click() '新規入力 Dim row As Integer row = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1) Sheets("data").Cells(row, 2).Value = Sheets("data").Cells(row - 1, 2).Value Range("AL1") = Sheets("data").Cells(row, 2).Value End Sub

  • EXCEL　最終行に入力するマクロ

    マクロ初心者です。 シート”受注書”からシート”受注履歴”に 履歴情報を書き込むマクロを作成しています。 初心者丸出しで恥ずかしいのですが、 下記のように組んでいます。 Sub 受注情報書き込み() Dim ws01 As Worksheet Dim ws02 As Worksheet Set ws01 = Worksheets("受注書") Set ws02 = Worksheets("受注履歴") ws02.Activate ' 受注No入力 ws01.Range("C2").Copy ws02.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues ' 受注日入力 ws01.Range("M2").Copy ws02.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues ' 出荷日入力 Sheets("粗利報告書").Range("D3").Copy ws02.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues ・ ・ ・ この場合、受注書シートが空白の場合、 受注履歴シートも空白になると思うのですが、 次回、履歴を書き込む時に空白を詰めて（最終行に） 入力してしまう事を避けたいです。 空白は残しつつ、一受注を同じ列に入力する為には、 どうしたら良いでしょうか？

  • VC#において特定レコード番号を取得したい

    お目に留めていただき誠にありがとうございます． VC#のＤＢに関しての質問です． 3行5列のテーブル(Custom)で， ID(string), Passwd(string), Balance(int) となっております． Dataset1 ds; int count = ds.Tables["Custom"].Rows.Count; とすれば，レコード「５」という数字が帰ってきますが 私はレコード内のＩＤに着目し， ID=test のレコード番号を返せたらと考えております． 新たにテーブルの列を増やし，オートナンバー型を追加する以外の方法で何かありますか？ 宜しくお願い致します．

  • エクセルVBAでデータ最終行取得方法

    エクセルVBAでデータ最終行取得方法で良い方法を教えてください。 データの行数、列数は不定。 最多のデータ行の列も不定。 この条件で、データ最終行を取得するにはどうすればよいでしょうか？ lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row では、A列の最終行に限定されます。 lastrow = ActiveSheet.Cells(1, "A").SpecialCells(xlLastCell).Row では、列の限定はありませんが、一旦データ入力後、削除した部分まで入ってしまいます。 lastrow = ActiveSheet.UsedRange.Rows.Count では、データ入力後、削除した部分まで入ってしまい、かつ、１行目など上部が空白の場合、不正確になります。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する