Excel VBA質問箱 IV

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

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


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

32410 / 76734

←次へ　｜　前へ→


	【49560】VBAを解読できません。

さら - 07/6/11(月) 10:42 -


	引用なし

	パスワード

以下のマクロを解読していきたいのですが、ネットで調べても中々同じようなものに出会えません。
会社で使っているのですが、どこかが間違っていて計算がおかしくなります。
皆様、宜しくお願いします。

Record1　　　　　　　　
=ACTIVATE.NEXT()　　　　　　　　=CLOSE(FALSE)
=WORKBOOK.SELECT("入力","入力")　　　　　　　　=RETURN()
=SELECT("R4C27")　　　　　　　　
=COPY()　　　　　　　　
=ACTIVATE.NEXT()　　　　　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　　　　　
=CANCEL.COPY()　　　　　　　　
=SELECT("R[1]C")　　　　　　　　
=SELECT("R[-1]C")　　　　　　　　
=SELECT("RC[1]")　　　　　　　　金額
=ACTIVATE.NEXT()　　　　　　　　
=SELECT("R4C2")　　　　　　　　
=COPY()　　　　　　　　
=ACTIVATE.NEXT()　　　　　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　　　　　
=CANCEL.COPY()
=SELECT("R[1]C")
=SELECT("R[-1]C")
=SELECT("RC[1]")
=ACTIVATE.NEXT()
=SELECT("R23C28")
=COPY()
=ACTIVATE.NEXT()
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=CANCEL.COPY()
=SELECT("RC[1]")
=COPY("R1C8",)
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=CANCEL.COPY()
=SELECT("RC[1]")
=ACTIVATE.NEXT()
=SELECT("R24C28")　　　　
=COPY()　　　　
=ACTIVATE.NEXT()　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　
=CANCEL.COPY()　　　　
=SELECT("RC[1]")　　　　
=ACTIVATE.NEXT()　　　　
=SELECT("R10C7")　　　　
=COPY()　　　　
=ACTIVATE.NEXT()　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　=SELECT("R15C2")
=CANCEL.COPY()　　　　
=SELECT("R[1]C")　　　　
=SELECT("R[-1]C")　　　　
=SELECT("RC[1]")　　　　
=ACTIVATE.NEXT()　　　　
=SELECT("R9C2")　　　　
=COPY()　　　　
=ACTIVATE.NEXT()　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　
=CANCEL.COPY()　　　　
=SELECT("R[1]C")　　　　
=SELECT("R[-1]C")　　　　
=SELECT("RC[1]")　　　　=COPY("R5C28:R5C30",)
=ACTIVATE.NEXT()　　　　=PASTE.SPECIAL(3,1,FALSE,FALSE)
=SELECT("R14C2")　　　　=CANCEL.COPY()
=COPY()　　　　
=ACTIVATE.NEXT()　　　　=ACTIVATE.NEXT()
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　=SELECT("R9C2")
=CANCEL.COPY()　　　　=COPY()
=SELECT("R[1]C")　　　　=ACTIVATE.NEXT()
=SELECT("R[-1]C")　　　　=PASTE.SPECIAL(3,1,FALSE,FALSE)
=SELECT("RC[1]")　　　　=CANCEL.COPY()
=ACTIVATE.NEXT()　　　　=SELECT("R[1]C")
=SELECT("R20C27")　　　　=SELECT("R[-1]C")
=COPY()　　　　=SELECT("RC[2]")
=SELECT("R1C6")　　　　=ACTIVATE.NEXT()
=ACTIVATE.NEXT()　　　　
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　=COPY()
=CANCEL.COPY()　　　　=ACTIVATE.NEXT()
=SELECT("RC[1]")　　　　=PASTE.SPECIAL(3,1,FALSE,FALSE)
=COPY("R1C14",)　　　　=CANCEL.COPY()
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　=SELECT("R[1]C")
=CANCEL.COPY()　　　　=SELECT("R[-1]C")
=SELECT("RC[-12]")　　　　=SELECT("RC[1]")
=COPY()　　　　=ACTIVATE.NEXT()
=SELECT("R[1]C[3]")　　　　=SELECT("R18C2")
=ACTIVATE.NEXT()　　　　=COPY()
=PASTE.SPECIAL(3,1,FALSE,FALSE)　　　　=ACTIVATE.NEXT()
=CANCEL.COPY()　　　　=PASTE.SPECIAL(3,1,FALSE,FALSE)
=ACTIVATE.NEXT()　　　　=CANCEL.COPY()
=FILE.CLOSE(TRUE)　　　　=SELECT("R[1]C")
=SAVE()　　　　=SELECT("R[-1]C")
=RETURN()　　　　=SELECT("RC[-14]")
　　　　=ACTIVATE.NEXT()
　　　　=RETURN()

3 hits

▼

【49560】VBAを解読できません。 さら 07/6/11(月) 10:42

≪