Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
412 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80562】コマンドボタンで記録をしたいのですが 颯太 19/3/9(土) 10:31 質問[未読]
【80563】Re:コマンドボタンで記録をしたいのですが マナ 19/3/9(土) 11:02 発言[未読]
【80564】Re:コマンドボタンで記録をしたいのですが 颯太 19/3/9(土) 11:58 発言[未読]
【80565】Re:コマンドボタンで記録をしたいのですが マナ 19/3/9(土) 12:44 発言[未読]
【80566】Re:コマンドボタンで記録をしたいのですが 颯太 19/3/9(土) 13:14 発言[未読]
【80567】Re:コマンドボタンで記録をしたいのですが マナ 19/3/9(土) 13:32 発言[未読]
【80568】Re:コマンドボタンで記録をしたいのですが 颯太 19/3/9(土) 15:08 お礼[未読]
【80562】コマンドボタンで記録をしたいのですが
質問  颯太  - 19/3/9(土) 10:31 -
引用なし
パスワード
   入力場所がシートのG8:G50でコマンドボタンを押したら隣のH8:H50に記録する様にしたいです。そして同じコマンドボタンでH列が記録状態であったらI列に記録する様にして順番に未記録(空白)の列に順次記録したいです。
【80563】Re:コマンドボタンで記録をしたいのですが
発言  マナ  - 19/3/9(土) 11:02 -
引用なし
パスワード
   ▼颯太 さん：

>未記録(空白)の列

End(xlToLeft)で、データのある最終列を求めて
その右横のセルに貼り付けると考えるとよいです。
右横は、Offset(, 1)になります。
【80564】Re:コマンドボタンで記録をしたいのですが
発言  颯太  - 19/3/9(土) 11:58 -
引用なし
パスワード
   ▼マナ さん：
>▼颯太 さん：
>
>>未記録(空白)の列
>
>End(xlToLeft)で、データのある最終列を求めて
>その右横のセルに貼り付けると考えるとよいです。
>右横は、Offset(, 1)になります。
マナさん返信ありがとうございます！コマンドボタンのコードの表示内はどの様に記入したら良いでしょうか？初心者がこのような質問してすみません。
【80565】Re:コマンドボタンで記録をしたいのですが
発言  マナ  - 19/3/9(土) 12:44 -
引用なし
パスワード
   ▼颯太 さん：

＞初心者がこのような質問してすみません。

そういうことであれば、
まずは、単純な固定のセル範囲をコピーするマクロが
先ではないでしょうか。

１）コピー元.Copy 貼り付け先

Range("G8:G50").Copy Range("Z8").End(xlToLeft).Offset(, 1)

　
２）または
コピー元.Copy
貼り付け先.PasteSpecial xlPasteValues

Range("G8:G50").Copy
Range("Z8").End(xlToLeft).Offset(, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False


３）または
貼り付け先,Value = コピー元.value

Range("Z8").End(xlToLeft).Offset(, 1).Resize(43).Value = _
　　　　Range("G8").Resize(43).Value
【80566】Re:コマンドボタンで記録をしたいのですが
発言  颯太  - 19/3/9(土) 13:14 -
引用なし
パスワード
   最近始めたばかりなのですみません。今外出先なので帰宅してから試してみます！コード三種類有って全部違うように見えますけど同じ意味合いなんですね。ありがとうございました
【80567】Re:コマンドボタンで記録をしたいのですが
発言  マナ  - 19/3/9(土) 13:32 -
引用なし
パスワード
   ▼颯太 さん：

検索すれば、他にもたくさんあります。
わかりやすいところを、さがすとよいです。
検索上手になることが上達の近道です。

www.sejuku.net/blog/34619
www.moug.net/tech/exvba/0050088.html
www.sejuku.net/blog/31704
【80568】Re:コマンドボタンで記録をしたいのですが
お礼  颯太  - 19/3/9(土) 15:08 -
引用なし
パスワード
   マナさん色々とありがとうございました！帰宅後に早速やってみたら出来ました。検索の方もやってみますね、本当にありがとうございました(^.^)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
412 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free