Excel VBA質問箱 IV

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

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


47842 / 76732 ←次へ | 前へ→

【33836】Re:改ページの数を数えたいのですが・・・
発言  こんばんは  - 06/1/21(土) 23:31 -

引用なし
パスワード
   ▼ichinose さん:

こんばんは。ありがとうございます
Do Until mySh.Cells(i, 1).Value = ""
        Set myCell = .Columns(1).Find(mySh.Cells(i, 1).Value)
        If myCell Is Nothing Then
          .Range("A" & j & ":" & "I" & j).Value = mySh.Range("A" & i & ":" & "I" & i).Value
            .Cells(j, 8).Value = mySh.Name
          j = j + 1
        Else
          If InStr(1, .Cells(myCell.Row, 8).Value, mySh.Name) = 0 Then
            .Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name
          End If
        End If
        i = i + 1
       
         Workbooks("book1").Sheets.Count = i - 1

        .Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name = Dir()
      Loop
でsheet枚数分の情報が8列目に"sheet名"&"sheet名"と取得していきます
それを全sheet枚数分揃った場合その8列目に出る情報をclearにしたいのですが
Workbooks("book1").Sheets.Count = i - 1でエラーが起こり
.Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name = Dir()

上記だと全sheet内情報が消えてしまうのですが
その列:行だけを対象にする為にはどこを直すべきでしょうか?
すいません。分かりましたら教えて下さい

0 hits

【20151】改ページの数を数えたいのですが・・・ barbar 04/11/29(月) 19:40 質問
【20155】Re:改ページの数を数えたいのですが・・・ ちゃっぴ 04/11/29(月) 23:18 回答
【20187】Re:改ページの数を数えたいのですが・・・ barbar 04/11/30(火) 18:14 お礼
【33831】Re:改ページの数を数えたいのですが・・・ こんばんは 06/1/21(土) 19:11 発言
【33832】Re:改ページの数を数えたいのですが・・・ ichinose 06/1/21(土) 20:15 発言
【33836】Re:改ページの数を数えたいのですが・・・ こんばんは 06/1/21(土) 23:31 発言
【33841】Re:改ページの数を数えたいのですが・・・ ichinose 06/1/22(日) 7:04 発言
【33842】Re:改ページの数を数えたいのですが・・・ こんばんは 06/1/22(日) 9:31 発言
【33871】Re:改ページの数を数えたいのですが・・・ ichinose 06/1/23(月) 7:22 発言
【33921】Re:改ページの数を数えたいのですが・・・ こんばんは 06/1/23(月) 19:53 発言
【33940】Re:改ページの数を数えたいのですが・・・ ichinose 06/1/24(火) 8:05 発言
【33997】Re:改ページの数を数えたいのですが・・・ はじめまして 06/1/24(火) 19:10 発言
【34001】Re:改ページの数を数えたいのですが・・・ ichinose 06/1/24(火) 19:34 発言

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