ここから本文です

現在excelマクロの勉強中なのですが以前働いていた方のマクロのモジュールなのです...

アバター

ID非公開さん

2016/10/2608:59:17

現在excelマクロの勉強中なのですが以前働いていた方のマクロのモジュールなのですがまだ初心者の為理解に苦しんでおります。
どなたかご教授の程宜しくお願い致します。

実際の内容

Sheets("シート1").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("D1").Select
Selection.Copy
Range("A4:A300").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("D1").Select
Selection.Copy
Range("G4:G300").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
Sheets("シート2").Select
Range("A1").Select
Sheets("シート2").Select
Range("A1").Select
Range("BD5:BI6").Select
Selection.Copy
Range("BD5:BI6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BG1").Select
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
ActiveWindow.ScrollWorkbookTabs Position:=xlLast

Sheets("シート2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
End Sub

どういった意味なのかと何か参考になるようなサイトやマクロ初心者でも分かりやすい本などがあればお願い致します。

閲覧数:
56
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2016/10/2611:31:20

>どういった意味なのか
やっていることは、主に以下の2つ。
1)
シート1の A4:A300、G4:G300に1を掛ける
⇒おそらく文字列を数値に変換しているものと推察できる

2)
シート2の
BD5:BI6の式を消し、値だけにする
A1,B1の値をクリア

>参考になるようなサイト
http://www.moug.net/vba/
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html
http://www.eurus.dti.ne.jp/yoneyama/

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる