Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2309 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：ありがとうございます
>
>コードを打ち込んでみましたがうまくいきません。
>よろしくお願いいたします。

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


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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2309 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free