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日
ページ数 内容 発生刷 書籍修正刷 電子書籍訂正 登録日
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