重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【GOLF me！】初月無料お試し

VBAマクロでデータ集計の結果を出すマクロの記載方法を教えてほしい、この結果が出た時にフォントの色を変更したいがその時のVBAコードの組み方を教えてほしい、このエラーメッセージの解決方法を知りたい等こちらに参考情報があるかもしれません。

回答数

気になる

  • エクセルのマクロについて教えてください。

    マクロコードを作業中のフォルダに変更する方法を教えてください。 マクロ Sub ファイルコピー() Dim myPath(2) As String Dim FileName As String ' ファイル元保管場所 myPath(1) = "C:\Users\Desktop\テスト物件\審査\" ' ファイル貼り付け先 myPath(2) = "C:\Users\Desktop\テスト物件\検査\" FileName = Dir(myPath(1) & "*(交付用）.pdf") Do While FileName <> "" FileCopy myPath(1) & FileName, myPath(2) & FileName FileName = Dir Loop End Sub が有ります。 このコードでは ' ファイル元保管場所 myPath(1) = "C:\Users\Desktop\テスト物件\審査\" ' ファイル貼り付け先 myPath(2) = "C:\Users\Desktop\テスト物件\検査\" になっておりますが、「審査」「検査」それぞれのフォルダは作業フォルダ内になります。 例えば作業フォルダ名「北海　太郎邸新築工事」や「北海　花子邸新築工事」等々その各作業フォルダ内に必ず「「審査」「検査」があります。 ファイル元保管場所とファイル貼り付け先の指定フォルダを作業中のフォルダに変更する方法を教えてください。 よろしくお願いします。

    質問日時: 2023/07/02 11:48 質問者: エクセル小僧

    ベストアンサー

    4

    1

  • エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を

    エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名をセル値にて 変更できる方法を教えてください 作業フォルダ内にはいくつかのPDFファイルがあります マクロを実行し いくつかあるPDFファイルをマウスで一つだけ指定して 作業ブックのシート名青紙（表） のセル値A1をファイル名に変更できる方法を教えてください 詳しくコードを教えていただける方 よろしくお願いします

    質問日時: 2023/07/01 15:16 質問者: エクセル小僧

    ベストアンサー

    3

    0

  • エクセルのマクロについて教えてください。

    2023/7/1 12:46 0回答 Excelのマクロについて教えてください。 マクロ Sub test2() Dim myPath(2) As String Dim FileName As String ' ファイル元保管場所 myPath(1) = "C:\Users\Desktop\テスト物件\審査\" ' ファイル貼り付け先 myPath(2) = "C:\Users\Desktop\テスト物件\検査\" FileName = "〇〇様邸新築工事(交付用）.pdf" FileCopy myPath(1) & FileName, myPath(2) & FileName If Dir(myPath(2) & FileName) <> "" Then End If End Sub が有ります。 マクロを実行するとフォルダ名「審査」からフォルダ名「検査」に ファイル名「〇〇様邸新築工事(交付用）.pdf」 がコピーされます。 ファイル名「〇〇様邸新築工事(交付用）.pdf」の 「(交付用）.pdf」より前の部分が物件によって変更されますので、 ファイル名が「〇〇(交付用）.pdf」の場合でもコピーが出来る方法を教えて下さい。 よろしくお願いします。

    質問日時: 2023/07/01 12:54 質問者: エクセル小僧

    ベストアンサー

    3

    1

  • エクセルのマクロについて教えてください。

    マクロを実行して、同じ作業フォルダ内の指定フォルダ（中のファイル共）を削除できる方法を教えてください。 同じ作業中のフォルダ内にフォルダ名が「前審査」が有ります。 マクロを実行すると、このフォルダ名「前審査」を削除出来る方法を教えてください。 よろしくお願いします。

    質問日時: 2023/07/01 10:35 質問者: エクセル小僧

    ベストアンサー

    3

    0

  • VBA ダブルクリックしたときにctrlキーが押されているか知りたいのですが。

    VBA　ダブルクリックしたときにctrlキーが押されているか知りたいのです。 2007年くらいに同じような質問があり、解決していたのですが、同じコードを書いても動作しません。年数がたちいろいろな環境が変わったせいだと想像しています。 2023年の現在では、どうやったらよろしいのかご存じの方いらっしゃいましたら、教えてください。どうぞよろしくお願いいたします。

    質問日時: 2023/06/30 22:42 質問者: nemos

    ベストアンサー

    1

    0

  • VBA Userform転記のみ編集可

    sheet１でUserformのみセルへの編集が可能で 手入力では編集できないような設定コードお願いします コードの記載する場所もお知らせくださいm(__)m 転記範囲はA～Sになります（シート全体でも構いません） 手入力可能解除パスワード設定あるといいですかね？ それかsheetの保護から解除できるのでしょうか よろしくお願いします

    質問日時: 2023/06/29 11:03 質問者: ka-.-ji

    解決済

    1

    1

  • エクセルについて教えてください。

    Excelについて教えてください。 下記の内容が、数式で行う事が出来るのか、又は、マクロで出来るのかを含めて教えてください。 作業ブックのシート名「確認申請(建築物)」の中にAccessと連携している物件データがあります。 行の「A～DA」迄の行が、一つの物件です。 例えば 「A1～DA1」は各項目です（変更なし） 「A2～DA2」が「北海太郎邸新築工事」です。 行は、日々、物件が更新（追加）されますので、シート内は無限に追加されます。 私の希望の条件 1. BJ列に担当者の「山田」の文字があり、 且つ 2. BK列が「空白」の場合に シート名「個人データ」の「A1」行に「北海太郎邸新築工事」の情報「A2～DA2」までをコピーできる方法を教えてください。 同じく シート名「個人データ」の「A2」行に「北海花子邸新築工事」の情報「A15～DA15」までをコピーできる等々の方法を教えてください。 シート名「確認申請(建築物)」の中には担当者「山田」の物件が多数ありますので シート名「個人データ」の「A1」行から「A2～」に全て該当する物件をコピーが出来る方法を教えてください。 よろしくお願いいたします。

    質問日時: 2023/06/28 09:11 質問者: エクセル小僧

    ベストアンサー

    3

    0

  • VBA 行削除した連番

    行削除した後の連番を崩れないようにできませんか？ 関数では試してできてはいるのですが 結局関数をA列に作っておく必要があるのと削除していくと減っていくので 自分以外の方が作成しない可能性があるので コードで削除時に作れればありがたいなと思います Sub CommandButton1_Click() Dim I, lRow As Long Dim sht As Worksheet Dim r0 As Integer ComboBox1.ListIndex = 0 lRow = Cells(Rows.Count, "C").End(xlUp).Row 'C列の最終行を取得します。 For I = lRow To 2 Step -1 '最終行から2行目まで繰り返す。 If Me.ComboBox1 = "" Then MsgBox "氏名が入力されてません" Exit Sub End If If Cells(I, "C") = ComboBox1 Then 'C列の氏名を判定します。 Rows(I).Delete '該当する行を削除します。 End If Next ’Unload UserForm3　’今は停止中 End Sub

    質問日時: 2023/06/27 16:00 質問者: ka-.-ji

    解決済

    4

    0

  • Userformを閉じて開く時、一瞬閉じて開くのがわからないようにする方法はありませんか。 閉じて開

    Userformを閉じて開く時、一瞬閉じて開くのがわからないようにする方法はありませんか。 閉じて開いて新しい情報を取得してます。 よろしくお願いします。

    質問日時: 2023/06/26 13:09 質問者: katsusyou

    ベストアンサー

    5

    0

  • VBAで自動集計（特定セルコピー月ごとに値貼り付け）したい。

    いつも大変お世話になっております。 VBAで自動集計できるようなシステムを作っています。手助けを御願いします。 やりたいこと B2の値が月末の時５行目から１０行目をそれぞれの月の部分へ自動で値貼り付けしたい。（今作ったので動作はしているようですがどうでしょうか。） すべての編集が終わってファイルを閉じたときに自動で動作をするようにしたい。 うるう年対応したいのと、一度作成すると毎年使えるものを作りたいです。（現在年はA1セルから引っ張っているのでA1セルを年度が替わるごとに手入力しないといけない。月末データの集計は毎月第３営業日に確定するため、NOWなどの関数は利用できない。） 条件セルの設定 A１セルより年を参照しています。 4列目の月のところは【 0”月”】とセルの書式設定をしています。 もっと簡潔な方法があればご教授お願いします。 素人作業で申し訳ありませんがよろしくお願いいたします。

    質問日時: 2023/06/25 11:37 質問者: m1tk

    解決済

    6

    0

  • オブジェクトが見つかりません

    下記を実行すると「オブジェクトが見つかりません」と Buf = Sht1.Cells(5, 2).Value で止まります。変数Bufを使わず、 Set FC1 = Sh1.Columns("B").Find(what:="３") Set FC2 = Sh2.Rows(9).Find(what:="3") だとエラーは起きないのですが何がいけないのか教えてください。 Sub test1() Dim Sh1 As Worksheet, Sh2 As Worksheet Dim FC1 As Range, FC2 As Range Dim Buf As String Set Sh1 = Sheets(1) Set Sh2 = Sheets(2) Buf = Sht1.Cells(5, 2).Value Set FC1 = Sh1.Columns("B").Find(what:=Buf, lookat:=xlWhole) Set FC2 = Sh2.Rows(9).Find(what:=Buf, lookat:=xlWhole) If FC1 Is Nothing Then MsgBox "見つかりません" Exit Sub Else If FC2 Is Nothing Then MsgBox "見つかりません" Exit Sub Else FC1.Offset(, 1).Resize(6, 25).Copy FC2.Offset(2).PasteSpecial Transpose:=True '行列を入れ替えて貼り付ける End If End If End Sub

    質問日時: 2023/06/24 19:43 質問者: momo_2123

    ベストアンサー

    1

    0

  • エクセルで特定のセルのみを任意のタイミングで更新する方法

    エクセルのRANDBETWEEN関数についての質問です。 再計算するたびに，新しい整数の乱数を返すと思いますが， 再計算のたびに，整数を返すのでなく自分のタイミング（マクロでフォームボタンを押したときなど）で実行されるようにしたいです RANDBETWEEN関数が設定されているセルだけを任意のタイミングで更新するのは，どのようにしたら良いでしょうか？

    質問日時: 2023/06/23 21:23 質問者: kirakira_star_

    解決済

    1

    0

  • findメソッドの変数について

    下記コードを実行するとオブジェクト変数または With ブロック変数が設定されていませんとエラーになります。 findで変数を使うにはどのような変更が必要なのか教えてください。 Dim Sht2 As Worksheet Dim Sht3 As Worksheet Dim rng As Range Dim Buf As String Set Sht2 = Sheets(1) Set Sht3 = Sheets(2) Buf = Month(Sht3.Cells(2, 1)) & "月" Set rng = Sht2.Range("A:A").Find(what:=Buf, lookat:=xlWhole).Offset(0, 16)

    質問日時: 2023/06/23 08:01 質問者: momo_2123

    ベストアンサー

    6

    1

  • IBM Notes9のメールをExcelVBAにて送信するコードについての質問です。 以下のコードを

    IBM Notes9のメールをExcelVBAにて送信するコードについての質問です。 以下のコードを実行すると、「実行時エラー13 型が一致しません。」とのエラーが出ます。 以下、コード Sub ※※() Dim wknses As Object Dim wkndb As Object Dim wkndoc As Object Dim wknrtitem As Object Dim style As Object Set wknses = CreateObject("notes.notesession") Set wkndb = wknses.getdatabase(" "," ") wkndb.openmail Set wkndoc = wkndb.CreateDocument() wkndoc.subject = "※※" wkndoc.sendto = Array(※※) Set wknrtitem = wkndoc.createrichtextitem("body") Set style = wknses.CreateRichTextStyle("body") style.NotesFont = wknrtitem.GetNotesFont("Times",True) ←ここでエラー With wknrtitem .AppendStyle style .AppendText "※※" End With wkndoc.Save False,False End Sub 以上は抜粋ですが、エラー文はinteger型で一致してると思い、原因と修正案が分からない状況です。 よろしくお願いします。

    質問日時: 2023/06/21 17:58 質問者: たかやん23

    解決済

    3

    0

  • VBA CommandButtonの文字ずれ

    ボタンを押すと左にずれるのは直しようがないでしょうか？

    質問日時: 2023/06/21 10:57 質問者: ka-.-ji

    解決済

    2

    0

  • A列と完全一致したセルとその右隣だけを残す

    A列に１００００行ほど、キーワードが記入されています。 B列～Q列にもキーワードが記入されていて、 そのB列～Q列内で、A列と完全一致したセルとその右隣だけを残す（他のセルは空欄にする） という風にしたいです。 例： A列 B列 C列 D列 E列 東京 東京 ラーメン 大阪 ケーキ 神奈川 岡山 お好み焼き 広島 イカ焼き 静岡 沖縄 そば 石川 パスタ 大阪 滋賀 コーヒー 大阪 たこ焼き ↓ A列 B列 C列 D列 E列 東京 東京 ラーメン 神奈川 静岡 大阪 大阪 たこ焼き このような形になるのが理想です。 これは、マクロでできるでしょうか？ どのような記述でできますか？ よろしくお願いいたします。

    質問日時: 2023/06/21 05:01 質問者: hatehatewa

    ベストアンサー

    3

    1

  • TextBoxで入力したらComboBoxに紐づいた情報を表示させたい

    Userform内でTextBox１にID入力したらComboBox１に氏名が表示するようにしたいのですが コード教えていただけませんか？ IDと氏名の紐づけは名簿A列（氏名）B列（ID）にしてあります

    質問日時: 2023/06/20 12:17 質問者: ka-.-ji

    解決済

    1

    0

  • ExcelVBAで、型が一致しませんのエラーについて

    関数で、 =ABS(MATCH(D$9,6:6,0)-COLUMN(D$9)) 上記のような数式があります。 この数式を、VBAで書換たいのです。 Sub ズレカウント() Dim j As Long For j = 4 To 38 Step 2 With Application Cells(10, j) = .Match(Cells(9, j), Range("D6:AL6"), 0) - Columns(Cells(9, j)) End With Next j End Sub - Columns(Cells(9, j)) この部分を、記載すると、型が一致しませんとなります。 同じ数値なので、型が一致するとおもうのですが、 どこを修正すればいいでしょうか？ お手数ですが、ご教示を尾根がします。

    質問日時: 2023/06/20 09:51 質問者: naonaokeikei

    ベストアンサー

    3

    0

  • 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA

    マクロを変更したいのですが上手く、出来ません。 どなたか、教えて頂けないでしょうか? 「ユーザマスタ照合」と、「ユーザマスタ」のシートが有ります。 「ユーザマスタ照合」はA～T列で9000行位、「ユーザマスタ」はA～AI列で8000行位までデータが入っています。 両シート共に1行目は項目が入っていて、データは2行目以降になります。 「ユーザマスタ照合」のB列の「社員番号」と、「ユーザマスタ」のE列の「社員番号」が一致したら、「ユーザマスタ照合」のV列以降に「ユーザマスタ」のA～AI列データをコピーして貼り付ける。 「ユーザマスタ照合」に有って、「ユーザマスタ」無いもの(一致しないもの)はV列以降は空欄になります。また、「ユーザマスタ照合」に無く、「ユーザマスタ」だけに有るものは表示されない(コピーされない)仕様になっています。両シート共に「社員番号」の重複はありません。 ※ここまでの作業は下記のマクロで作業を行っています。 追加したいのは現行は「ユーザマスタ照合」に無く、「ユーザマスタ」だけに有るものは表示されない(コピーされない)仕様になっているので「ユーザマスタ照合」と「ユーザマスタ」が一致しない「ユーザマスタ」はV列以降のユーザマスタの一番下に表示される(コピーされる)様にしたいと思っています。 お手数をお掛け致しますが宜しくお願い致します。 Sub ユーザマスタ照合() Dim r1 As Range, r2 As Range, rf As Range Set r1 = Worksheets("ユーザマスタ照合").Range("B:B") With Worksheets("ユーザマスタ") .Range("A1:AI1").Copy Worksheets("ユーザマスタ照合").Range("V1") For Each r2 In .Range("E2", .Cells(Rows.Count, "E").End(xlUp)) Set rf = r1.Find(What:=r2.Value, After:=r1.Cells(r1.Rows.Count), LookIn:=xlValues, LookAt:=xlWhole) If Not rf Is Nothing Then _ r2.Offset(, -4).Resize(, 35).Copy rf.Range("U1") Next End With "Set r1 = Nothing" Set rf = Nothing End Sub

    質問日時: 2023/06/19 20:48 質問者: hiro-1966

    解決済

    2

    0

  • Excelマクロ Application.Run

    独学でExcelを学んでおり、非常に有用に思われたので Application.Run を さわり始めたのですが、 受け側.xlsm Sub 受け側() Dim FilePath, ModuleName, ProgramName, FileName FilePath = "**********" ModuleName = "Module1" 'ProgramName = "大元マクロ()" FileName = Dir(FilePath) Application.Run "'" & FilePath & "'!" & ModuleName & "." & ProgramName Application.DisplayAlerts = False Workbooks(FileName).Close Application.DisplayAlerts = True End Sub 大元.xlsm Sub 大元マクロ() Cells(12, "A").Value = "ああああ" Rows(4).Copy Rows(6).Insert Shift:=xlDown End Sub にて、Excelファイルは両方デスクトップにあり、エラーも出ないのですが Cells(12, "A").Value = "ああああ" ↑は反映されるのですが Rows(4).Copy Rows(6).Insert Shift:=xlDown ↑部分が反映されません。 もちろん、大元.xlsm を起動し、Sub 大元マクロ()を単体で動かせば 大元.xlsm上にて指示通り反映されます なにか根本的な間違いがあるのでしょうか？

    質問日時: 2023/06/17 15:16 質問者: おとしより

    解決済

    5

    1

  • 表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた

    表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きたいのですが、、。誰か教えて下さい。 表はヘッダーの下からは動的で10行の場合もあれば500行の場合があります。

    質問日時: 2023/06/16 00:31 質問者: aaaakkkkk29

    ベストアンサー

    3

    1

  • VBAでのユーザフォームの表示有無の確認について

    ユーザフォーム FormA を表示するのに FormA.Show で行っています。 UserForm_Initialize()は、その前に実行されると思っていましたが、 FormAが表示されているかどうかを確認する下記のステートメントでも実行されるようです。 　If (FormA.Visible = True) Then … これは、仕様でしょうか？ また、UserForm_Initialize() の実行を回避して、ユーザフォームの表示確認を行う方法があればご教示お願いします。

    質問日時: 2023/06/15 16:10 質問者: isunsun

    解決済

    3

    1

  • エクセルVBA エクセルを開いた後に編集可能な状態にするには？

    表題について質問をさせてください。 Dim wb As Workbook Set wb = Workbooks.Open(Filename:=".\注文書_" & TimeStamp & ".xls") でエクセルを開いた後に、特定のセルに値を入れる事をしました。 VBAを終了時に手動で上記で開いたエクセルを編集できるように解放する為にはどのようにしたらよろしいでしょうか。 ＊エクセルを閉じず、そのまま手動で編集可能な状態にしたいです。 ないとぞよろしくお願いいたします。

    質問日時: 2023/06/14 11:58 質問者: エビゾー

    解決済

    2

    0

  • VBA Boxが空白の場合のメッセージボックス

    個々のBoxに対しての表示はわかるのですが If Me.TextBox1 = "" Then MsgBox "〇〇が入力されてません" Exit Sub End If ひとくくりで”未記入のBoxがあります”にしたいのですが そのような書き方ありますでしょうか？ 未記入Boxに対して色が付くようにとかもできるんですかね？

    質問日時: 2023/06/14 11:06 質問者: ka-.-ji

    解決済

    2

    0

  • Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを

    Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けをしたいです。 Range("D7")セル （本文）<br><br> 【PT1】<br><br> 【PT2】 【PT1】【PT2】をそれぞれ図に置き換えたところ、 それぞれの位置に上手く置き換えができず、【PT1】の位置に【PT2】の図だけが貼り付けされていました。 詳しい方教えて頂けると幸いです。 宜しくお願い致します。 ************************************************************* Dim outlookObj As Outlook.Application Set outlookObj = New Outlook.Application Dim mailObj As Outlook.MailItem Set mailObj = outlookObj.CreateItem(olMailItem) mailObj.Display Worksheets("リスト").Activate Dim mailBody As String mailBody = CreatemailBody With mailObj .To = Range("D5") .CC = Range("D6") .Subject = Range("D4") .HTMLBody = mailBody End With Dim objWRG As Word.Range Set objWRG = mailObj.GetInspector.WordEditor.Range(0, 0) With objWRG Worksheets("1").Range("A1:Z30").CopyPicture .Find.Text = "【PT1】" .Find.Execute .PasteSpecial .ShapeRange.Width = 900# Worksheets("2").Range("A3:AZ28").CopyPicture .Find.Text = "【PT2】" .Find.Execute .PasteSpecial .ShapeRange.Width = 900# End With End Sub Function CreatemailBody() As String Dim Body As String Dim Day As String Body = Range("D7") Body = Replace(Body, "【月】", Day) CreatemailBody = Body End Function

    質問日時: 2023/06/14 01:48 質問者: m0m0-wan

    ベストアンサー

    2

    0

  • エクセルVBA Workbook変数に変数を使ったファイル名を格納したい

    TimeStamp = Format(Now, "yyyymmddhhmmss") FileCopy ".\注文書_45_50_12.xls", ".\注文書_" & TimeStamp & ".xls" Dim wb As Workbook Set wb = ".\注文書_" & TimeStamp & ".xls" 上記ソースをエクセルVBAに書き込みました。 Set wb = ".\注文書_" & TimeStamp & ".xls" 上記部分でエラーがおき、オブジェクトが必要と表示されます。 wbにどうやったら変数を使ったファイル名が格納されますでしょうか。

    質問日時: 2023/06/13 14:46 質問者: エビゾー

    ベストアンサー

    5

    0

  • VBAコードが作動せず、どこに問題があるのか教えて下さい。

    商品の受払を入力シートからA商品券受払帳に転記したいのですが、作動しません。なお、コードは次のとおりです。sheetの画面は添付のとおりです。入力シートから受払帳の黄色の部分以下行に「月、日に日付、摘要に「ｋ商店」、発行高の枚数」が最小限転記できるようにと設定したいと考えました。 試行錯誤しましたが、作動せず修正箇所がわかりません。教えて下さい。 Set sh10 = Worksheets("A商品券受払帳") Set sh1 = Worksheets("入力シート") If Not IsDate(Range("G5").Value) Then Exit Sub Select Case Month(Range("G5").Value) Case 4: mRow = 1 Case 5: mRow = 35 Case 6: mRow = 68 Case 7: mRow = 82 Case 8: mRow = 109 Case 9: mRow = 139 Case 10: mRow = 173 Case 11: mRow = 187 Case 12: mRow = 211 Case 1: mRow = 227 Case 2: mRow = 260 Case 3: mRow = 318 End Select Call cashbook_main(mRow) End Sub Public Sub cashbook_main(mRow As Long) Dim sh10 As Worksheet Dim sh1 As Worksheet Dim maxrow As Long Dim Row As Long Dim dicT As Object Dim key As Variant Set sh10 = Worksheets("A商品券受払帳") Set sh1 = Worksheets("入力シート") Set dicT = CreateObject("Scripting.Dictionary") maxrow = sh1.Cells(Rows.Count, "H").End(xlUp).Row For Row = 2 To maxrow key = sh10.Cells(Row, "G").Value dicT(key) = Row Next key = sh1.Cells(2, "Q").Value If dicT.exists(key) = False Then MsgBox ("伝票番号=" & key & "は商品券受払にありません") Exit Sub End If If sh1.Cells(18, "M").Value = "" Then sh1.Cells(Row, "G") = "" MsgBox ("枚数が未表示です") Exit Sub End If Row = dicT(key) sh10.Cells(Row + mRow, "F").Value = sh1.Cells(7, "C").Value '名前 sh10.Cells(Row + mRow, "B").Value = sh1.Cells(5, "I").Value '年月日 sh10.Cells(Row + mRow, "G").Value = sh1.Cells(2, "Q").Value '伝票番号 MsgBox ("A商品券受払帳に転記します") End Sub

    質問日時: 2023/06/13 13:20 質問者: りんごとみかん

    ベストアンサー

    3

    1

  • 【VBA】写真の縦横比を変えずに貼り付ける

    ご覧いただきありがとうございます。 VBA初心者です。 この度、写真の貼付を自動化したく、 インターネットで見つけたコードを使ってみたのですが セルの大きさに合わせて写真の縦横比が変わってしまいます。 このコードを、縦横比を変えずに、セルの大きさに合わせて貼付するためには （イメージを画像で載せております） その部分を修正すればよいでしょうか？ ご教授のほどよろしくお願いいたします。 ーーーーーーー以下コードーーーーーーーー Sub 写真貼付1name() 'ファイル名付き 'ファイル読み出し用変数 Dim filename As Variant '写真読み込み用変数 Dim pic As Shape 'ファイルを纏めて読み込む filename = Application.GetOpenFilename("JPG,*.jpg", MultiSelect:=True) 'filenameの配列か確認 If IsArray(filename) Then 'ファイル選択数分繰り返す For i = 1 To UBound(filename) 'オブシェクト名を省略 With ActiveCell '写真のサイズをセルの大きさに合わせて貼付け Set pic = ActiveSheet.Shapes.AddPicture(filename:=filename(i), linktofile:=False, savewithdocument:=True, _ Left:=.Left + 2, Top:=.Top + 2, Width:=.MergeArea.Width - 4, Height:=.MergeArea.Height - 4) End With 'セルの貼り付け位置を設定 ActiveCell.Offset(3, 0).Activate Next i End If End Sub

    質問日時: 2023/06/13 11:42 質問者: miffy0517

    ベストアンサー

    5

    0

  • エクセルVBAについて質問です。 セルA1に"あ" セルB3に"い" セルC5に"う" と入力されて

    エクセルVBAについて質問です。 セルA1に"あ" セルB3に"い" セルC5に"う" と入力されていて クリップボードに上から個別に "う" "い" "あ" と貼り付けたいのですが どのようなコードになりますか？ わかる方がいましたら教えてください。 よろしくお願いいたします。

    質問日時: 2023/06/10 13:24 質問者: chnicky_hap

    ベストアンサー

    2

    0

  • マクロについて教えてください。

    画像のようなイメージです。 AブックとBブックがあります ①Aブックのヘッダーから下の1行分のデータを取り、Bブックの対象箇所に格納(印刷範囲で分けられた箇所) ②Aブックのヘッダーから下のデータ行分Bブックに印刷範囲設定 ③Aブックのヘッダーから下のデータ行分が10以上になる場合、Bブックに新シート作成し①②と同様の流れ ⇒データは続きから データは続きからの例 Aブックのヘッダーから下のデータが25だった場合、BブックにはSheet1(10行分),Sheet2(10行分),Sheet3(5行分)作成され、それぞれ該当の箇所にデータが格納されている

    質問日時: 2023/06/09 17:37 質問者: 佐藤知

    ベストアンサー

    3

    0

  • マクロについて教えてください

    画像のようなイメージです。 AブックとBブックがあります ①Aブックのヘッダーから下の1行分のデータを取り、Bブックに格納 ②Aブックのヘッダーから下のデータ行分Bブックに印刷範囲設定 ③Aブックのヘッダーから下のデータ行分が10以上になる場合、Bブックに新シート作成し①②と同様の流れ ⇒データは続きから データは続きからの例 Aブックのヘッダーから下のデータが25だった場合、BブックにはSheet1(10行分),Sheet2(10行分),Sheet3(5行分)作成され、それぞれ該当の箇所にデータが格納されている

    質問日時: 2023/06/09 16:01 質問者: hrt.yheeeee

    解決済

    2

    0

  • マクロについて教えてください。

    Aブックにある1000行ぐらい(可変)のデータを20行ずつ分割して、 Bブックにペーストしていきたいです。 【イメージの動き】 Aブックの表の行数が50だっだ場合、 Bブックには、sheet1に20行分のデータを格納 新しいシートを作成し(名前はsheet2)そこには残りの20行分のデータを格納する 新しいシートを作成し(名前はsheet3)そこには残りの10行分のデータを格納する

    質問日時: 2023/06/09 13:17 質問者: hrt.yheeeee

    解決済

    1

    0

  • エクセルのマクロについて教えてください。

    作業ブック内の作業シートを編集してマクロを実行すると 注意文のメッセージボックスが表示されえて、保存（S）をクリックで保存しておりますが、 シートを編集しても、メッセージボックスが表示されないでそのまま保存出来る方法を教えてください。 マクロ Sub 上書保存() Dim ブック As Workbook For Each ブック In Workbooks ブック.Save Next Application.Quit End Sub です。 よろしくお願いいたします。

    質問日時: 2023/06/09 12:17 質問者: エクセル小僧

    ベストアンサー

    2

    0

  • vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの

    vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックのsheet1に記載 Aブックの表の行数が20以上だったら Bブックのsheet1に記載かつ続きをsheet2を新たに作成し記載 具体的に、、 Aブックの表の行数が 20以上だった場合の例 ▪︎パターン1 Aブックの表の行数が35だっだ場合、 Bブックには、sheet1に20行分のデータを格納 新しいシートを作成し(名前はsheet2)そこには残りの15行分のデータを格納する ▪︎パターン2 Aブックの表の行数が50だっだ場合、 Bブックには、sheet1に20行分のデータを格納 新しいシートを作成し(名前はsheet2)そこには残りの20行分のデータを格納する 新しいシートを作成し(名前はsheet3)そこには残りの10行分のデータを格納する 上記の具体例のように 決まった行数分(今回は20行分)そのシートにデータを格納し、20行分より超えれば新しいシートにその続きのデータを格納するというマクロを組みたいです。 ある程度のイメージ条件です。 Aブックには ・B2からG2がヘッダーとして項目名称を入れる(名前はなんでも良い) ・B2からG2下は可変でデータはなんでも良い。 Bブックには ・D4セルにAブックのB列(B2から下)のデータが入るようにする ・M4セルにAブックのC列(C2から下)のデータが入るようにする ・H7セルにAブックのE列(E2から下)のデータが入るようにする

    質問日時: 2023/06/08 23:40 質問者: hrt.yheeeee

    解決済

    1

    0

  • 実行時エラー´5854´ 文字列型パラメーターが長すぎます。

    VBAで 実行時エラー´5854´　文字列型パラメーターが長すぎます。というエラーが出ました。 解決方法を教えてください。 Sub メイン() For i = 4 To 16 If Cells(i, 2) = "〇" Then 文 = 文 & Cells(i + 1, 3) & vbCr & vbCr End If Next For i = 4 To 16 If Cells(i, 6) = "〇" Then 文 = 文 & Cells(i + 1, 7) & vbCr & vbCr End If Next Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application wdApp.Visible = True Set wdDoc = wdApp.Documents.Open("C:\Users\テンプレート.docx", ReadOnly:=True) Dim objFind As Word.Find Set objFind = wdApp.Selection.Find objFind.Text = "≪当て込み≫" objFind.Replacement.Text = 文 Call objFind.Execute(Replace:=Word.wdReplaceAll) End Sub 宜しくお願いします。

    質問日時: 2023/06/08 21:17 質問者: 春政美

    解決済

    3

    0

  • マクロについて(tatsumaru77さん見てください)

    tatsumaru77さん見て頂ければご回答お願いします、、 前回の内容が少し尹とが違いまして、、 EEEより下のデータで判定します もし必須項目にデータがなかったらメッセージボックスに警告を表示したいです。 列・行ともに可変です。(最終行・列の取得方法でお願いします)

    質問日時: 2023/06/07 17:51 質問者: 佐藤知

    ベストアンサー

    5

    0

  • マクロについて教えてください。

    Excel VBA 別Bookへの値渡したいです。(変数に定義したもの) Module1とModule2がある状態で、 Module1の標準モジュール内に変数date1があるとして date1の値をModule2へ渡す方法を教えてください。 例は以下です、 Public date As Object ←こちらを別のモジュールでも使用したい(値は入ったまま) 【Module1】 Sub testA() '連想配列の定義 Set date1= CreateObject("Scripting.Dictionary") End Sub 【Module2】 Sub testB() MsgBox date1(0) ←ここで使用したい End Sub dateには以下の配列が入っています、 date(0) = A date(1) = B date(2) = C

    質問日時: 2023/06/06 09:06 質問者: 佐藤知

    ベストアンサー

    4

    1

  • マクロについて教えてください。

    標準モジュールで変数の参照をしたいです、 例は以下です、 Public date As Object ←こちらを別のモジュールでも使用したい(値は入ったまま) Sub testA() '連想配列の定義 Set date= CreateObject("Scripting.Dictionary") End Sub dateには以下の配列が入っています、 date(0) = A date(1) = B date(2) = C Sub testB() MsgBox date(0) ←ここで使用したい End Sub

    質問日時: 2023/06/06 00:57 質問者: 佐藤知

    解決済

    1

    0

  • エクセルのマクロについて教えてください。

    マクロを実行して、マクロ有効形式と一般のExcel形式の２つのファイルが作業フォルダ内に保存されます。 ２つのファイルの内、マクロ有効形式の保存先をダイナログが表示され、保存先のフォルダを選択出来、 一般のExcel形式のファイルはそのまま作業フォルダ内に自動で保存出来る方法を教えてください。 マクロ Sub 電子提出() Dim myFull As String myFull = ThisWorkbook.FullName Application.DisplayAlerts = False On Error Resume Next Worksheets(Array("記載方法")).Delete Worksheets(Array("提出図書（参考）")).Delete Worksheets(Array("Web申請手順（参考）")).Delete Worksheets(Array("申請種別")).Delete Worksheets("提出シート").Activate Dim rng As Range Set rng = Selection.Cells Range("B1", "H47").Select mybook = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook rng.Select Sheets("提出シート").Range("D3,D4,D5,D7").ClearContents Range("D7").Select Sheets("提出シート").Shapes("担当者").Visible = False ' ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.Quit Sheets("提出シート").Shapes("新築FD").Visible = False ' Sheets("提出シート").Shapes("計変FD").Visible = False ' Sheets("提出シート").Shapes("増築FD").Visible = False ' Sheets("提出シート").Shapes("担当者").Visible = False ' Range("D7").Select Kill myFull End Sub が有ります。このマクロを実行すると作業フォルダ内にマクロ有効形式「〇〇　様邸【担当】.xlsm」と一般のExcel形式「〇〇　様邸【担当】(提出用).xlsxが自動で保存されます。 上記のファイルの内、マクロ有効形式「〇〇　様邸【担当】.xlsm」のファイルを保存する際に ダイナログが表示され、保存先のフォルダを選択出出来るようにして 一般のExcel形式「〇〇　様邸【担当】(提出用).xlsxは今まで通り、自動で作業フォルダ内に保存。 が出来る方法を教えてください。 よろしくお願いします。

    質問日時: 2023/06/04 09:39 質問者: エクセル小僧

    ベストアンサー

    2

    1

  • あるマクロを起動し、その際に使用したデスクトップにある1.csv（マクロを起動したせいで加工されてい

    あるマクロを起動し、その際に使用したデスクトップにある1.csv（マクロを起動したせいで加工されている）を保存せずゴミ箱に移動したいです。 削除ではなくゴミ箱に移動させたいと思います。 あとから1.csvを再度使用する可能性があり、とりあえずゴミ箱に置いておきたいからです。 そちらのマクロを教えていただけますでしょうか。 よろしくお願いいたします。

    質問日時: 2023/06/02 22:35 質問者: tomorin_とも

    ベストアンサー

    3

    0

  • エクセルのマクロについて教えてください。

    マクロ有効形式で保存している作業ブックがあります、そのブックに設定しているマクロを実行し、マクロが完了した時にマクロを設定している作業ブックを削除する方法を教えてください。 先日より同じような質問をしておりますが、解決出来ておりません。困っておりますので、親切に教えて抱ける方、よろしくお願いいたします。 マクロ Sub 電子提出() Application.DisplayAlerts = False On Error Resume Next Worksheets(Array("記載方法")).Delete Worksheets(Array("提出図書（参考）")).Delete Worksheets(Array("Web申請手順（参考）")).Delete Worksheets(Array("申請種別")).Delete Worksheets("提出シート").Activate Dim rng As Range Set rng = Selection.Cells Range("B1", "H47").Select mybook = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook rng.Select Sheets("提出シート").Range("D3,D4,D5,D7").ClearContents Range("D7").Select Sheets("提出シート").Shapes("担当者").Visible = False ' ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.Quit With ThisWorkbook .Saved = True Application.DisplayAlerts = True .Close False End With Sheets("提出シート").Shapes("新築FD").Visible = False ' Sheets("提出シート").Shapes("計変FD").Visible = False ' Sheets("提出シート").Shapes("増築FD").Visible = False ' Sheets("提出シート").Shapes("担当者").Visible = False ' Range("D7").Select End Sub があります、このマクロを実行すると ○○　様邸【○○】(提出用).xlsx ○○　様邸【○○】.xlsm 以上の2つのファイルが作業フォルダ内に保存されます。 この2つのファイルが保存されれば、マクロを設定している作業ブックは不要となります。 マクロを実行後に作業ブックを削除出来る方法を教えてください。 以前、同じような質問をした時に 作業ブックを「参照」で開くことで出来ると教えて頂きました。 今回も同じように出来るでしょうか。 よろしくお願いいたします。

    質問日時: 2023/06/02 08:44 質問者: エクセル小僧

    ベストアンサー

    5

    0

  • 送付元、送付先が同じ大きさの複合セルのコピーがVBAで、できません。

    送付元、送付先が同じ大きさの複合セルのコピーで、 これはうまくできるのですが、 Worksheets("企業").Range(Cells(3, 13), Cells(6, 18)).Copy Worksheets("企業2").Cells(2, 44).PasteSpecial Paste:=xlPasteAll これがエラーになります。 転送先 = "Cells(2, 44)" Worksheets("企業").Range(Cells(3, 13), Cells(6, 18)).Copy Worksheets("企業2").転送先セル.PasteSpecial Paste:=xlPasteAll どうすれば、転送できるか教えてください。

    質問日時: 2023/06/01 20:51 質問者: Ninjya2436

    ベストアンサー

    1

    0

  • マクロを教えてください。

    VBAについて以下の手順のマクロを教えてください。 1. CSVを読み取る 2.CSVのレコード(１行目)とExcelの1行目から横に並んでいる番号と一致したら Excelの2行目からCSVにある2行目(aa,bb等のデータ)のデータを入れたいです。 イメージは↓です、 csv 1行目 000,001,002,003 2行目 aa,bb,cc,dd Excel 1行目 000 001 003 002 2行目 aa bb dd cc ↑ csv1行目が000とExcelの1行目が000の場合、 Excelの2行目にaaを出力(csvのデータを出力) CSVが3行目,4行目あれば Excelも3行目,4行目データが入ります。 (番号一致のみ出力) まとめると csvのキー名とExcelの1行目の値が一致したらそのデータを出力ということがしたいです。

    質問日時: 2023/06/01 19:47 質問者: 佐藤知

    ベストアンサー

    7

    0

  • エクセルのマクロについて教えてください。

    マクロを実行後に作業ブックを削除出来る方法を教えてください。 マクロ Sub 電子提出() Application.DisplayAlerts = False On Error Resume Next Worksheets(Array("記載方法")).Delete Worksheets(Array("提出図書（参考）")).Delete Worksheets(Array("Web申請手順（参考）")).Delete Worksheets(Array("申請種別")).Delete Worksheets("提出シート").Activate Dim rng As Range Set rng = Selection.Cells Range("B1", "H47").Select mybook = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook rng.Select Sheets("提出シート").Range("D3,D4,D5,D7").ClearContents Range("D7").Select Sheets("提出シート").Shapes("担当者").Visible = False ' ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.Quit With ThisWorkbook .Saved = True Application.DisplayAlerts = True .Close False End With Sheets("提出シート").Shapes("新築FD").Visible = False ' Sheets("提出シート").Shapes("計変FD").Visible = False ' Sheets("提出シート").Shapes("増築FD").Visible = False ' Sheets("提出シート").Shapes("担当者").Visible = False ' Range("D7").Select End Sub があります。 マクロを実行するとセル値をファイル名にして ○○ 様邸【担当】(提出用).xlsx ○○ 様邸【担当】.xlsm の2つのファイルが作業フォルダ内に保存されます。 この2つのファイルが保存されれば 作業中のブックは不要となりますので ファイルが保存されたタイミングで 作業ブックを削除出来る方法を教えてください。 コードの後半を Application.Quit With ThisWorkbook .Saved = True Application.DisplayAlerts = True .Close False End With With srcWorkbook .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close (False) End With Sheets("提出シート").Shapes("新築FD").Visible = False ' Sheets("提出シート").Shapes("計変FD").Visible = False ' Sheets("提出シート").Shapes("増築FD").Visible = False ' Sheets("提出シート").Shapes("担当者").Visible = False ' Range("D7").Select End Sub と設定しましたら 画像のように ○○ 様邸【担当】(提出用).xlsx　は上手く保存できましたが、 ○○ 様邸【担当】.xlsmが ○○ 様邸【担当】となり、Excelファイルでは保存されておりません。 解決方法を教えてください。 よろしくお願いします。

    質問日時: 2023/06/01 14:45 質問者: エクセル小僧

    ベストアンサー

    1

    0

  • VBA チェックボックスで

    Userformで転記しているのですが チェックボックス入れると今までと違う指定したセルに、チェックない時は今まで通り転記するようなことできますか？ 現状このようにしていますが If Cells(iCheck, 4).Value = Me.TextBox3.Text Then If Cells(iCheck, 17).Value = "" Then Cells(iCheck, 17).Value = CDate(TextBox1.Value) Cells(iCheck, 18).Value = Me.ComboBox1 Cells(iCheck, 19).Value = Me.ComboBox2 Cells(iCheck, 20).Value = Me.TextBox2 Me.TextBox3.Text = "" Me.TextBox3.SetFocus チェックボックスを有効にしたら24～27に転記し17～23のセルをクリアしたいです Cells(iCheck, 24).Value = CDate(TextBox1.Value) Cells(iCheck, 25).Value = Me.ComboBox1 Cells(iCheck, 26).Value = Me.ComboBox2 Cells(iCheck, 27).Value = Me.TextBox2 Cells(iCheck, 17).Value =　”” Cells(iCheck, 18).Value =　”” Cells(iCheck, 19).Value =　”” Cells(iCheck, 20).Value =　”” Cells(iCheck, 21).Value =　”” Cells(iCheck, 22).Value =　”” Cells(iCheck, 23).Value =　””

    質問日時: 2023/05/31 17:10 質問者: ka-.-ji

    解決済

    5

    0

  • VBA で エクスプロー操作

    エレコム ELECOM UC-TV6BK [データ移行ケーブル USB3.0 Windows-Mac対応 Type-Cアダプタ付属 1.5m ブラック] で、 これで、隣のｐｃ　見るというか　エクスプローラーで操作できる　らしいけど VBA で　隣のPC　テキストファイルを　開き　値が取り込めるか？　が　質問です。 IPアドレスって？？　どうして知るか？？　って事でしょうか

    質問日時: 2023/05/31 16:13 質問者: 2014itochan

    解決済

    1

    0

  • エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く

    エクセルVBAで困っています。 OpenFileNameにはCSVファイルのフルパスがはいっています。 ２つのファイルを開くことはどうにかできたのですが、 OpenFileName　を　".\注文書_" & TimeStamp & ".xls"　のシートとして開きたいです。 TimeStamp = Format(Now, "yyyymmddhhmmss") FileCopy ".\注文書_45_50_12.xls", ".\注文書_" & TimeStamp & ".xls" Workbooks.Open (".\注文書_" & TimeStamp & ".xls") Workbooks.Open (OpenFileName) どのように記述をしたらよろしいでしょうか。 何卒よろしくお願いいたします。

    質問日時: 2023/05/31 13:11 質問者: エビゾー

    解決済

    3

    0

  • マクロで最終行を取得したい

    複数のエクセルから表の情報を転記する作業をマクロ化したいと思っています。 コピー先となるエクセルは一つですが、コピー元となるのエクセルは複数あります。 参考に画像を添付しましたが別ブック１，２の情報をコピー先のエクセルに転記したいです。 そこで躓いているのが最終行の取得についてです。 下記のようなコード(一部省略していますが)を使って最終行の取得をして転記するところまではできているのですが、これだと当たり前ですが、別ブック１の情報はE,F列の空欄まで転記され、別ブック２だとC列以降の6行目にデータが入っていても転記されません。 ブック毎に最終行の列が毎回異なる場合はどのようなコードを使えばよいか、どなたか教えていただけないでしょうか。。。 Dim wb As Workbook（コピー元別ブック） Dim sh As Worksheet（コピー先） Dim c As Long, r As Long Dim no As Variant Dim rr As Long ・ ・ ・ With wb.Worksheets("シート1") For c = 1 To .Cells(3, Columns.Count).End(xlToLeft).Column Step 2 　no = .Cells(3, c).Value For r = 4 To .Cells(Rows.Count, 2).End(xlUp).Row rr = rr + 1 sh.Cells(rr, 1).Value = .Cells(r, c).Value sh.Cells(rr, 2).Value = .Cells(r, c + 1).Value sh.Cells(rr, 3).Value = no Next r Next c End With よろしくお願いいたします。

    質問日時: 2023/05/28 12:14 質問者: たまご3世

    解決済

    4

    0

  • vba初心者です

    A1に入力されるとB1がクリア、またB1に入力されると A1がクリアになるようなやり方を教えてください。 よろしくお願い申し上げます。

    質問日時: 2023/05/27 00:18 質問者: しょしょーた

    ベストアンサー

    1

    0

  • エクセルのマクロについて教えてください。

    マクロを実行するとエラーが出て、実行できません。 解決方法を教えてください。 マクロ Sub 江別市() Const copy_source As String = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\■江別市*.pdf" Const copy_fileName As String = "\■江別市*.pdf_Copy.pdf" FileCopy copy_source, ThisWorkbook.Path & copy_fileName End Sub があります。 このマクロは指定フォルダ内の指定ファイル「pdfファイル」を作業フォルダ内にコピーできるマクロですが、 画像のようなエラーメッセージが出てしまい。 マクロが実行できません。 尚、「■江別市*.pdf」の「*」は「■江別市」の後ろのファイル名が都度変更になるために「*」としております。 よろしくお願いします。 希望としましては 指定フォルダ内「 "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】」 の指定PDFファイル「■江別市○○.pdf」を作業フォルダ内にコピーをしたいです。 尚、上記でも触れましたが、ファイル名の○○は都度変更になりますので、○○の前のファイル名で判断したいです。 よろしくお願いします。

    質問日時: 2023/05/26 17:13 質問者: エクセル小僧

    ベストアンサー

    4

    0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

【Visual Basic（VBA）】に関するコラム/記事

【Visual Basic（VBA）】のコラム/記事一覧  もっと見る
コンピューターによる高速度に演算、判別、照合をする情報処理が可能になったことで私たちの便利な暮らしは支えられています。コンピューターを形作るOS、ソフトウェア、運用するためのネットワーク、サーバーなどに関してはこちらを参照してください。
カテゴリ一覧
ページトップ ページトップ

新しく質問する

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報