このコードの解説詳しくお願いします！！ -高校一年生です！いま情報の授業で-

このプログラムの説明の解説お願いします(｀´）

生年月日を入力して、自分の生まれた日の曜日を調べるプログラムです。 Sub 例1456() Dim w As Integer Dim week As Variant week = Array("日", "月", "火", "水", "木", "金", "土") hia = InputBox("「年/月／日」を入力して下さい") If IsDate(hia) Then hi = CDate(hia) hi = Format(hi, "yyyy""年""mm""月""dd""日""") Else MsgBox "「年/月／日」を入力して下さい" Exit Sub End If w = WeekDay(hi) MsgBox hi & " は " & week(w - 1) & "曜日です" End Sub 今週発表があります。構文の意味など詳しく説明しなければいけません。week(w - 1)のところなど解説いただきたいです<m(__)m>

今の自分の年齢を取得するｖｂａコードが知りたい

今の自分の年齢を取得するｖｂａコードが知りたいのですが Sub test1() Dim dtm誕生日 As Date dtm誕生日 = #7/1/1986# MsgBox Format(Date - dtm誕生日, "yyyy/mm/dd") MsgBox DateDiff("yyyy", dtm誕生日, Date) End Sub を作ってみたのですが違うのが返りました。 DateDiff("yyyy", dtm誕生日, Date) は、30が返ってしまいます。今日の時点ではまだ29歳なのですがそういう場合どうすればいいでしょうか？「現在は29歳です」と返したいのですが、どのようにすればいいでしょうか？

エラーが発生した場合は　ＶＢＡ

Sub Sample() On Error GoTo Err1 Dim i As Integer i = "あ" '←ココで構文エラーとなる。 MsgBox "あ" Debug.Print "無事終了します" Exit Sub Err1: Debug.Print "エラーになりました" i = 1 Resume Next 'エラーの発生した次の行から処理を続行します。 End Sub このようなエラー処理でエラーが発生した場合は MsgBox "あ" ではなく i = "あ" '←ココで構文エラーとなる。に戻る事は出来ないのでしょうか？

[と”の意味を教えてください。

http://okwave.jp/qa/q5945112.html を参考に、 Sub test1() Dim i As Integer i = 2 If i Like "[1-3]" Then MsgBox i & "です" End If End Sub Sub test2() Dim i As Integer i = 2 If i Like "[1-5]" Then MsgBox i & "です" End If End Sub Sub test3() Dim i As Integer i = 2 If i Like "[1-10]" Then MsgBox i & "です" End If End Sub を作ったのですが、 test3はうまく行きません。意味としては、 iが "[1-10]"の中の数字の間のどれかであれば、 MsgBox i & "です" を表示させたいです。でも上記のマクロを実行させた結果、 "[1-10]"の中で計算が行われてるのではないかと思います。だから、test3は、1-10＝-9 という事になり、msgboxが反応しないのではないかと思っています。でもそうすると、test2だって "[1-5]"は、-4になって、i=2とは違う値なのになぜMsgBoxが反応してしまうのかわかりません。でもそもそも[と”の意味が分からないのでそこから教えていただけませんか？ “の意味、は二つで挟んで文字列にすると思っています。

エクセルのVBAで質問があります。

現在自分はカレンダーを作成していて、カレンダーに祝日を入れたいと思っていますそこでこれを if文もしくはselectcase どっちを使ったら楽か教えてもらいたいです Sub MakeCalendar(hi As Date) Dim i As Integer 'カレンダーにセットする日付 Dim g As Integer '日付をセットする行番号 Dim r As Integer '日付をセットする列番号 Dim lastDay As Integer '作成するカレンダーの月末 g = 2 'その月の開始曜日を算出 r = Weekday(DateSerial(Year(hi), Month(hi), 1), vbSunday) '指定された日付の翌月１日をもとて、日付の前の日を計算する lastDay = Day(DateSerial(Year(hi), Month(hi) + 1, 1) - 1) For i = 1 To lastDay 'iに日付の設定 Cells(g, r).Value = i If r = 7 Then r = 1 '戻して g = g + 1 '1行下に書く Else r = r + 1 '１列→に移動する End If Next End Sub Sub test() Range("A2:G7").Value = "" 'A2～G2にカレンダー表示 MakeCalendar Range("I2").Value 'I2に日付を入力する End Sub Sub test() Range("A2:G7").Value = "" 'A2～G2にカレンダー表示 MakeCalendar Range("I2").Value 'I2に日付を入力する End Sub このようなマクロを組んでいまして、祝日（ゴールデンウィークなど)を赤で塗りつぶすような物を考えています。 VBAは初心者でまだあまりわかっていないので、ご教授ください

アクセス2000でのボタンのコードビルダ

アクセス2000で、採用者のデータを管理しようと思っています。フォームにボタンを作って、ボタンをクリックしたら条件を満たした者だけを表示する形にしたいのですが、「役職」(コード番号)と「所属」(コード番号)と「採用日」の3つを条件として、データの抽出を行いたいのですが、ボタンのコードビルダはどのようにしたら良いのでしょうか？ちなみに、ボタンの名前は「抽出採用日」でコードは下記のようになっています。「役職」=13002「所属」=9999「採用日」=2001/04/01で検索したら、「クエリ式'[採用日[=#2001/04/01#AND[所属]='9999'#AND[役職]='13002'の日付の構文エラーです。」となります。実際は、"&" や "#" の意味も良く分からないので、構文がどこで区切れるのかも分からない状態です。どなたか、お教え下さい。 Private Sub 抽出採用日_Click() On Error GoTo Err_抽出採用日_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "印刷対象者フォーム" stLinkCriteria = "[採用日]=" & "#" & Format$(Me![採用予定日], "yyyy/mm/dd") & "#AND[所属]=" & "'" & Me![所属] & "'" & "#AND[役職]=" & "'" & Me![役職] & "'" 'stLinkCriteria = "[採用日]=" & "#" & Format$(Me![採用予定日], "yyyy/mm/dd") & "#AND[所属]=" & "'" & Me![所属] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_抽出採用日_Click: Exit Sub Err_抽出採用日_Click: MsgBox Err.Description Resume Exit_抽出採用日_Click End Sub

なぜiは変数の値が保持されるのに、wは保持されない

なぜiは変数の値が保持されるのに、wは保持されないのでしょうか？ Sub test() Dim w As Worksheet Dim i As Long i = 1 For Each w In Worksheets i = i + 1 Next MsgBox i MsgBox w.Name End Sub -------------------------------------- を行うと、 MsgBox i は表示されるのに、 MsgBox w.Name は、「オブジェクト変数または With ブロック変数が設定されていません。」になります。 wはオブジェクト変数だから、 For Each ステートメントを抜けると値が破棄されてしまうのでしょうか？でもvbaのヘルプの「For Each...Next ステートメントの使い方」を見ても「ステートメントを抜けるとオブジェクト変数なら値が破棄されます」と記載されていません。

EXCEL VBA WEEKDAY関数

weekday関数について質問です。 Sub test() MsgBox Weekday(#2/19/2009#) End Sub 上記プログラムを参考に2009年2月i日の曜日を返すように下記プログラムを作成したのですが、うまくいきません。変数iの箇所に原因があると思うのですがどのようにしたら解決できますでしょうか？？ Sub test() dim i as string i=15 MsgBox Weekday(#2/i/2009#) End Sub 解決策、できましたら参考となるプログラムをお教えください。よろしくお願いいたします。

「何年と何日前」と表示したい

Sub test1() Dim dtm日付 As Date Dim i As Integer dtm日付 = #1/1/2010# i = Date - dtm日付 MsgBox i & "日前" End Sub これで、何日前かは取得できたのですが何年と何日形式にするにはどうすればいいでしょうか

20060224をyyyy年mm月dd日にしたい

こんばんは。教えてください。。 Sub テスト() Dim mystr As String mystr = "20060224" mystr = Format(mystr, "yyyy年mm月dd日") MsgBox mystr End Sub これを実行するとオーバーフローします。結果としては、「2006年02月24日」と表示させたいです。 mystr = Format(CDate(mystr), "yyyy年mm月dd日") にすると、型が一致しませんになります。ご回答よろしくお願いします。

Stringに数字をかける事によってスペースを作る

Stringに数字をかける事によってスペースを作るのですか？ｖｂａなのですが Dim tmp As String * 10 このような宣言の仕方をたまに見かけますが使い道がわかりません。 Sub test01() Dim tmp As String * 100 tmp = "aaaaaaaaaa" MsgBox tmp End Sub このようなコードを書いたら、スペース代わりになったのですが文字列にスペースを付けたい時に使うのでしょうか？だったら Sub test01() Dim tmp As String tmp = "aaaaaaaaaa" MsgBox tmp & " " End Sub でもいいような気がしますが、もし、スペースを付ける以外に意味があるなら教えてください。

Excel VBA

VBAを始めました。SubとかDimとかいろいろな用語が出てくるのですが、そのような用語の意味を説明したサイトを探してみましたが、見つかりません。簡単な説明で、表にまとめたようなものがあるとよいのですが、ご存知の方いらっしゃいましたら、教えて下さい。お願いします。

変数の値を破棄する方法

データ型で宣言した場合、変数の値はどうやって破棄すればいいのでしょうか？例えば、標準モジュールに Option Explicit Dim s As String Dim w As Worksheet Sub test() Set w = ActiveSheet s = "sss" MsgBox w.Name MsgBox s Set w = Nothing s = Nothing End Sub とした場合、 s = Nothingがエラーになります。オブジェクト型で宣言したら、 Set ●= Nothing で破棄しますが、データ型で宣言した場合の正しい破棄の仕方を教えてください。今回の例は、モジュールレベルのdimステートメントで宣言しているため、プロシージャーが終わっても値を保持しています。

コード実行の高速化をしたい

こんにちは。必要に迫られ、初めてマクロを組んでいます。下記三つのコードの実行に時間がかかり、その後の処理に支障が出てきているようです。遅い時は、1分30秒程度かかる時もあります。なんとか、高速化できないものかとなやんでいます。内容 excel 2007 file size 約400kのブックタイマーによりそれぞれ (1)23時54分 (2)23時56分 (3)23時58分に起動するようになっています。 (1) Sub DB保存() Dim bn As String Dim 値 As String Dim 本日 As String Dim 新ブック As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 時間 As String bn = "温湿度管理表.xlsm" 年 = Year(Now) 月 = Month(Now) 日 = Day(Now) 時間 = 235400 '変更注意本日 = Format(expression:=Date, Format:="yyyymmdd") 値 = (本日) & (時間) 新ブック = "C:\システム\管理者用\DB\DB" & (値) & ".xlsm" 'パス変更注意 Workbooks(bn).SaveCopyAs Filename:=新ブック End Sub (2) Sub DBから日別保存へコピー() On Error Resume Next Dim bn As String Dim sheetn As String Dim セル As String Dim 値 As String Dim 本日 As String Dim 元ファイル As String Dim 新ファイル As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 時間 As String bn = "温湿度管理表" sheetn = "管理2" セル = "H13" 年 = Year(Now) 月 = Month(Now) 日 = Day(Now) 時間 = 235400 '変更注意本日 = Format(expression:=Date, Format:="yyyymmdd") 値 = (本日) & (時間) 元ファイル = "C:\システム\管理者用\DB\DB" & (値) & ".xlsm" 'パス変更注意 'パス変更注意新ファイル = "C:\システム\温湿度　管理\日別保存データ\" & Format$(Date, "yyyy年") & "\" & Format$(Date, "mm月") & "\" & Format$(Date, "mm月dd日") & ".xlsm" 'パス変更注意 Dim MyFile As String Dim fso, f, ts MyFile = "C:\システム\管理者用\DB\DB" & (値) & ".xlsm" 'パス変更注意 Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(MyFile) = True Then End If On Error Resume Next FileCopy 元ファイル End Sub (3) Sub 表のクリア() ' 表のクリア Macro ThisWorkbook.Worksheets("管理").Range("F11:P160").ClearContents End Sub 特に(2)と(3)が遅くて、場合により、(3)以降タスクマネージャーのCPU使用率が延々100％になったままになります。なにぶんドのつく素人でして、困っています。どうかお知恵を拝借願います。

If文中のExit Sub

Dim i As String i = TextBox1.Value If i ="" Then MsgBox "入力なし" Exit Sub End If Exit Subは何の意味が有るのでしょう？ Exit Subを調べたり試したりしたのですが、良く、解りません。宜しくお願い致します。

セルに対してFor Each～In～Nextを使う

セルに対してFor Each～In～Nextを使う事は出来ない？シートやブックに対してループする時は Sub aaa() Dim w As Worksheet For Each w In Worksheets MsgBox w.Name Next End Sub 等を使いますが、Ａ１に「あ」Ａ２に「い」Ａ３に「う」が入っている場合、 Sub bbb() Dim i As Long For i = 1 To Range("a65536").End(xlUp).Row MsgBox Cells(i, 1) Next End Sub で、全ての値を取得できますが、 For～to～nextではなくセルに対してFor Each～In～Nextを使う方法があれば教えてください。上記のように Dim w As Worksheetは宣言できますが Dim c As Workcellとはできませんでした。なぜわざわざFor～to～nextでできる事をFor Each～In～Nextでやりたいかと言うと、シートやブックはFor～to～nextでできるのに、セルはFor～to～nextができない理由を知りたいからです。ご回答よろしくお願いします。

チェックボックスの値を取得したい。

アンケートシートにコントロールツールボックスからチェックボックスを６０個作りました。その値を取得するため、次の構文を作りましたが、実行時エラー１００４「WorksheetクラスのCheckBoxesプロパティを取得できません。」というMsgboxが出ます。何方か良い知恵をお貸し下さい。 <エラーのでる構文> Sub AAA() Dim A Sheets(1).Select For A = 1 To 60 Cells(A, 5) = Sheets(1).CheckBoxes(A).Value Next A End Sub Excelは2003です。

excelVBAコードを教えていただけませんか

excel2000です。下記コードが簡単そうと思いつつ、いざやろうとすると自分では作ることができず投稿させていただきました。どうかご教授の程よろしくお願いいたします。 excel2000 VBAのコードを教えていただけませんか・「差し込み表示.xls」から「実験データ」へ値を読みに行き、表示させようとしています。一日だけの日付をする場合は、下記に記載しているようなコードで対応できるのですが、月を指定して、30(31)日分のデータを読みにいく場合、どういうコードに変更していいか分からず、投稿させていただきました。 ■やりたいこと・年月を「差し込み表示」のＥ１セルに記載して、データ読み込みを押すと、したのＮＯ１～３１(日付をあらわしています）にそれぞれ対応する値を表示させたい。 ■現物ファイル現物ファイルを、下記にＵＰさせて頂きました。差し支えなければ確認いただけると幸いです。よろしくお願いいたします。 ■アップローダー投稿NO4662 http://www.kent-web.com/pubc/book/test/uploader/uploader.cgi ■一日で読み込むときのプロシ－ジャー Sub datatyuusyutu() Const sashikomiDisplay As String = "差し込み表示.xls" Const dataFile As String = "実験データ.xls" Dim i As Long Dim j As Long Dim k As Long Dim objectionrow As Long Dim lastRow As Long Dim targetDate As String Dim targetTime As String Dim data(1 To 43) As Double Dim dataFindFlag As Boolean Dim 対象フォルダ As String '検索する年月日を取得 targetDate = Range("E5").Value 対象フォルダ = ThisWorkbook.Path & "\" Workbooks.Open 対象フォルダ & dataFile lastRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を得る '年月日で検索 For i = 2 To lastRow If Cells(i, 2) = targetDate Then Cells(i, 2).Select dataFindFlag = True For k = 1 To 43 data(k) = Val(Cells(i, k)) Next k Exit For End If Next i Windows(sashikomiDisplay).Activate With Workbooks(dataFile) If dataFindFlag = True Then Cells(1, 2) = data(1) Cells(12, 3) = data(4) Cells(14, 6) = data(5) MsgBox "実行しました" Else MsgBox "データがありません" End If End With Workbooks(dataFile).Close savechanges:=False End Sub

新聞漫画解説

2008年3月8日朝日新聞朝刊の「ののちゃん」の意味が分かりません。どなたか解説お願いいたします。

EXCEL　VBAがうまく動きません。

指定された　rangeの中から2番目に小さい値を検索し、そのセルの行数を求めようとしていますが、えらーが出ます。いくつか試してみましたがだめでした。初歩的な質問で恐縮ですが、教えてください。構文は以下のように書きました。 Private Sub test() Dim s As Double Dim r As Range Dim secondsmall As range Dim smallrow as integer r = Worksheets("sheet1").Range("a1:a4") s = WorksheetFunction.Small(r, 2) secondsmall = WorksheetFunction.Find(what:=s) smallrow = secondsmall.row MsgBox smallrow end sub 宜しくお願いします。

このコードの解説詳しくお願いします！！

みんなの回答

関連するQ&A

このプログラムの説明の解説お願いします(｀´）

今の自分の年齢を取得するｖｂａコードが知りたい

エラーが発生した場合は　ＶＢＡ

日本史の転換点？：赤穂浪士、池田屋事件、禁門の変に見る武士の忠義と正義

[と”の意味を教えてください。

エクセルのVBAで質問があります。

アクセス2000でのボタンのコードビルダ

なぜiは変数の値が保持されるのに、wは保持されない

EXCEL VBA WEEKDAY関数

「何年と何日前」と表示したい

20060224をyyyy年mm月dd日にしたい

Stringに数字をかける事によってスペースを作る

Excel VBA

変数の値を破棄する方法

コード実行の高速化をしたい

If文中のExit Sub

セルに対してFor Each～In～Nextを使う

チェックボックスの値を取得したい。

excelVBAコードを教えていただけませんか

新聞漫画解説

EXCEL　VBAがうまく動きません。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

このコードの解説詳しくお願いします！！

みんなの回答

関連するQ&A

このプログラムの説明の解説お願いします(｀´）

今の自分の年齢を取得するｖｂａコードが知りたい

エラーが発生した場合は ＶＢＡ

日本史の転換点？：赤穂浪士、池田屋事件、禁門の変に見る武士の忠義と正義

[と”の意味を教えてください。

エクセルのVBAで質問があります。

アクセス2000でのボタンのコードビルダ

なぜiは変数の値が保持されるのに、wは保持されない

EXCEL VBA WEEKDAY関数

「何年と何日前」と表示したい

20060224をyyyy年mm月dd日にしたい

Stringに数字をかける事によってスペースを作る

Excel VBA

変数の値を破棄する方法

コード実行の高速化をしたい

If文中のExit Sub

セルに対してFor Each～In～Nextを使う

チェックボックスの値を取得したい。

excelVBAコードを教えていただけませんか

新聞漫画解説

EXCEL VBAがうまく動きません。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

エラーが発生した場合は　ＶＢＡ

EXCEL　VBAがうまく動きません。