プロが教えるわが家の防犯対策術!

エクセルのサイトや本を見ているたまに「リテラル値」
と言う言葉が出てくるのですが、
どういう意味なのでしょうか?

数字と言う意味でしょうか?日付と言う意味ですか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは。



リテラルというのは、元の意味は、「文字上の」とか「文字通り」ということですが、

<<リテラル値>>というものは、エクセルでは、VBAに使われる言葉で、
「プログラムのソースコード中に使用される定数のこと」
ということですが、具体的には、以下のようなものです。

A,B,C は、変数

A = 1 + 2 '←数値リテラル
B =#4/4/2013# '←日付リテラル
C = "MY_NAME" '←文字リテラル

このように、直接、数字などを代入することを指します。
こうすることを、決め打ち(キメウチ)とも呼びます。

ただし、これらは、本来は、定数(Const)に代入するのであって、プログラミング・コードには、リテラル値をキメウチすることは、あまり良くない作法だと言われています。
    • good
    • 1
この回答へのお礼

ご回答ありがとうございました。

お礼日時:2013/04/12 20:39
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。

お礼日時:2013/04/12 20:39

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる

EXCELのVBAでマクロを使ってファイルを開こうとしている際、指定したファイルが存在しなかった場合、普通はマクロのエラーが出て「ファイルが存在しません」となりますが、指定したファイルが存在しなかった場合には、メッセージボックスを表示させ、そこで処理を中止させるか、または、その無いファイルの処理は飛ばして次のファイルの処理を行う用にさせることはできるでしょうか?

Sub test1()
Workbooks.Open Filename:="C:\Documents and Settings\001.xls
(001が存在しない場合メッセージボックスを出しマクロを中止するか次の002を開くか選ぶ)
Workbooks.Open Filename:="C:\Documents and Settings\002.xls
End sub

Aベストアンサー

こんな感じでしょうか?

Sub sample()
Dim Fname As String
Fname = "C:\Documents and Settings\001.xls"

If Dir(Fname) <> "" Then 'ファイルの有無をチェック
Workbooks.Open Filename:=Fname
ElseIf MsgBox("ファイル2を開きますか?", vbYesNo + vbQuestion, "問い合わせ") = vbYes Then
Workbooks.Open Filename:="C:\Documents and Settings\002.xls"
End If
End Sub

Q指定のWORKBOOKを前面表示する方法(エクセル:VBA)

いつもお世話になっております。
エクセルにて処理が終了した時点で、VBAを使い自動的にメールを送るマクロを組みました。しかし、ユーザーからのリクエストにより、自動送信する前にメール内容を確認したいとのことで、一度このメール内容でOKかどうか聞いてから、送信するように書き換えました。そのMsgBoxは当然エクセル上に現れるのですが、特にシングルディスプレイユーザーの場合、送信用のメールが前面に出てしまい、エクセル上に表示されたMsgBoxに気が付かない人もいますので、送信用メールが作成されたら、エクセルを前面に出してMsgBoxの指示に従わせたいのですが、どう書けばいいのか分かりません。とりあえず、私がトライしてみた文字ールは下記のとおりですが、エクセルは前面には出ません(ただし、エクセルプログラム全体が点滅?しますが)。
~前略~

With myMail
.To = "abc@xxxxx.com"
.Cc = "123@xxxxx.com"
.Subject = Filename '指定済みです
.Body = strBody '指定済みです
.display '.sendの代わりにいったんここで表示させました
End With

Windows("XYZ.xls").Activate 'このワークブックで作業をしてます。全面にはでてきません。

mymsg = MsgBox("このメール内容で送信してもよろしいですか?"~中略~,vbYesNo + vbQuestion, "送信確認")
If mymsg = 6 Then
myMail.send

~後略~

いつもお世話になっております。
エクセルにて処理が終了した時点で、VBAを使い自動的にメールを送るマクロを組みました。しかし、ユーザーからのリクエストにより、自動送信する前にメール内容を確認したいとのことで、一度このメール内容でOKかどうか聞いてから、送信するように書き換えました。そのMsgBoxは当然エクセル上に現れるのですが、特にシングルディスプレイユーザーの場合、送信用のメールが前面に出てしまい、エクセル上に表示されたMsgBoxに気が付かない人もいますので、送信用メールが作成された...続きを読む

Aベストアンサー

Windows("XYZ.xls").Activate
のところに
VBA.AppActivate Excel.Application.Caption
を追加してみてください。

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

Qエクセルマクロで変数を使ったセル範囲指定

Dim x As Long
Dim y As Long
として

x = Range("A1").End(xlDown).Row
For y = 1 To x
としました。

このときRange("A" & y)からRange("A" & x)を範囲指定したいときは
どのように記述すればよいのでしょうか?

Aベストアンサー

次のようにすればよいでしょう。

Sub セルの範囲指定()
Dim x As Long
Dim y As Long
x = Range("a1").End(xlDown).Row
For y = 1 To x
Range(Range("A" & y), Range("A" & x)).Select
Next
End Sub


人気Q&Aランキング