Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57907 / 76732

←次へ　｜　前へ→


	【23559】Re:他のbookに値を書き込む方法

kazu - 05/3/28(月) 12:48 -


	引用なし

	パスワード

▼sakura さん：
値だけ書き出したい訳ですね・・・。
それなら以下を変更すれば出来ないですか？
（野菜しか記してないですが・・・果物も同様に変更が必要です。）

　　　　　　Do Until Cel2 Is Nothing
　　　　　　　　Cel.EntireRow.Copy Cel2.EntireRow
　　　　　　　　Set Cel2 = ObjBook1.Sheets("野菜").Columns(1).FindNext(Cel2)
　　　　　　Loop

　　　　　　　　　　　　↓

　　　　　　IF Not Cel2 Is Nothing Then
　　　　　　　　FstCel2 = Cel2.Row
　　　　　　Do
　　　　　　　　Cel2.OffSet(0, 1).Value = Cel.Offset(0, 1).Value
　　　　　　　　Set Cel2 = ObjBook1.Sheets("野菜").Columns(1).FindNext(Cel2)
　　　　　　Loop Until Cel2 Is Nothing Or Cel2.Row =　FstCel2
　　　　　　End If

1 hits

▼

【23420】他のbookに値を書き込む方法 sakura 05/3/22(火) 18:01