Excel VBA質問箱 IV

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

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


58260 / 76738 ←次へ | 前へ→

【23209】Re:☆シート1の内容をシート2に反映させる方法を教えてください☆
発言  sa  - 05/3/16(水) 12:10 -

引用なし
パスワード
   シート1
A    B    C    D    E
1
2 2000年    12月1日    15        20
3    12月12日    20        19
4    12月12日    20        18
5 2001年    10月5日    12        17
6    10月20日    13        16
                15
                14
                13
                12
                11
                10

下記のソースで動くかやってみてください

Sub TEST()
Dim InP As String
Dim OnP As String
Dim end_row As Long
Dim s_row As Long
Dim e_row As Long
Dim Orow As Long
Dim DAI As String
Dim DAI_R As String

  Worksheets(1).Select
  end_row = Worksheets(1).Range("B65536").End(xlUp).Row

  Worksheets(1).Range("A1").End(xlDown).Select
  s_row = Selection.Row
  DAI = Cells(s_row, 1)
  
Do While s_row < end_row
  Selection.End(xlDown).Select
  e_row = Selection.Row - 1
  If e_row = 65535 Then e_row = end_row


  InP = "$C$" & s_row & ":$C$" & e_row
  OnP = "$B$" & 2 + Orow & ":$C$" & 14 + Orow
  DAI_R = "$A$" & 2 + Orow
  Worksheets(2).Range(DAI_R) = DAI
   Application.Run "ATPVBAEN.XLA!Histogram", Worksheets(1).Range(InP), _
    Worksheets(2).Range(OnP), Worksheets(1).Range("$E$2:$E$12"), False, _
    False, False, False

  Orow = Orow + 15
  s_row = e_row + 1
  Worksheets(1).Select
  Cells(s_row, 1).Select
  DAI = Cells(s_row, 1)
Loop

End Sub
0 hits

【23179】☆シート1の内容をシート2に反映させる方法を教えてください☆ YUKI 05/3/15(火) 16:33 質問
【23181】Re:☆シート1の内容をシート2に反映させる... Jaka 05/3/15(火) 16:59 発言
【23194】Re:☆シート1の内容をシート2に反映させ... YUKI 05/3/15(火) 20:33 質問
【23212】Re:☆シート1の内容をシート2に反映させ... Jaka 05/3/16(水) 12:56 回答
【23219】Re:☆シート1の内容をシート2に反映させ... YUKI 05/3/16(水) 15:36 質問
【23220】Re:☆シート1の内容をシート2に反映させ... Jaka 05/3/16(水) 15:49 回答
【23244】Re:☆シート1の内容をシート2に反映させ... YUKI 05/3/17(木) 8:48 お礼
【23246】文中間違いがありました。 Jaka 05/3/17(木) 9:16 発言
【23250】Re:文中間違いがありました。 YUKI 05/3/17(木) 11:00 お礼
【23182】Re:☆シート1の内容をシート2に反映させる... sa 05/3/15(火) 17:04 発言
【23195】Re:☆シート1の内容をシート2に反映させる... YUKI 05/3/15(火) 20:39 質問
【23206】Re:☆シート1の内容をシート2に反映させる... sa 05/3/16(水) 9:37 発言
【23208】Re:☆シート1の内容をシート2に反映させる... YUKI 05/3/16(水) 10:05 質問
【23209】Re:☆シート1の内容をシート2に反映させる... sa 05/3/16(水) 12:10 発言
【23218】Re:☆シート1の内容をシート2に反映させる... YUKI 05/3/16(水) 15:35 発言
【23245】Re:☆シート1の内容をシート2に反映させる... YUKI 05/3/17(木) 8:52 お礼

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