|
おはようございます。
まず、以下のコードだけでは,
やりたいことがわかりません。
何がしたいのかをはっきりと記述してください。
・やりたいことの概要説明
・入力データと出力データの詳細説明と例題
例えば、myshで参照しているシートの
A列に何が入っているか
.Cells(myCell.Row, 8).Value このセルには
何が結果としていれたいのか(コードを見る限りは、True Or Falseですが)
>
で、コードを見て気が付いたところは
>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
' ↑このコードを何をしたくて記述したのでしょうか?
'Workbooks("book1").Sheets.Count は、book1という名前のついたブックの
'シート数を取得するための読取専用のプロパティです。
'このコードのように値を入れることはできません。
>
> .Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name = Dir()
'Dir()を使用していますが、最初にどのように設定しているのですか?
'繰り返しますが、上記のコードでは、.Cells(myCell.Row, 8).Value には
'TrueかFalseしか入りません。それでよいのですか?
> Loop
>でsheet枚数分の情報が8列目に"sheet名"&"sheet名"と取得していきます
↑これもよくわかりません。
シートにこんな情報が入っていた場合、
↑にここにデータ例を記述。
処理後は、
↑ここに結果として得たいデータ例を記述
してみて下さい。
問題をみている方にわかりやすくする と言う目的ですが、
上記のような説明記述を行うことでご自分の考えも
整理されてくると思いますよ!!.
|
|