エクセルの学校：全文検索：Hyper Estraier：エラー値 #N/A

Results of 1 - 1 of about 228 for エラー値 #N/A (0.017 sec.)

エラー値 (861), #n/a (1385)

[[20200715051835]]: #score: 10842; @digest: b262b654078800c94b0ff212dfe07255; @id: 84478; @mdate: 2020-07-23T03:46:54Z; @size: 39468; @type: text/plain; #keywords: 書入 (160609), 求月 (76096), 月締 (73013), 謙児 (60483), （謙 (54306), 請求 (32236), 力") (30522), 求書 (27408), 定科 (24742), 勘定 (22821), ル移 (20883), 未入 (19850), 支払 (18220), 当月 (13328), が未 (11349), い" (9905), す" (9336), chr (7536), 隠居 (7476), myrng (7448), 科目 (7340), モジ (7021), msgbox (6939), 確認 (6782), ジュ (6711), 準モ (6372), 2020 (4994), 入力 (4931), ュー (4856), ボタ (4831), 転記 (4535), タン (4341); 『MsgBoxの』（謙児）
お世話になります。質問です。よろしくお願いいたします。 1つ目は、フォームコントロールで作成しましたボタン"転記"を押しますと、下記コード「請求月は、当月締め日になっていますか?」が出ましてはい、を押しますと次のコード「請求書の支払合計が未入力です」と出ます。入力が終わりますと次のコードに進む方法を教えて頂けますか? （現状は、入力が終わると"転記"ボタンを押せば、当然ですが、最初からコードが走る為に「請求月は、当月締め日になっていますか?」と出ます。入力する人は、また同じ文言が出ている、また、はいと押さなければならないとわずらしさを感じるためです。） If Sheets("請求書入力").Range("c5") <> "" Then If MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) = vbNo Then Exit Sub End If End If If Sheets("請求書入力").Range("c6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("b10") = "" Then MsgBox "勘定科目等が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If 後、xxが未入力と続きますが。以上ですが、ご教授のほどよろしくお願いいたします。なお、見出し:MsgBoxのになっていますが最初MsgBox とニックネームを入れましたが、更新されず何故と思いながら見出しが足らないのかなあと思ってMsgBoxの件と入れようとMsgBoxのと入れたところでいきなり更新されましたので、MsgBoxの迄か入っていなくてすみませんでした。＜使用 Excel:Excel2013、使用 OS:Windows8 ＞ ---- 一つ忘れていました。下記コードの内容を私としては、試行錯誤して作りました。 If Sheets("請求書入力").Range("d6") <> o Then MsgBox "支払金額と各勘定科目の金額に差額が出ています" & Chr(13) & "確認して下さい" Exit Sub End If 質問は、請求書入力の伝票を印刷時、d6の差額表示を印刷時に非表示にする方法を教えて頂けますか? （謙児） 2020/07/15(水) 06:44 ---- 「請求月は、当月締め日になっていますか?」は、「請求月日は当月締め日になっていません」&「確認してください」と判断方法を変更すれば? Yesを選べば、どんな日付でも処理続行可能とするのですか? すべての条件処理を未入力又は入力間違いにできませんか? （サンダー） 2020/07/15(水) 07:35 ---- ■1 とりあえず、アレ!?動きが変だなと思ったら、まずはステップ実行して自己検証してみてください、ステップ実行については↓で説明済のため割愛。 [[20200706182510]] 『データのみの転記』（謙治） ■2 部分的にしか示されていないので違うのかもしれませんが、↓みたいなことがやりたいのだとして、★部分について、1回チェックしてもらったらもう変えないから、チェックをスキップさせたいということでしょうか? 「転記」ボタンを押したらもしも、（請求月があっているか確認させて）OKなら ★ [項目:支払合計]が空欄かチェック [項目:勘定科目等]が空欄かチェック・・ [項目:○○]が空欄かチェックもしも、空欄の項目が1つでもあれば空欄になっている項目を提示してプログラム終了そうでなければ転記処理を実行して次の入力のために各項目をクリアもしもの話はおしまいもしもの話はおしまい「転記」ボタンを押した時の処理はここまで ■3 ＞d6の差額表示を印刷時に非表示どうやって印刷しているのかわかりませんが、マクロで印刷までしてるなら、印刷するときだけフォント色を白にしたらどうですか? （もこな2） 2020/07/15(水) 07:49 ---- 皆様、ありがとうございます。こんなに早く回答を頂くとは、ありがたいです。皆様の提案、確認の必要があります。会社から帰って確認、お返事致しますので、申し訳ありませんが、お待ちください。（謙治） 2020/07/15(水) 09:13 ---- 改めましてサンダー様ご解答を有難うございました。＞当月締め日になっていますか? これは、再確認をさせる為で入力者は、正しい日付を入力している人もいますので、最初から否定の文言は、相手に失礼な気がするのですが。折角言って頂いたのにすみません。もこな2様ご解答を有難うございます。 ■1、承知いたしました。 ■2、＞↓みたいなことがやりたいのだとして、★部分について、1回チェックしてもらったらもう変えないから、チェックをスキップさせたいということでしょうか? はい、その通りです。＞もしも、空欄の項目が1つでもあれば＞空欄になっている項目を提示してプログラム終了その通りです。日付の確認時、間違いなかったら次のスッテプに行き、空欄があれば入力します。そして以降のステップで空欄がなければ他のシートに転記がされるようにして頂きたいのです。よろしくお願いいたします。（謙児） 2020/07/15(水) 17:23 ---- それなら、こんな感じにすればよいとおもいます。請求月確認フラグ ←★モジュールレベル変数「転記」ボタンを押したらもしも、「請求月確認フラグ」が偽だったらもしも、（請求月があっているか確認させて）OKなら「請求月確認フラグ」を真に変更そうじゃなければ注意メッセージを表示してプログラム終了もしもの話はおしまいもしもの話はおしまい [項目:支払合計]が空欄かチェック →空欄だったらその項目を覚えておく [項目:勘定科目等]が空欄かチェック →空欄だったらその項目を覚えておく・・ [項目:○○]が空欄かチェック →空欄だったらその項目を覚えておくもしも、覚えた項目があれば（=空欄項目あり）空欄になっている項目を提示してプログラム終了そうでなければ転記処理を実行して次の入力のために各項目をクリアもしもの話はおしまい「転記」ボタンを押した時の処理はここまで【モジュールレベル変数とは】 http://officetanaka.net/excel/vba/variable/05.htm 【研究用コード】 Option Explicit Dim ふらぐ As Boolean Sub ボタン1_Click() If ふらぐ = False Then MsgBox "初回です" ふらぐ = True Else MsgBox "初回じゃないです" End If End Sub また、静的変数にしてもいいかもですね。 http://officetanaka.net/excel/vba/variable/10.htm （もこな2 ） 2020/07/15(水) 18:42 ---- もこな2様私に勉強して覚えて頂きたい気持ちがわかりますので下記のように調べたのですが、素人の私には、各コードの意味、プロシージャへの結びつき等（うまく説明が出来ませんが）わかりません。モジュールレベル変数及び静的変数のサイトを読みました。サイトを読んでいる時は、なんとか、なんとかは、違うモジュールに対しても使用できる、又は使用出来ない等、言っていることが少しわかるのですが、そのなかの色々なコードがわからないし並べ方がわかりません。 MsgBox の動きもこうこうなっているんだと少し理解が出来ますが、各コードの意味が、知識がない為に、プロシージャをまねしてラーンすると出来るのですが、自分で作る場合にはどうしてよいのかわかりません。研究用コードにしてもラーンすると流れはわかるのですが、それを応用してコードを勝手にあてはめて結局は、エラーが出ます。どう直してよいかわかりません。諦めるには嫌いですが。どうしていいのかわかりません。申し訳ありません。（謙児） 2020/07/15(水) 21:18 ---- 疑似コードまで提供しているので、あとは当てはめるだけだと思いますが、難しいですかね。いきなり全部をコード化するのが難しいのであれば、分かる部分だけでもコード化してみてください。現状だと、どの部分で詰まっているのかよくわからないのでアドバイスできそうなことがありません。（もこな2） 2020/07/15(水) 22:06 ---- もこな2様 Sub ボタン1_Click() If ふらぐ = False Then MsgBox "初回です" ふらぐ = True Else MsgBox "初回じゃないです" End If End Sub 上記コード条件を基に、 MsgBox "初回じゃないです"のところに次のステップ（下記コード）をいれましたら、基に戻らず（MsgBox("請求月は、当月締め日になっていますか?"）先に進んでいくかと思いました。 If Sheets("請求書入力").Range("c6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" --------------------------------------------------------------------------------------------- 下記コードの内容は、請求月は、当月締め日になっていますか?"が終わって、次のステップC6が未入力です。に続くようにしたつもりがうまく行きません。 If Sheets("請求書入力").Range("c5") <> "" Then If MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) = vbNo Then 'ここでExit Subを入れて"いいえ"をクリックしましたら '止まったままです。Exit SubをはずせばいきなりC6が未入力となり '"いいえ"をクリックした後での修正が出来ません。 If Sheets("請求書入力").Range("c6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If End If ------------------------------------------------------------------------------------------- If MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) = vbNo Then ここでいいえとすれば次のステップC6の未入力に進みます。いいえと押せば一旦止まって入力後にC6の未入力に進みたいのですが、何のコードをいれたらいいかわかりません。 False Then とか = True をどこかに入れないといけないのでしょうか? （謙児） 2020/07/16(木) 08:04 ---- >一旦止まって入力後に Range("c5") に戻って入力したらということでしょうか。 <> "" の意味は理解できていますか。空白の時もありますか。 >False Then とか = True をどこかに入れないといけないのでしょうか? 使用しません。 If Sheets("請求書入力").Range("c6") = "" が条件式です。 Range("c6") = ""だったらTrue、入力済だったらFalseということです。 Trueなら前に戻りFalseなら次へ進むというふうに分岐させるのです。 >フォームコントロールで作成しましたボタン"転記"を押しますとボタンに登録したコードを提示することはできますか。 >入力が終わりますと次のコードに進む方法を教えて頂けますか? 冒頭のコード見直しているところです。しばらく待ってください。（KLY） 2020/07/16(木) 16:01 ---- KLY様有難うございます。＞Range("c5") に戻って入力したらということでしょうか。はい。＞<> "" の意味は理解できていますか。空白の時もありますか。はい、理解できています。C5が、ブランク以外ならばという意味で記入しました。 <> "" の前のコードは、 If Sheets("請求書入力").Range("c5") = "" Then MsgBox "請求書年月日が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If として入力の確認をっています。そして次のステップで"請求月は、当月締め日になっていますか?" と再確認をしています。 >ボタンに登録したコードを提示することはできますか。はい、下記の通りです。 Sub さんぷる壱() Application.ScreenUpdating = False Dim MyRNG As Range Dim i As Long Stop 'ブレークポイントの代わり If Sheets("請求書入力").Range("C3") = "" Then MsgBox "担当名が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("C4") = "" Then MsgBox "支払先名が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("c5") = "" Then MsgBox "請求書年月日が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("c5") <> "" Then If MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) = vbNo Then Exit Sub End If End If If Sheets("請求書入力").Range("c6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("d6") <> o Then MsgBox "支払金額と各勘定科目の金額に差額が出ています" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("b10") = "" Then MsgBox "勘定科目等が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("b13") = "" Then MsgBox "税込み金額が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("b14") = "" Then MsgBox "?@の支払明細が未入力です。他の支払い明細の、漏れはないですか?" & Chr(13) & "確認して下さい" Exit Sub End If With Worksheets("請求書入力").Range("A37:Y42") For i = 1 To .Rows.Count If .Cells(i, 1).Value <> "" Then If MyRNG Is Nothing Then Set MyRNG = .Rows(i) Else Set MyRNG = Union(MyRNG, .Rows(i)) End If End If Next i End With If Not MyRNG Is Nothing Then MyRNG.Copy Sheets("弥生会計へ転記").Range("a1000").End(xlUp).Offset(1). _ PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End If '支払別への転記 With Worksheets("請求書入力").Range("A37:aa42") For i = 1 To .Rows.Count If .Cells(i, 1).Value <> "" Then If MyRNG Is Nothing Then Set MyRNG = .Rows(i) Else Set MyRNG = Union(MyRNG, .Rows(i)) End If End If Next i End With If Not MyRNG Is Nothing Then MyRNG.Copy Sheets("支払別").Range("a1000").End(xlUp).Offset(1). _ PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End If Sheets("請求書入力").Activate Sheets("請求書入力").Range("c2").Select Application.ScreenUpdating = True End Sub よろしくお願いします。（謙治） 2020/07/16(木) 17:11 ---- If Range("c5") <> "" Then If MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) = vbNo Then Range("c5").Select Exit Sub Else Range("c6").Select End If End If 差し替えてください。コード提示は、<> "" の前のコードはどうなっているか知りたいためでした。（KLY） 2020/07/16(木) 23:15 ---- KLY様遅い時間に有難うございます。私の伝え方が悪いのかもしれません。コードを入れ替えましたが、 1、C5で("請求月は、当月締め日になっていますか?"）とのメッセージが出て、ここで、はいをクリックすれば、次のステップC6に行きます。しかしC6がブランクであれば、 MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい"と出ましたので入力しました。その状態のままで転記先に行きません。ボタン転記をクリックすれば MsgBox("請求月は、当月締め日になっていますか?"）と再度出ます。希望は、C6に入力後、次のステップ以降に未入力があれば入力後、転記先に行くようにしたいのです。 2、C5で("請求月は、当月締め日になっていますか?"）とのメッセージが出て、違う場合ここで、いいえをクリックして修正します。でもそのままの状態で転記先に行きません。ボタン転記をクリックすれば、MsgBox("請求月は、当月締め日になっていますか?"と再度出ます。希望は、C5に入力後、次のステップ以降に未入力があれば入力後、転記先に行くようにしたいのです。よろしくお願いいたします。（謙児） 2020/07/17(金) 00:24 ---- 差し替えた部分だけでいいかなと判断しました。私もそうじゃないかなと思っていました。またしばらく時間ください。今の現状では修正後その都度コマンドボタンを押すことになりますね。ユーザーフォームというのを知っていますか。こういう入力には大変便利ですよ。一括で入力できますから。（KLY） 2020/07/17(金) 11:39 ---- MsgBox("請求月は、当月締め日になっていますか?"と再度出ます。条件が <> "" となっているので再度出てもおかしくはありません。（KLY） 2020/07/17(金) 11:55 ---- KLY様、ありがとうございます。ユーザーフォームというのを知っていますか。聞いたことは、ありますが、使ったことは、ありません。こういう入力には大変便利ですよ。一括で入力できますから。それならお願いします。条件が <> "" となっているので再度出てもおかしくはありません。はい。わかりました。よろしくお願いします。（謙治） 2020/07/17(金) 12:37 ---- 出来ましたので確認よろしく標準モジュールを追加して貼り付けてください。既存のボタンにこれを登録変更してください。マクロ名はセル移動。空白時と入力後の動きをコマンドボタンを押して確認してください。 Range("D6") <> o のところでエラーになります。設定がおかしいです。実行確認時には ="" にして確認してください。よければ差し替えお願いします。最初に"請求書入力"とシート名を指定しておけば何度も記述する必要ありません。 Range("C5") に出てくるMsgBoxの使用法についても理解してください。 Sub セル移動() Sheets("請求書入力").Select Range("C3").Select If Range("C3") = "" Then MsgBox ("担当名が未入力です" & Chr(13) & "確認して下さい") Exit Sub End If Range("C4").Select If Range("C4") = "" Then MsgBox "支払先名が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("C5").Select If Range("C5") = "" Then MsgBox "請求書年月日が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Dim 確認 If Range("C5") <> "" Then 確認 = MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) If 確認 = vbYes Then Range("C6").Select Else Exit Sub End If End If If Range("C6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("D6").Select If Range("D6") <> o Then 'ここでエラーが出る設定見直し MsgBox "支払金額と各勘定科目の金額に差額が出ています" & Chr(13) & "確認して下さい" Exit Sub End If Range("B10").Select If Range("B10") = "" Then MsgBox "勘定科目等が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B13").Select If Range("B13") = "" Then MsgBox "税込み金額が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B14").Select If Range("B14") = "" Then MsgBox "?@の支払明細が未入力です。他の支払い明細の、漏れはないですか?" & Chr(13) & "確認して下さい" Exit Sub End If End Sub ここに出で来るセルの項目名を教えてください。ユーザーフォームで使用します。（KLY） 2020/07/17(金) 17:11 ---- KLY様お忙しいところ、有難うございました。移動に2時間ばかりかかりますので、申し訳ありませんが、しばらくお待ちください。（謙治） 2020/07/17(金) 18:10 ---- KLY様有難うございます。＞標準モジュールを追加して貼り付けてください。＞既存のボタンにこれを登録変更してください。マクロ名はセル移動。一旦、VBA挿入で標準モジュールに貼りつけましたが、既存ボタンにこれを登録変更とありましたのでわからなくなったので既存のコードを下記のようにコードを入れ替えました。しかし他のシートに貼り付けするコードは、残しました。＞空白時と入力後の動きをコマンドボタンを押して確認してください。 F8（コマンドボタン?）を押しましたら With Worksheets("請求書入力").Range("A37:Y42")で止まりコンパイルエラーが出まして「endsub.end function 又はend property以降にはコメントのみが記述できます。」となっています。私のどこが間違っているのでしょうか? Sub セル移動() Application.ScreenUpdating = False Dim MyRNG As Range Dim i As Long Sheets("請求書入力").Select Range("C3").Select If Range("C3") = "" Then MsgBox ("担当名が未入力です" & Chr(13) & "確認して下さい") Exit Sub End If Range("C4").Select If Range("C4") = "" Then MsgBox "支払先名が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("C5").Select If Range("C5") = "" Then MsgBox "請求書年月日が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Dim 確認 If Range("C5") <> "" Then 確認 = MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) If 確認 = vbYes Then Range("C6").Select Else Exit Sub End If End If If Range("C6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("D6").Select If Range("D6") <> o Then 'ここでエラーが出る設定見直し MsgBox "支払金額と各勘定科目の金額に差額が出ています" & Chr(13) & "確認して下さい" Exit Sub End If Range("B10").Select If Range("B10") = "" Then MsgBox "勘定科目等が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B13").Select If Range("B13") = "" Then MsgBox "税込み金額が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B14").Select If Range("B14") = "" Then MsgBox "?@の支払明細が未入力です。他の支払い明細の、漏れはないですか?" & Chr(13) & "確認して下さい" Exit Sub End If End Sub With Worksheets("請求書入力").Range("A37:Y42") For i = 1 To .Rows.Count If .Cells(i, 1).Value <> "" Then If MyRNG Is Nothing Then Set MyRNG = .Rows(i) Else Set MyRNG = Union(MyRNG, .Rows(i)) End If End If Next i End With If Not MyRNG Is Nothing Then MyRNG.Copy Sheets("弥生会計へ転記").Range("a1000").End(xlUp).Offset(1). _ PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End If '支払別への転記 With Worksheets("請求書入力").Range("A37:aa42") For i = 1 To .Rows.Count If .Cells(i, 1).Value <> "" Then If MyRNG Is Nothing Then Set MyRNG = .Rows(i) Else Set MyRNG = Union(MyRNG, .Rows(i)) End If End If Next i End With If Not MyRNG Is Nothing Then MyRNG.Copy Sheets("支払別").Range("a1000").End(xlUp).Offset(1). _ PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End If Sheets("請求書入力").Activate Sheets("請求書入力").Range("c2").Select Application.ScreenUpdating = True End Sub （謙児） 2020/07/17(金) 22:01 ---- ちゃんと見ていませんが、コードの中ほどにある「End Sub」がエラーの原因では? （はらぺこ） 2020/07/17(金) 22:07 ---- はらぺこ様有難うございました。今、確認をしましたらKLY様の貼り付けの最後が End Subでした。その次にシートの転記元 With Worksheets("請求書入力").Range("A37:Y42")のコードを残したままだったので「End Sub」がエラーになっていました。今、外しました。（謙児） 2020/07/18(土) 01:05 ---- 下記コードをF8ボタンで一つ一つ押そうとしましたら最下段に示すRange ("C3").Selectに来ると this work sheetで作った（教えて頂いて作ったコードです。）コードに行きます。?? そこで改めてボタンを押しますと「さんぷる壱を実行できません」とエラーメッセージが出ます。ボタンのところで右クリックをしてマクロ登録を押しますとさんぷる壱は、新規作成になりますそこで他の項目の中で sheet 1セル移動をクリックすると編集になりF8ボタンで一つ一つ押そうとしましたら Range("C3").Selectに来るとthis work sheet のコードに行きます。?? ボタンのマクロ名をコードの中でセル移動と替えているのに何故、さんぷる壱を実行できませんと出るのでしょうか? 思えば、KLY様がセル移動の貼り付けと言われた時に最初標準モジュールに貼りつけました。（当初の転記元から転記先へのコードは、入れていません）しかしボタンの中を入替えといわれたのでボタンのマクロ名を「さんぷる壱」から「セル移動」に替えました。（ここでは、転記元から転記先へのコードは、入れています。）最初、標準モジュールに貼ったコードが邪魔をしているのでしょうか? 標準モジュールに貼ったコードを削除しようと思っていますが、そのコードをよう見つけることが出来ません。お手数おかけして申し訳ございませんがよろしくお願いいたします。 Sub セル移動() Application.ScreenUpdating = False Dim MyRNG As Range Dim i As Long Sheets("請求書入力").Select Range("C3").Select （謙児） 2020/07/18(土) 01:47 ---- 説明がうまく伝わらなかったみたいですね。すみません。確認させてください。 >VBA挿入で標準モジュールに貼りつけましたが標準モジュールにModuleはいくつありその番号はどうなっていますか。この返事が来たらマクロ登録変更不具合については別途連絡します。（KLY） 2020/07/18(土) 09:51 ---- KLI様、ありがとうございます。すみませんが、開発からVBAをクリックするのですが、標準モジュールの場所がわかりません。いくつあるかもどうして探すのか、わかりません。その番号もどこについているか等わかりません。お手間を取らさないように自分では、頑張っているのですが、ご迷惑をおかけして申し訳なく思っています。（謙治） 2020/07/18(土) 14:21 ---- 追伸、KLYさまの説明が上手く伝わらなかったのでは、なく私の理解不足です。（謙治） 2020/07/18(土) 14:26 ---- こんにちは ^^ Alt + F11 で vbaエディター［VBE］が現れます。左端に3対7くらいの割合で画面が分割されて、左の上端にプロジェクトとか表示されたものは有りますでしょうか。 https://excel-ubara.com/excelvba1/EXCELVBA304.html こちらが参考になるかもしれません。m(_ _)m （隠居じーさん） 2020/07/18(土) 14:36 ---- ↑は参考になったことでしょうか。＞＞標準モジュールを追加して貼り付けてください。その中で「標準モジュールの挿入」の欄がありますよね。このことだったんです。追加したとしたら「Module1」「Module2」になっているはずです。 >プロジェクトとか表示されたものは有りますでしょうか。インターネットエクスプローラー風になっています。理解できたらマクロ登録変更不具合については別途連絡します。（KLY） 2020/07/18(土) 17:32 ---- 隠居じーさん様こんばんは、教えて頂き有難うございます。＞Alt + F11 で vbaエディター［VBE］が現れます。＞左の上端にプロジェクトとか表示されたものは有りますでしょうか。はい、あります。 KLY様にも下記を参照してください。プロジェクト-VBAProject × その下に3つのアイコンがあり左からコードの表示、オブジェクトの表示、フォルダーの切り替えその下にVBAProject その下にclass1 その下にModule1から5迄その下にSheet1、142,3,5,6,9迄最後にThisWorkbook となっています。＞Alt + F11 で vbaエディター［VBE］が現れます。これ便利ですね。https//も読みました。有難うございます。最初、私は標準モジュールを出す際、開発をクリック、左端のVisual Basicをクリックしたのですが、上記Alt + F11を押したようなわかりやすい並びではなく、左端が2列分沢山下に表示され標準モジュールの表示がありませんでした。そこでネットで調べましたらVisual Basic をクリックして挿入を押して標準モジュールが表示されていますと記載されていましたのでそのようにしました。「Module1」から5迄表示されていますがダブルクリックをしてコードが表示されているのはModule5だけです。（各シートへ行くコードです。） KLY様へ＞理解できたらマクロ登録変更不具合については別途連絡します。理解出来ました。よろしくお願いいたします。（謙治） 2020/07/18(土) 19:17 ---- 先程は、会社で＞Alt + F11 で vbaエディター［VBE］が現れます。を実行しましたらプロジェクト-VBAProject × その下に3つのアイコンがあり左からコードの表示、オブジェクトの表示、フォルダーの切り替えとなりました。その下に VBAProject その下にclass1 その下にModule1から5迄その下にSheet1、142,3,5,6,9迄最後にThisWorkbook ＞上記Alt + F11を押したようなわかりやすい並びではなく、左端が2列分沢山下に＞表示され標準モジュールの表示がありませんでしたこれは自宅で行ったものです。ですから会社で行った時には、上記Alt + F11を押したようなわかりやすい並びでしたから今、自宅にもどりAlt + F11をしたらうまく行くと思ったのですが、やはり標準モジュールの表示がでません。表示は、 VBAの左端にクラスの列、その右側にグローバルのメンバーがどちらもabc順にzまで出ています。下記のような並びにどうすればなるのでしょか? VBAProject その下にclass1 その下にModule1から5迄その下にSheet1、142,3,5,6,9迄最後にThisWorkbook （謙児） 2020/07/18(土) 21:50 ---- こんばんは ^^ 横入りすみません。一番左に四角でかこまれた、十字、みたいなの、有りましたら。。。それをクリックすれば、出てくるかもしれません。もし、なにもなければ、上の段のメニューに【挿入】がありますので、そこから標準モジュールを新規に作成しても、全ての標準モジュールが現れると思います。。。← 多分 ^^;。。。。m(_ _)m...でわ（隠居じーさん） 2020/07/18(土) 22:03 ---- 追伸失礼いたしました。フォルダアイコン【フォルダの切替】が出ていれば、それ、をクリックしても並びが、変わるかと。。。思いますです。外していましたら、お許しを。m(_ _)m （隠居じーさん） 2020/07/18(土) 22:08 ---- こんばんは ^^ 私も勘違いをしているかもしれません。ご説明の内容ですと左側、前面にプロパティウインドウが表示されているのかもしれません。コードを書く部分と左端のメニュー表示部分の間に✖が表示されていればそれをクリックしてとりあえず、コード記入画面のみにして、表示メニューから、プロジェクトエクスプローラをクリックして表示させてみて下さい。（隠居じーさん） 2020/07/18(土) 22:26 ---- わかりました。多分 ^^;。。。ぼろぼろで、あいすみません右端に✖が二つあるとおもいますので、下の方をクリックして消して見て下さい ↑ 3件のどれかだとここの記述が一番怪しいかも。オブジェクトブラウザが全面表示されているのかも (*^^*)。。。m(__)mm(__)mm(__)m （隠居じーさん） 2020/07/18(土) 22:33 ---- 隠居じーさん様おはようございます。色々調べて頂き有難うございます。＞一番左に四角でかこまれた、十字、みたいなの、有りましたら。。。なかったのです。＞上の段のメニューに【挿入】がありますので、そこから標準モジュールを新規に作成ここは、私もわかるのですが、残念ながら全ての標準モジュールは現れず、新規の標準モジュールのみでした。＞フォルダアイコン【フォルダの切替】切り替えをしても変化はありません。＞プロパティウインドウが表示されているのかもしれません。＞コードを書く部分と左端のメニュー表示部分の間に✖が表示されていれば＞それをクリックしてとりあえず、コード記入画面のみにして、表示＞メニューから、プロジェクトエクスプローラをクリックして表示させてみて下さい。隠居じーさん様から上記コメントを頂く前に私もVBAのアイコンをいろいろ押しながら試し挿入の左の表示をクリックして上から順にクリックしてみるのですが、標準モジュールの表示は見つかりません。＞メニュー表示部分の間に✖が表示されていれば＞それをクリックしてとりあえず、コード記入画面のみにして、 ✖をして見ましたが、コード記入画面にならず一番左が上から下にクラスグローバルクラス1 モジュール1から11迄シート1から9 右側は、グローバルのメンバーリスト2,27、41、各シート名に飛ぶのが3つほど並んでいます。今は、この状態です。＞右端に✖が二つあるとおもいますので右端に✖が二つではなく一つだけありましたのでクリックしましたが、このコメントのすぐ上の今は、この状態です。と同じです。勿論、私が違う画面で操作していると思うのです。 ■いずれにしても標準モジュール作成は、挿入から選択ます。 ■モジュールの件数を求めるのは、表示からプロジェクトエクスプローラをクリックしてモジュールが表示されれば、モジュールをダブルクリックしてコードが入っているモジュールの件数をKLY様へ報告すればいいのですね。表示での各項目が全然理解できていませんので、やり取りが食い違っていると思います、隠居じーさん様、申し訳ありませんでした。（謙児） 2020/07/19(日) 07:09 ---- 今、自宅ですが会社で見ようと思い、メールでファイルを添付しようと思ってもう一度VBAを再確認しましたら＞右側は、グローバルのメンバー＞リスト2,27、41、各シート名に飛ぶのが3つほど並んでいます。＞今は、この状態です。上記リスト2のコードに変わっています。?? 表示のプロジェクトエクスプローラをクリックしても変わりません。?? （こういう事を記載してご迷惑をおかけしたくないのですが、知識がないという事は、疲れてきますね。でも皆様に、ご親切に手を抜かず教えて頂くのは、有りがたいことです。本来、表示の各項目をネット等で調べ勉強しなければならないと思うのですが、仕事も忙しく自宅で考えながらする始末、早くこなしていくためにもそこに時間をかけてしまってーーー言い訳ですね、すみません。）（謙児） 2020/07/19(日) 07:32 ---- おはようございます ^^ お忙しい中でのご勉学ご苦労様です。当方が2016なので、画面表示が違うのだと思います。帰って混乱を招く様なコメントとなりご迷惑をお掛けしているやもしれません。申し訳ありません。左右に3:7で画面分割されていて、左に、シートなりモジュールが表示されているのでしたらそれをどれか、ダブルクリックしてみて下さい。。。^^; ちなみに左側画面の右端に✖はいくつ表示されていますでしょうか?。。。でわ。m(_ _)m （隠居じーさん） 2020/07/19(日) 08:53 ---- 隠居じーさん様おやさしいお言葉、有難うございます。早く個々の仕事を消化していき、会社の仕事を自宅で考えることを避ける様に頑張り VBAの仕組みを勉強して行きたいと思います。さて私の自宅でのPCは、エクセル2013です。古い為違いがあるのですね。＞左右に3:7で画面分割されていて、左に、シートなりモジュールが表示されているのでしたら＞それをどれか、ダブルクリックしてみて下さい。実行しようとVBAを開けましたら分割されてなくて単にリスト2のコードのみの画面になっています。そこで表示のプロジェクトエクスプローラをクリックすれば、左端がプロパティsheet1 その下が全体/項目別右側が、SUB リスト2のコードが書かれています。そのコードの余白部分をダブルクリックしますと左端が、モジュール8に変わりました。左側画面の右端に✖はいくつ表示されていますでしょうか?。。。✖は一つです。隠居じーさん様、この（VBAの表示）件につきましては、時間をおかけして申し訳ありませんので、ストップしてください。ふっと思ったのですが、一度会社のPCにこのファイルを転送して当初教えて頂いた標準モジュールを出して、うまくいけば、そのファイルを自宅に転送して、そのファイルを利用して作業を進めて行こうと思います。本当に一生懸命になっていただき有難うございます。（謙児） 2020/07/19(日) 09:46 ---- おはようございます ^^ VBE、一旦STOPをご要望の件、承りました。いじくり回していると。なぁ〜んとなく解かってくる場合も有りますです。^^; ← 理論派のかたに叱られそぉですが(￣▽￣) 大作を作成中のご様子で、ご健闘をお祈りいたします。最後に、この左側画面の×の個数をお尋ねした理由はこちらに複数の画面が重なる場合が御座いますので。ご注意くださいませ。でわでわ。これで私は退散させて戴きます、。。。また現れるかもしれません。。。 (#^^#)vでわでわ。m(_ _)m （隠居じーさん） 2020/07/19(日) 10:03 ---- 隠居じーさん様いろいろ有難うございました。＞大作を作成中のご様子で、ご健闘をお祈りいたします。有難うございます。皆様に教えて頂き前に進んでいます。＞この左側画面の×の個数をお尋ねした理由は＞こちらに複数の画面が重なる場合が御座いますので。＞ご注意くださいませはい、わかりました。ここで書くことかどうかわかりませんが、コロナウイルス感染のおりどうぞご自愛ください。（謙児） 2020/07/19(日) 10:54 ---- >改めてボタンを押しますと「さんぷる壱を実行できません」とエラーメッセージが出ます。ここだけ読むと、コードは「さんぷる壱」を「セル移動」に（プロシージャ名を）変更したのにボタンに登録しているマクロが「さんぷる壱」のままというだけの話のように思えますが＞ボタンのマクロ名をコードの中でセル移動と替えているの意味がいまいちわかりかねます。どういう意味でしょう? きちんと説明された方が解決が早いと思います。〜〜〜〜〜〜〜〜〜〜〜＞皆様に、ご親切に手を抜かず教えて頂くのは、有りがたいことです。 ※ 手抜きの回答と思われましたらスルーして下さい。（チオチモリン） 2020/07/19(日) 12:13 ---- チオチモリン様ご連絡ありがとうございました。＞ボタンのマクロ名をコードの中でセル移動と替えているどういう意味? KLY様の記載、2020/7/17(金)17:11での回答で、＞標準モジュールを追加して貼り付けてください。＞既存のボタンにこれを登録変更してください。マクロ名はセル移動。となっていますので、私が行ったことは、既存のボタンを右クリックしてマクロ登録を開き sub さんぷる壱()をsub セル移動()に変更して下記のコードを入力、当然前のコードは、削除して入れ替えました。そしてボタンを押しますと「さんぷる壱を実行できません」とエラーメッセージが出ます。ということです。以下、KLY様の記載です。 Sub セル移動() Sheets("請求書入力").Select Range("C3").Select If Range("C3") = "" Then MsgBox ("担当名が未入力です" & Chr(13) & "確認して下さい") Exit Sub End If Range("C4").Select If Range("C4") = "" Then MsgBox "支払先名が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("C5").Select If Range("C5") = "" Then MsgBox "請求書年月日が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Dim 確認 If Range("C5") <> "" Then 確認 = MsgBox("請求月は、当月締め日になっていますか?", vbYesNo) If 確認 = vbYes Then Range("C6").Select Else Exit Sub End If End If If Range("C6") = "" Then MsgBox "請求書の支払合計が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("D6").Select If Range("D6") <> o Then 'ここでエラーが出る設定見直し MsgBox "支払金額と各勘定科目の金額に差額が出ています" & Chr(13) & "確認して下さい" Exit Sub End If Range("B10").Select If Range("B10") = "" Then MsgBox "勘定科目等が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B13").Select If Range("B13") = "" Then MsgBox "税込み金額が未入力です" & Chr(13) & "確認して下さい" Exit Sub End If Range("B14").Select If Range("B14") = "" Then MsgBox "?@の支払明細が未入力です。他の支払い明細の、漏れはないですか?" & Chr(13) & "確認して下さい" Exit Sub End If End Sub ■＞皆様に、ご親切に手を抜かず教えて頂くのは、有りがたいことです。 ※ 手抜きの回答と思われましたらスルーして下さい。自分の思いを伝えるのは、難しいですね。私の思いは、最初から手抜きの回答をうんぬんについて言ってるのではなく、代表して隠居じーさん様のように表示がうまく出ませんと言いましたら、このようにされては、次にうまくいかなければこのようにされては、と色々素人の私に合わせて教えて頂きご足労をかけてご回答を頂くのが感謝、有難い（場合によっては、途中でxxをネットで検索してお勉強してください。といわれても仕方ないことです。）と言っているのです。言葉足らずで失礼な解釈になってしまいまして申し訳ございませんでした。（謙治） 2020/07/19(日) 14:07 ---- >以下、KLY様の記載です。のように書かれると如何にも私のコードが悪いのではないかと受け止めざるを得ません。隠居じーさんさんとのやりとりを拝見してあなたの理解不足には空き果てました。（KLY） 2020/07/19(日) 16:05 ---- ＞既存のボタンを右クリックしてマクロ登録を開き【編集】ボタンをおしてVBEのコードウィンドウに画面遷移し、そこでプロシージャ＞sub さんぷる壱()をsub セル移動()に変更した（だけ）ということですね。それだけだとボタンに登録されたマクロは従前の「さんぷる壱」のままですから、質問のような挙動になると思います。ボタンに登録するマクロ名を「セル移動」に変更（修正）してください。（チオチモリン） 2020/07/19(日) 20:55 ---- ↓に移動っぽい [[20200719165227]] 『Msg Boxのコメントプレビューが出来ない為』（謙治）（もこな2 ） 2020/07/23(木) 12:46 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200715051835.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ