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

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

回答数

気になる

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

下記のマクロを実行すると、メッセージが表示され、ダイアログが開き、不要ファイルをマウスで選択して、「OK」をクリックすると不要ファイルが削除されますが、マクロを実行すると画像のエラーメッセージが表示され、コードの「 Sh As SHFILEOPSTRUCT」部分の色が変色し、上手くマクロを実行できません。解決方法を教えてください。宜しくお願い致します。現行のマクロ ub 不要ファイル選択削除() Dim InitialPath As String InitialPath = ThisWorkbook.Path Dim rs As Integer rs = MsgBox("ファイルを削除します。", vbCritical + vbOKCancel, "削除の確認") If rs = vbOK Then Dim sPath As Variant With Application.FileDialog(msoFileDialogFilePicker) .Title = "削除するファイルを選択してください" .InitialFileName = InitialPath .AllowMultiSelect = True If .Show = True Then ReDim filePath(0) For Each sPath In .SelectedItems If filePath(0) <> "" Then ReDim Preserve filePath(UBound(filePath) + 1) End If filePath(UBound(filePath)) = sPath Next Call MoveDustbox(filePath) Else MsgBox "削除をキャンセルしました。", vbInformation .Execute End If End With End If End Sub Sub MoveDustbox(vPath As Variant) Dim sPath As Variant Dim Sh As SHFILEOPSTRUCT Dim ret As Long Sh.hwnd = Application.hwnd Sh.wFunc = &H3 Sh.fFlags = &H40 + &H10 If Not IsArray(vPath) Then Sh.pFrom = vPath ret = SHFileOperation(Sh) Else For Each sPath In vPath Sh.pFrom = sPath ret = SHFileOperation(Sh) Next End If End Sub 以上となります。宜しくお願い致します。

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

ベストアンサー

1

0
プログラミングについて。 1つのループで Aという計算と Bという計算をするのとこれらを分けて2つ

プログラミングについて。 1つのループで Aという計算と Bという計算をするのとこれらを分けて2つのループにするのって計算量同じですよね？もし違うなら理由も教えて欲しいです

質問日時: 2024/05/08 15:58 質問者: だいぬカテゴリ: C言語・C++・C#

ベストアンサー

7

0
number 改行が追加できない

Mac book air os14.4.1 number作業中　行の追加ができない行が一定の部分で生じていますが、改行を可能にする方法を教えてください

質問日時: 2024/05/07 13:06 質問者: leonpa カテゴリ: CGI

解決済

2

0
<!DOCTYPE html>あってますか？↑

<!DOCTYPE html> <html> <head> <meta charset="UTF-8" /> <title>学籍番号チェック</title> </head> <body> <?php $stunum = $_POST['stunum']; // request1.phpから学籍番号を受け取り echo"あなたの学籍番号は".$stunum."です。 ", ?> </body> </html> あってますか？↑

質問日時: 2024/05/07 10:05 質問者: Wohinfahrensie カテゴリ: HTML・CSS

解決済

1

0
PHPでこのコード自体に意味は無いんですけど、上のifと下のifの違いってなんですか？個人的には下の

PHPでこのコード自体に意味は無いんですけど、上のifと下のifの違いってなんですか？個人的には下のifの方が使いやすいんですけど。 foreachで存在しない場合でも一回はループさせたいみたいな時も??で空配列入れてループさせたり使ってますが。以下のコード $array['key'] = 'key'; if (isset($array['key'])) { echo $array['key']; } else { echo 'false'; } if ($key = $array['key'] ?? false) { echo $key; } else { echo 'false'; }

質問日時: 2024/05/07 01:32 質問者: だいぬカテゴリ: PHP

ベストアンサー

1

0
エクセルVBAについて

tatsumaru77様以前投稿した内容で転記の追加をしたいのですが、内容は添付画像のようにA列に〇がある場合にW列の品名を別ファイルのC列に追加、AS列の個数をD列に追加です。追加していく条件は変更はありません。現在使用しているコードも記載しておきます。申し訳ありませんが、よろしくお願いいたします。 Private Sub case8() Dim fpath As String Dim wb As Workbook Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow1 As Long Dim row1 As Long Dim row2 As Long Set ws1 = ActiveSheet fpath = "N:\01生産管理課\01 個人ファイル\5000田中\図番転記.xlsm" Set wb2 = Nothing For Each wb In Workbooks If wb.Name = "図番転記.xlsm" Then Set wb2 = wb Exit For End If Next If wb2 Is Nothing Then Set wb2 = Workbooks.Open(fpath) End If Set ws2 = wb2.Worksheets(1) row2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row If ws2.Cells(row2, "A").Value <> "" Then row2 = row2 + 1 End If maxrow1 = 500 For row1 = 10 To maxrow1 If ws1.Cells(row1, "A").Value = "○" Then ws2.Cells(row2, "B").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _ ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _ ws1.Cells(row1, "O").Value & "10_00*" row2 = row2 + 1 End If Next End Sub

質問日時: 2024/05/06 12:26 質問者: Wrangleruk カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
Javaについて。

Javaが無料で学べるレッスンのサイトなどを知らないでしょうか?教えて頂けると幸いです。

質問日時: 2024/05/05 14:10 質問者: メラゾームカテゴリ: Java

解決済

2

1
VBA レジストリの値の読み方について教えてください

いつもお世話になります今、VBAを使ってExcelからDocuworksへの出力プログラムを作成しています今まではDocuWorksのフォルダーを指定して出力していましたが Versioniより場所が変わることがあり、フォルダを特定するためにレジストリを探していました（ほかに特定する場所があればよいのですが）そこで見つけたのが添付ファイルの場所でしたが上手く読めませんでした今まではVbaの「VB and VBA Program Settings」という場所のレジストリを使っていたので　sValue = GetSetting("MyChkBox301", "Main", "IsCheckBox315", "False") のように使っていたのですが今度はよそのSofyWareのレジストリを使うので下記のようにしてみましたが見つからないみたいで、Svalue＝False になってしまいます　sValue = GetSetting("HKEY_CURRENT_USER\Software\FUJIFILM\MPM3", "MPWS", "UserFolder", "False") 添付ファイルのUsefolderの値を読み込みたいのですが読み取り方が分かりましたら教えてください以上、宜しくお願い致します

質問日時: 2024/05/03 19:08 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
ImageMagickでgif画像の一部が切れないようにしたい

magick -dispose 2 -delay 1.666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666 -loop 0 *.png movie.gif このコードでgifを作成できたのですが、画像の一部分が恐らく下にはみでて表示されません。画像全体が移るように画像を中央に配置してgif画像を作るコードを教えて頂きたいです。それ以外の方法で画像全体が移るようにするコードでも大丈夫です。

質問日時: 2024/05/03 18:47 質問者: atasarrrrrrr カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
VBAの計算で＠が出てしまう件

書式設定で文字列に設定してあるセルがあります。 C列やD列に"123456"や"56987"の値が入っています。こちらをVBAでSUMやVALUEを使って計算しているのですが、なぜか実行後セル内にSUM(VALUE(@C1:C2))と＠が入ってしまいます。原因、対処法を教えてください。以下がそのコードです。（VALUEを使用すると＠が入ってくる） SetSumRanges ws, emptyRow, lastRow, baseColumn, sumRange1, sumRange2, sumRange3, sumRange4, sumRangeFlg, "C", "D" Set sumRange1 = ws.Range(sumRange1Column & emptyRow + 1 & ":" & sumRange1Column & lastRow) ws.Range("A1").Formula = "=SUM(VALUE(" & sumRange1.Address & "))"

質問日時: 2024/05/02 17:21 質問者: aaaakkk カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
プログラミングのPythonのnotebookでこれの実行結果が上手く出ないのですがどうしてでしょう

プログラミングのPythonのnotebookでこれの実行結果が上手く出ないのですがどうしてでしょうか？また、結果を教えて頂けますか？ import numpy as np array_x = np. loadtxt (fname="datal. csv",delimiter=",") m = np. mean (array_x) med = np. median (array_x) var = np. var (array_x) std = np. std (array_x) print (' {0:. 2f}'. format (m) ) print (' {0:. 2f}'.format (med)) print (' {0:. 2f}'.format (var)) print (' {0:. 2f}'. format (std)) 実行結果は4行出るみたいです。

質問日時: 2024/05/02 14:09 質問者: ajgmwtあカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
JavaScript 超初心者です。 Document.writeがなぜか反映されません。何が間違っ

JavaScript 超初心者です。 Document.writeがなぜか反映されません。何が間違ってるのでしょうか。助けてください、、↓ <!DOCTYPE html> <html lang="en"> <head> <Script Language = "JavaScript"> {//alert ("I am here"); fname= document.getElementById("fname").value; document.write ("fname"); } </Script> <title>Customer Relationship Manager</title> </head> <body> <Br> <h3>Costomer Sending Form</h3> <Br> <form method = "post" Name ="input" onSubmit = "submit"> <label for="fname">First name:</label><br> <input type="text" id="fname" name="fname"><br> <Br><Br> <center><input type="submit" value="submit"></center> </form> </body> </html>

質問日時: 2024/05/02 08:00 質問者: べいびーべるーがカテゴリ: JavaScript

解決済

3

0
GoogleAppsScript文字列置換の構文について /g の意味

GASの記述 body.replace(/{{AAA}}/g,/BBB/); 内の /g の意味について教えてください。 GASを利用して、文字列の置換を行います。参考になるウェブサイトがあり、以下のように記述することで問題なく置換されます。 body.replace(/{{AAA}}/g,/BBB/); ※ここでは文章　body　内の文字列　{{AAA}}　を文字列　BBB に置換しています。はじめてGASを利用しました。まったくの初心者なので基本も分かりません。 /g について簡単に検索しましたがうまく見つかりません。よろしくお願いいたします。

質問日時: 2024/04/30 08:15 質問者: tsukita カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
生成AI画像について

chat gpt4などの生成AIを使って女性がニーハイソックスを上げ直してる画像を作りたいのですが、一枚も作れません。どうしたら作れますか？

質問日時: 2024/04/29 20:23 質問者: カセットマグロカテゴリ: CGI

解決済

1

0
pythonのerrorコード

ゼロから学ぶpyhonの中の、ニュートン法を用いて収束地図を描くというものです。 name errorが出ているのですが、なぜ定義できていないのかが分かりません。解決法を教えていただけないでしょうか。

質問日時: 2024/04/29 20:11 質問者: ひな___ カテゴリ: Ruby

解決済

4

0
ＳＥＯに被リンクは全く必要がなくなったのでしょうか？

ＥＣサイトなどサイトののアクセスアップでＳＥＯを行うのに、今はもう被リンクは全く必要なくなったのでしょうか？確かに昔はＳＥＯ業者が自動で数え切れない程、沢山のＨＰ作って、被リンク貼って・・・そう言った行為は今ではグーグルから厳しく規制されています。。ですが全く必要なくなったのかどうなのか？オウンドメディアやキーワード出現率がどうのなど、自社で記載するだけでどれだけ効果あるのかどうか。むしろまっとうなリンクであればプラスに働くのではと思うのですが・・・・グーグルもサイトの信憑性をより正確に判断するのに必要だと思います。どうでしょうか？良くご存じの方がいらっしゃれば教えて頂ければ幸いです。よろしくお願いいたします。

質問日時: 2024/04/29 13:04 質問者: kirin006 カテゴリ: SEO

ベストアンサー

2

0
検索画面に表示される広告について

あることを検索していると添付のような広告が当該ページに示され、内容がすべて読み取れないことや、印刷するとこの広告まで印刷され全文が読み取れません（印刷されません）。要するに邪魔なのです。このような広告（表示）を消す（削除）する方法を教えてください。

質問日時: 2024/04/29 12:22 質問者: Newkitakarasu カテゴリ: SEO

解決済

1

0
Duolingo のソースコードの名前、教えてください。

学習ソフト Duolingo のソースコードを、「Ctrl+U」で表示させたのですが、このソースコードの名前、教えてください。 <!doctype html><html dir="ltr"><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1,user-scalable=no"><meta name="robots" content="NOODP"><noscript><meta http-equiv="refresh" content="0; url=/nojs/splash"></noscript><meta name="apple-mobile-web-app-capable" content="yes"><meta name="apple-mobile-web-app-status-bar-style"

質問日時: 2024/04/29 09:28 質問者: 五体投地カテゴリ: HTML・CSS

ベストアンサー

2

0
Webページのリンクの貼り方を教えてください

Webページのリンクの貼り方を教えてください

質問日時: 2024/04/28 15:11 質問者: Wohinfahrensie カテゴリ: HTML・CSS

ベストアンサー

2

0
2つのマクロでチェックボックスが連動しません

詳しい方、ご教授ください。大量にチェックボックスを作成する必要がある為、一つ一つセルを連動せずに、ネットを参考にして以下のマクロで作成しました。① Sub チェックボックス作成() With ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 10) .Value = Not .Value End With その後特定の列ごとに一括でチェックボックスのオンオフができるように以下のマクロを作成しました。② Sub 稼働3() Dim chk For Each chk In ActiveSheet.CheckBoxes If chk.TopLeftCell.Column = 3 Then chk.Value = False End If Next End Sub そうすると②のマクロを実行した結果が①の値を返すセルに反映しません。解決方法がわからずどなたかお知恵を貸してください。宜しくお願いします。

質問日時: 2024/04/27 14:44 質問者: mikiduckduck カテゴリ: Visual Basic（VBA）

ベストアンサー

2

1
、URL化させるにはどうしたらいいですか？

<!DOCTYPE html> <html lang="ja"> <head> <title>ページタイトル</title> </head> <body> 寿司は美味しい </body> </html> ↑を、URL化させるにはどうしたらいいですか？教えてください

質問日時: 2024/04/27 13:17 質問者: Wohinfahrensie カテゴリ: HTML・CSS

ベストアンサー

3

0
PHPとHTML+Xamppの掲示板で画像も投稿できるように

PDOを使ってXampp環境（ローカル環境）でPHPとHTMLでテキストが投稿できる掲示板を作成できたのですが、テキストしか投稿できません、画像や動画も投稿できるようにするためには、次のPHP+HTMLプログラムをどう修正すれば良いでしょうか？ <form action="" method="post" enctype="multipart/form-data"> <input type="hidden" name="MAX_FILE_SIZE" value=""> <input type="file" name="image"> <input type="submit" value="upload"> </form> ただ単に上記のHTMLを挿入するだけではもちろん画像は投稿できません。動画は難しいなら画像だけでもいいので投稿できるようにプログラムを修正したいです。よろしくお願いします。 <?php include_once("./app/database/connect.php"); if(isset($_POST["submitButton"])){ //スーパーグローバル変数 $_POSTを使う　username=キー// //$username=$_POST["username"]; //var_dump($username); //$username=$_POST["bodycomment"]; //var_dump($username); $post_date = date("Y-m-d H:i:s"); $sql = "INSERT INTO `comment` (`username`, `bodycomment`, `post_date`) VALUES (:username, :bodycomment, :post_date);"; $statement = $pdo->prepare($sql); //値をセットする　:username,:bodycomment,:post_dateの中に値をセットする $statement->bindParam(":username", $_POST["username"], PDO::PARAM_STR); $statement->bindParam(":bodycomment", $_POST["bodycomment"], PDO::PARAM_STR); $statement->bindParam(":post_date", $post_date, PDO::PARAM_STR); $statement->execute(); } $comment_array = array(); //DBからデータを取ってくるSQL文// //commentDBでのデータをテーブルから取得する $sql = "SELECT * FROM comment"; $statement = $pdo->prepare($sql); $statement->execute(); $comment_array = $statement; //var_dump($comment_array->fetchAll()); ?> <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Document</title> <link rel="stylesheet" href="./assets/css/style.css"> </head> <body> <header> <h1 class="title">mybbs<h1> <hr> </header>  <div class="threadWrapper"> <div class="childWrapper"> <div class="threadTitle"> <span>【Title】</span> <h1> I tried to create my bbs </h1> </div> <section> <?php foreach($comment_array as $comment) :?> <article> <div class="wrapper"> <div class="nameArea"> <span>name:</span> <p class="username"><?php echo $comment["username"]; ?></p> <time>:<?php echo $comment["post_date"]; ?></time> </div> <p class="comment"><?php echo $comment["bodycomment"]; ?></p> </div> </article> <?php endforeach ?> </section> <form class="formwrapper" method="POST"> <div> <input type="submit" value="書き込む" name="submitButton"> <label>名前:</label> <input type="text" name="username"> </div> <textarea class="commenttextArea" name="bodycomment"></textarea> </div> </form> </div> </body> </html>

質問日時: 2024/04/27 09:33 質問者: dice_zk1 カテゴリ: PHP

解決済

3

1
プログラミングを教えたいです。そういうSNSないですか？

プログラミングを教えたいです。そういうSNSないですか？

質問日時: 2024/04/26 21:30 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
プログラマーと学歴の関係性について

プログラマーになるにあたって、有名大学を卒業することで享受されるメリットを教えて下さい。そしてそのメリットは、有名大学を卒業しなくても、努力次第で手に入れることは可能でしょうか？

質問日時: 2024/04/26 00:21 質問者: 124590001 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

15

0
WORD VBA プログラム修正をお願いします。

以下のWORD VBAは選択したテーブル内のデータをワイルドカード検索し、抽出されたデータを重複非表示、降順ソートでMSGBOXに表示するものです。　問題が出ております。それが、WORDファイルに4つのテーブルがあるとして、最初のテーブルを選択して検索すると、2番目から4番目のテーブルにあるデータも一緒に検索されてしまいます。2番目のテーブルで検索すると、3から4番目のデータが、3番目のテーブルで検索すると、4番目のデータが一緒に表示されてしまいます。4番目のテーブルを選択した時のみ、4番目のデータが表示されます。　下のVBAは選択したテーブル内で検索していると思うのですが、どこに問題があるかわかりません。どなたか教えていただけないでしょうか、よろしくお願い致します。 Sub SearchUniqueAndDisplaySelectedTable() Dim tbl As Table Dim rng As Range Dim result As String Dim foundItems As New Collection Dim item As Variant Dim i As Integer ' 選択されたテーブルを取得します Set tbl = Selection.Tables(1) ' 結果を格納する変数を初期化します result = "" ' テーブル内のすべてのテキストを検索します For Each rng In tbl.Range.Cells ' セル内のテキストを検索します With rng With .Find .Text = "XYZ Reg. on 20[0-9]{1,2}/[0-9]{1,2}/[0-9]{1,2}" .Forward = True .Wrap = wdFindStop .MatchWildcards = True ' ワイルドカード検索を実行します If .Execute Then ' 重複したデータをチェックして追加します If Not foundItemsExists(.Text, foundItems) Then foundItems.Add .Text, .Text End If End If End With End With Next rng ' 検索結果を配列に変換します Dim resultsArray() As Variant ReDim resultsArray(foundItems.Count - 1) For i = 1 To foundItems.Count resultsArray(i - 1) = foundItems(i) Next i ' 配列を降順にソートします Call SortArray(resultsArray) ' 結果を文字列に変換します For i = LBound(resultsArray) To UBound(resultsArray) result = result & resultsArray(i) & vbCrLf Next i ' 結果を表示します If result <> "" Then MsgBox "検索結果:" & vbCrLf & result, vbInformation, "検索結果" Else MsgBox "指定された文字列が見つかりませんでした。", vbExclamation, "検索結果" End If End Sub ------------------------------------------------------------------------------------------- Function foundItemsExists(item As Variant, collection As Collection) As Boolean On Error Resume Next foundItemsExists = Not IsEmpty(collection(item)) On Error GoTo 0 End Function ----------------------------------------------------------------------------------------- Sub SortArray(ByRef arr As Variant) Dim i As Long, j As Long Dim temp As Variant For i = LBound(arr) To UBound(arr) - 1 For j = i + 1 To UBound(arr) If arr(i) < arr(j) Then temp = arr(i) arr(i) = arr(j) arr(j) = temp End If Next j Next i End Sub

質問日時: 2024/04/25 23:43 質問者: oldhidesan カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
explorerからQTTabBarが消えた

しばらくexplorerを使用していませんでした。しばらくぶりに起動するとQTTabBarが完全に消えていました。再度QTTabBar_1043をインストールしました。メニューが表示されません何度か繰り返しましたがかわらず。GitHubから以下をダウンロード"QTTabBar.Setup.No.Plugins._v1.5.5-beta.9_de.2023"を入れました。メニューを表示されるも英語になる。GitHubでは中国の説明なっていました。以前は提供者のサイトからダウンロードして入れていました。消えた理由は不明。どなたかわかるかたいらしゃましたら教えて下さい、よろしくお願いいたします。

質問日時: 2024/04/25 21:05 質問者: オンリーone カテゴリ: オープンソース

解決済

1

0
ブラウザ自体の事じゃなくてJavaScriptで書かれたブラウザ上で動作するアプリのことをなんといい

ブラウザ自体の事じゃなくてJavaScriptで書かれたブラウザ上で動作するアプリのことをなんといいますか？

質問日時: 2024/04/25 18:38 質問者: だいぬカテゴリ: JavaScript

解決済

5

1
ジャバスクリプトについて。

ジャバスクリプトで、′console.log( )′は、出力するという意味で合っていますでしょうか?教えてくれませんか?

質問日時: 2024/04/25 17:49 質問者: メラゾームカテゴリ: JavaScript

解決済

4

0
Vba SelStart、SelLen教えてください教えてください

いつもお世話になります今、TextBoxを並べて入力しようとしていますが EnterKey入力では文字を全部、青く選択するのですが ↑Keyではカーソルが文字の後ろに ↓Keyではカーソルが文字の前に来るだけで青く選択してくれませんこれってダメなんですかね、教えてください一応、質問用にプログラムを用意しました Sub test() UserForm1.Show End Sub Option Explicit Dim isw Private Sub UserForm_Activate() TextBox1.Value = 10 TextBox2.Value = 20 TextBox1.SetFocu End Sub Private Sub TextBox1_Enter() 'テキストボックスに入ったら色変える isw = 1 With TextBox1 .BackColor = RGB(&H0, &HFF, &HFF) .SelStart = 0 .SelLength = Len(TextBox1) End With End Sub Private Sub TextBox2_Enter() 'テキストボックスに入ったら色変える isw = 2 With TextBox2 .BackColor = RGB(&H0, &HFF, &HFF) .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(TextBox1.Text) Then TextBox1.BackColor = RGB(&HFF, &HFF, &HFF) ElseIf TextBox1 <> "" Then MsgBox ("数値以外の文字が入力されています") TextBox1 = "" Cancel = True End If End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(TextBox2.Text) Then TextBox2.BackColor = RGB(&HFF, &HFF, &HFF) ElseIf TextBox2 <> "" Then MsgBox ("数値以外の文字が入力されています") TextBox2 = "" Cancel = True End If End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call chkFKey(KeyCode) End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call chkFKey(KeyCode) End Sub Private Sub chkFKey(ByVal KeyCode As MSForms.ReturnInteger) If KeyCode = vbKeyReturn Then If isw = 2 Then isw = 0 With Me.Controls("TextBox" & isw + 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With ElseIf KeyCode = vbKeyDown Then If isw = 2 Then isw = 0 With Me.Controls("TextBox" & isw + 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With ElseIf KeyCode = vbKeyUp Then If isw = 1 Then isw = 3 With Me.Controls("TextBox" & isw - 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub 長くてすみません以上、宜しくお願い致します

質問日時: 2024/04/25 17:12 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
プログラムについて。

コンソール(コマンドプロンプト)は、人間とコンピュータの仲介をしているということでしょうか?後、ログメッセージとは、何でしょうか?ちなみに、ジャバスクリプトでハローワールドを組んだときの疑問点です。教えてくれませんか?

質問日時: 2024/04/24 21:33 質問者: メラゾームカテゴリ: JavaScript

解決済

3

0
goo は、放置？

https://beginreturnonassets.com/products/auric-spreader?utm_term=nPlamFeL3J0HqcrUAs9iU&adset_name=23&fbclid=IwAR3vJIHfh6Q-OYP4zgmMOIgABsh_s_PAJ45_XpJALqrB7EHIqnpQiiCtaGk_aem_AWoGuN07iOJhJpN0WYEf58C8Z-7ikE29METVt51SlKw2aH4sIMiohRnY5rizC6wLjuYvh5kl-WAHXk1VOatawuZx

質問日時: 2024/04/24 19:30 質問者: odasaga09 カテゴリ: HTML・CSS

ベストアンサー

1

0
MacOS：ターミナルではNPMのコマンドを受け付けるがVSCODEでは受け付けない現象

おそらくパスが通ってないものと想いますがなぜそうなるのか全くわからないので質問です。 MacOS（M1)を使用していてターミナルではNode -vやnpm run serveのコマンドが通るのに VSCODE上のターミナルでは通りません、ｃｄでの階層は同じ場所にいます。自身で調べてHomebrew、Nodebrewを使用してインストールしたもので Mavenプロジェクトです。 VSCODE上で行うコマンドとターミナルで行うコマンドで結果に差が出るものなのかもわかりませんが・なぜそのようなことが起こるのか・どうやって解消すればよいのかわかる方がいたらごお教示お願いいたします。ソースコードなど詳細はセキュリティ上開示出来ないことをお詫び申し上げます。

質問日時: 2024/04/24 09:49 質問者: yasutaka2012ya カテゴリ: Java

解決済

1

0
楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと

楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと気づきました。プログラミング言語を設計する楽しさってなんですか？ Webサイトでも作ってた方がマシでしょうか。

質問日時: 2024/04/23 22:43 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

5

0
ArduinoのジャイロモジュールMPU6050について

質問失礼いたします。半年前ほどからArduinoのプログラムを始めまして、現在ジャイロセンサーのMPU6050モジュールを扱っているのですが、2つ使用して指の角度を計測するときに、指の角度は変えず、腕（手首）を動かすと計算値が変わってしまうのですが原因が今ひとつわかりませんので、どうかご教授いただけたらと思います。計算値とは1つ目のジャイロから2つ目のジャイロの数値を引き算した結果の数値です。分かりづらくて恐縮ですが、画像が指の断面図で、赤色がジャイロモジュールの位置です。 ③は①のように指の角度は変えず、手首や腕を動かした状態です。 ③の状態で数値が変わってしまします。②、④も同様です。

質問日時: 2024/04/22 23:13 質問者: タケシマンカテゴリ: C言語・C++・C#

ベストアンサー

2

0
VBA SaveChanges 上書きされない

Excel 2019 処理内容ブック内のすべてのグラフのスケール変更質問内容 wb.Close SaveChanges:=True 上記では上書き保存がされません。以下の記述では問題なくできます。 wb.Close wb.Save テストで、保存前にwb.Savedの返り値を見てみたのですが、スケール変更の処理を終えてもTrueでした。 Excelでは、グラフのスケール変更のみは「変更なし」という扱いということでしょうか。

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

解決済

1

0
小学1年生の子です。塾に行かせるのは難しいので、自宅で学べたらと思うのですが、子供にプログラミングを

小学1年生の子です。塾に行かせるのは難しいので、自宅で学べたらと思うのですが、子供にプログラミングを学ばせるなら、マインクラフト等をスウィッチでやるか（プログラミングを学ぶのに良いと聞きました）、タブレットでアプリを入れてやるか、どちらか、または他に学ぶ方法がありますか？

質問日時: 2024/04/22 08:27 質問者: miniko4 カテゴリ: その他（プログラミング・Web制作）

解決済

10

0
phpでPEAR::DBを使っているのですがPEAR::DB関連の処理を関数化して使い易くしようと思

ったのですが以下のように関数化するとエラーになってPHPが動きませんどうしたらえらーがなくなりますか？ $sql="delete from hy_kgrs"; $res=& $db->query($sql); if(PEAR::isError($res)) { die($res->getMessage()); } ↓ dtbs("delete from hy_kgrs"); function dtbs($sql) { $res=& $db->query($sql); if(PEAR::isError($res)) { die($res->getMessage()); } return $res; }

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

ベストアンサー

1

0
Pythonでgif画像が上手く作れない

#ライブラリのインポート from PIL import Image #画像を入れる箱を準備 pictures=[] #画像を箱に入れていく for i in range(70): pic_name=str(i+1)+ '.png' img = Image.open(pic_name) pictures.append(img) #gifアニメを出力する pictures[0].save('anime.gif',save_all=True, append_images=pictures[1:], optimize=False, duration=16.66666, loop=0) このコードでgifを作成しましたが、画像が切り替わっても前の画像が消えずに残り続けてしまいます。例えば4枚目の画像に切り替わった時も1枚目、2枚目、3枚目の画像が残っています。全ての画像で同じ現象が起きます。画像が切り替わった時にそれ以前の画像を表示しない方法が知りたいです。どうぞよろしくお願い致します。

質問日時: 2024/04/20 22:01 質問者: atasarrrrrrr カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
pythonで複数画像からgifを作る方法

pythonで複数画像からgifを作る方法について質問です。 https://www.higashisalary.com/entry/python-make-gif#google_vignette このURLのサイトを参考にgifを作りたいのですが、実行コードの保存場所と同じフォルダの中に、４つの画像を連番で保存する方法が分からないため、ご教授して頂きたいです。初歩的な質問で申し訳ありませんがよろしくお願いします。

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

ベストアンサー

2

0
JAの支部？地域の農協のカードでスマホとか電気水道ガスとかの引き落とし全国規模でできますか？？

https://www.docomo.ne.jp/support/pay_automatic/bank.html ドコモの支払先に地元の総合JAのところをつかっているのですが、この場合、農業協同組合のカードになるので全国規模で預貯金をやりとりしたりドコモとかNTT東日本とか電気水道ガスなどの引き落としにつかえますか？？おしえてくださいよろしくおねがいしますＪＡ東京グループ一覧総合ＪＡＪＡ西東京ＪＡにしたまＪＡあきがわＪＡ八王子ＪＡ東京みなみＪＡ町田市ＪＡマインズＪＡ東京みどりＪＡ東京みらいＪＡ東京むさしＪＡ東京中央ＪＡ世田谷目黒ＪＡ東京あおばＪＡ東京スマイル専門ＪＡＪＡ八丈島ＪＡ利島ＪＡ東京酪農ＪＡ東京植木連合会等ＪＡバンク東京信連ＪＡ全農東京ＪＡ共済連東京ＪＡ東京厚生連東京都農業信用基金協会（一社）東京都農住都市支援センター関連団体（一社）東京都農業会館東京都農林漁業団体健康保険組合

質問日時: 2024/04/20 12:37 質問者: otasuke3900z カテゴリ: Java

解決済

2

0
現在のブックを閉じないで、マクロ抜きの（現在のブックの）コピーを作成したい

次のプログラムでコピーできるのですが、コピーされたSample1.xlsxを立ち上げると「ファイル形式と拡張子が一致していません」となってしまいます。 Sub Sample() Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs "C:\Sample1.xlsx" Application.DisplayAlerts = True End Sub

質問日時: 2024/04/20 07:58 質問者: payphone カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
以下のURL入れますか？皆さんは↓

以下のURL入れますか？皆さんは↓ 私は入れません原因は何ですか？ https://tsurumi-u.manaba.jp/ct/link_iframe_balloon?url=http%3A%2F%2Fyuzu.uja.or.jp%2F~motoki%2Fnetwork2024%2F

質問日時: 2024/04/19 19:16 質問者: Wohinfahrensie カテゴリ: AJAX

ベストアンサー

2

1
CSSについて教えてください。こちらのサイトを参考にしているのですが、ナンバーを自動で付けているの

CSSについて教えてください。こちらのサイトを参考にしているのですが、ナンバーを自動で付けているのを解除して、ナンバーではなく直接任意のテキストを表示したいです。 spanに入れただけだと白枠の中に表示されてしまうのですが、どうすれば良いかご教授いただけないでしょうか。画像の上に要素を重ねるレイアウトの実装方法 https://tips-log.com/css-layout/ （コード貼り付けようとしたのですが文字数が足りませんでした） <span class="p-textImgBox__number"></span> .p-textImgBox__number::before { position: absolute; font-size: 70px; letter-spacing: 0.1em; line-height: calc(84/70); color: var(--base-color); right: 25px; font-weight: 100; content: "0"counter(number) " "; top: 0; } content: "0"counter(number) " "; を消せばいけるかと思いましたが、ダメでした…。

質問日時: 2024/04/19 17:23 質問者: 彩いろどりカテゴリ: HTML・CSS

ベストアンサー

3

0
index.phpって何ですか？具体的に教えてください

index.phpって何ですか？具体的に教えてください

質問日時: 2024/04/19 15:10 質問者: Wohinfahrensie カテゴリ: PHP

ベストアンサー

4

0
mallocについて

とあるソースを確認している時に下記のような記述を見つけました。 p = (uint8_t *)(uint8_t *)malloc( len ); これはどのように動作するんでしょうか？ p = (uint8_t **)malloc( len ); であれば二次元配列での領域確保だとは思いますが、この後の処理を見る限りそのような感じで使用していないのです。多分記述ミスかとは思いますが、エラーも出ることなく動いているようなので、 free関数のところでもエラーにはなっていないようです。単純に p = (uint8_t *)malloc( len ); と同じ動作になるのでしょうか？現在このソースでメモリリークが起こる場合があるようで、その調査をしておりこのような処理を見つけた次第です。（メモリリークは時間が経ってから出るようなので。。。）この辺りが原因と言えるのかどうか何か情報をお持ちの方いらっしゃいませんでしょうか？よろしくお願いいたします。

質問日時: 2024/04/18 19:15 質問者: nagase932 カテゴリ: C言語・C++・C#

ベストアンサー

4

0
CSS、Bootstrapについて containerはなんのためにあるのですか？単にレイアウトする

CSS、Bootstrapについて containerはなんのためにあるのですか？単にレイアウトするならrowとcolだけでいいですよね？

質問日時: 2024/04/18 19:03 質問者: だいぬカテゴリ: HTML・CSS

ベストアンサー

3

0
VBA listBoxから

Private Sub ListBox1_Click() Dim response As VbMsgBoxResult response = MsgBox("編集しますか？記載情報に移動しますか？", vbYesNoCancel + vbQuestion, "選択の確認") If response = vbNo Then ' 編集しない場合 ' 選択された行にカーソルを移動 Sheet1.Cells(ListBox1.ListIndex + 1, 1).Select ElseIf response = vbYes Then ' UserForm1 に検索した情報を表示 UserForm1.ComboBox1.Value = ComboBox1.Value UserForm1.TextBox3.Value = ComboBox5.Value ' 同様に他のコントロールにデータをセットする ' UserForm1 を表示 UserForm1.Show End If Unload UserForm2 End Sub 現状このようなコードでリストボックスに表示した行をクリックして編集するならUserForm展開するのと記載情報に移動しますか？の時sheet1の該当する行にカーソル移動させたいのですがうまくいきません AIに相談してもなかなかはかどりません(´;ω;｀) listBoxに表示している情報で検索対象となる列は表示の一番右でListIndex, 0だと思うのですがそれでもうまくいきませんでした sheet1のA列に該当する値が（連番）あるのですがカーソルはlistBoxに表示した行をsheet1でカーソルを移動させる感じになっている気がしますどうか修正できる方おりましたらよろしくお願いしますm(__)m

質問日時: 2024/04/18 09:16 質問者: kacky76 カテゴリ: Visual Basic（VBA）

解決済

4

0
C言語をコンパイルするとコンピュータ上でどう動くかというコードになるみたいな説明をよく聞くのですがこ

C言語をコンパイルするとコンピュータ上でどう動くかというコードになるみたいな説明をよく聞くのですがここで言うコンピュータとはなんですか？CPUとはまた別ですか？

質問日時: 2024/04/18 00:09 質問者: だいぬカテゴリ: C言語・C++・C#

ベストアンサー

6

0
VBAで各列の"+"と"o"の合計数を数え3行目と4行目に入力したい

VBA初心者です。 1行目は22時を始めとし23時、0時、1時、～～と21時まで続く時間を 2行目は各時間の０分台、 10分台、 20分台、30分台、40分台、50分台を表しています。 5行名以降に記されている"+"と"o"の合計数を数え、それぞれ"+"の合計数を3行目に、”o"の合計数を4行目に記すVBAを作成したいです。 VBAを学習したばかりの自分にはハードルが高く、こちらで質問させていただきます。よろしくお願いいたします。

質問日時: 2024/04/17 14:20 質問者: yuni8787 カテゴリ: Visual Basic（VBA）

ベストアンサー

7

0
index.phpに入るには、どうすればいいですか？

index.phpに入るには、どうすればいいですか？

質問日時: 2024/04/17 12:59 質問者: Wohinfahrensie カテゴリ: PHP

ベストアンサー

2

0

←前の結果
1
...
4
5
6
7
8
9
10
11
12
13
14
...
20
次の結果→

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

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

質問する（無料）

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

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

プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて！goo」にも、「プログラミングを学べる子供...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...
なぜ批判コメントをするの？その心理と向き合い方をカウンセラーにきいた！

今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説

ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...