Excel VBA質問箱 IV

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

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


13440 / 76738 ←次へ | 前へ→

【68803】Re:連続したデータの転記
お礼  トキノハジメ  - 11/4/18(月) 22:35 -

引用なし
パスワード
   参考になりますか
コードは下記様にしました。

Private Sub CommandButton1_Click()
  Dim j As Integer
  Dim Datasu As Integer
  Dim DataSu As Long

  ShtName = "△△"
  ShtName1 = "XX"
  Application.ScreenUpdating = False
  
  DataSu = Worksheets(ShtName).Range("B1").Value

  For j = 1 To DataSu
      With Worksheets(ShtName1)
     
        .Range("B1").Value = j
       
        .Range("O" & 3 + j).Value = Worksheets(ShtName).Range("BC" & 4 + j).Value
        .Range("P" & 3 + j).Value = Worksheets(ShtName).Range("X" & 4 + j).Value
        .Range("Q" & 3 + j).Value = Worksheets(ShtName).Range("Y" & 4 + j).Value
        .Range("R" & 3 + j).Value = Worksheets(ShtName).Range("AA" & 4 + j).Value
        .Range("S" & 3 + j).Value = Worksheets(ShtName).Range("AB" & 4 + j).Value
        .Range("T" & 3 + j).Value = Worksheets(ShtName).Range("AD" & 4 + j).Value
        .Range("U" & 3 + j).Value = Worksheets(ShtName).Range("AE" & 4 + j).Value
        .Range("V" & 3 + j).Value = Worksheets(ShtName).Range("AG" & 4 + j).Value
        .Range("W" & 3 + j).Value = Worksheets(ShtName).Range("AH" & 4 + j).Value
            
      End With
    Next j
  Worksheets(ShtName1).Activate
  Worksheets(ShtName1).Range("B1").Value = DataSu
  Worksheets(ShtName1).Range("B1").Select      
  Application.ScreenUpdating = True
 
    MsgBox "結果一覧の抽出完了"
   
    Exit Sub
End Sub

>出来ましたら、他の方も参考になる場合がありますので
>ぐたいてきな(一部でも)こーどがあるとありがたいですが。

0 hits

【68793】連続したデータの転記 トキノハジメ 11/4/18(月) 13:42 質問
【68795】Re:連続したデータの転記 SK63 11/4/18(月) 14:01 発言
【68796】Re:連続したデータの転記 SK63 11/4/18(月) 14:04 発言
【68797】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 18:21 質問
【68798】Re:連続したデータの転記 neptune 11/4/18(月) 18:28 発言
【68799】Re:連続したデータの転記 SK63 11/4/18(月) 18:31 発言
【68801】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 21:07 お礼
【68802】Re:連続したデータの転記 SK63 11/4/18(月) 21:24 発言
【68803】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 22:35 お礼
【68804】Re:連続したデータの転記 SK63 11/4/19(火) 0:09 お礼

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