ベストアンサー

VBA　メッセージボックス内に・・・

2012/05/13 16:12

セルで計算した結果って、メッセージボックスで表示できますよね？ cells(1,1)+cells(2,1)=x msgbox("答えは「x」") って感じではできませんか？

puredwas
お礼率0% (0/20)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

picknic
ベストアンサー率25% (33/132)

2012/05/13 16:36 回答No.1

ｘ＝cells(1,1)+cells(2,1) msgbox("答えは「" & x & "」") みたいな感じでできるとおもうよ

関連するQ&A

VBA のメッセージボックスに・・・

Private Sub CommandButton1_Click() Dim intMsg As Integer Dim x As Double x = Val(Cells(3, 2).Value) / Val(Cells(2, 2).Value) ^ 2 Cells(2, 5) = x intMsg = MsgBox("指数は&x&" & vbCrLf & "&z&です。") Select Case x Case 0 To 18 MsgBox "やせぎみ" Case 19 To 25 MsgBox "普通" Case 26 To 30 MsgBox "太り気味" Case Else MsgBox "危険" End Select End Sub ってプログラムを組んだのですがメッセージボックスに結果が表示されません。計算して出た値を、メッセージボックス内のxとzで表示させたいのですが・・・＆ではさむ？だけではだめなんですか？
VBAのメッセージボックスで％表示

お世話になります。ＶＢＡにて、算出されたある数字をメッセージボックスで％表示したいのですが、エクセルシートであれば、表示させるセルを決め、そのセルの表示形式を「パーセンテージ」にすればいいのですが、メッセージボックスで表示させたいのです。可能なのかどうか分かりませんが、ご教示頂きたく宜しくお願い申し上げます。
VBA 　前回のの続きです。

BMI指数を計算して表示させるプログラムが組みたいです。 Private Sub CommandButton1_Click() y = Val(Cells(1, 2).Value) x = Val(Cells(3, 2).Value) / Val(Cells(2, 2).Value) ^ 2 Cells(2, 5) = x MsgBox ("指数は「x」&vbCrLf&yさんはzです。") Select Case x Case "18<x" z = "やせぎみ" Case "19To25" z = "普通" Case "26To30" z = "太り気味" Case Else z = "危険" EndSelect End Sub と、入力しました。ですが、メッセージボックスに思うように表示されません。私は、「指数は○○ 名前　さんは、　○○（体型）です」ってやりたいのですが・・・メッセージボックス内での改行の仕方が知りたいです。後、プログラムの間違いもあったら教えて下さい。よろしくおねがいします。
メッセージボックスについて。

上司に言われた締め切りがあと４日になってしまいました。在庫管理で在庫残高シートに次のプログラムをはってみました。 Private Sub Worksheet_Change(ByVal Target As range) Dim clm As Integer '変化したセルの列 Dim row As Integer '変化したセルの行 Dim counter As Integer '不足数 clm = Target.Column row = Target.row If Worksheets("在庫残高").Cells(row, clm) < Worksheets("在庫限界入力").Cells(row, clm) And Worksheets("在庫残高").Cells(row, clm) > 0 Then counter = Worksheets("在庫限界入力").Cells(row, clm) - Worksheets("在庫残高").Cells(row, clm) MsgBox counter & "本在庫不足", vbOKOnly, "注意" Else If Worksheets("在庫残高").Cells(row, clm) < 0 Then MsgBox "在庫がありません", vbOKOnly, "警告" End If End If End Sub アクティブになってる入力シートに入力したときに、アクティブシートにメッセージボックスを出したいのですが、どうすればよいでしょう。複数の入力シートにこれを全て貼り付けることも考えましたが、入力シートの何個かのセルが、在庫残高シートの一つのセルに参照されるようになっているので、そうしないほうが、いいんじゃないかなとおもいました。よろしくお願いします。
Access メッセージボックスで文字列と変数を

メッセージボックスについての質問です。 MsgBox "データ数を表示します” とすればメッセージボックスで「データ数を表示します」と表示されますね。変数kazuの値が１００とします。 MsgBox kazu とすればメッセージボックスで「１００」が表示されます。それでは　文字列の「データ数を表示します」と　変数の「１００」が一緒に表示されるメッセージボックスは出来ないものですか？
VBA　メッセージボックス表示後の処理について

ExcelのVBAで質問があります。たとえばA列に同じ情報が入力されているシート1とシート2がある状態で、シート2のA列の情報を変更（または追加や削除）をするとします。シート2にコピペなどでデータを貼り付けた際、既存情報を変更した場合は、シート1とシート2の値を比較して"既存情報は変更できません"のメッセージボックスを表示させています。その後の処理で、シート1とシート2の値を比較して、異なっている値については元に戻したいのですが、新規追加（シート1がブランクのセルに対してシート2に値が入っている）の場合は値を残したままにしたいです。 For i = 1 to EndRow Iｆ worksheets("シート1").cells(i,1).value<>worksheets("シート2").cells(i,1).value and worksheets("シート1").cells(i,1).value <> "" and worksheets("シート2").value <> "" then msgbox "既存情報は変更できません"　vbOKOnly この後のコードをどう記述したらよいでしょうか。（またはIf文の条件指定を修正した方がよろしいでしょうか）ご存知の方がいらっしゃいましたらご教示お願いいたします。
メッセージボックス表示

VBAでメッセージボックスの表示方法で教えてください。あるセル、例えばA1に”111”と入力されたらメッセージボックスで ”○○”と出したい場合はどうしたらいいですか。あと、A1からA3に”111”と入力された場合の複数セルの場合も教えてください。
エクセルでVLOOKUPで検出できなかったらメッセージボックスを出した

エクセルでVLOOKUPで検出できなかったらメッセージボックスを出したい。シート１のセルB1に =VLOOKUP(A1,シート２!B2:F1000,2,FALSE) と式を入れてあります。シート１のセルＡ１に入力をするとシート２のＢ列から入力した同レコードを抽出しその行のＣ列をシート１のセルＢ１に表示します。シート２に同レコードが無ければセルＢ１には #N/A と表示されます。この時にこの#N/Aの表示をトリガーにメッセージボックスで「データーがありません」と表示させるのはどうしたらいいでしょうか？マクロを組みましたが、わざとシート２にはない値を入力した時にメッセージボックスが表示される場合と表示されない場合があって困っています。 ------------------------------------------------ Range("B1").Select If IsError(ActiveCell.Value) Then errval = ActiveCell.Value Select Case errval Case CVErr(xlErrDiv0) MsgBox "#DIV/0! エラー" Case CVErr(xlErrNA) If vbOK = MsgBox(" データーがありません") Then Exit Sub End Select End If ----------------------------------------------- またこのメッセージボックスには「ＯＫ」と表示されています。このＯＫをクリックすると登録してある別のマクロを起動させる事はできますか？よろしくお願いします。
エクセルVBAにて

Ａ１セルに「１５０」、Ｂ１セルに「４６」、Ｃ１セルに「１３」と入っている状態で下記マクロを実行するとＤ１セルに計算結果が入るのですがその結果が「１．３５１９９９９９８０９２６５１」となります。電卓で計算すると「１．３５２」になりますし、セルに計算式を入れた場合でも同様の結果になるのですが、なぜマクロの場合だけ結果が違うのでしょう？初歩的な質問なのかもしれませんが、分かる方教えてください。 ※変数に代入しているのは、Ｄ１セルで累積結果を求めたいためです。 Sub KEISAN() Dim KEISAN As Single KEISAN = (Cells(1, 1) - Cells(1, 2)) * Cells(1, 3) / 1000 Cells(1, 4) = KEISAN End Sub
VBAコードでメッセージがうまく返せません

独学でVBAを始めて1ヶ月の初心者です。下記のコードについて質問です。シート"strage２"のA1からA15のデータをシート"strage1"と比較し、違ったら更新します。更新したデータだけを、まとめてメッセージボックスで返したいのです。しかし、返してくるのは一番最後に処理した値だけなのです。何が間違いでしょうか？ご指南よろしくお願いいたします。 --------------------------- Sub 何を書き換えたかMsgBox() Dim i As Integer Dim myMsg As String i = 1 For i = i To 15 If Sheets("strage1").Cells(i, 1) <> Sheets("strage2").Cells(i, 1) Then myMsg = Sheets("strage1").Cells(i, 1).Value & "から" & Sheets("strage2").Cells(i, 1) & "に変更しました" & vbCrLf Sheets("strage1").Cells(i, 1).Value = Sheets("strage2").Cells(i, 1) Else End If Next i MsgBox myMsg End Sub -------------------------------------- 以上です。よろしくお願いします。
VB.NET メッセージボックスの表示イベント

こんにちは。メッセージボックス(MsgBox)の表示を検出するためのイベント並びに表示内容をテキストで取得することは可能でしょうか？
エクセルVBAでメッセージを表示する

エクセルVBAでメッセージを表示する時は、 Msgbox "表示する内容" と記述しますが、これだと[OK]をクリックするまでエクセル本体が全く操作できなくなってしまいます。メッセージボックスを表示させた状態で、エクセルを操作できるようにすることは出来ますでしょうか?
エクセルVBAでメッセージボックスの表示方法について

エクセル９７です。 Sub エラー表示() A$ = Worksheets("Sheet1").Range("L10") B$ = Worksheets("Sheet1").Range("L11") C$ = Worksheets("Sheet1").Range("L12") D$ = Worksheets("Sheet1").Range("L13") E$ = Worksheets("Sheet1").Range("L14") F$ = Worksheets("Sheet1").Range("L15") If Worksheets("Sheet1").Range("L9") = False Then MsgBox "条件設定に下記のエラーがあります。" _ + Chr(&HD) + Chr(&HA) + "ご確認ください。" _ + Chr(&HD) + Chr(&HA) + A$ _ + Chr(&HD) + Chr(&HA) + B$ _ + Chr(&HD) + Chr(&HA) + C$ _ + Chr(&HD) + Chr(&HA) + D$ _ + Chr(&HD) + Chr(&HA) + E$ _ + Chr(&HD) + Chr(&HA) + F$ _ + Chr(&HD) + Chr(&HA) + "", vbCritical, "確認！！" End If End Sub 上記のようなメッセージを表示するマクロを作りました。 Sheet1のセルL10～L15に計算でエラーを表示させ、どれか一つでもエラーがあれば、メッセージボックスが出るようにしたのですが、たとえば、セルL10とL15のみのエラーだとメッセージボックスが途中、４行分も空いてしまい、かっこうが悪いのです。改行せずに、続けて表示させようかとも思いましたが、それもあまり形がよくありません。こんな場合、表示されてないセルの行を自動的に詰めるような方法はないのでしょうか？
VAB：メッセージボックスの色について

VBAのコードの中で、　MsgBox "めっせーじ" と打つとメッセージボックスが表示されますが、この時表示されるメッセージボックスの、　・タイトルバー？の色（XPのデフォルトは青か）　・タイトル（Microsoft Excelと出ている）　・背景色（デフォルトは灰色？）を指定することはできますか？ Windowsの「画面のプロパティ」だと全てのウィンドウの色が変わってしまいますが、このコードを実行した時に表示するメッセージボックスだけ変更、という操作は可能でしょうか。
エクセルＶＢＡによりメッセージボックスを表示させた場合について

お世話になっております。エクセルＶＢＡにより、メッセージボックスを表示させた場合についてお尋ねいたします。マクロ上にて、にある項目をＩＮＰＵＴＢＯＸにて対象の列を選択して、それをＭＳＧＢＯＸにて”はい”もしくは”いいえ”にて確認する形式にしているのですが、選択した列が画面上見えない場合もあるのですが、その場合画面をスクロールして対象列が正しいのかを確認したいのですが、ＭＳＧＢＯＸがアクティブになっており、スクロールさせる事ができなくて困っております。そもそもできるのかどうかすらわからないので、エクセルの仕様上それはできないのであれば、しょうがないのですが、もし可能であればご教授ください。宜しくお願い致します。
VBAでランダムな並び替えをするには

エクセルのシート１行目に１～４０の数字を連番で記入し、３行目に左のセルから順番にランダムに並べるマクロを以下のように書きましたが、動きません。どこが違っているのでしょうか、ご指導いただけますか。 1 　2 　3 　 4 　5 ・・・・40 ↓　 ↓　 ↓　 ↓　 ↓ 21 35 33 14 20 ・・・・以下マクロ '1から40までの数を一列に並べる。 for i=1 to 40 cells(1,i)=i:cells(3,i)="" next i for i=1 To 40 msgbox(40-i+1&"枚から1枚選びます") '1から40までの数をランダムに1つ発生させる。　　　x=int(rnd()*40)) +1 cells(3,1)=cells(1,x) for j=x+1 to 40 cells(1,j-1)=cells(1,j) next j cells(1-j,x)="" msgbox("確認して下さい") cells(3,1)=cells(6,4) cells(6,4)="" x=int(rnd()*39) +1 　　　cells(3,2)=cells(1,x) 　　　　next i 　
メッセージボックスについて

メッセージボックスが消えなくて困っています。以下のように記述して、TextBox1に文字を4文字入力しないとメッセージボックスが現れますが、OKを押してもメッセージボックスがまた現れてしまい、s1_strの入力側のウィンドウに戻ることができません。どうしたらいいでしょうか？ Do s1_str = TextBox1.Text If (Len(s1_str) = 4 ) = False Then MsgBox("4文字入力してください",MsgBoxStyle.OKOnly, "エラー") End If Loop While (Len(s1_str) = 4 ) = False
ASP VBscript でメッセージボックスの文字の大きさを変えるには？

例えば vbscript であるボタンのクリック時に Msgbox "あいうえお" として、表示されるメッセージボックスの中のあいうえおという文字のフォントサイズを変えることは可能でしょうか？画面領域 1280 × 1024 とかでディスプレイを表示させている時、メッセージボックスの文字サイズが小さくて困っています。どなたか手がかりだけでも至急お願いします！
Excel2003　VBAを使用せずメッセージBOXを表示したい

マクロを一切使用せずにXbar-R管理図を作成しました。ところが、n数を一定にしてもらえず係数が使用できません。そこで、n数が異なったときに警告文を出したいのです。メッセージBOXでなくてもいいのですが、セルには表示したくないのです。(セルに表示する方法はわかりますので) 何かよい知恵をご教示ください。
メッセージボックス

今まで計算しかやったことがないのですが、メッセージボックスってどうやったら出せるんでしょうか？できればfortranでやりたいのですが、Cでも構いません。お願いします。

VBA　メッセージボックス内に・・・

質問者が選んだベストアンサー

関連するQ&A

VBA のメッセージボックスに・・・

VBAのメッセージボックスで％表示

VBA 　前回のの続きです。

メッセージボックスについて。

Access メッセージボックスで文字列と変数を

VBA　メッセージボックス表示後の処理について

メッセージボックス表示

エクセルでVLOOKUPで検出できなかったらメッセージボックスを出した

エクセルVBAにて

VBAコードでメッセージがうまく返せません

VB.NET メッセージボックスの表示イベント

エクセルVBAでメッセージを表示する

エクセルVBAでメッセージボックスの表示方法について

VAB：メッセージボックスの色について

エクセルＶＢＡによりメッセージボックスを表示させた場合について

VBAでランダムな並び替えをするには

メッセージボックスについて

ASP VBscript でメッセージボックスの文字の大きさを変えるには？

Excel2003　VBAを使用せずメッセージBOXを表示したい

メッセージボックス

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

VBA メッセージボックス内に・・・

質問者が選んだベストアンサー

関連するQ&A

VBA のメッセージボックスに・・・

VBAのメッセージボックスで％表示

VBA 前回のの続きです。

メッセージボックスについて。

Access メッセージボックスで文字列と変数を

VBA メッセージボックス表示後の処理について

メッセージボックス表示

エクセルでVLOOKUPで検出できなかったらメッセージボックスを出した

エクセルVBAにて

VBAコードでメッセージがうまく返せません

VB.NET メッセージボックスの表示イベント

エクセルVBAでメッセージを表示する

エクセルVBAでメッセージボックスの表示方法について

VAB：メッセージボックスの色について

エクセルＶＢＡによりメッセージボックスを表示させた場合について

VBAでランダムな並び替えをするには

メッセージボックスについて

ASP VBscript でメッセージボックスの文字の大きさを変えるには？

Excel2003 VBAを使用せずメッセージBOXを表示したい

メッセージボックス

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

VBA　メッセージボックス内に・・・

VBA 　前回のの続きです。

VBA　メッセージボックス表示後の処理について

Excel2003　VBAを使用せずメッセージBOXを表示したい

カテゴリ
一覧

専門家に質問してみよう
専門家登録