ＥＸＣＥＬのＶＢＡについて教えてください。

質問

演習1というシートの（1,1）のセルの値と（1,2）のセルの値を入れ替えるプログラムを作成したいので
すがエラーが出て出来ません。コードは下記の様に書きました。

Sub 演習1()

Dim sheetobj As Worksheet
Dim a As Integer

Set sheetobj = ThisWorkbook.Worksheets("演習1")

With sheetobj

a = .Cells(1, 1)

.Cells(1, 1) = .Cells(1, 2)

.Cells(1, 2) = a

End With

End Sub

プログラミング自体が本を読んでも分かりません。
宜しければ小学生に教えるように文を訳してくれませんか？

回答No.1

soixante · ベストアンサー

Sub 演習1()
'演習1　というプログラム

Dim sheetobj As Worksheet
' sheetobj という変数を、ワークシート型で宣言します。
（＝sheetobj という変数を使いますよ。それはワークシートです）

Dim a As Integer
’a という変数を、整数型で宣言します。
（＝a という変数を使いますよ。それは整数型です。）

Set sheetobj = ThisWorkbook.Worksheets("演習1")
'変数sheetobj は、このブックの「演習1」シートとします。

With sheetobj
’sheetobj に関して

a = .Cells(1, 1)
' 変数a は、sheetobj（シート演習１）の、A1セルの値とします。

.Cells(1, 1) = .Cells(1, 2)
' そのA1 セルの値を、このシートのB1セルの値にします。

.Cells(1, 2) = a
’B1セルの値を、変数aの値（A1セルの値）にします。

End With
'sheetobj に関するまとめは終わり。

End Sub
'プログラム終わり。

With ～　End With はひとかたまりです。
毎行毎行、「sheetobjの～セルは」 というのが面倒くさいので、
With　sheetobj
と冒頭にいうことで、それ以降の重複の説明を省いています。
このあたりはVBAの入門書でも読んでみてください。

回答No.2

queuerev2

プログラムの解説についてはNo.1様のていねいな回答があるのでよいとして、エラーは解消したでしょうか？
このプログラムをExcel2003で動作させたところ、以下のような状況でエラーとならずに動作しました。

・「演習1」という名前のシートがある
・「演習1」のセルA1の値が32767.5未満、-32768.5以上の範囲の数値である。
　（または、セルA1が空である）

なお、このプログラムを置く場所は、標準モジュールでもシートモジュールでもそれ以外のモジュールでも大丈夫なようです。