VBAの勉強中です。ボタンを押すとWorksheets("管理番号")の情報をworksheets("結果")へ
転記するようにしてるんですが、この状態のままでは行番号11へのみの入力となっていしまいます。
これをボタンを押すごとに行番号11以降(古いデータの下)の空白のセルへ
入力するようにするにはどうすればよいでしょうか?教えていただけたら幸いです。
Option Explicit
Sub DATA()
Dim momo
Dim ko
Worksheets("結果").Range("D11").Value = Worksheets("管理番号").Range("F5").Value
Worksheets("結果").Range("B11").Value = Date
Worksheets("結果").Range("C11").Value = Time
ko = 11
For momo = 16 To 9999
If Worksheets("管理番号").Range("B" & momo).Value = Worksheets("管理番号").Range("F5").Value Then
Worksheets("結果").Range("E" & ko).Value = Worksheets("管理番号").Range("D" & momo).Value
ko = ko + 1
End If
Next
End Sub
宜しくお願いいたします。
No.1
- 回答日時:
勉強中と云う事で、元のコードを生かして編集してみました。
Sub DATA()
Dim momo
Dim ko
ko = 11
For momo = 16 To 9999
If Worksheets("管理番号").Range("B" & momo).Value = Worksheets("管理番号").Range("F5").Value Then
Worksheets("結果").Range("E" & ko).Value = Worksheets("管理番号").Range("D" & momo).Value
Worksheets("結果").Range("D" & ko).Value = Worksheets("管理番号").Range("F5").Value
Worksheets("結果").Range("B" & ko).Value = Date
Worksheets("結果").Range("C" & ko).Value = Time
ko = ko + 1
End If
Next
End Sub
ご希望の結果が得られるようであれば、もう少しスマートな方法を
回答いたします。
No.2ベストアンサー
- 回答日時:
ん~と
>Worksheets("管理番号")にあるボタンを押すごとに
>Worksheets("結果")の行番号12、13・・・と順に転記するようにしたいです。
っと云う事は
ko = 11
を
ko = Worksheets("結果").Range("E" & Rows.Count).End(Xlup).Row+1
としてみては?
参考までに、シートを変数に入れて、コードを省略してみました。
Sub DATA()
Dim momo
Dim ko
Dim ws As Worksheet
Set ws=Worksheets("結果")
ko = ws.Range("E" & Rows.Count).End(Xlup).Row+1
For momo = 16 To 9999
If Range("B" & momo).Value = Range("F5").Value Then
ws.Range("E" & ko).Value = Range("D" & momo).Value
ws.Range("D" & ko).Value = Range("F5").Value
ws.Range("B" & ko).Value = Date
ws.Range("C" & ko).Value = Time
ko = ko + 1
End If
Next
End Sub
と省略してみました。
ご回答ありがとうございます。
先ほど確認したところ、教えていただいたコードで
問題なく最終行の下へと追加していくことができました!
勉強をはじめたので、所々呪文のようですが
コードの省略とても参考になりました。
これから自由に組んでいけるよう挫けず頑張ります。
今回はいろいろと教えていただき、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 強制終了してしまう
-
access2021 VBA メソッドまたは...
-
Access Error3061 パラメータが...
-
accessデータを指定したExcel、...
-
実行時エラー3131 FROM 句の構...
-
AccessVBAで任意の複数リンクテ...
-
Accessのスプレッドシートエク...
-
Accessレポートのチェックボッ...
-
accessの代わりになるもの
-
Accessのリンクテーブルのパス...
-
Access IF文でテーブルに存在し...
-
access クエリ yes/no型のクエ...
-
Access VBA でHTML文を表示したい
-
accessでlaccdbファイルが削除...
-
accessについて(超初心者です)
-
アクセス レポートを開いたとき...
-
Microsoft365にAccessってあり...
-
Access DAOのExecuteメソッドの...
-
Accessのクエリで、replace関数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
タガログ語和訳お願いします!
-
フィリピン語でサルサルの意味
-
日本語をタガログ語に訳google ...
-
タガログ語わかる方翻訳お願い...
-
タガログ語でメールが来ました...
-
フィリピン語を翻訳してくださ...
-
このタガログ語を日本語に訳し...
-
タイ語に翻訳お願いします。
-
小国からリバーサイド千秋
-
タガログ(かな?)教えて下さい。
-
VBAを勉強中です。転記について...
-
印刷時に、複数ページに共通な...
-
Wordで、タイトルと名前は真ん...
-
Excel:2ページ目以降のタイト...
-
音楽のレポートの書き方につい...
-
過去の全国の波の高さデータが...
-
詩の題名はつけたほうがいいで...
-
教えてGooの回答の信憑性てどの...
-
InputBox キャンセルボタンが...
-
【Excel】複数のタイトル行を設...
おすすめ情報
ご回答ありがとうございます。確認しましたところ、
情報は問題なく転記されますが、やはりWorksheets("結果")の行番号11(BCDE)のところで
情報が上書き更新されてしまいます。
これを上書きされることなく、Worksheets("管理番号")にあるボタンを押すごとに
Worksheets("結果")の行番号12、13・・・と順に転記するようにしたいです。
再度回答ただけたら幸いです。宜しくお願いいたします。