Excel VBA質問箱 IV

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

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


44510 / 76735 ←次へ | 前へ→

【37241】Re:アクティブなシートに移らないで・・・
回答  Kein  - 06/4/26(水) 18:48 -

引用なし
パスワード
   ↓このように、Selectしない書き方を学習して下さい。

Sub test()
Dim i As Long
Dim j As Long
Dim ws As Worksheet

Set ws = Worksheets("集計")
i = 27
j = 2
ws.Range("b5:h14").ClearContents
With ws
  Do While .Cells(25, i) <> ""
  '空欄になるまで実行

    If .Cells(25, i).Value = .Cells(20, 27).Value And _
      .Cells(26, i).Value = .Cells(21, 27).Value Then
     .Range(.Cells(29, i), .Cells(38, i)).Copy
      .Cells(5, j).PasteSpecial Paste:=xlValues
      Application.CutCopyMode = False
     j = j + 1
    End If
    i = i + 1
  Loop
End With
Set ws = Nothing
グラフ1.Select
End Sub

0 hits

【37239】アクティブなシートに移らないで・・・ ペーロケ 06/4/26(水) 18:37 質問
【37241】Re:アクティブなシートに移らないで・・・ Kein 06/4/26(水) 18:48 回答
【37243】その理由とは・・ ペーロケ 06/4/26(水) 19:17 発言
【37245】Re:その理由とは・・ Kein 06/4/26(水) 19:27 発言
【37246】Re:その理由とは・・ ペーロケ 06/4/26(水) 20:13 お礼
【37242】Re:アクティブなシートに移らないで・・・ 06/4/26(水) 18:58 発言
【37244】Re:アクティブなシートに移らないで・・・ ペーロケ 06/4/26(水) 19:19 お礼

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