Excel VBA質問スレ Part5
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
350:デフォルトの名無しさん 08/01/13 21:15:02 Spy.exe 351:デフォルトの名無しさん 08/01/14 06:14:32 >>334 i=12 iに12を設定する For Each MyC In Worksheets MyCごとの処理です If MyC.Name<> "data" Then n = 12 MyC.Nameがdataと違うときは、nに12を設定する MyS1.Cells(i,1)=MyC.Name i=i+1 MyC.NameをMyS1 の(12,1)に設定して、iを13にする Do While MyC.Cells(n,2).Value<>"" MyCの(12,2)が空じゃなければ、以下の処理を繰り返す MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value MyS1の(13,1)から(13,12)に、 MyCの(12,1)から(12,12)を設定する i=i+1 n=n+1 Loop iを14に、nを13にして Do Whileに戻り、 MyCの(13,2)が空じゃなければ、また処理を繰り返す MyS1の(14,1)から(14,12)に、 MyCの(13,1)から(13,12)を設定する その次はMyS1の(15,1)から(15,12)に、 MyCの(14,1)から(14,12)を設定する というふうに、iとnは1ずつ大きくなり、MyCの(n,2)が空になると処理をやめる End If
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4804日前に更新/253 KB
担当:undef