Excel VBA質問箱 IV

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

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


49608 / 76736 ←次へ | 前へ→

【32032】Re:マクロを使用したシート間の貼り付け操作について
回答  やっちん  - 05/12/4(日) 23:40 -

引用なし
パスワード
   ▼oyster さん:
こんばんは。
件数を100件、サブのシートの名前を「サブシート」で作成してみました。
rounddownはシート関数で切り捨てです。

Sub test()
  Const M_StartRow = 2
  Const S_StartRow = 2
  Dim k As Long
  Dim w_M_Row As Long
  Dim w_S_Row As Long
  Dim lngKensuu As Long
  
  lngKensuu = 100
  For k = 0 To lngKensuu - 1
'処理中の行
    w_M_Row = M_StartRow + k * 2
'得点Bの行
    w_S_Row = Application.RoundDown((w_M_Row - M_StartRow) / 2, 0) + S_StartRow
    Cells(w_M_Row, "L").Value = Sheets("サブシート").Cells(w_S_Row, "K").Value
  Next k
End Sub
0 hits

【32025】マクロを使用したシート間の貼り付け操作について oyster 05/12/4(日) 21:56 質問
【32026】Re:マクロを使用したシート間の貼り付け操... oyster 05/12/4(日) 21:59 質問
【32027】Re:マクロを使用したシート間の貼り付け操... やっちん 05/12/4(日) 22:52 発言
【32028】Re:マクロを使用したシート間の貼り付け操... oyster 05/12/4(日) 23:19 質問
【32032】Re:マクロを使用したシート間の貼り付け操... やっちん 05/12/4(日) 23:40 回答
【32034】Re:マクロを使用したシート間の貼り付け操... やっちん 05/12/4(日) 23:55 発言
【32035】Re:マクロを使用したシート間の貼り付け操... oyster 05/12/5(月) 3:17 お礼

49608 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free