重要なお知らせ

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

電子書籍の厳選無料作品が豊富！

パソコンやゲームが好きで自分でプログラミングをしている・したいという方は少なくないと思います。プログラミングをする際の言語は何を使用したらよいか、自分の能力でどこまでプログラミングできるか等、参考になるような回答が集まっています。

回答数

気になる

  • phpでwebアプリを作っていてidとpasswordでwebアプリを開くようにしようと思っています

    がidを英数小文字8文字以上としpassを英数小文字8文字以上としたときに phpコマンドのsleep(1)を使って一回の認証に1秒かかるようにすれば ロボット認証で認証を破ろうとしても (26+10)^(8+8)秒=7.95866*10^24秒=2.517*10^17年≒25京年 程度かかるのでほぼ認証を破ることは困難とみてよいでしょうか？

    質問日時: 2024/11/21 08:16 質問者: reiman カテゴリ: PHP

    ベストアンサー

    4

    0

  • ナイトボットのAliasについて

    ナイトボットのコマンドについて教えてほしいです ナイトボットの設定上からAliasは設定できたのですがモデレーターさんがメッセージで設定する場合はどのように入力すればいいのでしょうか？ !addtcom 新しいコマンド $(参照するコマンド $(query)) ↑だと思っていたのですが違うみたいです、わかるかたお教え願います

    質問日時: 2024/11/20 00:25 質問者: たかおたか カテゴリ: AJAX

    ベストアンサー

    1

    0

  • C# で 数式文字列処理を処理する方法

    C# で DataTable を使って、数式文字列処理を処理すると "(1+6)*5/(7-4)" はOKですが "5^3" は"^"が処理できません。累乗の他に、 "abs(-5)" "sin(22/14)" など、よく使う初等関数を含む数値文字列も処理したいのですが、DataTable を使ってできる方法があるのでしょうか。 https://dobon.net/vb/dotnet/programing/eval.html を見ると、いろいろ紹介されていますが、リンク切れの所もあってよくわかりません。

    質問日時: 2024/11/19 22:18 質問者: アンドロメダシティ カテゴリ: C言語・C++・C#

    ベストアンサー

    3

    0

  • Rでのデータフレーム作成について

    Rにおいてデータフレームを以下の通り作成しようと入力したところ、 エラー: 予想外の ')' です ( ")" の) となってしまい、データフレームが作成できません。 解消方法をご教示願えませんでしょうか。 my_data <- data.frame( ID = 1:5, Name = c("阿部", "加藤", "仙谷", "代田", "飯田"), Score = c(33, 44, 55, 66, 77) )

    質問日時: 2024/11/18 21:14 質問者: ぬらぬらぬらりひょん カテゴリ: その他（プログラミング・Web制作）

    解決済

    2

    0

  • VBAのエラー表示の対処法について

    ＶＢＡのコード入力時に　型が一致しません　とエラー表示が出てしまいます、、。 対処法がわからず困っています。修正方法を教えていただきたいです。 以下のものが入力したコードです。 よろしくお願いいたします。(´;ω;｀) Sub AA1() Dim i For i = 60 To 104 If Cells(i, "D") Like "*入*" Then Range(Cells(i, "AM"), Cells(i, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 　ElseIf Cells(i, "D") Like "*退*" Then Range(Cells(i, "AM"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Cells(i, "D") = "空" Then Range(Cells(i, "AN"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Cells(i, "D").Interior.Color = RGB(252, 228, 214) And Cells(i, "D") = "" Then '空白でオレンジ色なら Range(Cells(i, "AL"), Cells(i, "AN")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 End If Next i Dim i1 For i1 = 60 To 104 If Cells(i1, "E") Like "*入*" Then Range(Cells(i1, "AS"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 　ElseIf Cells(i1, "E") Like "*退*" Then Range(Cells(i1, "AM"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Cells(i1, "E") = "空" Then Range(Cells(i1, "AO"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Cells(i1, "E").Interior.Color = RGB(252, 228, 214) And Cells(i1, "E") = "" Then '空白でオレンジ色なら Range(Cells(i1, "A0"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色 End If Next i1 End　Sub

    質問日時: 2024/11/18 11:59 質問者: ya00623 カテゴリ: Visual Basic（VBA）

    解決済

    6

    0

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

    下記のマクロはネットから参照したマクロで、マクロを実行すると指定フォルダが圧縮できます。 このマクロでが圧縮対象のフォルダを targetPath = "C:\Users\160931\Desktop\ファイル更新（最新）\テスト物件\12345678-5_交付用" '作成するZIPファイルのパスを zipFilePath = "C:\Users\160931\Desktop\ファイル更新（最新）\テスト物件\12345678-5_交付用.zip" に指定しておりますが、 この指定を マクロ設定ブックと同じフォルダ内にある、フォルダ「12345678-5_交付用」に変更出来る方法を教えてください。 尚、圧縮対象フォルダは1つしか無く、「_交付用」は固定フォルダ名になりますが、 「_交付用」から前の部分（12345678-5）は物件毎に変更になる為、 ' フォルダ名が「8桁の英数字-1_交付用」というパターンに一致する場合 If folderName Like "########-#_交付用" Then のような設定を希望いたします。 現状のマクロ Sub フォルダを圧縮() Dim targetPath As String Dim zipFilePath As String Dim psCommand As String Dim wsh As Object Dim result As Integer 'ZIP形式で圧縮するフォルダ(またはファイル)パスを指定 targetPath = "C:\Users\160931\Desktop\ファイル更新（最新）\テスト物件\12345678-5_交付用" '作成するZIPファイルのパスを指定 zipFilePath = "C:\Users\160931\Desktop\ファイル更新（最新）\テスト物件\12345678-5_交付用.zip" '実行するPowerShellのコマンドレットを組み立て psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted Compress-Archive -Path " & targetPath & " -DestinationPath " & zipFilePath & " -Force" Set wsh = CreateObject("WScript.Shell") 'PowerShellのコマンドレットを実行 result = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True) If (result = 0) Then MsgBox ("圧縮が正常終了しました。") Else MsgBox ("圧縮が異常終了しました。") End If '後片付け Set wsh = Nothing End Sub 以上となります。 宜しくお願い致します。

    質問日時: 2024/11/18 09:09 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • Pythonのエラーメッセージをコピーする方法

    Anacondaをインストールして、Pythonをコマンドプロンプトを使って使用してます。 コマンドプロンプト画面で、エラーメッセージをコピーしたいのですが、選択した状態で右クリックし、「コピー」を選択できません。 どうしたら、エラーメッセージをコピーできるのでしょうか？

    質問日時: 2024/11/17 17:58 質問者: l12 カテゴリ: その他（プログラミング・Web制作）

    ベストアンサー

    1

    0

  • これってなんの電話かわかりますか？どこかの国？

    これってなんの電話かわかりますか？どこかの国？

    質問日時: 2024/11/17 06:25 質問者: 比呂志 カテゴリ: AJAX

    ベストアンサー

    5

    0

  • VBAのループ処理について教えてください

    Sub　AA（） If Range("D60") Like "*入*" Then Range("AM60:AP60").Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Range("D60") Like "*退*" Then Range("AL60:AM60").Interior.Color = RGB(255, 0, 0) ' セルが赤色 ElseIf Range("D60") = "空" Then Range("AL60:AN60").Interior.Color = RGB(255, 0, 0) ' セルが赤色 End If 　Eｎｄ　Sub 上記の式はシートの６０行目についての処理ですが、これを１０２行目まで同列で同じ処理をしたい場合のループ処理の記載方法を教えて頂きたいです。。。 よろしくお願いいたします。

    質問日時: 2024/11/15 11:47 質問者: ya00623 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    3

    0

  • 修正依頼：【VBA】 結合セルに複数画像とファイル名一括挿入する方法

    ご覧いただきありがとうございます。 以前、「ダイアログボックスを開き画像ファイルを選択、１行目が見出し行になっている表のB2から６行ごとに結合したセルに画像を挿入し、隣のC列(６行ごと結合)に画像ファイル名(拡張子なし)が入る表を作る」という件で以下のコードを作成していただいたのですが、 画像がリンク貼り付けになってしまい、メール等で送信すると見れなくなってしまいます。 リンクではなく画像として挿入するためにはどうしたらいいでしょうか？ 詳しい方、よろしくお願いいたします。 Sub Sample() Dim i As Long, fileName As String Dim rng As Range, sItems With Application.FileDialog(msoFileDialogFilePicker) .Title = "Select Image Files" .Filters.Clear .Filters.Add "Image Files", "*.GIF; *.JPG; *.BMP; *.PNG; *.TIF", 1 .AllowMultiSelect = True If .Show = 0 Then Exit Sub Set sItems = .SelectedItems End With For i = 1 To sItems.Count fileName = Dir(sItems(i)) Set rng = Cells(i * 6 - 4, 2) rng.Offset(, 1).Value = Left(fileName, InStrRev(fileName, ".") - 1) Set rng = rng.MergeArea With ActiveSheet.Pictures.Insert(sItems(i)) .Left = rng.Left .Top = rng.Top .Placement = xlMoveAndSize .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Width = rng.Width .ShapeRange.Height = rng.Height End With Next i End Sub

    質問日時: 2024/11/14 16:46 質問者: ukr-pm カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    1

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

    下記マクロを実行すると ダイアログが開き、マウスで指定したPDFファイルを指定シートの指定セル値に設定しているファイル名に変更できます。 このマクロを下記の様に変更できる方法を教えてください。 マクロ設定ブックと同じフォルダ内に PDFファイル名が「A4」「A3」（固定のファイル名）となっているファイルがあります、 ダイアログを開かずに PDFファイル名が「A4」のファイル名をシート「昇降機質疑」セル値「V3」に設定しているファイル名に変更 PDFファイル名が「A3」のファイル名をシート「昇降機質疑」セル値「V9」に設定しているファイル名に変更 できる方法を親切にコード迄教えてください。 現状のマクロ Sub 交付用名前変更A4() Dim TargetFile As String Dim fPath As String, fname As String Dim newfName As String newfName = ThisWorkbook.Sheets("昇降機質疑").Range("V3").Value & ".pdf" newfName = NGNarrowToWide(newfName) ''メッセージを表示し、実施確認する。 If MsgBox(newfName & vbCrLf & vbCrLf & "（交付用_A4）を作成しますか。", vbExclamation + vbOKCancel) <> vbOK Then Exit Sub ' ファイルのパスを指定 fPath = ThisWorkbook.Path ' ダイアログを表示してファイルを選択 TargetFile = Application.GetOpenFilename("PDFファイル ,*.pdf", , "ファイルを選択", , False) If TargetFile = "False" Then Exit Sub ' ファイル名を変更 If TargetFile = fPath & "\" & newfName Then MsgBox "同名ファイルを選択しています" Exit Sub End If If Not Dir(fPath & "\" & newfName) <> "" Then Name TargetFile As fPath & "\" & newfName Else Dim rc As Integer rc = MsgBox("既に存在する名前です" & vbCrLf & "はいを押すと既存ファイルは削除され" & vbCrLf & "リネームファイルに置き換えられます", 52, "置き換え確認") If rc = vbYes Then Application.DisplayAlerts = False Kill fPath & "\" & newfName Name TargetFile As fPath & "\" & newfName Application.DisplayAlerts = True Else MsgBox "処理を中止しました" End If End If End Sub Public Function NGNarrowToWide(ByVal stg As String) As String stg = Replace(Replace(Replace(Replace(stg, "\", "￥"), "/", "／"), ":", "："), "*", "＊") stg = Replace(Replace(Replace(Replace(stg, "?", "？"), "<", "＜"), ">", "＞"), "|", "｜") stg = Replace(stg, """", Chr(&H8168)) NGNarrowToWide = stg End Function 以上となります。 宜しくお願い致します。

    質問日時: 2024/11/14 09:43 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    5

    0

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

    下記のマクロは先日教えて頂いたマクロで、マクロを実行すると フォルダ：検査時必要図書（正本）の中にある、PDFファイルを フォルダ：########-#_交付用 にコピーできます。 このコードを フォルダ：検査時必要図書（正本）を無くして マクロ設定ブックと同じフォルダ内にあるPDFファイルを マクロ設定ブックと同じフォルダ内にある フォルダ：########-#_交付用 に移動出来る方法を教えてください。（親切に詳しいコード共教えてください） 宜しくお願い致します。 現状のマクロ Sub 交付用に移動() On Error Resume Next Dim myPath As Variant Dim fPath As String, fname As String fPath = ThisWorkbook.Path ' myPath 変数にフォルダパスを取得 myPath = folder_acquisition(fPath) ' 「交付用_A3」で終わるPDFファイルを取得 fname = Dir(myPath(1) & "*（交付用_A3）.pdf") Do While fname <> "" ' ファイルのコピーを実行 FileCopy myPath(1) & fname, myPath(2) & fname fname = Dir Loop End Sub Function folder_acquisition(fPath As String) As Variant() Dim fso As Object, f As Object Dim n As Integer Dim myPath(2) As Variant Set fso = CreateObject("Scripting.FileSystemObject") ' 検査時必要図書（正本）フォルダの取得 myPath(1) = fPath & "\検査時必要図書（正本）\" ' フォルダ内のサブフォルダを走査し、「_交付用」で終わるものを見つける For Each f In fso.GetFolder(fPath).SubFolders Dim folderName As String folderName = Mid(f.Path, InStrRev(f.Path, "\") + 1) ' フォルダ名が「8桁の英数字-1_交付用」というパターンに一致する場合 If folderName Like "########-#_交付用" Then myPath(2) = f.Path & "\" n = n + 1 End If ' 必要なフォルダが見つかったら終了 If n = 2 Then Exit For Next f Set fso = Nothing folder_acquisition = myPath() End Function 以上となります。 宜しくお願い致します。

    質問日時: 2024/11/13 14:05 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    0

  • C言語のことです。写真(見にくくてすいません)の下のプログラムを実行したいのですが四行目がおかしいと

    C言語のことです。写真(見にくくてすいません)の下のプログラムを実行したいのですが四行目がおかしいと言う理由でコンパイルできなくて困っています。どなたか何が違うのかを教えていただきたいです。

    質問日時: 2024/11/11 18:35 質問者: EEscholar カテゴリ: C言語・C++・C#

    解決済

    6

    0

  • Adobe acrobat proでフォームを準備からフォームを作成しています。emailを半角英数

    Adobe acrobat proでフォームを準備からフォームを作成しています。emailを半角英数のみにしたり、他項目を全角入力のみにしたいのですが、やり方が分かりません。 フォーマット→カスタム→書式スクリプトの記述にjavascriptの記述で、何か入れれば良いのかな？とは思うのですが、ググって、色々入れてみたのですが、何も起こらないです。 どのようにすれば良いか分からないでしょうか？ こうすれば良いよって、親身に相談受けていただける方がいらっしゃったら5000円程度でしたら謝礼したいので、よろしくお願い致します。個人的なやり取りは禁止なのかな？とも思いますが、その場合は、すいません。謝礼は出来ませんが、ご教示の程、よろしくお願い致します。

    質問日時: 2024/11/10 17:17 質問者: miki1123 カテゴリ: JavaScript

    解決済

    1

    0

  • phpにはsession_regenerate_idがありセッションハイジャックに対して強靭なのです

    がjavaにはこのような機能がありません phpと同等なセッションハイジャック対策をとるには javaではどうしたらいいのでしょうか？

    質問日時: 2024/11/09 12:59 質問者: reiman カテゴリ: Java

    ベストアンサー

    1

    0

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

    下記のマクロを以下の条件のように変更出来る方法を教えてください。 マクロを実行するとワイルドカード名のPDFファイルが指定フォルダから指定フォルダ内にコピーされます。 コードの「Case "検査時必要図書（正本）"」ですが、マクロを設定しているフォルダを指定 （仮に今回はフォルダを「テスト部件」としてます。 コードの「Case "返却用（副本）"」ですがマクロを設定しているフォルダ内のフォルダを指定 （今回は：24110955-1_交付用となっておりますが、最初「_」前の半角英数字と8文字と「-」以下の半角英数字と1文字は物件によって変更されますが、「_交付用」は変更されません。 画像のように テスト物件フォルダ内にある「24001234-1_（仮称）北海太郎（交付用_A3）.pdf」を 同じくテスト部件内にあるフォルダ名「24001234-1_交付用」内にコピーを出来る方法を教えてください。 できるだけ詳しいコード迄、親切に教えてください。 現状のマクロ Sub 交付用() On Error Resume Next Dim myPath As Variant Dim fPath As String, fname As String fPath = ThisWorkbook.Path fPath = Left(fPath, InStrRev(fPath, "\") - 1) myPath = folder_acquisition(fPath) fname = Dir(myPath(1) & "*（交付用_A3）.pdf") Do While fname <> "" FileCopy myPath(1) & fname, myPath(2) & fname fname = Dir Loop End Sub Function folder_acquisition(fPath As String) As Variant() Dim fso As Object, f As Object Dim n As Integer Dim myPath(2) As Variant Set fso = CreateObject("Scripting.FileSystemObject") With fso For Each f In .GetFolder(fPath).SubFolders Select Case Mid(f.Path, InStrRev(f.Path, "\") + 1) Case "検査時必要図書（正本）" myPath(1) = f.Path & "\" n = n + 1 Case "返却用（副本）" myPath(2) = f.Path & "\" n = n + 1 End Select If n = 2 Then Exit For Next f End With Set fso = Nothing folder_acquisition = myPath() End Function 以上となります。

    質問日時: 2024/11/08 15:17 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • Visualbasicの現状について教えてください

    いつもお世話になります 最近はVBAでプログラムを7，8年開発してきましたが、解析業務でのデータ入力に関して 対話式の入力プログラムおよび図化プログラムを作る必要性が出てきました 現在は昔に買ったVisual Studio2010が有るのですが現状のVisualBasicを揃えようとして インターネットを調べたらいろいろバージョンが有り、VisualBasicのことはあまり書かれていません 古い人間なのでVisualBasicだけあれば良いのですがどれをチョイスしたらよいのか迷っています 何か薦める製品が有りましたら教えてください 居樹王、宜しくお願い申し上げます

    質問日時: 2024/11/06 16:43 質問者: 公共ごま カテゴリ: Visual Basic（VBA）

    ベストアンサー

    4

    0

  • cgi-binのエラー？

    質問も上手くないかもしれませんが、宜しくお願いします。 win10でanhttpdを使い、lan内でのみのサイトを運用しています。 昨日、気がついたのですが、 訪問カウントが全く表示されていません。 訪問カウンターはチャント更新されています。 表示が抜けているだけです。 添付画像を参照ください。 サイトは複数あり、すべてのサイトがすべて同じ状態です。 なお、色々調べていて、以下のエラーが出ていました。 Error Response 404 Thread 0(ID= 2004) to 127.0.0.1 for "/favicon.ico" 全く同じ（と思っていますが）仕組みをwin11でも作っていますが、 win11では問題なく表示されています。 anhttpdの設定も全く同じです。 anhttpd関係は、気がついたのは今ですが、昔から触っていません。 何処を調べたらよろしいでしょうか。 宜しくお願いします。

    質問日時: 2024/11/03 10:14 質問者: nagahaha カテゴリ: CGI

    解決済

    4

    0

  • javaでstatic mainメソッドから所属クラスを呼び出すにはクラス名を記述する必要があります

    がmain内で所属クラスを呼び出すときにクラス名を記述しなくてもよい方法はないでしょうか？ Class A { ArrayList<String> x; public A(){} private void methodx(){...} ......... static void main(String args) { A mya=new A(); ....... } } Class A を Class B に変更したらmain内の2カ所のAをBに置き換えなればなりません Aを何にかえてもmain内のAを書き換えなくても良い方法はないでしょうか？

    質問日時: 2024/11/02 13:26 質問者: reiman カテゴリ: Java

    ベストアンサー

    5

    1

  • Verilogについて質問です。この写真の2進ー10進の 問題のプログラムを作りたいのですがわかりま

    Verilogについて質問です。この写真の2進ー10進の 問題のプログラムを作りたいのですがわかりません。どなたかプログラムを教えていただきたいです。

    質問日時: 2024/10/31 21:34 質問者: EEscholar カテゴリ: Java

    解決済

    2

    0

  • 検索エンジンはなくなる？

    chatGPTなどのAIの登場で、検索エンジンはなくなるのでしょうか？ そうなると、サイトを上位表示させる対策のSEOなどもなくなっていきますか？ Googleが一強で、その他にYahooやBingなどがあったように、 これからは、chatGPTが一強で、その他にBardやClaudeが台当するようになるのでしょうか？ あなたはこれからの検索エンジンの立ち位置などはどうなると予測しますか？

    質問日時: 2024/10/30 12:57 質問者: hatehatewa カテゴリ: SEO

    解決済

    8

    0

  • Cのプログラムからアクセスできないファイル名の一括変更方法

    Cのプログラムで　fp = fopen(filename,"rb"); を実行すると必ずエラーになるファイル名があります。 色々調べた結果、エラーになるファイル名にSJISに存在しない文字コードが含まれているらしいことがわかりました。 そのようなファイル名の文字コードをSJISの類似の文字コードに 例えば、⓪　→　(0) のようにエクスプローラ上での手作業で変更すれば読めることも確認しています。 これらの作業をするアプリをCで作成しようと思いましたが、エラーになるファイル名の検出まではできますが、 　関数rename(読めないファイル名、読めるファイル名）; でエラーになってしまい、ファイル名変更ができません。読めないファイル名はfopenでエラーになるので、関数renameでもエラーになるのは当然ですが・・・ 一方、文字コードをunicode にすれば読めますが、今度はSJISで読めないファイル名の検出ができません。 で質問です 個別の手作業ではなく、一括してこれらの作業ができるコマンドやアプリ、教えてください

    質問日時: 2024/10/30 07:38 質問者: usa3usa カテゴリ: C言語・C++・C#

    ベストアンサー

    5

    0

  • 論理回路設計をVerilogで行う問題です。下の写真のように入力されたアルファベット(y,u,k,i

    論理回路設計をVerilogで行う問題です。下の写真のように入力されたアルファベット(y,u,k,i)の四文字をコード表にしたがい、2進数に変換するエンコーダの論理設計を行いたいのですが、プログラムが分からなくて困っています。どなたかこのプログラムを教えていただきたいです。他の文字はドントケアとします。教えてください。

    質問日時: 2024/10/29 16:17 質問者: EEscholar カテゴリ: Java

    解決済

    1

    0

  • フロントエンドエンジニアをしていますが、スキルアップのための転職、異動は3年目では早すぎますか？ 今

    フロントエンドエンジニアをしていますが、スキルアップのための転職、異動は3年目では早すぎますか？ 今の部署から離れたく、異動や転職を考えていますが、3年目程度で早いと思われないか心配です。

    質問日時: 2024/10/27 19:17 質問者: reo96319 カテゴリ: その他（プログラミング・Web制作）

    解決済

    3

    1

  • EJSを仕事でなんとなくで使っているので、もっと体系的に学びたいのですが、おすすめの本やサイトを教え

    EJSを仕事でなんとなくで使っているので、もっと体系的に学びたいのですが、おすすめの本やサイトを教えていただけると嬉しいです。よろしくお願いいたしますm(_ _)m

    質問日時: 2024/10/27 14:23 質問者: reo96319 カテゴリ: HTML・CSS

    解決済

    1

    0

  • VBA 2次元配列の出力

    EXCEL Microsoft365 VBAで、2行、179997列の2次元配列があります。 1行目には時刻、2行目には数値データがはいっています。 この配列について、A1セルをリサイズ、行列変換して出力することで、 A列に時刻、B列に数値データの一覧がほしいです。 しかし、出力すると、48926行目で、次の行以降が勝手にB列に折り返されて出力されてしまいます。 配列には正しくデータが入っていることを確認しているのですが、出力する際に、特定の行以降が次の行に出力されてしまい、 A列とB列に時刻が出力されてしまい、数値データが出力されません。 なお、48926行から179997行までは#N/Aとなっています。 データ数を少なくした場合(2行10列)で実行したときには問題なく出力されましたので、コード上に問題はないと思っています。

    質問日時: 2024/10/26 17:22 質問者: ぶつりがくっておいしいの カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • アセンブリ言語について。

    参照のために行頭に行番号を付けます。 XX: 01: b8 57 61 6b 61 mov $0x616b6157,%eax 02: 53 push %ebx 03: 50 push %eax 04: ba 04 00 00 00 mov $0x4,%edx 05: bb 01 00 00 00 mov $0x1,%ebx 06: b8 04 00 00 00 mov $0x4,%eax 07: 89 e1 mov %esp,%ecx 08: cd 80 int $0x80 09: 58 pop %eax 10: 31 c0 xor %eax,%eax 11: 5b pop %ebx 12: c3 ret 上記を一行ごとに開設すると以下の通りです。 01: 'Waka'の4文字をeaxへ 57='W', 61='a', 6b='k' 02: ebxをスタックへ (元のebxを保存するため) 03: eax(='Waka')をスタックへ 04: edxに4を代入 4は4バイトの意 05: ebxに1を代入 1は標準出力の意 06: eaxに4を代入 4はシステムコール4番(write) 07: esp(スタックポインタ)をecxに代入 08: Intel x86系Linuxでの(レガシー)システムコール 09: スタックの値をeaxに取り出し (03:で入れた値を除去するため) 10: eaxをゼロにする (同じ値のxorは常に0でmovより速いのでxorを使う) 11:スタックの値をebxに取り出し (02:で保存した値を復元するため) 12: 関数から戻る Cで書けば write(1,"Waka",4); の1行で書ける内容をアセンブラで(レガシー)システムコールを使って書いたものですね。 # Cの文字列はヌル終端で"Waka"は5バイトになるので # 完全には一緒じゃないけど、やりたいことは同じ 呼び出されたシステムコール内ではeaxが4なのでwriteシステムコールとわかり、ebxが1なので標準出力へ、ecxにスタックポインタの先頭すなわち'Waka'のアドレスがあり、edxから4バイト書き込みと分かる。 ここでいう12の解説の関数から戻るというのはどういう意味なのでしょうか?教えて頂けると幸いです。

    質問日時: 2024/10/25 07:58 質問者: メラゾーム カテゴリ: その他（プログラミング・Web制作）

    解決済

    11

    0

  • 至急助けてください！！！あと2時間しかないです！ ボタンを押したら0ランプが点灯し、コンマ5秒後に1

    至急助けてください！！！あと2時間しかないです！ ボタンを押したら0ランプが点灯し、コンマ5秒後に1ランプが点灯し0ランプが消える。 またコンマ5秒後に1ランプが消灯し、2ランプが点灯する。この流れを15ランプまで。 15ランプまでついたらコンマ5秒後に15ランプが消灯し14ランプがつく。そしてまた同じ手順で0ランプまでついてランプが全部消えたら終わり。 このラダープログラムを教えてください。すみません。すごく困っていて至急お願いします！！タイマーを使います。 解答募集してます！

    質問日時: 2024/10/24 14:37 質問者: たくやhachihgamua カテゴリ: その他（プログラミング・Web制作）

    解決済

    3

    0

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

    下記のマクロを実行すると、 指定セル値がファイル名となり、保存され、マクロ設定ブックが、削除されます。 このマクロを下記の様に変更する方法を教えてください。 シート名「新料金算定表2024.05」の指定セル「AS2」に（確認）と表示された場合のみこのマクロが実行でき。 シート名「新料金算定表2024.05」の指定セル「AS2」に（確認）と表示されていない場合は、メッセージボックスで（料金表を確認後、保存してください）とメッセージが表示され、マクロを実行する事が出来ないように出来る方法を教えてください。 現状のマクロ Sub 名前を付けて保存ファイル削除() Dim alert As VbMsgBoxResult alert = MsgBox("名前を付けて保存を行いますか？", vbYesNo + vbQuestion, "保存確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Dim newName As String newName = Sheets("受付・名簿・日付").Range("B54").Value Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean For Each ws In Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws Dim oldName As String oldName = ThisWorkbook.Path & "\" & ThisWorkbook.Name With ThisWorkbook Application.DisplayAlerts = False .SaveAs .Path & "\" & newName, xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True End With Kill oldName Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub 以上です。宜しくお願い致します。

    質問日時: 2024/10/24 09:27 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    0

  • ExcelのVBAコードについて教えてください。

    マクロ設定ブックに シート名「受付」「青紙表」「1」と「審査」があります。 作業の流れで、シート名「1」を表示して、作業を行う必要がありますが 度々失念してしまう事があり、マクロ等を設定し、この失念を防止したいと考えております。 私の希望ですが、 シート名「1」を1回でも表示しないと、シート名「審査」のシートに移動できないように設定できるマクロを教えてください。 その時にメッセージボックスが表示され、（シート「1」の作業が完了しておりません。作業を完了してください。）と表示出来る方法もお願いいたします。 又、このVBAコードをどこのシートに設定又はThisWorkbook を含めて親切にコード共教えください。 宜しくお願い致します。

    質問日時: 2024/10/23 11:58 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    1

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

    下記のマクロは以前教えて頂いたマクロで、このマクロを実行すると ダイアログが開き指定したPDFファイルを指定セル値にてファイル名が変更され、 マクロ設定ブックと同じフォルダ内に保存されます。 ファイル名を変更したファイルの保存先をマクロ設定ブックと同じフォルダ内では無く 変更したいファイル名を変更したい「PDFファイル」があるフォルダ内にそのまま指定セル値でのファイル名に変更して保存できる方法を教えてください。 現状のマクロ Sub 行政回答修正あり() Dim TargetFile As String Dim fPath As String, fname As String Dim newfName As String newfName = ThisWorkbook.Sheets("Webコメント").Range("V1").Value & ".pdf" newfName = NGNarrowToWide(newfName) ''メッセージを表示し、実施確認する。 If MsgBox(newfName & vbCrLf & vbCrLf & "行政回答（修正あり）を作成しますか。", vbExclamation + vbOKCancel) <> vbOK Then Exit Sub ' ファイルのパスを指定 fPath = ThisWorkbook.Path ' ダイアログを表示してファイルを選択 TargetFile = Application.GetOpenFilename("PDFファイル ,*.pdf", , "ファイルを選択", , False) If TargetFile = "False" Then Exit Sub ' ファイル名を変更 If TargetFile = fPath & "\" & newfName Then MsgBox "同名ファイルを選択しています" Exit Sub End If If Not Dir(fPath & "\" & newfName) <> "" Then Name TargetFile As fPath & "\" & newfName Else Dim rc As Integer rc = MsgBox("既に存在する名前です" & vbCrLf & "はいを押すと既存ファイルは削除され" & vbCrLf & "リネームファイルに置き換えられます", 52, "置き換え確認") If rc = vbYes Then Application.DisplayAlerts = False Kill fPath & "\" & newfName Name TargetFile As fPath & "\" & newfName Application.DisplayAlerts = True Else MsgBox "処理を中止しました" End If End If End Sub Public Function NGNarrowToWide(ByVal stg As String) As String stg = Replace(Replace(Replace(Replace(stg, "\", "￥"), "/", "／"), ":", "："), "*", "＊") stg = Replace(Replace(Replace(Replace(stg, "?", "？"), "<", "＜"), ">", "＞"), "|", "｜") stg = Replace(stg, """", Chr(&H8168)) NGNarrowToWide = stg End Function

    質問日時: 2024/10/22 09:41 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    0

  • プログラミングのやり方ざっくりでいいから教えて

    プログラミングのやり方ざっくりでいいから教えて

    質問日時: 2024/10/20 13:35 質問者: う大 カテゴリ: その他（プログラミング・Web制作）

    ベストアンサー

    6

    0

  • BASIC認証のフォームをデザインしたい

    PHPと.htaccessを併用して、制限をするシステムは.htaccessで、ログインフォームは、ブラウザのデザインのポップアップによるものではなくPHPによって送信される、HTMLでデザインされたものにすることはできないのですか？

    質問日時: 2024/10/20 12:09 質問者: 優里さん カテゴリ: PHP

    解決済

    5

    0

  • WindowsのOutlook を VBA から操作する

    取引の為余計なソフトを入れなかった為、officeのOutlookを入れようとしたら、WindowsのOutlookが入ってしまい、普通に使えるのですが、VBAから操作できず困っています。 WindowsのOutlook Microsoft Outlook バージョンがインストールされています1.2024.1009.100 (Production). クライアント バージョンは以下の通りです:20241011003.11. WebView2 バージョンは 129.0.2792.89. セッション ID は 6ae48727-7623-7640-8eb7-24548d6cf6cf.= officeのOutlook　の使い方は下記の通りです。一番簡単な方法かと・・・（当方はこれで十分なのですが） 'Outlookオブジェクトの変数宣言 Dim outlookObj As Outlook.Application Set outlookObj = New Outlook.Application 'メール送信用のオブジェクト作成 Dim mailObj As Outlook.MailItem Set mailObj = outlookObj.CreateItem(olMailItem) With mailObj '' .To = "xxxxxxxxxxxxx@xxxxx.xxx" 'メール宛先 '' .Subject = "メールの件名" 'メール件名 '' .body = "メール本文" 'メール本文 '' .BodyFormat = olFormatPlain 'メール形式に設定 End With .send WindowsのOutlookの　ブジェクトの変数宣言　と　メール送信用のオブジェクト作成　などを お教え願えれば幸いです。 参考URL　でも結構です。

    質問日時: 2024/10/19 17:52 質問者: kozo2004 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    4

    0

  • XMLサイトマップの登録方法がわかりません

    HP作成ソフトを使って作ったファイルをネットに転送しようとしたら「各検索サイトのＨＰからXMLサイトマップをとうろくしてください」とメッセージが出ました。ネットで検索してもやり方が全く分かりません。Google Search ConsoleにログインをしてURL プレフィックスのほうにURLを貼ってみましたがダメでした。 初心者にもわかりやすくやり方を教えていただけますでしょうか。 よろしくおねがいします。

    質問日時: 2024/10/17 00:54 質問者: waytoblue カテゴリ: XML

    解決済

    1

    0

  • fortran write文について マチンの公式で円周率を近似するプログラムを作っています。 wr

    fortran write文について マチンの公式で円周率を近似するプログラムを作っています。 write(6, '(a, 1pe23.14)') 'pi=', arctan(2d-1,nterms)*16d0-arctan(1/239,nterms) とうちたいのですが、「syntax error」と出て、wこの部分が間違っているそうです。 写真の画像は、1/239のところを変えて色々実験したものです。このコードだと「mossing exponent〜」と出ます。 arctan(1/239,nterms)のところを1とか2とかにすると正しく実行されます。 助けてください

    質問日時: 2024/10/16 21:05 質問者: teoburomakakaorinnne カテゴリ: その他（プログラミング・Web制作）

    ベストアンサー

    4

    0

  • エクセルのVBAコードについて教えてください。

    作業ブックの「ThisWorkbook」に 下記のコードを設定しております。 このコードは「昇降機【青紙】（表面）」の指定セル「R20」に不特定の文字が表示されないと、警告文が表示され「昇降機質疑」シートに移動できないように設定したコードです。 このコードを 指定セル「R20」に不特定の文字では無く 不特定の半角英数字（8文字）が表示されないとシート移動が出来ないように変更出来る方法を教えてください。 現状のコード Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If ActiveSheet.Name <> "昇降機質疑" Then Exit Sub Dim ws As Worksheet: Set ws = Worksheets("昇降機【青紙】（表面）") Dim c As Range If Not c Is Nothing Or IsEmpty(ws.Range("R20")) Or IsNumeric(ws.Range("R20")) Then MsgBox "未入力セルがあります、入力しないとシートを移動できません", vbCritical Application.EnableEvents = False Sh.Select Application.EnableEvents = True End If End Sub 以上となります。 宜しくお願い致します

    質問日時: 2024/10/16 15:52 質問者: エクセル小僧 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー

    エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 　　　　　　にんじん　　　50 　　　　　　ぴーまん 100 　　　　　　にんにく 250 ピーマン 150 みたいな表があって ［やりたい事］ B列の種類にピーマン、C列に100円があれば AからD列セルを黄色に B列がピーマン　C列が150円は 赤色にしたい場合はどうすればいいですか？ 自分なりに調べたらB列:B列で［ピーマン］の場所を検索して(dir)色をつけるみたいなことが書いてありましたがよく意味がわかりませんでした

    質問日時: 2024/10/15 14:33 質問者: pico1234567 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    1

  • MediaRecorderで録音した音声を<audio>で再生しようとするとiPhoneでエラーにな

    いつもお世話になっています。 jQueryで、ウェブ上で演奏できる鍵盤アプリを作っています。 このアプリに録音、再生機能を搭載しようとしているのですが、なかなか思った通りに動きません。 アンドロイドではうまく録音、再生できるようになったのですが、iPhoneではうまくいきません。 iPhoneでは、録音した音声を再生しようとすると<audio>コントロール上にエラーと表示され、再生できません。 原因を探しやすくするために、次の通り必要最小限のコードを書きおろしました。 const 音声 = new AudioContext, 発振器 = 音声.createOscillator(), 変換 = 音声.createMediaStreamDestination(), 録音機 = new MediaRecorder(変換.stream), 再生機 = $('audio')[0] 発振器.connect(変換) 録音機.ondataavailable = e => 録音機.記憶.push(e.data) 録音機.onstop = () => 再生機.src = URL.createObjectURL(new Blob(録音機.記憶)) $('#録音').click(() => { 発振器.start() 録音機.記憶 = [] 録音機.start() }) $('#停止').click(() => { 録音機.stop() 発振器.stop() }) ページ上には、<audio>コントロール、録音ボタン、停止ボタンがあります。 録音ボタンを押すと、OscillatorNodeとMediaRecorderが開始され、 停止ボタンを押すと、その両者が停止し、録音した音声が<audio>コントロールで再生できるようになるという仕様です。 コード中の、Blob()の第二引数に{type: 'audio/mp3'}を渡すとiPhoneで再生できるようになるのですが、今度はPCで再生できなくなったりと、最適解でない感じがします。 ゴールとしては、アンドロイドでもiPhoneでも再生でき、PCの場合にはダウンロードしてローカルの音楽アプリでも再生できるようにしたいです。 そのための対処方法をご教示ください。

    質問日時: 2024/10/14 10:57 質問者: zyousuke カテゴリ: JavaScript

    ベストアンサー

    1

    0

  • Trees掲示板CGI（CGI-Resque氏作）＋ 画像添付 機能のようなフリーCGIありますか？

    CGI-Resque氏 のTrees表示掲示板を長ーく利用させてもらっていますが、古いのでセキュリティ上荒らされても、ともかくタイトルにツリー表示でRES構成がわかりやすく、アクセス数も表示されるので、デザインアレンジして愛用させてもらっていますが （ここでその実サイトアドレス公開は避けます m(_ _)m）が、 画像添付・表示ができないので・・ずーっと補助措置を思案中なのですが、 その機能込みのフリーCGIスクリプト、なにか情報アドバイスいただければ m(_ _)m

    質問日時: 2024/10/13 20:09 質問者: odasaga09 カテゴリ: CGI

    解決済

    1

    1

  • コトリン言語について。

    Windowsでコトリン言語で、SDKMAN!をインストールしなくても良いのでしょうか?教えて頂けると幸いです。

    質問日時: 2024/10/12 17:22 質問者: メラゾーム カテゴリ: その他（プログラミング・Web制作）

    ベストアンサー

    1

    0

  • Outlookのアカウントがあるとメールを送れるようですが、私はないので送れません

    その掲示板はJavaScriptを使っているようです

    質問日時: 2024/10/12 02:18 質問者: LALALAJAPANEARTH カテゴリ: JavaScript

    ベストアンサー

    1

    0

  • VSCode で HTML と PHP が混在するファイルで自動整形を行いたい

    VSCode の公式から JavaScript, TypeScript, JSON, HTML はデフォルトのフォーマッターが入っているということで、PHP をフォーマットするために PHP Intelephense をインストールしたのですが、HTML と PHP と JavaScript が混在した場合に自動整形が実行されず困っております。 通常では PHP Intelephense をインストール後に Editor: Default Formatter に設定することでコードを保存時に整形されるのですが、上手くいかない場合の対策として下記の方法が書かれていたので試してみたのですが変化がなく困っております… 何か対策はありますでしょうか？ ※ HTMLとPHPコードをどちらもフォーマットするための設定から参照 ➀拡張機能の Prettier - Code formatter と PHP Intelephense をインストール ➁設定画面から @lang:html format を検索して、Editor: Default Formatter → Prettier - Code formatter を設定 ➂設定画面から @lang:php format を検索して、Editor: Default Formatter → PHP Intelephense を設定

    質問日時: 2024/10/11 22:23 質問者: 初心者サイト作成 カテゴリ: PHP

    ベストアンサー

    1

    0

  • エクセルVBAのブックを開く方法 例えば ［20241001］ ［20241002］ ［202410

    エクセルVBAのブックを開く方法 例えば ［20241001］ ［20241002］ ［20241003］のように毎日フォルダーが出来てきまして、各フォルダの中にはその日のデータが入った データA.csv データB.csv データC.csvの3つのcsvが入ってます。 マクロが入ったブックを日毎にフォルダーに入れて、 そのフォルダー内のcsvを開き、名前をつけてエクセルブックで保存したいのですがどうしたらいいですか？ 困っている事 毎日フォルダが変わるのでパスでは出来ないです。出来ればデータ名は毎回同じなので、［フォルダー内のデータA.csv］を開くという設定にして、名前で拾いたい。また保存も同じファイル内にしたいです ブック［マクロ］→ファイル内のcsvを名前で開く→名前をつけてエクセルデータで同じフォルダ内に保存

    質問日時: 2024/10/11 22:13 質問者: pico1234567 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    3

    0

  • エクセルVBAで特定のセルの値をコメントに置き換えることについて A1のセルに入っている値(文字)を

    エクセルVBAで特定のセルの値をコメントに置き換えることについて A1のセルに入っている値(文字)を、 別のシートのB1セルのコメントに貼り付けたいです。 A1の値は毎回変わるので、 マクロボタンを押すたびにA1の値を別シートB1のコメントに貼り付けるにはどうしたらいいですか？ 別シートのB1のコメント欄を出す事と常に表示させる所までは出来ました。A1の値を空欄のコメントに貼り付けたいです ※何度か頑張ってみたのですが出来ず困っています。

    質問日時: 2024/10/11 20:00 質問者: pico1234567 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    3

    0

  • レイアウトが異なる別のワークブックからデータを転記する方法を教えてください

    ExcelのVBAで画像のように4個のレイアウトから6個のレイアウトの別ブックへ 番号を基準に赤枠内の関連するデータを転記したいです。 転記するページも百ページ以上になるのでコードを含めご教授いただきたいです。 色々と試してみましたが見様見真似では今の自分にはどうにもならず、、、 よろしくお願いいたします。

    質問日時: 2024/10/10 11:14 質問者: モノルル カテゴリ: HTML・CSS

    解決済

    2

    0

  • エクセルでCDOを使ったメール送信について

    お世話になります。いつも助けていただいております。エクセルでメール送信で，CDOを使ったものをしりました。 使ってるサーバーがサクラなので，下記を参考に， https://qiita.com/apple123/items/c2cf2204d1992c5129e5 自分の環境にしてみましたが，全く反応がありません。 そのほか，gmail，yahoo，等の環境でもためしてみてもだめでした。 2024年現在，CDOを使って，メールを送信できている方いらっしゃるのでしょうか。 もしいたら，アドバイスいただければありがたいです。 よろしくお願いいたします。

    質問日時: 2024/10/10 10:10 質問者: mabo52 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    1

  • 【ExcelVBA】dictionaryの重複判断の基準（セル結合だと違う値として認識される）

    重複データを抽出したく試していますが、以下で詰まっています。 例えば、 A、B、C列のデータを連結したものを比較対象とし、 複数行あるものから重複データを抽出したいのですが、 「＆」で繋げたものを比較すると、違うものとみなされます。 A1、B１、C1を連結したものを１１１（A1に１、B１に１、C1に１）とし、 A２、B２、C２を連結したものを１１１（A２に１、B２に１、C２に１）とした場合、 dictionaryを使って、重複データを抽出している途中ですが、 「１１１」と「１１１」が違うものとして判断されてしまいますが、 同じだからエラー（既に割り当てられてる）で止まります（結合しなければ、機能します）。 一旦シート上で結合したものを値貼り付けに変えて、それをチェック対象にするしかないでしょうか？ データは数万行あります。 ご存知の方、ご教示お願いします。 ＜以下コード（コードは自分で考えたものではなく一部流用で、抽出できたら整形します）＞ Sub test() Dim i As Long Dim j As Long Dim maxRow As Long Dim dic As Object Dim strMat, lngNum Set dic = CreateObject("scripting.dictionary") j = 2 'リスト書き出し開始行 With ActiveSheet maxRow = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To maxRow strMat = .Cells(i, 2).Value & .Cells(i, 3).Value & .Cells(i, 4).Value←ここ If dic.Exists(strMat) Then ' 重複してる .Cells(dic.Item(strMat), 7).Value = strMat Else ' 重複してない dic.Add (.Cells(i, 2).Value), j j = j + 1 End If Next i End With end sub

    質問日時: 2024/10/08 22:09 質問者: yoshikadu カテゴリ: Visual Basic（VBA）

    ベストアンサー

    4

    0

  • プログラミング言語でアプリやゲームweb制作をしようと思っております。色んなプログラミング言語がある

    プログラミング言語でアプリやゲームweb制作をしようと思っております。色んなプログラミング言語がある中でjava、c++を学ぼうと思います。他の言語の方が良いですか？多くのデバイスで動作出来て学ぶ期間が少なく、なるべく早く動作したいです。おすすめのプログラミング言語はありますか？

    質問日時: 2024/10/07 12:16 質問者: クラフトマイン カテゴリ: C言語・C++・C#

    ベストアンサー

    4

    0

  • 【ExcelVBA】５万行以上のデータ比較の効率的な処理方法について

    社内での重複チェックツールを作っています。 セル関数で対応していましたが、以下理由でマクロでないと厳しいため試行錯誤中です。 ・行数は不定で、使うときに足りない分を関数を付け足す作業はしたくない ・関数を埋め込んだ場合、ファイルサイズが大きすぎて開かない＆再計算でフリーズ ・マクロにしたはいいが、結果が遅い（量が量だから仕方ない？） 以下処理ですが、 スピードが今一歩と感じています。 アドバイス頂ければ、幸いです。 データは現状５万ちょっとが最大です。 基本配列を使って比較すればいいのですが、デバッグしてると２０秒位かかり、 ハングアップしてるか不安になり、escすると止まるので動いてはいますが、 量が多いからこんなもんでしょうか？ やりたいことは１つずつ比較して、２つ以上ある箇所の隣に×をして更に隣のセルに該当データを出力させます。 そして、フィルターを掛けて抽出できるようにします。 これをボタンを押したら、ファイルを選ばせてチェックが始まるという流れです。 以下試しのコードです（比較箇所だけ） sub test Set targetRng = Range("A1:a50000") For Each Rng In targetRng For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Rng = Cells(i, 1) Then cnt1 = cnt1 + 1 End If Next If cnt1 > 1 Then Rng.Offset(0, 1) = "×" End If cnt1 = 0 Next end test

    質問日時: 2024/10/06 21:13 質問者: yoshikadu カテゴリ: Visual Basic（VBA）

    ベストアンサー

    7

    1

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

Q質問する（無料）

【プログラミング・Web制作】に関するコラム/記事

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

新しく質問する

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

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

おすすめ情報