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日
発生刷 ページ数 書籍改訂刷 電子書籍訂正 内容 登録日
1刷 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
2001.02.15
1刷 108
6		 未 未
誤 + vbInformation, _
正 + vbExclamation, _
2001.10.31
1刷 140
上から4行目		 未 未
誤 Cells(2,1）
正 Cells(2,2)
2001.11.01
1刷 189
9行目		 未 未
誤 そのオブジェクト名を返してき
正 そのオブジェクトへの参照を返してき
2003.01.27
1刷 189
「ここでは」で始まる行		 未 未
誤 A1:F7
正 A1:H12
2002.01.10
1刷 196
「ここでは」で始まる行		 未 未
誤 A1:F7
正 A1:D12
2002.01.10
1刷 197
「または」で始まる行		 未 未
誤 xlRows
正 xlColumns
2002.01.10
1刷 269
6行目		 未 未
誤 「CommandButton1_Click」
正 「CommandButton2_Click」
2003.01.27
1刷 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
2003.01.27

​