Sheet1（１枚目の画像）で登録した内容をSheet2（２枚目の画像）に転記するVBAを本を片手にチャレンジしていますが、基本からやっている訳ではないので行き詰ってしまいました(苦笑)
Sub 転記()
Set MotoSht = Sheets("Sheet1")
Set SakiSht = Sheets("Sheet2")
MotoArreay = Array("C3","C5","C6","C7","C8","D8","C9")
Set SakiRng = SakiSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
i = 0
For Each myRng In MotoArray
SakiRng.Offset(, i) = MotoSht.Range(MotoArray(i))
i = i + 1
Next
End Sub
と入力するとエラー（３枚目の画像）になります。
多分、この部分の[i]の意味が理解出来てないんだと思いますが
↓
i = 0
For Each myRng In MotoArray
SakiRng.Offset(, i) = MotoSht.Range(MotoArray(i))
i = i + 1
この部分をどのように直せばいいか教えて下さい。
Sub 転記()
Set MotoSht = Sheets("Sheet1")
Set SakiSht = Sheets("Sheet2")
MotoArreay = Array("C3","C5","C6","C7","C8","D8","C9")
Set SakiRng = SakiSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
i = 0
For Each myRng In MotoArray
SakiRng.Offset(, i) = MotoSht.Range(MotoArray(i))
i = i + 1
Next
End Sub
と入力するとエラー（３枚目の画像）になります。
多分、この部分の[i]の意味が理解出来てないんだと思いますが
↓
i = 0
For Each myRng In MotoArray
SakiRng.Offset(, i) = MotoSht.Range(MotoArray(i))
i = i + 1
この部分をどのように直せばいいか教えて下さい。
|
|
|
|
コメント(25)
KYONさん こんばんは。
Basic言語の悪い点が出ていますね。
【大きな問題】
MotoArreay = Array("C3","C5","C6","C7","C8","D8","C9")
For Each myRng In MotoArray
上記の変数を見ると【MotoArreay】【MotoArray】が違います。
【注意事項】
1.For Each myRng In MotoArray
…………Range(MotoArray(i))
これだと【myRng】の意味がないです。
…………Range(myRng)
普通はmyRngに取得した値を使うべきだと思います。
2.BASIC(VBA)のコーディング
BASICは変数の宣言をしなくても良いので【楽】はできます。
プロはミスをなくすため、面倒でも変数宣言を必ずして
実行時のミスを減らすようにしています。
【例】
Option Explicit
Sub 転記()
Dim I As Integer
Dim MotoSht As Object
Dim SakiSht As Object
Dim myRng As Variant
Dim MotoArray As Variant
Dim SakiRng As Range
Set MotoSht = Sheets("Sheet1")
Set SakiSht = Sheets("Sheet2")
MotoArray = Array("C3", "C5", "C6", "C7", "C8", "D8", "C9")
Set SakiRng = SakiSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
I = 0
For Each myRng In MotoArray
SakiRng.Offset(, I) = MotoSht.Range(myRng)
I = I + 1
Next
End Sub
命令とかは、本で確認して勉強中してくださいね。
Basic言語の悪い点が出ていますね。
【大きな問題】
MotoArreay = Array("C3","C5","C6","C7","C8","D8","C9")
For Each myRng In MotoArray
上記の変数を見ると【MotoArreay】【MotoArray】が違います。
【注意事項】
1.For Each myRng In MotoArray
…………Range(MotoArray(i))
これだと【myRng】の意味がないです。
…………Range(myRng)
普通はmyRngに取得した値を使うべきだと思います。
2.BASIC(VBA)のコーディング
BASICは変数の宣言をしなくても良いので【楽】はできます。
プロはミスをなくすため、面倒でも変数宣言を必ずして
実行時のミスを減らすようにしています。
【例】
Option Explicit
Sub 転記()
Dim I As Integer
Dim MotoSht As Object
Dim SakiSht As Object
Dim myRng As Variant
Dim MotoArray As Variant
Dim SakiRng As Range
Set MotoSht = Sheets("Sheet1")
Set SakiSht = Sheets("Sheet2")
MotoArray = Array("C3", "C5", "C6", "C7", "C8", "D8", "C9")
Set SakiRng = SakiSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
I = 0
For Each myRng In MotoArray
SakiRng.Offset(, I) = MotoSht.Range(myRng)
I = I + 1
Next
End Sub
命令とかは、本で確認して勉強中してくださいね。
家に帰ってみてみたら、たいら氏の完璧すぐる回答に脱帽orz
取りあえず、2の【例】について一つだけ追加説明をば。。
1行目の[Option Explicit]って何ぞ！？
Helpを見れば一発でわかる話ではあるのですが、敢えて説明させてください。
この宣言をする意味。
⇒未宣言の変数が含まれている場合構文エラーとして、通知。
今回のようなケアレスミスの予防策として使います。
自分も知り合いに教えてもらうまで知らなかった宣言文です。
教えてもらってからは「おまじない」として必ず使うようになりました。
---- 以下Helpより転記 ----
Option Explicit ステートメント
モジュール内のすべての変数に対して、明示的な宣言を強制します。モジュール レベルで使用します。
構文
Option Explicit
解説
Option Explicit ステートメントを使う場合は、モジュール内のどのプロシージャよりも前に記述する必要があります。
モジュールで Option Explicit ステートメントを記述する場合、変数は、Dim、Private、Public、ReDim、Static などの各ステートメントで明示的に宣言する必要があります。宣言されていない変数名を使うと、コンパイル時にエラーが発生します。
Option Explicit ステートメントを使わない場合、Deftype ステートメントで既定のデータ型が指定されていないと、明示的に宣言されていない変数のデータ型は、すべてバリアント型 (Variant) になります。
メモ Option Explicit ステートメントを利用して、既存の変数名の入力ミスや、変数の適用範囲 (スコープ) がわかりにくいコード内で変数名の競合を避けることができます。
-----------------------
取りあえず、2の【例】について一つだけ追加説明をば。。
1行目の[Option Explicit]って何ぞ！？
Helpを見れば一発でわかる話ではあるのですが、敢えて説明させてください。
この宣言をする意味。
⇒未宣言の変数が含まれている場合構文エラーとして、通知。
今回のようなケアレスミスの予防策として使います。
自分も知り合いに教えてもらうまで知らなかった宣言文です。
教えてもらってからは「おまじない」として必ず使うようになりました。
---- 以下Helpより転記 ----
Option Explicit ステートメント
モジュール内のすべての変数に対して、明示的な宣言を強制します。モジュール レベルで使用します。
構文
Option Explicit
解説
Option Explicit ステートメントを使う場合は、モジュール内のどのプロシージャよりも前に記述する必要があります。
モジュールで Option Explicit ステートメントを記述する場合、変数は、Dim、Private、Public、ReDim、Static などの各ステートメントで明示的に宣言する必要があります。宣言されていない変数名を使うと、コンパイル時にエラーが発生します。
Option Explicit ステートメントを使わない場合、Deftype ステートメントで既定のデータ型が指定されていないと、明示的に宣言されていない変数のデータ型は、すべてバリアント型 (Variant) になります。
メモ Option Explicit ステートメントを利用して、既存の変数名の入力ミスや、変数の適用範囲 (スコープ) がわかりにくいコード内で変数名の競合を避けることができます。
-----------------------
>解説して頂いた内容は、今のσ(^ー^)にはかなり難解
orz
判りやすく言うと。
小学校とかでクラス名簿ってありますよね？
そこに載ってない生徒がクラスの中に居たらダメですよね？
この場合を例えを交えて説明すると
クラス名簿
⇒ 宣言 ･･･ Dim strText As String
生徒
⇒ 変数 ･･･ strText = "おれだよ！おれ！"
載ってない生徒
⇒ 未宣言変数 ･･･ strWorkBookName = "今、大変なんだ！100円振り込んでくれ！！"
strWorkBookName って誰よ！！
ようするにこう言う事です。(ﾏﾃ、ﾖｹｲﾆﾜｶﾘﾆｸｲﾜ!!
orz
判りやすく言うと。
小学校とかでクラス名簿ってありますよね？
そこに載ってない生徒がクラスの中に居たらダメですよね？
この場合を例えを交えて説明すると
クラス名簿
⇒ 宣言 ･･･ Dim strText As String
生徒
⇒ 変数 ･･･ strText = "おれだよ！おれ！"
載ってない生徒
⇒ 未宣言変数 ･･･ strWorkBookName = "今、大変なんだ！100円振り込んでくれ！！"
strWorkBookName って誰よ！！
ようするにこう言う事です。(ﾏﾃ、ﾖｹｲﾆﾜｶﾘﾆｸｲﾜ!!
Option Explicit
一言で言えば「変数の宣言を強制する」です。
「Option Explicit」を宣言しない場合
?変数の宣言での記入ミスがでる可能性があります。
?使用する変数がすべてバリアント型となります。
バリアント型は便利な型ではあるんですがファイル容量の増加やメモリ領域を占める割合が大きくなったり、処理スピードが低下するという問題点があります。
Option Explicitを宣言することで、
変数を何のデータ型で宣言かを理解しておく必要があります。
データ型の種類については下記リンクを参照下さい。
http://excelvba.pc-users.net/fol5/5_2.html
また変数の適用範囲についても理解しておく必要があります
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page4.htm#変数の適用範囲
ウォッチ式、ブレークポイント、ローカルウインドウ、イミディエイトウィンド
を使用できるようになればなお良いですが。
一言で言えば「変数の宣言を強制する」です。
「Option Explicit」を宣言しない場合
?変数の宣言での記入ミスがでる可能性があります。
?使用する変数がすべてバリアント型となります。
バリアント型は便利な型ではあるんですがファイル容量の増加やメモリ領域を占める割合が大きくなったり、処理スピードが低下するという問題点があります。
Option Explicitを宣言することで、
変数を何のデータ型で宣言かを理解しておく必要があります。
データ型の種類については下記リンクを参照下さい。
http://excelvba.pc-users.net/fol5/5_2.html
また変数の適用範囲についても理解しておく必要があります
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page4.htm#変数の適用範囲
ウォッチ式、ブレークポイント、ローカルウインドウ、イミディエイトウィンド
を使用できるようになればなお良いですが。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
EXCEL VBA 更新情報
-
最新のアンケート
-
まだ何もありません
-
