エクセルVBA MSGBOXを30秒間出したい　それをUWSCソフトで監視して命令を出したい| OKWAVE

エクセルVBA MSGBOXを30秒間出したい　それをUWSCソフトで監視して命令を出したい

　エクセルでI列に値が入力されていて、その値が変わればMSGBOXを30秒間だけ出すようにしたいが、どうすればいいんでしょうか？MSGBOXの中身は　”BUY""SELL"で　Private　Sub Worksheet_Change (By Val Target As Range) If Target.Column="I"Then Msgbox"buy""sell" End IF End Sub これでは、表示されません　どう改良するんでしょうか？あと、30秒間だけ表示させるには、 option explicit public declare function gettickcout lib "kernel132"()As long で証明？して DimStartTime DimNowTime StartTim=GetTickCount MyMsgbox.Show0 DoWhileNowTime-StartTime<3000 NowTime=GetTickCount Do Event Loop Unload My Msgbox End sub だと思うんですが、二つを混ぜてするにはどうするのでしょうか？教えてください　

エクセル　VBA　MsgBox

１）下記の記述だとコンボが空白ならエラー表示が出て Okをクリックすると ”記録しますか？” となります！そこをエラー表示されたら UserFormに戻り空白が無くなったら ”記録しますか？” というMegBoxにしたいのですがどう変化すれば良いのでしょうか？教えて下さい！ Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 10 If Controls("ComboBox" & i).Text = "" Then MsgBox "選択されていません確認して下さい！", vbInformation, "良く見て下さい！" Exit For End If Next If MsgBox("記録しますか？", vbOKCancel) = vbOK Then With UesrForm From.TextBox1 = Val(UesrFrom.ComboBox1) + _ Val(UesrFrom.ComboBox2) + Val(UesrFrom.ComboBox3) + _ Val(UesrFrom.ComboBox4) + Val(UesrFrom.ComboBox5) From.TextBox2 = Val(UesrFrom.ComboBox6) + _ Val(UesrFrom.ComboBox7) + Val(UesrFrom.ComboBox8) + _ Val(UesrFrom.ComboBox9) + Val(UesrFrom.ComboBox10) End With MsgBox " 記録します！" Unload Me Else MsgBox " キャンセル!！" End If End Sub

EXCEL VBA2010　MsgBox

Sub 重複() Dim i As Long, j As Long For i = 6 To 500 For j = 3 To 3 If WorksheetFunction.CountIf(Range("C6:C500"), Cells(i, j)) > 1 Then Cells(i, j).Interior.ColorIndex = 6 End If Next j Next i End Sub このVBAに重複が何件ありますよというメッセージを出したいです。 MsgBoxの入れ方を教えてください。

エクセル　VBA　OptionButtonからTextBox

すいません！ OptionButtonなら下記の記述でエラー表示を簡単にできるのですがこれがOptionButtonではなく TextBoxならどのように変化したら良いのでしょうか？すいません、教えて下さい！ Private Sub 記録_Click() Dim i As Integer Dim Cnt As Integer Cnt = 0 For i = 1 To 6 Step 1 If Me.Controls("OptionButton" & i).Value Then Cnt = i Exit For End If Next i If Cnt = 0 Then MsgBox "選択されていません" Exit Sub End If If Me.Controls("Combobox" & Cnt).Value = "" Then MsgBox Me.Controls("OptionButton" & Cnt).Caption & " の内容が選択されていません" Exit Sub End If With 記入フォーム .TextBox5.Value = Me.Controls("OptionButton" & Cnt).Caption .TextBox6.Value = Me.Controls("Combobox" & Cnt).Value End With Unload Me End Sub

エクセルＶＢＡで Cancel=Trueの使い方

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_Deactivate() Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cancel = True MsgBox "キャンセルしました" End Sub 以上のように使ってみましたが、どれも「キャンセルしました」とメッセージは出るものの、直前の操作（入力、シート切替、セル移動）はキャンセルされませんでした。どこが間違っているのでしょうか？

エクセル2007のVBAについて

ＶＢＡ初心者ですが、よろしくお願いします。エクセルで入力したいシートタブを右クリック、コードの表示で、ＶＢＡに以下のスクリプトを入力しました。ネットに紹介されていたスクリプトに自分で一部書き足したものです。Ｕ列に値が入っていれば、その行のＴ列をダブルクリックするとチェックマークがつくようにし、それをＵ列の最終行までループしたいのですが、エラーなどはなくチェックマークが出現しません。どこが間違っているのでしょうか？ご教授お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MaxRow = Range("U65536").End(xlUp).Row For i = 1 To MaxRow Step 1 If Range("U" & i) <> Null Then If Intersect(Target, Range("T" & i)) Is Nothing = False Then Cancel = True If Target.Value = ChrW(10003) Then Target.ClearContents Else Target.Value = ChrW(10003) End If End If End If Next i End Sub

エクセルVBAのイベントで質問です。

ダブルクリックイベントで、G12:G31の範囲の文字列をB10:B27の範囲(最下行)に入れていくものを使っていますが、新たにH12:H31にある文字列もダブルクリックするとC10:C27の範囲(最下行)に入れていけるようにしたいと思います。どのようにすればいいでしょうか。ご存知の方いらっしゃればお教えいただけると助かります。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, _ Cancel As Boolean) Dim i As Long Dim flg As Boolean If Intersect(Target, Range("G12:G31")) Is Nothing Then Exit Sub If IsEmpty(Target.Value) Then Exit Sub With Worksheets("シートＡ") For i = 10 To 27 If .Range("B" & i).Value = "" Then .Range("B" & i).Value = Target.Value flg = True Exit For End If Next i If flg = False Then MsgBox .Name & " がいっぱいです。" End If End With Cancel = True End Sub

Excel VBAで検索（Win2000 Excel2000）

現在、下記のようなコードを書いています。データテーブルの縦と横の検索値を探してその列数と行数を返したいのですが、下記の Sub検索1 と Sub検索2 を1つのSubで実行させるにはどうしたらよいのでしょうか？よろしくお願い致します。 ----------------------------------------- Sub 検索1() Worksheets("Data").Activate Dim x As Integer For x = 3 To 22 If Cells(2, x).Value >= 12 Then MsgBox x Exit Sub End If Next MsgBox "見つかりません" End Sub --------------------------------------------- Sub 検索2() Worksheets("Data").Activate Dim i As Integer For i = 4 To 42 If Cells(i, 2).Value = "A" Then MsgBox i Exit Sub End If Next MsgBox "見つかりません" End Sub

VBA　MsgBOXでの処理分岐

B列に抹消と入力したら別の列に抹消と記載する以下のマクロがありますが、 B列に抹消と入力したらMsgBoxで抹消しますか？と表示させたいです。 MsgBox関数を特定場所に挿入したのですが、うまくいかず、どこに挿入したらよろしいでしょうか。（オブジェクトが必要です。のエラーが出てしまう状況です。） Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim h As Range On Error Resume Next For Each h In Application.Intersect(Target, Range("B:B")) If h = "抹消" Then Cells(h.Row, "E").Resize(1, 7).SpecialCells(xlCellTypeConstants) = "抹消" End If Next End Sub

エクセル　VBA　について

エクセルで、ダブルクリックしたら"*"を表示したい範囲に【入力】という名前をつけ、ダブルクリックしたら９つ左のセルの内容を表示したい範囲に【金額】という名前をつけ、二つの構文？をVisual Basicに作成したんですが、エラーが出てしまいます。ひとつずつだと上手くいくのですが、なぜでしょうか？わかる方教えてください。あと申し訳ないのですが、VBAはまったくわからないため、ネット上で構文をコピーして貼り付けました。そんな者でもわかる修正の説明をお願いいたします。以下が作成し、エラーとなってしまう構文です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const RangeName As String = "金額" If Target.Value = "" Then Target.Value = Target.Offset(0, -9).Value Cancel = True End If End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const RangeName As String = "入力" If Not Intersect(Range(RangeName), Target) Is Nothing Then Cancel = True If Target = "*" Then Target = "" Else Target = "*" End If End If End Sub

Excel VBA onTime関数のプロシージャ引数に、引数（変数）つきのプロシージャを呼び出す方法を教えてください。

現在ExcelVBAで一定時間ごとにメッセージを出すツールを作成しています。その際にonTime関数を使っていますが、その引数のひとつである呼び出すプロシージャに「引数（変数）つきのプロシージャ」を設定しようとしています。サイトを探してみたところ、引数にシングルクオーテーションで囲むなど書いてあったのですが、変数を引数としたプロシージャを設定すると、「プロシージャが見つかりません」のエラーがでます。どなたかお力を貸してくれませんでしょうか。ちなみに僕のコードは以下の通りです。（簡略化） ------フォーム Private Sub cmbOk_Click() Call メッセージ実行(txtTime.Text, txtContent.Text) End Sub ------ThisWorkbook Private Sub メッセージ実行(ByVal time As String, ByVal content As String) Dim starttime As Double MsgBox time & "毎に" & vbCr & content & vbCr & "を表示します。", vbInformation Unload frmSet starttime = Now + CDbl(TimeValue(time)) Application.OnTime starttime, "'expressContent" & time & content & "'" End Sub ------標準モジュール Dim starttime2 As Double Sub expressContent(ByVal time2 As String, ByVal content2 As String) MsgBox "content2", vbInformation starttime2 = Now + CDbl(TimeValue(time2)) Application.OnTime starttime2, "'expressContent" & time & content & "'" End Sub よろしくお願い致します。

エクセルVBAで重複入力の排除

すでに入力規則はリストで使用しております。そのためVBAで重複入力の排除を行おうと思います。一応以下のコードでできたのですが、もっと良い方法があったら教えてください。お願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) 　　 Dim myDic As Object 　　 Dim c As Variant, varData As Variant 　　 Dim i As Long 　　 If Application.Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub 　　 Set myDic = CreateObject("Scripting.Dictionary") 　　 varData = Range("A1:A50").Value 　　 For Each c In varData 　　　　 If Not c = Empty Then 　　　　　　 i = i + 1 　　　　　　 If Not myDic.Exists(c) Then 　　　　　　　　 myDic.Add c, Null 　　　　　　 End If 　　　　 End If 　　 Next 　　 If myDic.Count < i Then 　　　　MsgBox Target & " は重複！" 　　　　Application.EnableEvents = False 　　　　Application.Undo 　　　　Application.EnableEvents = True 　　 End If End Sub

エクセルのVBAで、音をならす方法

こんばんは。私はエクセル2000を使用しています。現在やろうとしていることは、実験の測定データをエクセルに取り込み（測定データは文字列としてエクセルに取り込まれます）、Ｄ列の数字が100以上になったら音をならして知らせるようにしたいと考えております。それで、以下のマクロを組んでやってみました。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If IsNumeric(Target) And Target.Value > 100 Then Beep 　　　MsgBox "範囲外です" End If End If End Sub しかし、If IsNumeric(Target) And Target.Value > 100 Thenのところで、型が一致しませんとエラー？がでてしまいます。まだ、ＶＢＡを勉強しはじめて2週間くらいなので、なにぶんわからないことだからで、もしわかる方がいらしたら教えてください。

EXCEL VBA におけるブック終了後の値の保存方法について

ＥＸＣＥＬＶＢＡについて質問があります。もしかしたら初歩的なことかもしれませんがよろしくお願いいたします。まず、 Sub Test() Dim i As String i = InputBox("好きな果物を入力してください") Sheets("Sheet1").Range("A1").Value = i End Sub を実行し、ブックを保存して終了する。ブックを開く Private Sub Workbook_Open() Dim k As String k = Sheets("Sheet1").Range("A1").Value If k = "みかん" Then MsgBox ("a") Else: MsgBox ("b") End If End Sub この処理を Sheets("Sheet1").Range("A1").Value = i というシート上のセルに値を保存するという方法を取らずに iの値をブック終了後もプロシージャ内に持っておくというのは可能なのでしょうか。 Publicで宣言してもブックを一度閉じるとやっぱりiの値は保存されませんでした。どうぞよろしくお願いいたします。

Excel VBA セルの値を変更後にVBA作動

Excel VBAを活用して、特定のセルの値が変更されたときに、VBA処理を発動させることになりました。処理といたしましては、C列（３列目）の４行目以下の空白セルに数値を入力するか、セルに入力されている数値を変更した場合にVBAを発動させたいです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Row >= 4 Then MsgBox "セルの値が更新されました" End If End Sub 上記のコードを実行してみたところ、３列目（C列）の４行目を選択した段階でVBAが作動してしまいます。セルの値変更後に作動するようにするには、どう修正すればよろしいでしょうか？

エクセルVBAでフォルダの作成-2

先ほどダブルクリックすると、クリックしたその名前にしたフォルダを作成して、ハイパーリンクを設定する、ということで質問させていただき、良い回答を頂き質問を閉じましたが、また質問があります。 A列をクリックするとイベントを発生させるのを、 A4セルから、その下のデータが入っているセルまでをイベントが有効な範囲にしたいと思い、考えています。「If Target.Column = 1 Then」の部分がそれだと思い、 If Target.Range("A4", Range("A" & Rows.Count).End(xlUp)) Then のように考えて実行しましたが、これはダメでした。このように限られた範囲に変更すにはどのようにすればいいでしょうか？ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const path As String = "D:\TEMP\倉庫\" Dim wkStr As String 　If Target.Column = 1 Then 　　wkStr = path & Target.Value 　　If Dir(wkStr, vbDirectory) = vbNullString Then 　　　MsgBox wkStr & "フォルダがありません。作成します。" 　　　MkDir wkStr 　　Else 　　　MsgBox wkStr & "フォルダは存在します。" 　　End If 　　ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=wkStr 　End If End Sub

エクセルｖｂａ　値渡しのｓｕｂプロシージャ

お世話になります。エクセルＶＢＡにて、ｌｏｏｐ処理中にＣＡＬＬかけているｓｕｂが最初の一度だけしか呼べません。なにか、特別にしなければならないことがあるのでしょうか。こんな感じです。 dim　i　as　integer sub　main() 　　i　=　1 　　max　=　5 　　do 　　　　if　day1　=　day2　then 処理１　データ１, データ2 　　　　end　if 　　　　i　=　i　+　1 loop　until　i　=　max 　　 end　sub sub　処理１(Byval　引数1　as variant, 引数2 as　variant) 　　　msgbox("引数１" & 引数１) 　　　msgbox("引数2" & 引数２) end sub データ１　及び　データ２、ＤＡＹ１　ＤＡＹ２は、必要に応じて転送処理等やっています。

EXCEL 異なるVBA

教えて下さい、EXECL以下の異なるVBA (A>,B>)が２つあります、同じシートでそれぞれ動くようにさせたいです1つに合わせる事は出来ないでしょうか? 当方初心者の為わかりません教えて下さい。 A> Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(0, 0, xlA1, 0) <> "A1" Then Exit Sub With Range("F9:I9,K17:K36").Borders(xlDiagonalUp) If Left$(Target.Value, 1) = "S" Then .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic Else .LineStyle = xlNone End If End With End Sub B> Private Sub Worksheet_Change(ByVal Target As Range) With Sheet2 Select Case Target.Address Case Is = "$D$1" .Range("A1").Insert Shift:=xlDown .Range("A1").Value = Target.Value Case Is = "$D$2" .Range("B1").Insert Shift:=xlDown .Range("B1").Value = Target.Value End Select End With End Sub

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

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が反応してしまうのかわかりません。でもそもそも[と”の意味が分からないのでそこから教えていただけませんか？ “の意味、は二つで挟んで文字列にすると思っています。

SelectionChangeイベント　文字列エラ

エクセルｖｂａなのですがセルをクリックしたときに、該当する値ならメッセージを表示させる際に Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = 1Then MsgBox "" End If End Sub ならエラーにならずに動くのに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "運賃" Then MsgBox "" End If End Sub のように文字列にすると、型が一致しません。と言うエラーになります。 If Target.Value = "運賃" Then の時でも、空白セルや数値が入ったセルをクリックした際はエラーになりません。どのような型にすればいいのでしょうか？実際、「運賃」と言う値が入ってるセルをクリックしても同じエラーが発生します。

エクセルVBA MSGBOXを30秒間出したい　それをUWSCソフトで監視して命令を出したい

みんなの回答

お礼 2007/02/17 15:34