Excel VBA質問箱 IV

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

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


51638 / 76738 ←次へ | 前へ→

【29963】Re:データの小計をだしたい
質問  ゆり  - 05/10/17(月) 16:26 -

引用なし
パスワード
   お世話になっています。
Statis さんに教えていただいたソースでばっちりだったのですが、
sheet1の元表のデータが一件だけだと以下のエラーが出てしまいました。
(デバック:上部※がついている2行)

実行時エラー'1004':
コピー領域と貼り付け領域の形が違うため、情報を貼り付けることができません。情報を貼り付けるには、次のいずれかの操作を行ってください。
1つのセルをクリックし、貼り付けてみてください。
貼り付け元の形を確かめ、適切な範囲を選択したあと、貼り付けてみてください。

Sub test_1()
Dim Ws As Worksheet, Fi As Range, R As Range, C As Range, Ad As String
Set Ws = Worksheets("Sheet2")
Application.ScreenUpdating = False
With Worksheets("Sheet1")
   .Columns(1).AdvancedFilter xlFilterInPlace, , , True
※   .Range("A2", .Range("A65536").End(xlUp)) _
※     .SpecialCells(xlCellTypeVisible).Copy Ws.Range("E14")
   .ShowAllData
   Set R = Ws.Range("E14", Ws.Range("E65536").End(xlUp))
   For Each C In R
     Set Fi = .Columns(1).Find(C.Value, , xlValues, xlWhole)
     If Not Fi Is Nothing Then
      Ad = Fi.Address
      Do
       Set Fi = .Columns(1).FindNext(Fi)
       Fi.Offset(, 1).Resize(, 4).Copy
       C.Offset(, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
      Loop Until Ad = Fi.Address
     End If
     Set Fi = Nothing
  Next C
  Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
Set R = Nothing: Set Ws = Nothing
End Sub


「On Error GoTo」でsheet1一行分の各セルの値をsheet2の対応セルに代入
していこうとしたのですが、なぜかコンパイルエラーが出てしまいました。

一行の場合はエラーを出さずにその一行を表示させる処理にしたいのですが何かいい方法はありますでしょうか?
教えてください!!

0 hits

【29829】データの小計をだしたい ゆり 05/10/14(金) 14:46 質問
【29833】Re:データの小計をだしたい Statis 05/10/14(金) 15:10 発言
【29835】Re:データの小計をだしたい ゆり 05/10/14(金) 15:25 お礼
【29843】Re:データの小計をだしたい Statis 05/10/14(金) 16:39 回答
【29847】Re:データの小計をだしたい ゆり 05/10/14(金) 16:58 お礼
【29963】Re:データの小計をだしたい ゆり 05/10/17(月) 16:26 質問
【29966】Re:データの小計をだしたい とまと 05/10/17(月) 16:44 発言
【29977】Re:データの小計をだしたい ゆり 05/10/17(月) 17:14 質問
【29979】Re:データの小計をだしたい とまと 05/10/17(月) 17:40 発言
【29983】Re:データの小計をだしたい kobasan 05/10/17(月) 18:13 発言
【30005】Re:データの小計をだしたい ゆり 05/10/18(火) 9:55 質問
【30042】Re:データの小計をだしたい kobasan 05/10/18(火) 19:01 回答
【30076】Re:データの小計をだしたい kobasan 05/10/19(水) 7:22 発言
【30082】Re:データの小計をだしたい ゆり 05/10/19(水) 10:41 お礼

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