Excel VBA質問箱 IV

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

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


2307 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【68793】連続したデータの転記
質問  トキノハジメ  - 11/4/18(月) 13:42 -

引用なし
パスワード
   いつもお世話になります。

ShtName え ShtName1 より転記

Range("A1").Value = Worksheets(ShtName1).Range("X1").Value
Range("A2").Value = Worksheets(ShtName1).Range("X2").Value
Range("A3").Value = Worksheets(ShtName1).Range("X3").Value
Range("A4").Value = Worksheets(ShtName1).Range("X4").Value





Range("A10").Value = Worksheets(ShtName1).Range("X10").Value

上記のコードを For〜Next 出来るのでしょうか
何か良い方法が有れば教えてください。
よろしくお願いいたします。

【68795】Re:連続したデータの転記
発言  SK63  - 11/4/18(月) 14:01 -

引用なし
パスワード
   ▼トキノハジメ さん:
i でループですか、、、cells(x,y)でもいいかと
range("A" & i)= Worksheets(ShtName1).Range("X" & i).Value
Worksheets(ShtName1)はwith〜end withを使うとかすると省略可能ですね。


>
>ShtName え ShtName1 より転記
>
>Range("A1").Value = Worksheets(ShtName1).Range("X1").Value
>Range("A2").Value = Worksheets(ShtName1).Range("X2").Value
>Range("A3").Value = Worksheets(ShtName1).Range("X3").Value
>Range("A4").Value = Worksheets(ShtName1).Range("X4").Value
>↓
>↓
>↓
>↓
>↓
>Range("A10").Value = Worksheets(ShtName1).Range("X10").Value
>
>上記のコードを For〜Next 出来るのでしょうか
>何か良い方法が有れば教えてください。
>よろしくお願いいたします。

【68796】Re:連続したデータの転記
発言  SK63  - 11/4/18(月) 14:04 -

引用なし
パスワード
   ▼SK63 さん:
>▼トキノハジメ さん:
>i でループですか、、、cells(x,y)でもいいかと
>range("A" & i)= Worksheets(ShtName1).Range("X" & i).Value
>Worksheets(ShtName1)はwith〜end withを使うとかすると省略可能ですね。
>
テストしてませんが、、、
dim i as integer

with Worksheets(ShtName1)

for i=1 to 10
range("A" & I)=.range("X" & I)
next i

end with

【68797】Re:連続したデータの転記
質問  トキノハジメ  - 11/4/18(月) 18:21 -

引用なし
パスワード
   ▼SK63 さん:ありがとうございます

コードを打ち込んでみましたがうまくいきません。
よろしくお願いいたします。

>>▼トキノハジメ さん:
>>i でループですか、、、cells(x,y)でもいいかと
>>range("A" & i)= Worksheets(ShtName1).Range("X" & i).Value
>>Worksheets(ShtName1)はwith〜end withを使うとかすると省略可能ですね。
>>
>テストしてませんが、、、
>dim i as integer
>
>with Worksheets(ShtName1)
>
>for i=1 to 10
>range("A" & I)=.range("X" & I)
>next i
>
>end with

【68798】Re:連続したデータの転記
発言  neptune  - 11/4/18(月) 18:28 -

引用なし
パスワード
   ▼トキノハジメ さん:

>コードを打ち込んでみましたがうまくいきません。
現状のコードと、どううまくいかないのか、
を書かないと誰にもわかりませんよ。

【68799】Re:連続したデータの転記
発言  SK63  - 11/4/18(月) 18:31 -

引用なし
パスワード
   ▼トキノハジメ さん:
>▼SK63 さん:ありがとうございます
>
>コードを打ち込んでみましたがうまくいきません。
>よろしくお願いいたします。

すみませんが、何がどの様に上手くいかないのか
どの様なコードを使ったのかを書いていただけないと
なんともなりませんが、、、、
ちなみに、下記のコードをシート2のX1〜X10に1〜10を入力して
シート1をアクティブにして動作するとシート2のX1〜10の値は
シート1のA1〜A10へ転記されますので、問題はないはずですが
上手くいかないとはエラーになるのか、意図したものと異なる結果なのか
こちらでは判断できませんので、具体的な表現が必要と思われます。


Sub gg()
Dim i As Integer
With Worksheets(2)

For i = 1 To 10
Range("A" & i) = .Range("X" & i)
Next i

End With


End Sub

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

引用なし
パスワード
   ▼SK63 さん:ありがとうございます
▼neptune さん:ありがとうございます
コードをアレンジして埋め込んでうまく動きました。
コードの前後をよく見ずに早とちりで投稿をしてすみません。
これから気をつけます。重ねてすみません。今後とも宜しく
お願いいたします。

【68802】Re:連続したデータの転記
発言  SK63  - 11/4/18(月) 21:24 -

引用なし
パスワード
   ▼トキノハジメ さん:
>▼SK63 さん:ありがとうございます
>▼neptune さん:ありがとうございます
>コードをアレンジして埋め込んでうまく動きました。
>コードの前後をよく見ずに早とちりで投稿をしてすみません。
>これから気をつけます。重ねてすみません。今後とも宜しく
>お願いいたします。

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

【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

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

【68804】Re:連続したデータの転記
お礼  SK63  - 11/4/19(火) 0:09 -

引用なし
パスワード
   ▼トキノハジメ さん:
>参考になりますか
thX

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