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の使い方やテクニックを説明し、無理なく約10日で習得できるペースに設定しています。紹介しているサンプルプログラムのコードは、入門者が混乱しないように、説明のポイントを重点的にしぼって、なるべく少ない行数で作成しています。
”この本”で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