- ベストアンサー
エクセルVBAでお願いします。
エクセル２００２使用です。 セルA1に 日付型で2004/9/25と間違いなく入っています。 その条件で下記のようにコードを打ちました。 Sub test() If Day(Range("A1")) = 30 Then MsgBox "yes" End If End Sub 25=30ならばmsgboxを表示なので、上記の例では表示してはいけないのに表示されます。 ちなみに＝を＜＞不等号にしてもMsgboxが開きます。 おそらく型の問題だと思ったのですが、DAY関数はVariant型のintergerなので問題ないと思うのですが、理由がわかりません。 よろしくお願いします。
- ken123
- お礼率73% (299/409)
- オフィス系ソフト
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
ORの使い方 間違ってますよ (^^) If Day(Range("A1")) = 30 Or Day(Range("A1")) =31 Then これでどうでしょうか？
その他の回答 (3)
- snoopy64
- ベストアンサー率42% (337/793)
Sheet1のA1に2004/9/25 Sheet2のA1に2004/9/30 と入っていて、そのSubがSheet2内のSubなら、そのような動作になります。 VBE画面の左側にシートの一覧があります。 A1に2004/9/25と入っているシートをダブルクリックしてみてください。 右側にそのSubが表示されますか？ 表示されたら、そのSubを実行してみてください。 それでも結果が変わらなかったら・・・分かりません(>_<)
お礼
すいません。解決しました。 ありがとうございます。 今後もよろしくお願いします。 が、がんばりまーす！！
補足
snoopy64 様（昨日から）ありがとうございます。 すいません。質問ミスでした。 If Day(Range("A1")) = 30 or 31 Then でうまくいきません。 お騒がせしていますが、よろしくお願いします。 ホント、すいません。
- error123
- ベストアンサー率21% (54/247)
試しましたが問題ありませんでした。 Sub test2() MsgBox Day(Range("A1")) End Sub としたらなんとでますか？
お礼
error123 様ありがとうごとうございます。 すいません。質問ミスでした。 If Day(Range("A1")) = 30 Or 31 Then でうまくいきません。（30のみ場合はOKです） Orの使い方が間違ってます？？？ すいません。ご指摘お願いします。
- S-Fuji
- ベストアンサー率36% (592/1624)
テストしましたが、表示しませんよ。 ちなみに、Ａ１に2004/9/30を入れれば、 yesが表示されます。
お礼
すいません。お騒がせです。 ありがとうございます。 一応2つのPCでテストしたんですが・・・ 今後もよろしくお願いします。
関連するQ&A
- エクセルｖｂａ 値渡しのｓｕｂプロシージャ
お世話になります。 エクセルＶＢＡにて、ｌｏｏｐ処理中にＣＡＬＬかけている ｓｕｂが最初の一度だけしか呼べません。 なにか、特別にしなければならないことがあるのでしょうか。 こんな感じです。 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 データ１ 及び データ２、 ＤＡＹ１ ＤＡＹ２は、必要に応じて 転送処理等やっています。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBA記述誤りの解決お願い
A1～Ａ20のセルに入力データが一切無い場合に、入力を促すメッセージを表示させるマクロを作りましたが,「実行時エラー13 型が一致しません」のエラー表示が出ます。 デバックすると下記マクロの「If Range("A1:A20").Value = "" Then」の部分でストップしていました。 いろいろとやってみましたが、うまくゆきません。 If Range("A1:A20").Value = "" Then MsgBox ("参加マークーを入力ください") Exit Sub End If 記述上の誤りがあるようですので、ご教示いただけましたら幸いです。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA---IsDate
お知恵をお貸し下さい。 VBAでフォームを作成し、テキストボックスに数字（日付）を入力 （入力→10/7， 表示→2005/10/07） それを、IsDateで日付かどうかチェックさせたいのですが 下記のコードでは、例えば10月35日と入力してもエラーになりません。 （入力→10/35， 表示→1935/10/01) 2005/10/35と入力すればエラーになってくれるのですが やはりこの方法しかないのでしょうか？ もし、良い方法がありましたらお教え下さい。 よろしくお願いします。 ----------------------------------------------------------------- Sub Test() Dim Data As Variant Data = TextBox16.Text If IsDate(Data) Then TextBox16.Value = CDate(Data) Else MsgBox ("正しい日付を入力してください。") End if End sub -----------------------------------------------------------------
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAで
日付を入力したシートでシートを開くと今日の日付のセルがあった場合左上に表示させるモジュールで、 Sub test() Dim R As Range Set R = Range("A:A").Find(Date) If Not R Is Nothing Then Application.Goto reference:=R, scroll:=True End If End Sub のように作成したのですが、うまく働きません。 原因は、日付を表示したセルが、A1に2006/4/1を入力してA2以降のセルはA1+1、A2+1・・・で対応しています。 よって、アクションが働かないのではと推測しているのですが、このことを改善するにはどのようにしたらいいでしょうか？ 日付をダイレクトに入力しないのは、2007年にも先頭セルのみの書き換えで対応しようとしたためです。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでセルが数値か数式かの判断方法
エクセル２０００です。 Sub Suuchi() If IsNumeric(Range("A1")) = True Then MsgBox "数値で～す♪" Else MsgBox "数値じゃないよ！" End If End Sub とやってみたんですが、数式も数値となってしまいます。 数値、数式、文字の判断はどうやればいいんでしょうか？
- ベストアンサー
- オフィス系ソフト
- 印刷後のVBAの実行 (3)
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then If Range("D6").Value = "" Then Cancel = True MsgBox ("名前を入力してください") Range("D6").Select Exit Sub End If Else If ActiveSheet.Name = "Sheet2" Then If Range("C11").Value = "" Then Cancel = True MsgBox ("受付時間を入力してください") Range("C11").Select Exit Sub End If Else Exit Sub End If End If If Worksheets("Sheet1").Range("D5") = "不要" Then GoTo P1 ActiveSheet.Range("A70:Y70").Copy If Worksheets("Sheet3").Range("A1").Value = "" Then Worksheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteValues Else Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _ Paste:=xlPasteValues End If Application.CutCopyMode = False P1: ActiveSheet.Range("A1").Select End Sub sheet1のD5に「不要」と入っていたら 24～33行目の作業がキャンセルになりますが sheet2のD5にも「不要」と入っていたら、同じ様にキャンセルできる様に出来ますでしょうか？ ご回答お願いします
- 締切済み
- オフィス系ソフト
- エクセル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
- ベストアンサー
- Excel（エクセル）
- エクセルＶＢＡを教えて下さい
エクセルの表で －ＡＢ Ｃ Ｄ Ｅ Ｆ １年月－－1801 ２－－－－－－ ３－－－－－－ ４－－－－－－ （－）は空欄でセルＥ１＝１８、Ｆ１＝１とします。 コントロールボックスをつかって Private Sub Command登録_Click() Dim d1 As Long Dim d2 As Long Dim ret As Variant Dim FindValue As String Dim TotalAddress As String If Range("E1").Value = "" Or Range("F1").Value = "" Then MsgBox "該当する場所にデータが入っていません。", vbCritical Exit Sub End If d1 = Range("A65536").End(xlUp).Offset(1).Row d2 = Range("B65536").End(xlUp).Offset(1).Row FindValue = """" & Range("E1").Value & Range("F1").Value & """" TotalAddress = Range("A1").Resize(d1).Address & "&" & Range("B1").Resize(d1).Address ret = Evaluate("MATCH(" & FindValue & "," & TotalAddress & ",0)") If IsError(ret) Then Cells(d1, 1) = Range("E1").Value Cells(d2, 2) = Range("F1").Value Else MsgBox "既に同じ組み合せがあります。", vbInformation End If End Sub というものを作ったのですが、Ｅ１＝１８、Ｆ１＝１及びコマンドボタンを別シートに作成し、上記の表への登録をできるようにしたいのですが、なにかいい方法はありませんか？
- ベストアンサー
- オフィス系ソフト
- エクセル2010のvbaについて
Sub abc() Dim a Set a = Selection If a.Width * 4 / 3 <> 90 And a.Height * 4 / 3 - 1 <> 120 Then MsgBox ("120x90px以外の画像以外は挿入できません") End If End Sub 上のコードを実行するとなぜか120×90以外でも メッセージが表示されなくなります （Msgbox a.Width * 4 / 3は90 Msgbox a.Height * 4 / 3は120と正しく表示されます） 更に高さが1px多くなってしまいます（-1） （高さを調べても121pxではなく120pxでした） たまにvbaをしている時にあるので 回答と原因もお願いします
- 締切済み
- その他MS Office製品
- 印刷後のVBAの実行 (2)
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then If Range("D6").Value = "" Then Cancel = True MsgBox ("名前を入力してください") Range("D6").Select Exit Sub End If Else If ActiveSheet.Name = "Sheet2" Then If Range("C11").Value = "" Then Cancel = True MsgBox ("受付時間を入力してください") Range("C11").Select Exit Sub End If Else Exit Sub End If End If ActiveSheet.Range("A70:Y70").Copy If Worksheets("Sheet3").Range("A1").Value = "" Then Worksheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteValues Else Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _ Paste:=xlPasteValues End If Application.CutCopyMode = False ActiveSheet.Range("A1").Select End Sub 先日、上記のコードを回答者の方から教えてもらい、とても助かっていますが sheet1のD5に「不要」という文字が入っていた場合、 sheet3への貼り付け(23～30行目の作業)をキャンセルして、最後にsheet1のA1を選択するようにはどの様にしたらいいでしょうか?
- 締切済み
- オフィス系ソフト
お礼
nagare 様 早速のお返事ありがとうございます。 ありがとうございました。お騒がせしました。 この辺の基本的なことが・・・・ がんばりますので、今後ともよろしくお願いします。 ありがとうございました。