VBA -Excel VBAでユーザーフォームを使ったアンケート入力フォー-

VBAでNAS上の共有フォルダ内のファイルに書き

皆様、宜しくお願い致します。私はVBA歴が浅く初心者に近いため、何卒ご教示の程お願い申し上げます。「楽天Q&A」の諸先輩方のご教示のお陰で、今回「ユーザーフォーム.xlsm」のファイル名で VBAのユーザーフォームを作成し、「確定」ボタンをクリックすると、このユーザーフォームで入力した内容を別のブックである「ご意見箱.xlsx」の「sheet1」に自動反映できるようになりました。そこで、一点ご質問です。ローカルディスク上では上記のように正常に動作できますが、この「ユーザーフォーム.xlsm」と「ご意見箱.xlsx」の両ファイルをNAS上の「共有フォルダ」内に置いた環境下で、 NASと同一ネットワーク上の他のクライアント端末からも「ユーザーフォーム.xlsm」を開いてユーザーフォームへの入力と、別のブックである「ご意見箱.xlsx」の「sheet1」に入力した内容を自動反映させたいのですが、具体的にそのVBA構文をご教授頂けませんでしょうか・・・？ネットワークパスは、\\IPアドレス\共有フォルダ\「ユーザーフォーム.xlsm」と \\IPアドレス\共有フォルダ\「ご意見箱.xlsx」でございます。自分なりに方策を色々と調べてみたのですが、現在使っている「Dir」関数ではなく「FileSystemObject」を用いれば、VBAの基本構文で記述できるようですが、具体的にどのように記述したらいいのか詳細までは掴めませんでした・・・。以下に現在、ローカルディスク上で問題なく動作しているVBA構文を参考までに掲載しておきます。 ★【ThisWorkbook】のVBA構文は、以下のようになっております。 'このExcelファイルを開いた時に行う処理 Private Sub Workbook_Open() On Error Resume Next Sheets("Sheet1").Activate '[ご意見入力フォームを開く]ボタンがあるシートを開く On Error GoTo 0 Application.Run "Opinion_Box_Open" End Sub ★【フォーム】（Opinion_Box）のVBA構文は、以下のようになっております。 'ユーザーフォームを開く Private Sub Opinion_Box_Open() Const myInformation As String _ = "現在は「ご意見箱」を利用する事ができません。" Dim PostRow As Long, buf As Variant _ , PostingOK As Boolean, Dummy(2) As String Call Confirm_posting_place( _ myInformation, PostingOK, Dummy(0), Dummy(1), Dummy(2)) If PostingOK Then Opinion_Box.Show End Sub 'ユーザーフォームに入力された投書データの転記先の有無を確認 '及び転記先Bookを開く事が可能な状況かどうかの確認 Sub Confirm_posting_place( _ ByVal myInformation As String, _ ByRef PostingOK As Boolean, _ ByRef StoragePath As String, _ ByRef PostFileName As String, _ ByRef PostSheetName As String) Dim buf As Variant StoragePath = "C:\Users\egmainlx\Desktop" '転記先のファイルが存在するフォルダーのパス PostFileName = "ご意見箱.xlsx" '転記先のファイルのファイル名 PostSheetName = "Sheet1" '転記先のファイル上の転記先のシートのシート名 buf = "" On Error Resume Next buf = Windows(PostFileName).Caption On Error GoTo 0 If buf = PostFileName Then PostingOK = Windows(PostFileName).Parent.Path = StoragePath Else PostingOK = True End If If Dir(StoragePath, vbDirectory) = "" Then PostingOK = False MsgBox "「ご意見箱」の投書内容の保存先のファイルがあるフォルダーとして" _ & "設定されているフォルダが見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「ご意見箱」を利用される方は、このトラブル内容を" _ & "「ご意見箱」の開発者（川添）へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先ファイル不明" ElseIf Dir(StoragePath & "\" & PostFileName) = "" Then PostingOK = False MsgBox "「ご意見箱」の投書内容の保存先のファイルとして設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "が所定のフォルダー内には見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「ご意見箱」を利用される方は、このトラブル内容を" _ & "「ご意見箱」の開発者（川添）へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先フォルダー不明" Else buf = Chr(0) On Error Resume Next buf = ExecuteExcel4Macro("'" & StoragePath _ & "\[" & PostFileName & "]" & PostSheetName & "'!R65536C256") On Error GoTo 0 If buf = Chr(0) Then PostingOK = False MsgBox "「ご意見箱」の投書内容の保存先として設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "というExcelBookの中には、投書内容の転記先として設定されている" _ & vbCrLf & vbCrLf & PostSheetName & vbCrLf & vbCrLf & _ "というシート名のシートが見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「ご意見箱」を利用される方は、このトラブル内容を" _ & "「ご意見箱」の開発者（川添）へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先シート不明" ElseIf Not PostingOK Then Windows(PostFileName).Activate MsgBox "「ご意見箱」の投書内容の保存先のExcel Bookとして設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "と同名の別Book(保存先フォルダが異なるBook)が開いているため、 " _ & myInformation & vbCrLf & vbCrLf _ & "「ご意見箱」を利用される場合には、現在開かれている" & vbCrLf & vbCrLf _ & Left(PostFileName, InStrRev(PostFileName, ".") - 1) & vbCrLf & vbCrLf & _ "というWindowのExcel Bookを閉じても問題がないか否かを確認し、" _ & "特に問題がない場合には、そのWindowのExcel Bookを閉じてから、" _ & "このフォームを開き直して下さい。" _ , vbExclamation, "保存先ファイルへのアクセス不能" End If End If End Sub 補足欄にも残りもう一つの「Module１」のVBA構文を掲載しておきます。皆様、何卒ご教示の程、切にお願い申し上げます。（拝）

VBA

～フォームの構文～の続きです。 '[確定]ボタンをクリックした時の処理 Private Sub ConfirmButton_Click() Const NumberColumn As String = "A" '転記先のシートにおいて連番を記入する列の列番号 Const DateColumn As String = "B" '転記先のシートにおいて意見が投書された日付を記入する列の列番号 Const DepartmentColumn As String = "C" '転記先のシートにおいて所属部署名を転記する列の列番号 Const TextColumn As String = "D" '転記先のシートにおいて投書内容を転記する列の列番号 Const myGroupName As String = "DepartmentSelect" '所属部署選択用のオプションボタンのGroupNameプロパティに設定した値 Dim StoragePath As String, PostFileName As String, PostSheetName As String _ , Department As String, myText As String, PostBook As Workbook _ , PostRow As Long, PostingOK As Boolean, myWindow As Window _ , buf As Variant, co As Control, myInformation As String _ Department = "": myText = "" For Each co In Opinion_Box.Controls If TypeName(co) = "OptionButton" Then If co.Value = True And co.GroupName = "DepartmentSelect" Then _ Department = co.Caption End If Next co myText = Contents_of_posting.Value myInformation = "" If Department = "" Then myInformation = "選択回答 " If myText = "" Then myInformation = myInformation & "その他" myInformation = Replace(RTrim(myInformation), " ", "と") If myInformation = "" Then Select Case MsgBox("下記の内容が入力されています。" & vbCrLf _ & "この内容でアンケートを送信してよろしいですか？" & vbCrLf _ & "　[はい] : この内容でアンケートを送信します。" & vbCrLf _ & "　[いいえ] : 入力フォームに戻って投書内容を修正します。" & vbCrLf _ & "　[キャンセル] : 投書を中止して入力フォームを閉じます。" _ & vbCrLf & vbCrLf & "【】 " & Department _ & vbCrLf & vbCrLf & "【】 " & vbCrLf & myText _ , vbYesNoCancel + vbInformation, "アンケート内容確認") Case vbYes GoTo Label_Posting Case vbCancel Unload Me End Select Exit Sub Else If MsgBox( _ myInformation & "が入力されていません。" & vbCrLf & vbCrLf _ & "[再試行] : フォームでの入力に戻ります。" & vbCrLf _ & "[キャンセル] : 入力を中止し、フォームを閉じます。" _ , vbRetryCancel + vbExclamation, "未入力項目あり") _ = vbCancel Then Unload Me Exit Sub End If Label_Posting: myInformation = vbCrLf _ & "フォームに入力いただいた内容を投函することができません。" Call Confirm_posting_place(myInformation, PostingOK _ , StoragePath, PostFileName, PostSheetName) With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False End With buf = "" On Error Resume Next Set PostBook = Windows(PostFileName).Parent buf = PostBook.Path On Error GoTo 0 If buf = StoragePath Then Set myWindow = PostBook.Windows(1).NewWindow Else Set PostBook = Workbooks.Open(StoragePath & "\" & PostFileName) Set myWindow = PostBook.Windows(1) End If myWindow.Visible = False With PostBook .Windows(.Windows.Count).Visible = False ThisWorkbook.Activate With .Sheets(PostSheetName) PostRow = 0 PostRow = .Range(DateColumn & .Rows.Count).End(xlUp).Row + 1 .Range(NumberColumn & PostRow).Value _ = Int(WorksheetFunction.Max(.Columns(NumberColumn))) + 1 With .Range(DateColumn & PostRow) .Value = Date .NumberFormatLocal = "ggge""年""m""月""d""日""(aaa)" End With .Range(DepartmentColumn & PostRow).Value = Department .Range(TextColumn & PostRow).Value = myText End With End With With myWindow .Visible = True .Parent.Save .Close End With ThisWorkbook.Activate With Application .Calculation = xlAutomatic .ScreenUpdating = True .DisplayAlerts = True End With MsgBox "ありがとうございました！アンケート回答入力内容が送信完了しました。", vbInformation, "完了" Unload Me End Sub 以上です。宜しくお願いします。

Excel2010 VBA

Excel2010でVBAのフォームを使って「コマンドボタン」をクリックしたときにフォーム入力した内容をデータ（リスト）に転記（反映）させたいのですが　どのようにしたらいいでしょうか？コマンドボタンの作り方は分りましたがそのマクロを実行する内容（コード）の作り方がいまいちわかませんちなみにデータ（リスト）は上から順番に空白の列を埋められていけばいいですよろしくお願いします

ＶＢＡアンケートの転記

はじめて質問します。Excel初心者です。アンケートをExcelで作成し、送信ボタンを押すと、別シートの規定のセルへ転記されるようにしたいです。回答はフリー入力です。アンケートシート B3がタイトル B5にアンケート文1 B7に回答 B9にアンケート文2 B11に回答 B13にアンケート文3 B15に回答集計シート B2にタイトル 1回目の送信ボタンで、C3～C5にアンケート文1～3までの内容を転記 2回目の送信ボタン以降は1列下にどんどん転記したいです。また、送信ボタンを押す度に、集計シートは保存されるところまでできればいいのですが、どのようにすればよいでしょうか… アンケートは対象者にその場で開いてもらいます。同時に複数人がさわることはないです。よろしくお願いします。

エクセルVBAの質問です

エクセルVBAでフォームを作成し、フォームに入力された情報をフォーム内の一番最後の入力項目の入力が終わった時点で、ワークシートに転記しようとしたいと思っています。 Userformのソースに記載してみましたが、うまくいきませんでした。どのような処理の流れにするといいでしょうか？ 1.フォームにデータが入力される 2.フォームの一番最後の項目が入力された時点で、フォームからB・Ｃ・D列に転記される。 3.フォームの内容がリセットされる 4.フォームの一番最初に入力が戻る 5.フォームの一番最後の項目が入力された時点で、前回の入力セルの2行下のB・Ｃ・D列に転記される。 6.フォームの×をクリックすると転記終了という流れですあまり詳しくなく的を得た質問になっていないかもしれないのですが、よろしくお願いします。

メッセージを表示する関数の引数について

はじめましてよろしくお願いします。現在、Access2002でメッセージを表示する関数を作成していますが、引数を増やしたらどうしてもコンパイルが通らず困っています。やっていることは標準モジュールに Public Sub ExcMsgBox(MSG As String, Title As String) 　　MsgBox MSG, vbOKOnly + vbExclamation, Title End Sub という関数をつくってフォームから ExcMsgBox ("入力必須項目が全て入力済でないため、" & _ 　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目") という形で呼び出していますが、これだと「コンパイルエラー、修正候補　=」と出ます。 SUBで関数宣言しているので、戻り値は無いはずなのですが TEST = ExcMsgBox ("入力必須項目が全て入力済でないため、" & _ 　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目") とするとその場のコンパイルエラーは避けられるのですが、実際に実行するとやはり「コンパイルエラー　Functionまたは変数が必要です」というエラーがでます。関数を Public Sub ExcMsgBox(MSG As String) 　　MsgBox MSG, vbOKOnly + vbExclamation End Sub のように引数を一つ減らして、フォームから ExcMsgBox ("入力必須項目が全て入力済でないため、" & _ 　　　　　　vbCrLf & "編集内容を保存できません。") のようにして呼ぶと正しくメッセージボックスが表示されるのですが。基本的なことで何か勘違いしているかもしれませんが、何かお気づきの点がありましたらご教授ください。よろしくお願いします。

エクセルＶＢＡのユーザーフォーム

こんばんは、エクセルＶＢＡでユーザーフォームを作成しました。そこに入力したものがブックに反映するわけですが、フォームに０（ゼロ）を入力した場合、ブック上のセルを選択すると０と入っているのですが、表示されません。なぜでしょう？？？？これができないとせっかく時間をかけて作ったのに、使えません。どなたかご存知の方よろしくお願いします！！！！

エクセルVBAの質問です。

エクセルVBA初心者です。入力フォームの内容を，別シートに保存したいのですが，いい方法が分かりません（涙）どなたか知恵を貸してください。実行したいことの要点をまとめると以下のようになります。・保存する別シートのレイアウトは入力ホームとは異なる（一行づつのデータにしたい）・入力フォームは，内容をクリアして繰り返し使用する・クリアボタン（作成しなくてもクリアできる場合は不要）と追加ボタンを作りたい @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 以下は，できればやりたいこと。入力シートは一枚で，反映シート（別シート）は何枚かほしい項目が合致したときにそれぞれのシートに反映したい。イメージとしては，学校の授業内容を入力シートに入力（項目は，内容・クラス・担任・教科など）それを担任ごとに反映シートに一行にまとめて，データ保存したい。文章が下手なので伝っているか不安ですが，よろしくお願いします。

Excel VBAに詳しい方教えてください。

Excel VBAについて下記内容をマクロを使ってできるようにしたいのですが、どなたかお力添えいただけませんか？例えば、下記のような記載のファイルBook1があるとします。 A1セル内名前 B1セル内〇〇会社 C2セル内〇〇部 D2セル内〇〇係この内容を別のファイルBook2へ転記したいのです。ただし、Book2の列は下記のようになっており A列名前(すでに入力されている) B列会社名 C列部 D列課 E列係 Book1の内容をBook2の下記の条件で正しいセルへ転記したいです。 -Book1で[部]で終わっているものはBook2のB列[部]に転記 -Book2ですでに入力されている名前の行に、Book1の情報を転記ご協力のほど何卒よろしくお願いいたします。

エクセルVBA　ハイパーリンクを別ブックに

皆さんこんにちは。エクセル2013使用のVBA初心者です。ふと「出来るのかな？」と思ったことを質問しておりますのでとんちんかんな内容でしたらごめんなさいです。現在book1.xlsmのユーザーフォームで記入した内容を book2.xlsxの特定のセルに反映させるマクロがあります。 book2にハイパーリンクを施してデータが格納してあるフォルダーに飛ぶようにしたいのですが直接book2に個人個人が記入すると誤ってデータを消されてしまう可能性があるので出来るだけbook2は閲覧とハイパーリンクをクリックするのみにしたいのです。 book1のユーザーフォームに (1)ハイパーリンク先を指定するテキストボックスのようなものを設ける (2)book2の特定のセルに(1)で記入したハイパーリンクを反映させるという事は可能ですか？

ＶＢＡ　表作成

こんにちわ。表が完成しました。しかし、後３つの課題が残されています。ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力質問１アラートは表示されずに上書きもなく保存させたいです。・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。）・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。保存のやり方はわかるのですが上記２つが解りません質問２保存が終わって指定したブックのみ閉じたい。・入力データを閉じたいです。解りづらいかもしれませんがよろしくお願いします。

Excel VBA コードを教えて下さい！

お世話になっています。今回は、次の事を実現するコードを教えて頂きたいと思います。＜データ入力ブック＞ A1=Book1 <----- 転記先のブック名（Excel文書名） A2="AAA" この＜データ入力ブック＞に入力されたデータを手掛かりにしてサブディレクトリにあるBook1のSheet2!A2に"AAA"を転記し保存。 ※2004年頃を最後にAccessのVBAにも触れていません。Excelは、一度も操作したこともなく同VBAは初めてです。 ※バージョンは、Excel2007。文書は、2003等との互換モード。厚かましいお願いとは承知していますが、教えてもらえるととっても助かります。非常に複雑な円の配置が自動化されたので私の仕事は明日で終わります。月曜日からは、２００文書へのデータ入力。一々、２００もある文書を検索して開いて当該のセルを探して入力していたのでは手間。そこで、＜データ入力ブック＞に１０項目程度の入力欄を設けて入力。＜データ入力ブック＞でデータの入力・訂正も管理し、そして一括更新。そういう仕組みを日曜日の夜の３、４時間で完成したいと思っています。そういう事情ですので、教えてもらえるととっても助かります。

VBA 任意のセルにデータを転記する方法

Excel のユーザーフォームを使って、データの入力をしたいと考えています。入力ボタンを押すと、テキストボックスに入力した内容が別シートのセルに転記されるものです。指定したセルに追加する、1番下の行に追加する、はできるのですが、コンボボックスに入力した内容によって転記するセルを変える方法はありますでしょうか？具体的に言うと、ユーザーフォーム内のコンボボックスで月（4月～3月）を選べるようにしているのですが 4月を選べば4月を入力するセルに。7月を選べば7月を入力するセルに転記したいです。何かいい方法はありますでしょうか。

VBAで条件が2つある場合の転記について

現在Book1.xlsmでユーザーフォームを作成しています。ここにComboBox7（日付）、ComboBox8（項目）、TextBox11（数値）を配置しています。コンボボックスやテキストボックスに入力があるとBook1.xlsmのSheet1にそれぞれComboBox7はA2、ComboBox8はB1、TextBox11はB2に入力されるようになっています。ここで、B2の数値を別なブックBook2.xlsxのSheet2に転記したいと考えております。 Book2.xlsxのSheet2では、A列に日付、B1～AZ1に項目が入っています。 Book1.xlsmのSheet1のA2と同じ日付、B1と同じ項目が交差するところにB2の数値を転記したい場合はどのようにしたら良いのか教えていただけませんでしょうか？

Excel VBA フォームとシートの連結

『Excelのシートの特定の部分をフォームに反映させて、フォーム上で値や文字を入力をして、入力内容を再びシートに返す。』と言うことをやろうとしています。しかしExcelのシートをフォームに反映させることができません。どなたかご存知でしたら御教授願います。よろしくお願いします。

エクセル：他機でブックが開かれているかの判定法

エクセルでA.xlsmで入力フォームを使ってデータを入力しますが、入力が終わってフォームを閉じるときに　　B.xlsを開いて　　それにも同じデータを転記し　　B.xlsを閉じるという動作をさせています。このBを開く際、他のPCで既にBが開かれている場合の動作は　　読み取り専用でBを開いて　　データ転記後　　別名で保存になってしまうため、既に開かれていたら、データ転記をせずにメッセージを表示したうえでプロシージャを終了させたいと考えています。他のPCでブックがすでに開かれているかどうかを判定する方法を知りたいのですが、どのような方法が考えられるのでしょうか。よろしくお願いします。

VBA ユーザーフォームの内容を別ブックに反映

「ユーザーフォーム.xlsm」のファイル名でVBAのユーザーフォームを作成しました。このユーザーフォームで入力した内容値を別ブックである「ご意見箱.xlsx」のsheet1に反映させたいです。「ユーザーフォーム.xlsm」と「ご意見箱.xlsx」は、「デスクトップ」上に置いております。ユーザーフォーム上の「確定保存」というコマンドボタンをクリックしたタイミングで以下のようなイベントの構文で記述しました。 (1)バックグラウンドで「ご意見箱.xlsx」をファイルオープンさせて (2)「ご意見箱.xlsx」の「sheet１」の最終行を取得して (3)最終行の連番を振り (4)オプションボタンの選択値とテキストボックスの内容を書き込み反映して (5)自動で上書き保存して閉じる。 (6)もしオプションボタンの未選択かテキストボックスの未入力があった場合は、警告メッセージを表示させる現状では(1)のバックグラウンドでのファイルオープンまでは問題なく動作しているのですが、(2)以降で躓いている状況です。ユーザーフォームの構成と反映先となる「ご意見箱.xlsx」ファイルのsheet1の構成は、画像添付のとおりとなっております。使用アプリケーション：Excel 2013です。ここに辿り着くまでにさんざん書籍やWEBなどで調べに調べまくってトライ＆エラーを繰り返してきたのですが、もしお分かりになる方がいらっしゃいましたら、皆様にご教示賜りたく何卒宜しくお願い申し上げます。

Excel2003VBA「ユーザーフォーム」

お世話になります。今、ユーザーフォームを作成中なのですがまずフォームを先に作成しました。この後でそれぞれの項目にコードを入れていけばよいのかな？と思って先に入れ物だけ作ったのですが手順としはこういった感じで良いのでしょうか？ちなみにExcelのシートには直接入力出来ないようにして、フォームに入力させる為にまず一旦リストを非表示にしてボタンのみ（「フォームを表示ボタン」）表示をし、フォームの入力に従ってリストに反映させたいのですが、勉強し始めの自分にはハードルが高過ぎるでしょうか？作成したフォームは添付の通りです。ご感想、その他ご教示いただける内容等々、宜しくお願い致します。

エクセルで複数のシートのデータをまとめるには

エクセルで、book内にsheetが同じフォーム（検査成績書のように）で複数存在している状態で、データが書かれているものを、同じbook内に新にsheetを作成して、一覧表のようにして転記したいのですが、簡単にする方法はないでしょうか？１個１個セルに転記するように番地を入力するのはわかるのですが、すごい手間がかかるので、もっと簡単に転記する方法はないでしょうか？

VBAで集計元のファイル名を取得する

フォルダの中に、あるアンケートに対する回答のエクセルファイルがあり(名前はバラバラ)、別の場所にその回答を一覧に並べるための"集計用ファイル"がります。このアンケートの回答ファイルは日々数が追加されて行くので、毎日"集計用ファイル"に回答を得た分を転記し日付の名前でもつけて保存して行きたいのです。エクセルマクロを使用して、回答ファイルの特定の部分に入力された内容を一人一列となるように"集計用ファイル"へ転記します。こちらで教えて頂いたりネットや本を見て下記までは理解しました。 ■質問各行の先頭に転記元のファイル名も記入するにはどの様な記述が必要かおしえてください。いろいろ試したのですが、力量不足でエラーもしくは全く反映されないものしか出来ませんでした。よろしくお願い致します。 ============================================= Sub 転記2() Dim WorkPath As String Dim Target As String Dim MaxRow As Long Application.ScreenUpdating = False WorkPath = "C:\Documents and Settings\Zawa\デスクトップ\Test" Target = Dir(WorkPath & "\*.xls", vbNormal) MaxRow = 1 Do While Target <> "" Workbooks.Open WorkPath & "\" & Target Workbooks(Target).Sheets("Sheet1").Rows("1:1").Copy _ ThisWorkbook.Sheets("Sheet1").Cells(MaxRow, 1) MaxRow = MaxRow + 1 Workbooks(Target).Close SaveChanges:=False Target = Dir() Loop MsgBox "転記が終了しました。" End Sub

VBA

みんなの回答

関連するQ&A

VBAでNAS上の共有フォルダ内のファイルに書き

VBA

Excel2010 VBA

ＶＢＡアンケートの転記

エクセルVBAの質問です

メッセージを表示する関数の引数について

エクセルＶＢＡのユーザーフォーム

エクセルVBAの質問です。

Excel VBAに詳しい方教えてください。

エクセルVBA　ハイパーリンクを別ブックに

ＶＢＡ　表作成

Excel VBA コードを教えて下さい！

VBA 任意のセルにデータを転記する方法

VBAで条件が2つある場合の転記について

Excel VBA フォームとシートの連結

エクセル：他機でブックが開かれているかの判定法

VBA ユーザーフォームの内容を別ブックに反映

Excel2003VBA「ユーザーフォーム」

エクセルで複数のシートのデータをまとめるには

VBAで集計元のファイル名を取得する

注目のQ&A

カテゴリ

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

専門家に質問してみよう

VBA

みんなの回答

関連するQ&A

VBAでNAS上の共有フォルダ内のファイルに書き

VBA

Excel2010 VBA

ＶＢＡ アンケートの転記

エクセルVBAの質問です

メッセージを表示する関数の引数について

エクセルＶＢＡのユーザーフォーム

エクセルVBAの質問です。

Excel VBAに詳しい方教えてください。

エクセルVBA ハイパーリンクを別ブックに

ＶＢＡ 表作成

Excel VBA コードを教えて下さい！

VBA 任意のセルにデータを転記する方法

VBAで条件が2つある場合の転記について

Excel VBA フォームとシートの連結

エクセル：他機でブックが開かれているかの判定法

VBA ユーザーフォームの内容を別ブックに反映

Excel2003VBA「ユーザーフォーム」

エクセルで複数のシートのデータをまとめるには

VBAで集計元のファイル名を取得する

注目のQ&A

カテゴリ

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

専門家に質問してみよう

ＶＢＡアンケートの転記

エクセルVBA　ハイパーリンクを別ブックに

ＶＢＡ　表作成