Excel VBA質問箱 IV

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

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


58640 / 76732 ←次へ | 前へ→

【22816】Re:Sheet1のデータをSheet2に条件をつけて複...
質問  Sora  - 05/3/4(金) 10:56 -

引用なし
パスワード
   G-Luckさん、ichinoseさん、ponponさん、
いろいろとご回答有り難うございます。

皆さんに書いて頂いたことを参考にチャレンジしてみました。
そのなかで、ichinoseさんから頂いたご回答について
再度お伺いしたいことがありましたので、
大変に申し訳ありませんがご教授頂ければと思います。

お伺いしたいことについでですが…
ichinoseさんのVBを実行してみたところ、
結果としては満足できるように別シートに複写することができたのですが
その途中で「型が一致しません」というメッセージが表示されてしまいました。
デバックしたみたところ、下記の線で囲んでいるところが黄色くなり、
そこを修正しなければいけないようです。

ネットでいろいろと調べてみたのですが
どうしても自力で解決できませんでしたので、
もしこの件にお付き合い頂けるようでしたらご教授願えればと思います。


Sub test()
  Dim sht1 As Worksheet
  Set sht1 = Worksheets("sheet1")
  odx = 2 'sheet2の書き込み行
  For idx = 2 To sht1.Cells(sht1.Rows.Count, 1).End(xlUp).Row
    '↑idxは、Sheet1の行
   With Worksheets("sheet2")
    repcnt = sht1.Range("o" & idx).Value
    '↑繰り返し数の取得
----------------------------------------------------------------------
    .Range(.Cells(odx, 1), .Cells(odx + repcnt - 1, 14)).Value = _
       sht1.Range(sht1.Cells(idx, 1), sht1.Cells(idx, 14)).Value
----------------------------------------------------------------------
    'A列からN列はそのまま代入
    s_add = .Range("o" & odx).Address
    'sheet2のO列の書き込みセルの絶対アドレス
    With .Range(.Cells(odx, 15), .Cells(odx + repcnt - 1, 15))
     .NumberFormat = "0""/" & repcnt & """"
     .Formula = "=(row()-row(" & s_add & ")+1)"
     .Value = .Value
     End With
    odx = odx + repcnt
    End With
   Next idx
End Sub
0 hits

【22799】Sheet1のデータをSheet2に条件をつけて複... Sora 05/3/3(木) 18:26 質問
【22802】Re:Sheet1のデータをSheet2に条件をつけて... G-Luck 05/3/3(木) 19:02 発言
【22804】Re:Sheet1のデータをSheet2に条件をつけて... ichinose 05/3/3(木) 19:57 発言
【22806】Re:Sheet1のデータをSheet2に条件をつけて... ponpon 05/3/3(木) 22:52 発言
【22816】Re:Sheet1のデータをSheet2に条件をつけて... Sora 05/3/4(金) 10:56 質問
【22818】Re:Sheet1のデータをSheet2に条件をつけて... Jaka 05/3/4(金) 13:00 回答
【22838】間違えました。 Jaka 05/3/4(金) 17:31 回答
【22819】Re:Sheet1のデータをSheet2に条件をつけて... ichinose 05/3/4(金) 13:04 発言
【22845】Re:Sheet1のデータをSheet2に条件をつけて... Sora 05/3/4(金) 19:07 お礼

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