Excel VBA質問箱 IV

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

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


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

5671 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【49565】回答でなくすみません。 Jaka 07/6/11(月) 16:11

【49566】マクロシートですか・・・ さら 07/6/11(月) 16:18

【49571】Re:マクロシートですか・・・ Lindy 07/6/11(月) 16:59


	【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()


	【49565】回答でなくすみません。

Jaka - 07/6/11(月) 16:11 -


	引用なし

	パスワード

回答でなくすみません。
で、読めませんでした。
何度か覚えてみようとしたんだけど....。

>Record1　　　　　　　　
>=ACTIVATE.NEXT()　　　　　　　　=CLOSE(FALSE)
>=WORKBOOK.SELECT("入力","入力")　　　　　　　　=RETURN()
>=SELECT("R4C27")　　　　　　　　
　　略
>=RETURN()　　　　=SELECT("RC[-14]")
>　　　　=ACTIVATE.NEXT()
>　　　　=RETURN()

これ、多分5.0、95時代のマクロじゃないですか？
このコード、マクロシートにかかれて無かったですか？


	【49566】マクロシートですか・・・

さら - 07/6/11(月) 16:18 -


	引用なし

	パスワード

“マクロ”って書いていただけですねぇ、シートは。
たぶん自分なりに調べてみた結果は、Excel4.0マクロではないかと思われます。
この手のマクロはネットにはあまり存在していないようです・・


	【49571】Re:マクロシートですか・・・

Lindy - 07/6/11(月) 16:59 -


	引用なし

	パスワード

▼さらさん：
こんにちは

答えではないのですが

ネットが使える環境でしたらエクセルのヘルプ検索の所に
「Excel 4.0 マクロ関数」で検索して一番最初にヒットしたものを
開くと、オンラインでExcel4マクロのヘルプがダウンロードできるURLが
紹介されます。
（日本語版は無いようですね・・・）

私はインストール不可能な環境なので見ていませんがこれを見ながら
ＶＢＡに移植してみるのが早いのかも？です。


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

5671 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free