10日でおぼえるExcel VBA入門教室 2000対応（VBテックラボ 瀬戸 遥）｜翔泳社の本
  1. ホーム >
  2. 書籍 >
  3. 10日でおぼえるExcel VBA入門教室 2000対応

10日でおぼえるExcel VBA入門教室 2000対応

著
著

形式：
書籍
発売日：
ISBN：
9784881357972
定価：
3,080円（本体2,800円＋税10%）
仕様：
B5変・352ページ
カテゴリ：
MAC

購入はこちら

見れば、使える!!　初心者でも大丈夫!!

遂にシリーズ20万部突破した「10日でおぼえる」シリーズの待望フルカラー改訂版です。まさにはじめてVBAを使う初心者にもやさしくカラーで解説した日本ではじめての書籍。段階的にVBAの使い方やテクニックを説明し、無理なく約１０日で習得できるペースに設定しています。紹介しているサンプルプログラムのコードは、入門者が混乱しないように、説明のポイントを重点的にしぼって、なるべく少ない行数で作成しています。
”この本”でExcel VBAが、いっきにわかります。

目次の登録はありません。
本書は付属データの提供はございません。

お問い合わせ

内容についてのお問い合わせは、正誤表、追加情報をご確認後に、お送りいただくようお願いいたします。

正誤表、追加情報に掲載されていない書籍内容へのお問い合わせや
その他書籍に関するお問い合わせは、書籍のお問い合わせフォームからお送りください。

利用許諾に関するお問い合わせ

本書の書影（表紙画像）をご利用になりたい場合は書影許諾申請フォームから申請をお願いいたします。
書影（表紙画像）以外のご利用については、こちらからお問い合わせください。

追加情報はありません。
この商品の「よくある質問」はありません。

現在表示されている正誤表の対象書籍

書籍の種類:紙書籍

書籍の刷数:全刷


※重版をした際に、内容が修正されている場合があります。「刷数の確認方法（例）」の図を参考に、お手元の書籍の刷数をご確認ください。下の「書籍の刷数」の欄で刷数を選択すると、お持ちの書籍の刷数に合わせて、正誤情報を絞り込むことができます。

書籍によっては表記が異なる場合がございます


本書に誤りまたは不十分な記述がありました。下記のとおり訂正し、お詫び申し上げます。

対象の書籍は正誤表がありません。

　書籍の刷数で正誤情報を絞り込みたい場合は選択してください。

　書籍の種類:

最終更新日:2003年01月27日
ページ数 内容 書籍修正刷 電子書籍訂正 発生刷 登録日
30
「データチェック」マクロのコード
誤 
Sub データチェック()
	Dim InputData

	InputData = Worksheets("Sheet1").Range("A1").Value

	On Error GoTo MSG
	If InputData <= 1000 Then
		MsgBox "入力された数値は1000以下です."
		ElseIf InputData > 1000 Then
		MsgBox "1000以下の数字を入力して下さい"
	End If
Exit Sub
MSG:
	MsgBox "入力が間違っています。数値を入力して下さい。"
End Sub
正 
Sub データチェック()
	Dim InputData as Integer
             ↑
	あるいはLongでもかまいません。

	On Error GoTo MSG
		 ↑
	2行目にOn Error文を移動させてください。

	InputData = Worksheets("Sheet1").Range("A1").Value
 		↑この時点でIntegerでないデータ型と
 		判定されたらMSGにジャンプします。

	If InputData <= 1000 Then
		MsgBox "入力された数値は1000以下です."
		ElseIf InputData > 1000 Then
		MsgBox "1000以下の数字を入力して下さい"
	End If
Exit Sub
MSG:
	MsgBox "入力が間違っています。数値を入力して下さい。"
End Sub
未 未 1刷 2001.02.15
108
6
誤 + vbInformation, _
正 + vbExclamation, _
未 未 1刷 2001.10.31
140
上から4行目
誤 Cells(2,1）
正 Cells(2,2)
未 未 1刷 2001.11.01
189
9行目
誤 そのオブジェクト名を返してき
正 そのオブジェクトへの参照を返してき
未 未 1刷 2003.01.27
189
「ここでは」で始まる行
誤 A1:F7
正 A1:H12
未 未 1刷 2002.01.10
196
「ここでは」で始まる行
誤 A1:F7
正 A1:D12
未 未 1刷 2002.01.10
197
「または」で始まる行
誤 xlRows
正 xlColumns
未 未 1刷 2002.01.10
269
6行目
誤 「CommandButton1_Click」
正 「CommandButton2_Click」
未 未 1刷 2003.01.27
430-431
「成績チェック3」のコード
誤 Sub 成績チェック3()　 　　Dim RowPos As Integer 　　Dim ColPos As Integer 　　Dim Num As Integer 　　Set WS = Worksheets("Sheet1") 　　RowPos = 2 　　ColPos = 2 　　For ColPos = 2 To 6 　　　　Do 　　　　　　Num = WS.Cells(RowPos, ColPos) 　　　　　　If Num >= 85 Then 　　　　　　　　WS.Cells(RowPos, ColPos).Interior.ColorIndex = 8 　　　　　　End If 　　　　　　RowPos = RowPos + 1 　　　　Loop While Num <> 0 　　　　RowPos = 2 　　Next End Sub
正 Sub 成績チェック3() 　　Dim RowPos As Integer 　　Dim ColPos As Integer 　　Dim Num As Integer 　　Set WS = Worksheets("Sheet1") 　　RowPos = 2 　　ColPos = 2 　　For ColPos = 2 To 6 　　　　Do 　　　　　　If WS.Cells(RowPos, ColPos) = "" Then 　　　　　　　　Exit Do 　　　　　　End If
　　　　　　Num = WS.Cells(RowPos, ColPos) 　　　　　　If Num >= 85 Then 　　　　　　　　WS.Cells(RowPos, ColPos).Interior.ColorIndex = 8 　　　　　　End If 　　　　　　RowPos = RowPos + 1 　　　　Loop While Num > -1
　　　　RowPos = 2 　　Next End Sub
未 未 1刷 2003.01.27