プログラミング・Web制作(3ページ目)

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

回答数

気になる

エクセルVBA 検索結果を隣のシートの最終行に転記したい。

VBA初心者です。ワークシート2（ws2）で検索した検索結果（9行目B～E列に表示された値）を、ワークシート1（ws1）D～G列の最終行に貼り付けるにはどうしたらよいでしょうか？単にws2の９行目の値（検索値ではない）をws1へ貼り付けることはできたのですが（下記）、検索結果のコードをどう書くのかわかりませんでした。下記をどのように書き換えればよいか教えていただきたく、どうぞよろしくお願いいたします。 Sub 転記() 　Dim ws1 As Worksheet 　Dim ws2 As Worksheet 　　　Set ws1 = Worksheets(1) 　　　Set ws2 = Worksheets(2) 　Dim lastRow As Long 　　　lastRow = ws1.Cells(Rows.Count,"d").End(xlUp).Row + 1 　With ws1 　　　.Cells(lastRow, 4) = ws2.RAnge("B9") 　　　.Cells(lastRow, 5) = ws2.RAnge("C9") 　　　.Cells(lastRow, 6) = ws2.RAnge("D9") 　　　.Cells(lastRow, 7) = ws2.RAnge("E9") 　End With End Sub

質問日時: 2025/02/28 17:01 質問者: ごんた33 カテゴリ: Visual Basic（VBA）

解決済

6

0
Excelマクロで使うVBAコードをスプレッドシートのGoogle Apps Scriptに変換

Excelマクロで使用しているVBAコードをスプレッドシートのGoogle Apps Scriptに変換していただきたいです。 Sub hogo() 'ActiveSheet.Protect AllowFormattingCells:=True 'セル書式化 ActiveSheet.Protect AllowFormattingRows:=True '行を書式化 End Sub Sub 並び替え() ' ActiveSheet.Unprotect Rows("7:56").Select 'ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add Key:=Range("BE8:BE56"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveSheet.Sort .SetRange Range("A7:OS56") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B8").Select On Error Resume Next 'ActiveSheet.Protect AllowFormattingCells:=True 'セル書式化 ActiveSheet.Protect AllowFormattingRows:=True '行を書式化 End Sub

質問日時: 2025/02/28 12:21 質問者: gogiradaisuki カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
Excelマクロで使うVBAコードをスプレッドシートのGoogle Apps Scriptに変換

Excelマクロで使用しているVBAコードをスプレッドシートのGoogle Apps Scriptに変換していただきたいです。 Sub 前半予定() Dim 列 As Long Dim 元 As Long Dim 終 As Long Dim 先 As Long Sheets("（予定15）").Cells.ClearContents Sheets("(使用しない1)").Select Range(Cells(1, 1), Cells(1, 12)).Copy Sheets("（予定15）").Cells(1, 1).PasteSpecial Paste:=xlPasteValues 先 = 2 列 = 1 Do While Cells(1, 列).Value <> "" If Cells(2, 列).Value <> "" Then 終 = 70 For 元 = 2 To 70 If Cells(元, 列).Value = "" Then 終 = 元 - 1 Exit For End If Next Range(Cells(2, 列), Cells(終, 列 + 11)).Copy Sheets("（予定15）").Cells(先, 1).PasteSpecial Paste:=xlPasteValues 先 = 先 + 終 End If 列 = 列 + 12 Loop Application.CutCopyMode = False Sheets("（予定15）").Select Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes Call sakujyo Call CSV出力前半 End Sub

質問日時: 2025/02/27 21:22 質問者: gogiradaisuki カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
pythonについて（初心者です）

友人から今人気の言語を聞いたところパイソンだと聞きました。なので調べてみたら面白そうだなと思いました。私は、今46歳です。プログラミング経験はあります。 20代のころゲームをC言語で作っていました。 C言語は当時としては最先端でした。今でも使っている会社はあるようですが、パイソンが増えているようですね。 C言語の良さはスピードが速いことです。今でも忘れてしまってもいますが、C言語のコードで簡単なプログラムは組めます。パイソンのコードを見たのですが簡略化されて文法がさほど難しくないかなと思いました。やってみようかどうか迷っているのですが、パイソンをやられている方、どうですか？

質問日時: 2025/02/27 17:21 質問者: ともこんカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

12

0
(EXCEL超初心者)EXCELの関数(またはマクロ)で質問です。

EXCELの関数(またはマクロ)で質問です。 EXCEL初心者で申し訳ございません。離れた2列（画像ではA列とD列）で、対象行は必ず同じ行に存在し、同じシート1にあります。シート1の行は作業の品質向上のため、自由に追加、削除がされます。例では12行しかないですが、実際には100行近くあり、項目の抜け漏れチェックが難しい状況です。シート2(下記サイトに上げています)に「この項目は必ずあってほしい項目」を設けておいて、 https://aoibasho.wixsite.com/aoibasho/excel6 シート1で行が追加されても、削除されてもチェックできるようにしたいです。その際、例えばA2であればD2とセット、A3であればD3とセットでシート2の表と合うこと(A3とD4のセットではダメ) をチェックさせたいと考えています。マクロか関数でいい方法をご教示ください。申し訳ないのですが、マクロであれば全文(例えば、subからend subまですべて)教えてください。どうぞよろしくお願いいたします。

質問日時: 2025/02/26 23:09 質問者: ナカシュン太郎カテゴリ: Visual Basic（VBA）

ベストアンサー

11

0
新規に作ったサイトやブログが、3か月経過してもGoogleや Safariで検索結果に反映されないの

新規に作ったサイトやブログが、3か月経過してもGoogleや Safariで検索結果に反映されないのは普通ですか？なお、サイトには特段のエラー等はないものとします。

質問日時: 2025/02/26 17:34 質問者: pixi カテゴリ: SEO

ベストアンサー

1

0
ラジオボタンを複数選択したときの条件分岐をしたい

下記のように複数のラジオボタンを選択した際の条件分岐をさせたいのですが、うまく動きません。「#radio01」一個だけなら動くのですが、複数だと動かないです。基本的な書き方がおかしいのでしょうか。ご教授頂けると嬉しいです。よろしくお願いします。 $(function() { $('.button').click(function(){ if($('#radio01','#radio02','#radio03','#radio04').prop('checked')){ $('.answer').show(); } }); });

質問日時: 2025/02/25 11:01 質問者: tenpraxxx カテゴリ: JavaScript

ベストアンサー

2

0
YouTubeの動画を自分のホームページに表示させるために、コードをYouTubeからコピーして、自

YouTubeの動画を自分のホームページに表示させるために、コードをYouTubeからコピーして、自分のホームページに貼り付けました。以下のコードがそれですが、 width="252" height="153"の数値を変更しても、高さは変わるものの横幅が変わりません。どのようにしたら横幅も変わるようになるのでしょうか？ーー <iframe width="252" height="153" src="https://www.youtube.com/embed/xxxxxxxx " title="xxxxxxxxxxxx" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> ーー

質問日時: 2025/02/24 11:49 質問者: sato8888 カテゴリ: HTML・CSS

解決済

1

0
【マクロ】値を渡されたプロシージャから実行すると、渡したプロシージャを選択される？

Q1 以下の【値を渡されたコード】から、実行すると、プロシージャ選択画面が出ます当該画面を出さないようには出来ますか？？？ちなみに、モジュールには当該２つのコードしか記述ありません【値を渡されたコード】 Sub あいうえお(ByRef ws As Worksheet) ws.Cells(1, 1) = "あいうえお" ws.Cells(1, 2) = "かきくけこ" End Sub Q2【値を渡されたコード】から実行し、Sub 別ブックへ転記()プローシジャを選択すると Sub あいうえお(ByRef ws As Worksheet)のプローシジャだけではなく、Sub 別ブックへ転記()プローシジャも実行されてしまいます。当該、動きは仕様でしょうか？？？イメージは、Sub あいうえお(ByRef ws As Worksheet)だけ実行したので、他のプローシジャは実行されないのではないかという、印象があります【コード】 Sub 別ブックへ転記() Dim filpath1 As String Dim wb1 As Workbook Dim ws1 As Worksheet filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(141, 1) Set wb1 = Workbooks.Open(filepath1) Set ws1 = wb1.Worksheets("Sheet1") ws1.Cells(2, 1) = "xxx" Call あいうえお(ws1) End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ Sub あいうえお(ByRef ws As Worksheet) ws.Cells(1, 1) = "あいうえお" ws.Cells(1, 2) = "かきくけこ" End Sub

質問日時: 2025/02/23 12:18 質問者: aoyama-reiko カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
【マクロ】モジュール変数の記述時、Callにて、呼び出されたプロシージャから実行するとエラーとなる？

Q1標題の件、以下コード❶より実効すると、エラーとなりますモジュール変数の場合は、呼び出し側から実行しないといけないルールですか？？？【Callステートメントにて呼び出されたコード❶】 Sub あいうえお() ws1.Cells(1, 1) = "あいうえお" End Sub Q2以下の共通コードを、１回だけしか書かないで、例えば５つのCallで呼び出すプロシージャで、共同利用する為には、値渡しが有効ですか？？？下記の例は、Callが１つしかありません。しかし、実際は５つ位を予定しています【共通コード】 Dim filpath1 As String Dim wb1 As Workbook Dim ws1 As Worksheet filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(141, 1) Set wb1 = Workbooks.Open(filepath1) Set ws1 = wb1.Worksheets("Sheet1") 【コード】 Dim filpath1 As String Dim wb1 As Workbook Dim ws1 As Worksheet ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ Sub モジュール変数() filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(141, 1) Set wb1 = Workbooks.Open(filepath1) Set ws1 = wb1.Worksheets("Sheet1") Call あいうえお End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ Sub あいうえお() ws1.Cells(1, 1) = "あいうえお" End Sub

質問日時: 2025/02/23 11:57 質問者: aoyama-reiko カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
pythonでhtmlファイルの指定文字列間を取得したいです

：　：　　</script> 　</div> 　 　<div class="row pt-4 pe-2 ps-lg-3 pb-lg-4 kashi" id="kashi-box"> 　　<div> 　：　　</div> 　</div> 　 というファイルがあって、その中の『表示エリア』の間を抜き出したいのですが、pythonにて以下のコードを書いても動きません。 import codecs res = open('kekka.txt', 'r', encoding='UTF-8') name = re.findall('.+?', res) name2 = name[0] どこが悪いのでしょうか…

質問日時: 2025/02/23 04:45 質問者: risaghon カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
Vba Declare Functionを使う環境依存文字が化ける

いつもお世話になります DocuWorksの出力ファイルを操作する際、Declare Functionを使うのですが環境依存文字を使ったファイルのハンドルを取るときなどに、ファイル名がFunctionの中で化けているようでうまく行きません（宣言例） '2.64 XDW_OpenDocumentHandle DocuWorksファイルにアクセスするためのハンドルを得る。この場合だけ、pHandleはByRefで定義 Public Declare PtrSafe Function XDW_OpenDocumentHandle Lib "xdwapi.dll" (ByVal lpszFilePath As String, ByRef pHandle As LongPtr, ByRef pMode As XDW_OPEN_MODE) As LongPtr Public Type XDW_OPEN_MODE nSize As Long nOption As Long End Type '2.6 XDW_CloseDocumentHandle DocuWorksファイルにアクセスするためのハンドルを解放する。 Public Declare PtrSafe Function XDW_CloseDocumentHandle Lib "xdwapi.dll" (ByVal handle As LongPtr, ByVal reserved As String) As LongPtr （使用例） '...DocuWorksファイルにアクセスするためのハンドルを得る。 XDW_OpenDocumentHandle FileInfo(1), lngHandle, myMode '...FileInfo(1)のファイル、最終ページにFileInfo(2)以降の図面を挿入する。 XDW_InsertDocument lngHandle, myInfo.nPages + 1, FileInfo(k), vbNullString ファイル名は変数、FileInfo(k)になります今は、環境依存文字を見つけて一度、変換して処理して終了後に元戻す方法を考えていますこれは、あきらめてファイル名を変更するしかないですか？何か参考になることが有りましたら教えてください以上、宜しくお願い申し上げます

質問日時: 2025/02/22 15:15 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

2

1
FILMORAを使っているのですがテキストを見やすいものに変えたい

FILMORAを使っているのですが、動画編集の際のテキストがいまいちです。理想としてはこういう白文字が太くて、周りに色がついているかなり見やすい文字をを使いたいのですが、どこを見てもそういうのがありません。調べても出てこなかったのですが、FIMORAではテキストの編集でこのようなテキストは作れるのでしょうか？

質問日時: 2025/02/22 13:34 質問者: dental_clinic カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

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

マクロを実行するとOutlookメールを送信できます。コードはマクロの一部のコードです。 Toをセル値「V1」 CCををセル値「X1」 BCCををセル値「Z1」に設定したメールアドレスでメールを送信できるようにしております。この設定のCCとBCCを複数設定する方法を教えてください。 CCををセル値「X1」「X2」「X3」 BCCををセル値「Z1」から「Z12」としたいです。例えば CCをを("X1:X3")と設定するとエラーが出て上手くマクロを実行できませんでした。現状のコード '宛先 add = .Range("V1").Value add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":")) omail.To = add add = .Range("X1").Value add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":")) omail.CC = add add = .Range("Z1").Value add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":")) omail.BCC = add 以上となります。よろしくお願いいたします。

質問日時: 2025/02/21 13:20 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
submitで思うようにページが遷移しない

いつもお世話になっております。 --ソース（aaa.php） <form action="bbb.php" method="POST"> <button type="submit" value="作成" name="inp_sub"> <input type="submit" value="苦情" formaction="aaa.php/?kujyo=1" formmethod="POST"> </form> -- 上記aaa.phpファイルです。 aaa.phpファイルを開いたとき、作成ボタンをクリックすると、bbb.phpが開きます。ただ、苦情ボタンをクリックし、aaa.phpを再度読み込み、次に作成ボタンをクリックしても、bbb.phpに飛ばず、どうもaaa.phpを再描画している状態です。 PHPで作成しております。上記ソースはChromeの検証で抜粋したソースを表示しており、ソースをそのまま実行すると思う通り実行されます。。。有識者の方、何か考えられる現象がありますか？闇雲で申し訳ないのですが、どうぞよろしくお願いいたします。

質問日時: 2025/02/21 11:59 質問者: 紅葉の京都カテゴリ: PHP

ベストアンサー

1

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

マクロのコード内に指定セル値設定しておりますが、例えば add = .Range("V1").Value omail.Subject = .Range("AG1") '件名 & .Range("AG3").Value & vbCrLf _ のコードがあります。このコードのままだと作業シートに指定セルを設定する事が必要ですが、このコードの指定シートを「省エネリスト」と指定できる方法を教えてください。よろしくお願いいたします。

質問日時: 2025/02/21 11:56 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
⚠️至急です！⚠️ Yahoo!知恵袋の自動回答ツールを作成しようと思ったらお金はかなりかかりますか

⚠️至急です！⚠️ Yahoo!知恵袋の自動回答ツールを作成しようと思ったらお金はかなりかかりますか？

質問日時: 2025/02/20 21:55 質問者: tokumeide-su カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

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

下記のマクロを実行するとダイアログが表示されて、保存先フォルダを指定し、指定セル値をファイル名として作業ブックを保存、元の作業ブックはそのままで削除されません。このマクロをダイヤログが表示されないで、作業フォルダ内に保存できるように変更する方法を教えてください。現状のマクロ Sub 業者用日付を更新して保存() On Error Resume Next Application.DisplayAlerts = False Const folder As String = "\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\" Dim newName As Variant Dim initName As String initName = folder & Range("W2").Value newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm") If newName = False Then Exit Sub Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean 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 ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub 以上となります。よろしくお願いいたします。

質問日時: 2025/02/20 15:58 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
Vba FileSystemObject オブジェクトに使って拡張子、BaseNameを取り出す

いつもお世話になります今、下記のプログラムでファイル一覧を取り出すテストをしていたのですが拡張子や拡張子を除くファイル名の取り出しをスマートに記述できないかと思い投稿しました Sub Test5() Dim MyFile As Object Dim cnt As Integer Dim FilePath As String Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") FilePath = "XXXXXXXXX" cnt = 1 For Each MyFile In FSO.GetFolder(FilePath).Files ' セルにファイル情報を書き出し Cells(cnt, 1).Value = MyFile.Name ' ファイル名 Cells(cnt, 2).Value = MyFile.DateCreated ' 作成日時 Cells(cnt, 3).Value = MyFile.Size ' ファイルサイズ Cells(cnt, 4).Value = FSO.GetBaseName(MyFile.Name) ' BaseName Cells(cnt, 5).Value = FSO.GetExtensionName(MyFile.Name) ' 拡張子 cnt = cnt + 1 Next MyFile Columns("A:E").AutoFit Set FSO = Nothing End Sub 例えば、ファイル名はMyFile.Nameで取得できますがMyFile.BaseNameは出来ませんでしたそこでFSO.GetBaseName(MyFile.Name)にしています、拡張子も同様で何かありそうで Webで調べてみましたが分かりませんでした MyFile.???　で拡張子やBaseNameが取れたらスマートなのにと思い相談しますもし分かりましたら教えてください以上、宜しくお願い申し上げます

質問日時: 2025/02/20 14:53 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ダブルクリックで貼り付けた画像からリンクのみ削除し、画像を残したい。

Excelのシートに以下のマクロを組みましたが、空白でダブルクリックして、写真選択。写真をダブルクリックで貼付けまではいいのですが、画像にリンクが設定されてしまい、元データを削除すると、貼り付けた画像まで消えてしまいます。マクロは、詳しくないので、貼り付ければいいようにお願いいしたいです。よろしくお願い致します。＜下記に構文を添付＞ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' ターゲットセルが指定したセル（A2, C2, A4, C4, A6, C6）のいずれでもない場合、CancelをTrueに設定します。 Cancel = True ' ターゲットセルが指定したセル（A2, C2, A4, C4, A6, C6）のいずれかであれば、処理を実行します。 If Not Intersect(Target, Union(Range("ar2:ar20"), Range("at2:at20"), Range("av2:av20"), Range("ax2:ax20"), Range("az2:az20"), Range("bb2:bb20"), Range("bd2:bd20"), Range("bf2:bf20"), Range("bh2:bh20"), Range("bj2:bj20"), Range("bl2:bl20"))) Is Nothing Then ' ファイル選択ダイアログを作成します。 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "Select an Image File" ' ダイアログのタイトルを設定します。 .Filters.Clear ' 既存のフィルターをクリアします。 .Filters.Add "Image Files", "*.GIF; *.JPG; *.JPEG; *.BMP; *.PNG; *.TIF", 1 ' 画像ファイルのフィルターを追加します。 ' ダイアログで画像が選択されたら、その画像をダブルクリックされたセルに挿入します。 If .Show = -1 Then Dim Picture As Picture Set Picture = ActiveSheet.Pictures.Insert(.SelectedItems(1)) ' 挿入した画像のサイズと位置をダブルクリックされたセルに合わせます。 With Picture With .ShapeRange .LockAspectRatio = msoFalse .Width = Target.Width * 0.85 .Height = Target.Height * 0.9 'セルの中央（横方向/縦方向の中央）に配置 .Left = Target.Left + (Target.Width - .Width) / 2 .Top = Target.Top + (Target.Height - .Height) / 1.5 End With Application.ScreenUpdating = True Cancel = True .Placement = xlMoveAndSize End With End If End With End If 変更箇所をお願いします。

質問日時: 2025/02/20 09:55 質問者: 親子丼888円カテゴリ: Visual Basic（VBA）

解決済

2

0
C言語の関数のextern宣言

C言語で関数のプロトタイプ宣言をした時に、externを付けた場合と付けなかった場合で何か違いとかあるのでしょうか？（別のファイルで定義した関数を、他のファイルから宣言して使う場合を想定しています。）

質問日時: 2025/02/19 14:11 質問者: tmiyoshi カテゴリ: C言語・C++・C#

解決済

4

0
HTML PHP ラジオボタンのイベント

いつもお世話になっております。 HTMLとPHPでサイトを構築しております。ラジオボタンをクリックした時、イベントを発生したいのですが、どこのサイトを探してもありません（当然かも知れませんが。。。）。 Javascriptは使用できないのです。また、<form>の中のSubmitボタンも使用せず、ラジオボタンクリックでのイベント発生は可能なのでしょうか？有識者の方、ご教示よろしくお願いいたします。

質問日時: 2025/02/19 12:42 質問者: 紅葉の京都カテゴリ: PHP

解決済

8

0
VBAの質問（Msgboxについて）です

VBA質問です。下記のようにマクロを作りました。E2、E3、E4、E5、E6とそれぞれのセルに×が入っているときに、メッセージを出し、〇が入っているときはメッセージを出したくありません。また、A1に入ったタイトル名、B2、B3、B4、B5、B6とそれぞれのセルに入れた項目名（間違ったものが入っているものもある）をそれぞれ出したいのですが、マクロを実行するとB2の項目ばかり出てしまい困っています。 ※C列(C2以降)はA列(A2以降)に入った項目名とB列(B2以降)に入った項目名を結合する列として使っています。D列は都合により空欄としています。また、E列に〇が入っているときだけメッセージが出て、×が出ているものはメッセージ表示されません。どうしたらいいでしょうか。どうぞよろしくお願いいたします。 Sub チェッカーMsgbox01() 'セルの値とアイコンを表示する Dim I, C As Long Dim J, D As Long Dim result As Range Dim msg As String For I = 2 To 6 '2行目～6行目まで繰り返します Set result = Range("E" & I) If result = "×" Then MsgBoxVisible = True MsgBox (Range("B" & I) & vbCrLf & Range("B" & I) & vbCrLf & Range("B" & I) & vbCrLf & Range("B" & I) & vbCrLf & Range("B" & I)) & vbCrLf, vbCritical 'メッセージボックスにA列の「名前」、「アイコン」を表示します。 End If Next I For J = 2 To 6 '2行目～6行目まで繰り返します Set result = Range("E" & J) If result = "〇" Then MsgBoxVisible = False MsgBox (Range("B" & J) & vbCrLf & Range("B" & J) & vbCrLf & Range("B" & J) & vbCrLf & Range("B" & J) & vbCrLf & Range("B" & J)) & vbCrLf, vbInformation 'メッセージボックスにA列の「名前」、「アイコン」を表示します。 End If Next J MsgBoxVisible = True MsgBox "チェック結果は以上です" End Sub

質問日時: 2025/02/19 07:07 質問者: ナカシュン太郎カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
エクセルVBA 段落番号自動取得方法

C～G列に文字列が入力されてからプログラムを実行後、B列に画像のような段落番号を表示させる方法がございましたらご教授お願いします。画像の、"1","2","3"は表示できるようになりましたが、”2.1”や”3.1.1"など階層が深くなるとうまくいかなくて困っています。よろしくお願いいたします。

質問日時: 2025/02/18 13:24 質問者: まさゆき1016 カテゴリ: Visual Basic（VBA）

ベストアンサー

5

1
COPYコマンドで、最後に１文字「Hex1A」が付くのはなぜ？外し方は？

COPY A + B + C D としますが、Dno最後に１バイト「Hex1A」が余分についてしまいます。 Windows2０１９でもWindows１０でも、同様です。何が誤っているのでしょうか？

質問日時: 2025/02/17 17:55 質問者: taka_2015_2016 カテゴリ: その他（プログラミング・Web制作）

解決済

3

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

下記のマクロを実行すると指定フォルダ内に指定シートと指定セル値をファイル名として、保存され、マクロ設定ブックはそのままの状態ですが、このマクロを、マクロを実行した時に指定フォルダ内に指定シートと指定セル値をファイル名として、作業ブックに上書き保存され、ブックをクローズできるように変更する方法を教えてください。よろしくお願いいたします。現状のマクロ Sub Macro1() Const fol As String = "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\" Dim fname As String, fPath As String Dim exte As String fname = Worksheets("省エネチェック").Range("W1").Text exte = ".xltm" fPath = fol & fname & exte ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled End Sub 以上となります。よろしくお願いいたします。

質問日時: 2025/02/17 13:02 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
プログラム上での行のマージ方法

スミマセン、書いています言語はpythonですが pythonご存じないかたでも、アルゴリズム？の問題ですので、教えて頂きたいと思います。いま、あ　い　う　A あ　い　う　B あ　い　う　C え　お　A え　お　C ：：というデータをあ　い　う　A・B・C え　お　A・C という具合にまとめたいと思っています。 1行あたりのデータの処理は data = f.readline() data_1 = data.rsplit(None,1) として、右側から空白1つをsplitして data_1[0] はあ　い　う data_1[1] は A と取り出せるのですけれども、 A・B・Cの作り方で悩んでいます ※ あ　い　う　B あ　い　う　C は消してあ　い　う　A・B・C として残したいです

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

ベストアンサー

7

0
Ruby 格納

以下のURLの質問で、 https://oshiete.goo.ne.jp/qa/14031406.html で、p1やp2に格納されているものは、Foo.newの引数でしょうか?それと、インスタンスの初期化を行っているのは、年齢と名前ですよね?教えて頂けると幸いです。

質問日時: 2025/02/16 13:09 質問者: メラゾームカテゴリ: Ruby

ベストアンサー

9

0
Ruby 変数用途と違い

すみません。Rubyで、インスタンス変数とクラス変数の使い方と違いを教えて頂けると幸いです。

質問日時: 2025/02/16 12:12 質問者: メラゾームカテゴリ: Ruby

ベストアンサー

2

0
10進数から2進数に変換例 185 185÷2=92.5 小数点以下切り捨て 91と勘違いしてしま

10進数から2進数に変換例 185 185÷2=92.5 小数点以下切り捨て 91と勘違いしてしまいました。切り捨てというのは小数点以下の数字を切り捨てるだけという覚え方でいいですか？解説お願いします

質問日時: 2025/02/15 14:49 質問者: まろん0330 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

7

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

ThisWorkbookに下記のコードを設定しており最初のメッセージで「 MsgBox("解凍してよろしいですか？"」「YES」をクリックするとマクロ「Call 解凍」が実行され次のメッセージ「 MsgBox("軽微・フラットを確認してよろしいですか？"」が表示されて「YES」をクリックするとマクロ Call 軽微 Call フラット Call 交付用名前変更 Call 削除が実行されます。最初のメッセージ「 MsgBox("解凍してよろしいですか？"」で「NO」をクリックすると次のメッセージが表示されず、マクロ Call 軽微 Call フラット Call 交付用名前変更 Call 削除が実行されません。最初のメッセージ「 MsgBox("解凍してよろしいですか？"」で「NO」をクリックすると次のメッセージが表示され、マクロ Call 軽微 Call フラット Call 交付用名前変更 Call 削除が実行される方法を教えてください。現状のコード Private Sub Workbook_Open() Dim alert As VbMsgBoxResult alert = MsgBox("解凍してよろしいですか？", vbYesNo + vbQuestion, "解凍確認") If alert <> vbYes Then Exit Sub End If Call 解凍 alert = MsgBox("軽微・フラットを確認してよろしいですか？", vbYesNo + vbQuestion, "軽微・フラット確認") If alert <> vbYes Then Exit Sub End If Call 軽微 Call フラット Call 交付用名前変更 Call 削除 End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

1

0
プログラマー達は何故、プログラムを入れるフォルダーに容量制限があるのを知らない？

プログラマー達は何故、プログラムを入れるフォルダーに容量制限があるのを知らない？

質問日時: 2025/02/13 04:28 質問者: palinz カテゴリ: C言語・C++・C#

ベストアンサー

6

0
えくせるのVBAコードについて教えてください。

作業ブックのシートに下記のコードを設定しております。セルD19を不特定に変更した場合にマクロ「申請の流れ着工日コピー」が実行されます。このコードを指定セルD19を不特定に変更した場合且つ指定セルB20に不特定の日付が表示された場合にのみマクロ「申請の流れ着工日コピー」が実行できる方法を教えてください。現状のマクロ Private Sub Worksheet_Change(ByVal Target As Range) ' 着工日等コピー If Target.Address = "$D$19" Then Call 申請の流れ着工日コピー End If End Sub 以上となります。よろしくお願いいたします。

質問日時: 2025/02/12 11:36 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

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

作業ブックに下記のコードを設定しております。各指定セル("B20", "F20", "H20")にそれぞれ日付が表示されると、設定マクロが実行できますが、セル("H20")に日付を表示し、そのほかの("B20", "F20",)に日付を表示していないのにマクロが実行されてしまいます。指定セル("B20", "F20", "H20")全てに日付が表示された場合のみにマクロを実行できる方法を教えてください。現状のマクロ Private Sub Worksheet_Change(ByVal Target As Range) ' ケース1 Dim checkRanges As Variant checkRanges = Array("B20", "F20", "H20") Dim isTargetChange As Boolean isTargetChange = False Dim checkRange As Variant For Each checkRange In checkRanges If Not Intersect(Target, Range(checkRange)) Is Nothing Then isTargetChange = True Exit For End If Next If Not isTargetChange Then Exit Sub If Range("B20").Value <= CDate("2025年3月31日") And _ Range("F20").Value <= CDate("2025年3月31日") And _ Range("H20").Value > CDate("2025年3月31日") Then Call 申請の流れ改正前1図表示 Call 申請の流れ改正後2図表示 Call 申請の流れケース1図表示 Call 申請の流れケース2図非表示 Call 申請の流れケース3図非表示 Call 申請の流れケース4図非表示 Call 申請の流れケース5図非表示 Call 申請の流れケース6図非表示 Call 申請の流れ施行日以降ケース図非表示 End If End Sub 以上です。よろしくお願いいたします。

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

ベストアンサー

1

1
VBAの「To」という語句について

1 To 3と書いた時、・For i=1 To 3:１と２と３を意味する（小数点は含まない）・Case 1 To 3：１から３を意味する（小数点も含む）など、その時々で意味が違うので、混乱します。皆さんは、どうやって覚えていますか？

質問日時: 2025/02/09 22:32 質問者: アルムの森の木カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
VBAでFOR NEXT分を Application.OnTimeを使って

Sub 練習2() Dim i As Long Dim j As Long For i = 1 To 20 j = i + 20 Cells(i, 1).Value = j Next End Sub ' Application.OnTime Now + TimeValue("00:00:05")の一文をいれて　５秒間隔でFOR文を動かしたいのですが考え方がわからずうまく動きません　完成形だとどの様な構文か教えてください。イメージとしてはセルに数字が入ったら５秒待って次の下のセルに+1の数字が入るのを繰り返すような

質問日時: 2025/02/08 21:21 質問者: goo_january カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
算術演算子「￥」の意味について

VBAには、Microsoftの公式リファレンスに掲載されていない算術演算子「￥」というのがあるようです。その意味が分かる方がいらっしゃいましたら、ご教示頂けますとありがたいです。

質問日時: 2025/02/08 20:38 質問者: アルムの森の木カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
Ruby newメソッド

newメソッドは、initializeメソッドを必ず使わなければならないという事はないのでしょうか?教えて頂けると幸いです。

質問日時: 2025/02/08 18:54 質問者: メラゾームカテゴリ: Ruby

ベストアンサー

12

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

作業ブックに下記のマクロを設定しております。先日PCをWindows10からWindows11のVersionアップしまし処、このマクロを実行する事が出来なくなりました。解決方法を教えてください。尚、コード中の「= "LBP8710 on Ne02:"」部分を「= "LBP8710 on Ne01:"」等に変更してもダメでした。よろしくお願いいたします。現状のマクロ Sub 青紙印刷() '通常のプリンタを記憶 Dim myPrinter As String myPrinter = Application.ActivePrinter Sheets(Array("昇降機【青紙】（表面）", "昇降機【青紙】(裏面）")).Select Sheets("昇降機【青紙】（表面）").Activate Application.ActivePrinter = "LBP8710 on Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False 'プリンタを元に戻す Application.ActivePrinter = myPrinter End Sub 以上となります。よろしくお願いいたします。

質問日時: 2025/02/07 08:55 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
htmlが簡単に作成できるアプリについて

チャットgptに質問して下記回答を得ましたが・・・駅忍ある回答では無かった。それでもと思い、下記3点をDLして確認したのですが、html作成が見えないので、チャットgptに確認すると・・ 1・XnView MP・・・html作成機能が無くなっているようだ（チャットgpt回答） 2・JAlbum（無料版はロゴ付き）　・・・使えそうなんですが、24枚という制限が有有料は30～40＄ 3・digiKam・・・html作成機能が無くなっているようだ（チャットgpt回答）どなたか、1，3についてhtml作成について情報をお持ちでは内でしょうか？ご存知でしたらアドバイスをお願いします。下記は情報だけで、未確認です ThumbsPlus PhotoBulk JGallery

質問日時: 2025/02/06 16:48 質問者: new_hana カテゴリ: HTML・CSS

ベストアンサー

7

0
FlowchartのMDファイルをPNG化する方法をご教示ください。

Pythonプログラムの動作を説明するため、フローチャートをMarkdown形式で出力する所までは作れたのですが（ChatGPT頼り）、そのMDファイルをPNG化することの出来るPythonコードが分かりません。　今の所、下記サイトにPythonコードを貼り付けると、まぁまぁ説明に使えそうな絵が出来るのですが、Pythonだけで行おうとすると一直線に並ぶだけになってしまい、万事休すでした。　https://flowchart.js.org/ 　上記サイトのGithubに部品もある様なのですが使い方が分からず、どの様にしたら画像化までPythonで出来るか、コード例等でご教示を戴ければ幸いです。宜しくお願い致します。

質問日時: 2025/02/06 09:33 質問者: ゲホゲホカテゴリ: オープンソース

解決済

1

0
html 階層を下げると3分割画面が1画面になる

win11 vix221を使用してhtmlを作成しています。 win11の動作保証はありませんが、使用上の問題はないので使っています。・私はhtml構文についての知識はありませんが、コピー等で引用し使える様に使っているレベルです。相談は、3盤割画面を開いて左の画面にリンクを置いて、右の画面に内容を表示しています。右の画面の表示内容が多い場合、2ページ目も作成されます。この2ページ目に行くと、画面分割が1画面になってしまいます。これを、快勝する方法のアドバイスをお願いしたいのです。判りにくいでしょうが画面遷移を天応します。 html先頭の記述の抜粋です ---------------------- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html lang="ja"> 3分割が開く記述です ----------------------- <html> <head> <title>my album</title> </head> <frameset rows="15%,85%"> <frame src="UpperFrame.html">name="upper" <frameset cols="12%,88%"> <frame src="LeftFrame1.html" name="left" scrolling="auto"> <frame src="8月6日/白馬大雪渓を歩く001.html"name="right" name="right" scrolling="auto"> </frameset> </BODY> </HTML> -------------------------- 2ページ目に行く記述です ----------------------- <body> <p class="header">8/6　白馬大雪渓を歩く</p> <p class="sequence"><a href="白馬大雪渓を歩く002.html">次へ</a> </p> ・・・

質問日時: 2025/02/04 23:08 質問者: new_hana カテゴリ: HTML・CSS

ベストアンサー

5

0
以下のプログラムの実行結果はどうなると思いますか？その理由も教えてください。

Sub Sample() Dim MyDate As String MyDate = "abc" MsgBox IIf(IsDate(MyDate) = True, CDate(MyDate), "?") End Sub

質問日時: 2025/01/31 17:11 質問者: アルムの森の木カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
jsで質問です。 formをsubmitしてサーバー側で処理が行われて処理が完了したら、フロント側で

jsで質問です。 formをsubmitしてサーバー側で処理が行われて処理が完了したら、フロント側で処理をしたいのですが、処理が完了したかどうかわかる方法はあるのでしょうか。 Ajaxなど使用すると画面が更新されないので処理完了したことはわかりますが、サーバ側でname属性に紐付くめのを更新しても反映されないので、何か良い方法がないでしょうか

質問日時: 2025/01/31 10:00 質問者: piraniaman カテゴリ: JavaScript

ベストアンサー

5

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

下記のマクロを作成したいのですが、どのようにコードを設定してよいかがわかりません、親切にコード共教えていただける方、何卒宜しくお願い致します。私の行いたいことを下記に列記いたします。マクロを実行すると指定セルの文章の中の特定の文字だけを色付け（赤文字）にできる方法を教えてください。宜しくお願い致します。文章がある指定セルは「C25」「D25]「E25」になります。 ‘検索して文字色を変更する特定文字は「軽微な変更説明書」建設評価「変更申告書」「軽微該当証明書」上記文字の「」は有りです。このVBAはあるセルを操作するたびに実行できるように設定しておりますので、同じマクロを何度も実行しても、キーワード以外の文字色が変更にならないようにしたいのです。何卒、宜しくお願い致します。

質問日時: 2025/01/30 17:55 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
Vba WorkBooks.Openについて教えてください

いつもお世話になります今、下記のプログラムをアドイン化してクイックアクセスツールバーに登録しました　Sub test() 　Workbooks.Open "C:\temp\Sample.xlsx" 　End Sub 一度、Excelをすべて閉じてExcelアイコンから新規のExcelを開き、クイックツールバーから上記のプログラムを実行すると、新規のファイルは消えてSampleの画面が表示されますしかし、プログラム実行前に新規のExcelのセルに一文字でも入力したりしてアクションしてからプログラムを実行すると新規の画面は消えず、Sampleの画面が表示されますこれは、アイコンから新規の画面を開いただけではBookと認識されていないのですか？ Bookの存在を調べるとBook1と出てきます（アクションを起こした後の名前も同じ）何もアクションを起こしていないBookなのか、既存のBookなのか？もし判定方法が分かりましたら教えてください？ WorkBooks.Openのオプションでも構いません以上、宜しくお願い致します

質問日時: 2025/01/30 12:23 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Dim mapping As Object Dim targetCell As Range Dim currentValue As String, prefix As String Dim cell As Range ' シートを指定（適宜変更） Set ws = ThisWorkbook.Sheets("Sheet1") ' DセルとBセルの対応関係 Set mapping = CreateObject("Scripting.Dictionary") mapping.Add "D3", "B80" mapping.Add "D4", "B82" mapping.Add "D6", "B85" mapping.Add "D8", "B87" mapping.Add "D12", "B90" mapping.Add "D21", "B92" mapping.Add "D25", "B94" mapping.Add "D29", "B96" mapping.Add "D31", "B98" mapping.Add "D1", "B100" mapping.Add "D2", "B102" mapping.Add "D9", "B104" mapping.Add "D11", "B106" mapping.Add "D33", "B108" ' 変更されたセルが D1:D33 以外の場合は処理しない If Intersect(Target, ws.Range("D1:D33")) Is Nothing Then Exit Sub ' 変更されたセルが複数ある場合は処理しない（Ctrl + V でも動作するが安全策） If Target.Cells.Count > 1 Then Exit Sub On Error GoTo ErrorHandler ' エラーハンドリング開始 Application.EnableEvents = False ' ① 指定セルが空白なら色を付ける Dim rngYellow As Variant, rngBlue As Variant, rngGreen As Variant rngYellow = Array("D3", "D4", "D6", "D8", "D12") rngBlue = Array("D1", "D2", "D9", "D11", "D33") rngGreen = Array("D21", "D25", "D29", "D31") ' 黄色のセル（D3, D4, D6, D8, D12） For Each cell In rngYellow If ws.Range(cell).Value = "" Then ws.Range(cell).Interior.Color = RGB(255, 255, 0) ' 黄色 Else ws.Range(cell).Interior.ColorIndex = xlNone ' 色リセット End If Next cell ' 青色のセル（D1, D2, D9, D11, D33） For Each cell In rngBlue If ws.Range(cell).Value = "" Then ws.Range(cell).Interior.Color = RGB(0, 0, 255) ' 青色 Else ws.Range(cell).Interior.ColorIndex = xlNone ' 色リセット End If Next cell ' 緑色のセル（D21, D25, D29, D31） For Each cell In rngGreen If ws.Range(cell).Value = "" Then ws.Range(cell).Interior.Color = RGB(0, 255, 0) ' 緑色 Else ws.Range(cell).Interior.ColorIndex = xlNone ' 色リセット End If Next cell ' ② Bセルの「:」の後ろにDセルの値をセット If mapping.exists(Target.Address(False, False)) Then Set targetCell = ws.Range(mapping(Target.Address(False, False))) currentValue = targetCell.Value ' 「:」の位置を探す If InStr(currentValue, ":") > 0 Then prefix = Left(currentValue, InStr(currentValue, ":")) ' 「:」までの部分を取得 If Target.Value = "" Then ' Dセルが空なら「:」の後ろを消去 targetCell.Value = prefix Else ' Dセルに値がある場合は「:」の後ろに値をセット targetCell.Value = prefix & " " & Target.Value End If Else ' 万が一「:」がない場合の処理 If Target.Value = "" Then targetCell.Value = "" Else targetCell.Value = Target.Value End If End If End If ' ③ 貼り付け時の書式設定 For Each cell In Target ' フォント設定（UDPゴシックが存在する場合のみ適用） On Error Resume Next cell.Font.Name = "UDPゴシック" On Error GoTo 0 ' フォントが存在しない場合のエラーを無視して続行 ' セルの格子線をつける With cell.Borders .LineStyle = xlContinuous .Weight = xlThin End With ' 中央揃え（水平 & 垂直） cell.HorizontalAlignment = xlCenter cell.VerticalAlignment = xlCenter Next cell ExitHandler: Application.EnableEvents = True Exit Sub ErrorHandler: ' エラーが発生した場合、イベントを有効に戻して終了 MsgBox "エラーが発生しました：" & Err.Description, vbExclamation, "エラー" Resume ExitHandler End Sub

質問日時: 2025/01/30 08:17 質問者: ゆだよカテゴリ: Visual Basic（VBA）

解決済

5

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

作業ブックに下記のマクロを設定しております。 Sub 各シートセル位置指定() Sheets("新築").Select Range("A5").Select Sheets("変更").Select Range("A5").Select 途中省略 Sheets("増築").Select Range("A5").Select End Sub 各シートの各セル位置を設定できるようになっております。しかし例えばシート("新築")("増築")が表示されている場合はマクロが実行されますが、シート("変更")が非表示の場合はエラーメッセージが表示されて上手くマクロが実行できません。ブックの作業の方法によってシートが表示されたり非表示になったりします。解決方法を教えていただけますか。一つの方法として、非表示シートを一度、すべて表示にしてから、このマクロを実行する方法があると思いますが、それ以外の方法はありますでしょうか。宜しくお願い致します。

質問日時: 2025/01/29 15:19 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
uwscでPauseキーが押されたら、このブロックを抜けたい（uwscを停止したい）のですが、どうす

uwscでPauseキーが押されたら、このブロックを抜けて（uwscを停止したい）のですが、どう記述すればよいでしょうか？教えて下さい。 x = 0 While x < 150 BTN(LEFT,CLICK,24,541,300) 　　x = x + 1 　　Sleep(1.3) //キーボードでPauseキーが押されると次のように記述される //KBD(VK_PAUSE,CLICK,40) //もし「pause」キーが押下されたら、Wendを抜けるように記述したい Wend //ここにuwscを停止するよう記述する KBD(VK_ESC,CLICK,40) よろしくお願いいたします。

質問日時: 2025/01/29 08:17 質問者: lucifer23 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
この話は本当？中華AI「DeepSeek」、開発費はChatGPTの100分の1

開発費はChatGPTの100分の1、中華製AI「DeepSeek」こういった記事がニュースになっていますが、本当にこんなに安い開発費で作れたのでしょうか？それとも、実際には莫大なコストを掛けたり何かのモデルをパクったりした、偽情報ですか？特に、コストについて1/100というのは、普通に考えると誇張や嘘を疑うべきだと思うのですが、今回は開発方法まで公開されているようですので、同じような方法で、安いコストで同じかそれ以上のものを作る企業が現れても良い気がしますが、再現した会社などはありますか？

質問日時: 2025/01/29 02:29 質問者: takumiio カテゴリ: オープンソース

解決済

9

0

←前の結果
1
2
3
4
5
6
7
8
9
10
11
...
20
次の結果→

【プログラミング・Web制作】に関する回答募集中の質問

viewport幅
- 質問日時： 2025/06/27 20:46
- 質問者： tknakamuri

プログラミング・Web制作の回答募集中の質問一覧

【プログラミング・Web制作】に関するカテゴリ

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

質問する（無料）

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

プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた！

プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて！goo」にも、「プログラミングを学べる子供...
弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...