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

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

回答数

気になる

Webサイトの「デザインのみ(コーディング不要)」を依頼されました。「レスポンシブデザイン」を希望

Webサイトの「デザインのみ(コーディング不要)」を依頼されました。「レスポンシブデザイン」を希望された場合、PC版とスマホ版の両方のレイアウトを作成すればよいのでしょうか？コーダーさんとのコミュニケーションは取れないという状況です。

質問日時: 2024/12/25 14:56 質問者: wafdjt カテゴリ: HTML・CSS

解決済

4

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

作業ブックのシートに Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("AL10")) Is Nothing Then If Range("AL10").Value = "手続き必要" Then Call 矢印9表示 End If End If End Sub を設定しており、指定セル値AL10に（手続き必要）と表示されたら、マクロ　Call 矢印9表示が実行できるように設定しましたが、 AL10に（手続き必要）と表示されても上手くマクロが実行できませんでした。セルAL10には数式「=$AL$2&""&$AL$3&""&$AL$4&""&$AL$5&""&$AL$6&""&$AL$7&""&$AL$8&""&$AL$9」を設定しておりまして、この数式に表示された文字をセルAL10に表示させてます。解決方法を教えてください。よろしくお願いいたします。

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

ベストアンサー

3

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

下記のマクロを実行すると「メッセージボックス」が表示され、「OK」をクリックすると Call 着工時期が実行されるようしてますが、「OK」をクリックしても Call 着工時期が実行されません、解決方法を教えてください。現状のマクロ Sub 着工日確認() Dim alert alert = MsgBox("一般的には" & vbLf & " " & vbLf & "「くい打ち工事」" & vbLf & "「地盤完了工事」" & vbLf & "「山留工事」」" & vbLf & "「根切り工事」" & vbLf & "に係る工事が開始開始された時点を言います。", vbYes + vbExclamation, "着工日の考え方") Select Case alert Case vbYes: Call　着工時期 End Select End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

4

0
php でqiitaのサイトにあったファイルのダウンロード関数を使ってダウンロードしているのですが

フォームでダウンロード用のボタンを作ってそのボタンを押すと関数が実行されるようにしてますがボタンを押すと画面はそのままで画面の別のボタンを一回押すまで画面がフリーズしたままになりますそのボタンは他のことをするためのボタンですがその押しでそれを実行しません（空実行）これでも直にフリーズが終るのでいいのですがこのフリーズなしにすることはできますか？ https://qiita.com/fallout/items/3682e529d189693109eb function download($pPath, $pMimeType = null)

質問日時: 2024/12/24 12:56 質問者: reiman カテゴリ: PHP

ベストアンサー

1

0
プログラミングc＋＋を全く分からない状態から習得するまでどれくらいかかりますか？なぜ難しいと言われて

プログラミングc＋＋を全く分からない状態から習得するまでどれくらいかかりますか？なぜ難しいと言われてますか？

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

ベストアンサー

5

0
不要項目の行削除方法について

EXCEL_VBA初心者です。大変申し訳ございませんが行削除EXCEL_VBAコードについてご教授願います。「対象シート」に果物の項目があり A列：種類No、B列：種類、C列：名称No、D列：名称、E列：金額となっています。この「対象シート」から必要な果物以外を行ごと削除したいと思っています。「対象項目」のシートのA列に削除したい果物の種類Noが記載されています「対象項目」のシートのC列には削除されたくない果物の名称Noが記載されています。分かり難いのですが、「対象項目」のシートの種類に記載されている果物で名称に記載されている果物は削除せず、それ以外を削除したいです。例えば、果物の種類No ：01みかんの場合はAA清美、ABマドンナ、AE不知火の3名称は削除せず、その他のACセトカ、ADデコポンは削除する。 07柿の場合はCA富有柿は削除せず、CB おけさ柿は削除する「対象シート」が「削除後」シートの結果になるEXCEL_VBAコードを教えて下さい。実際は果物の品種は数十種類となり「対象シート」も何百行にもなります。よろしくお願いします。

質問日時: 2024/12/23 10:21 質問者: cake カテゴリ: Visual Basic（VBA）

ベストアンサー

8

0
perl の open について教えてください。

いつも助け手いただいており，ありがとうございます。ある団体のお手伝いでＨＰをいじっております。基本，既製のスクリプトを改造しながら，あれこれやっておりますが，新たに作る必要がうまれ，あれこれ始めましたが，open　にてつまづきました。 perlについては，初心者のレベルだと思います。やってることは単純なことだと思うのですが，下記内容のhtmlファイルを開くことです。　ファイル名　test.html 中身↓ 　<!DOCTYPE html> <html> <head> <title>ページタイトル</title> </head> <body> <p>うまく動くでしょうか。</p> </body> </html> このファイルを開くのに，ファイル名　app.cgi 中身↓ #!/usr/bin/perl open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む my @tmp=<IN>; close (IN); #ファイルハンドルを閉じる print @tmp; exit; だと５００のサーバーエラーになりますが，下記のようにprint（・・・・）を入れるときちんと実行できます。ファイル名　app.cgi 中身↓ #!/usr/bin/perl print "Content-type: text/html\n\n"; open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む my @tmp=<IN>; close (IN); #ファイルハンドルを閉じる print @tmp; exit; なぜprintを入れるとエラーにならないのか分かりません。テキストファイルを開くときは， printを入れなくてもひらけるようですが，この辺の違いがよく分かりません。アドバイスいただけるとありがたいです。

質問日時: 2024/12/22 13:51 質問者: mabo52 カテゴリ: Perl

ベストアンサー

5

0
従業員が1名だけのSierっているんですか？プログラマー

従業員が1名だけのSierっているんですか？プログラマー

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

ベストアンサー

1

0
【マクロ】オートフィルターにて12/1以上12/3以下のコード。日付はセルに入力。教えて下さい

以下コードをご覧ください。動きます。日付の指定をセルA1に12/1以上。セルA2に12/3以下　を入力したいですコード書き方ご存じの方、教えて下さい ws1.Range(Cells(1, 1), Cells(10, 3)).autofilter 1, ">=2024/12/1", xlAnd, "<=2024/12/3"

質問日時: 2024/12/20 07:50 質問者: aoyama-reiko カテゴリ: Visual Basic（VBA）

ベストアンサー

3

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

下記の2つのマクロを1つに出来る方法を教えてください。このマクロは以前教えて頂いたマクロで、マクロを実行すると指定ファイルが指定フォルダ内に移動します。マクロ-1 Sub 交付用に移動A3() 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 <> "" ' ファイルの移動を実行 Name myPath(1) & fname As 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") ' 現在のフォルダ内のPDFファイルがあるパスを取得 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 マクロ-2 Sub 交付用に移動A4() 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) & "*（交付用_A4）.pdf") Do While fname <> "" ' ファイルの移動を実行 Name myPath(1) & fname As 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") ' 現在のフォルダ内のPDFファイルがあるパスを取得 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/12/18 09:25 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
VBA 同じフォルダ内のすべてのファイルに同じセルをペーストしたい

VBAについてのご質問です。 ”データ処理ファイル”というファイルの”データ処理シート”というシートの”B1:S110000”セルをコピーして同じフォルダ内のすべてのファイルの”あ”というシートの”B1:S110000”セルにペーストしたいです。自分なりに下記のように作ってみましたが一部でエラーが出てしまいうまく動作しません。お手数をおかけしますが、どのように修正すればよいかご教示いただけますでしょうか。また、全然違うようでしたらサンプルコードをいただけないでしょうか？差し出がましい質問で大変恐縮ですが、ご教示いただけると幸いです。 Sub 粗さデータ処理() Dim fileName As String Dim wsName As String: wsName = "粗さデータ" '対象ワークシート名 Application.ScreenUpdating = False '各ファイルの変更処理を表示させない Application.DisplayAlerts = False '保存時メッセージを表示させない ChDir ThisWorkbook.Path fileName = Dir("*.xlsx?") 'フォルダ内の最初のエクセルファイル名を取得 Do While fileName <> "" If fileName <> ThisWorkbook.Name Then 'マクロのあるファイルでなければ With Workbooks.Open(fileName) 'ファイルオープン ThisWorkbook.Worksheets("粗さデータ処理シート").Range("B1:S110000").Copy_ .Worksheets(wsName).Range("B1").Select .Close savechanges:=True '保存＆クローズ End With End If fileName = Dir() 'フォルダ内の次のエクセルファイル名を取得 Loop Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ThisWorkbook.Worksheets("粗さデータ処理シート").Range("B1:S110000").Copy_でエラーが出ています。

質問日時: 2024/12/17 01:19 質問者: あずきぬしカテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
アルゴリズムとコードとは何ですか現代はネットでコードを探してドラクエ3が作れるとか？

現在のプログラマーは全てではないでしょうがネットでコードを検索して仕事をしているというのは本当でしょうかドラクエ3くらいなら検索してプログラムを作ることができるとネットで見ましたが本当ですか

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

ベストアンサー

5

0
vba Windowオブジェクト(Windows(index))について教えてください

いつもお世話になります昔作ったプログラムを見直ししていて、ちょっと疑問になったので教えてくださいウェブを見ると　オブジェクトを返すには、Windows (index) を使用しますとありますが、（質問1）　アクティブウィンドウは常にWindows(1)なのでしょうか？（質問2）　そしていま、ウィンドウのタイトルバーにブック名を出力しうとしているみたいですが　これで良いのでしょうか？　　MyBook as string 　　Dim wds as Window　　　　MyBook = ActiveWorkBook.name 　　Set wds = ActiveWorkBook.Windows(1) 　　wds.Caption = MyBook あまり必要がないみたいですが、プログラムにコメントを残したいので教えてください以上、宜しくお願い申し上げます

質問日時: 2024/12/16 18:10 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
IT業で開発をされてる方々に質問なんですが、一日に書かれるコード数ってどれくらいですか？また、最近

IT業で開発をされてる方々に質問なんですが、一日に書かれるコード数ってどれくらいですか？また、最近だとAIにより補助業務も兼ねてると思うのですが、自分で実務程度まで書けるようになるにはどれくらいの年月かかりましたか？

質問日時: 2024/12/14 23:15 質問者: にこてのーカテゴリ: その他（プログラミング・Web制作）

解決済

4

0
HTML &CSSとHTML5&CSS3 違い

HTML &CSSとHTML5&CSS3は同じと考えても良いのでしょうか？後、それを実行するには、どうすれば良いのでしょうか？後、HTML &CSSを勉強するのに、HTML5&CSS3を勉強しても問題ないのでしょうか？教えて頂けると幸いです。

質問日時: 2024/12/14 17:04 質問者: メラゾームカテゴリ: HTML・CSS

解決済

2

0
Vba エラーコード2147xxxxxxについて教えてください

いつもお世話になります今、ExcelからDocuworksの操作を与えられた関数から仕事をしています　　rc = XDW_GetDocumentNameInBinder(lngHandle, k, fName(0), Ksize, vbNullString) バインダーファイルからファイル名を取得するのですが、正常値はそのバイト数が得られますがファイル名がなくなるとエラーコードとなりますそのエラーコードで質問ですが Excel32ビット版の時は、-2147xxxxxxと負の値だったので　if RC < 0 Then Exit Sub チェックできたのですが Excel64ビット版では正の値で 2147xxxxxxxで出てくるのでそのあとに　if Abs(RC) > 2147000000 Then Exit Sub としましたそこで、これ良いのかな？っと思っていますまた環境が変わっても使えそうなものが他にあるような気がして相談してみました以上、何か良いと思うものが有ったら教えてください以上、宜しくお願い致します

質問日時: 2024/12/14 16:10 質問者: 公共ごまカテゴリ: Visual Basic（VBA）

ベストアンサー

1

1
あってる

いまのカーソルで照合対象の文字がBでAじゃないのはわかってるから最初がAで始まる照合パターンを持ってきても絶対一致しないのでCまで一つカーソルを飛ばさないの？

質問日時: 2024/12/14 14:02 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

2

1
HTML＆CSSとHTML5＆CSS3の違いについて。

すみません。HTML＆CSSのプログラムを組むのとHTML5＆CSS3のプログラムを組むのとでは何か違いがあるのでしょうか? 例えば、VSCODEでインストールするものが違うとか。教えて頂けると幸いです。

質問日時: 2024/12/14 08:43 質問者: メラゾームカテゴリ: HTML・CSS

解決済

1

0
HTML＆CSSとHTML5＆CSS3の違いについて。

すみません。HTML＆CSSのプログラムを組むのとHTML5＆CSS3のプログラムを組むのとでは何か違いがあるのでしょうか? 例えば、VSCODEでインストールするものが違うとか。教えて頂けると幸いです。

質問日時: 2024/12/13 19:39 質問者: メラゾームカテゴリ: HTML・CSS

解決済

3

0
画像生成AIのプロンプトの作り方について質問です。ちょっと性的な部分もあるので詳しくは書きませんが

画像生成AIのプロンプトの作り方について質問です。ちょっと性的な部分もあるので詳しくは書きませんが、人物がドアを手で開けている画像を作ろうとしているのですが、何度作り直しても、開いているドアとドアの前で立っている人物という構図になり、「人物がドアを開けている」という構図になりません。どなたかアドバイス貰えませんか？

質問日時: 2024/12/12 13:25 質問者: ガンダレカテゴリ: その他（プログラミング・Web制作）

解決済

3

1
jQueryプラグイン（LightBox）について詳しい方

jQueryプラグイン（LightBox）で、 HP上のサムネイル写真をクリックすると写真が大きく表示されるようになってます。サムネイル及び大きな写真を入れ替えたのですが、スーパーリロード(Ctrl+F5)をしても、サムネイルは新しい写真になりましたが、クリック後にポップアップされる大きな写真が古いまま表示されてしまうのです。写真は上書きしたのでサイト上に古い写真は存在しませんのでキャッシュが残ったままなのです。スーパーリロードしても消せない場合どうしたら良いでしょうか？

質問日時: 2024/12/11 23:49 質問者: tanapyondai カテゴリ: HTML・CSS

解決済

2

0
googleスプレッドシートのスクリプトをスマホで実行したいのですが..

複数の人たちで同じgoogleスプレッドシートのスクリプトをスマホで実行したいのですが、作成者のgoogleアカウントじゃなくて他者のアカウントではコードの実行ができないのでしょうか？何かいい方法があればご教授頂ければ幸いです。よろしくお願いします。

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

解決済

1

0
皆さんはGUCCIはハイブランドだと思いますか？また、GUCCIを持ってる年齢層のイメージを教えて

皆さんはGUCCIはハイブランドだと思いますか？また、GUCCIを持ってる年齢層のイメージを教えてください

質問日時: 2024/12/10 20:41 質問者: ピン-ピンたカテゴリ: CGI

解決済

1

0
SplFileObject を利用したときの5C問題？

phpでCSVファルを読み込み処理をしたいです。ファイルの中身が下記のようになっています。 "テスト","名前","不能","3","4","5" プログラムで下記のように記載してみました。 $strFilePath = 'C:'; $strFileName = 'Test.csv'; $file = new SplFileObject($strFilePath.$strFileName); $file->setFlags(SplFileObject::READ_CSV); // ファイル内のデータループ foreach ( $file as $key => $line ) { $line=mb_convert_encoding( $line, "utf-8", "sjis" ); var_dump($line); } を実行すると array(5) { [0]=> string(9) "テスト" [1]=> string(6) "名前" [2]=> string(10) "不能",3"" [3]=> string(1) "4" [4]=> string(1) "5" } と表示されます。本当は下記のようになってほしいです。 array(5) { [0]=> string(9) "テスト" [1]=> string(6) "名前" [2]=> string(6) "不能" [3]=> string(1) "3" [4]=> string(1) "4" [5]=> string(1) "5" } 「能」や「表」の5C問題でしょうか？どうすれば、希望のようにカンマ区切りになるでしょうか？

質問日時: 2024/12/10 15:40 質問者: rabu_chihaha カテゴリ: PHP

解決済

3

0
DNCL(共テ用プログラミング言語)について写真の(12)のプログラムにおいて、解説によると(12

DNCL(共テ用プログラミング言語)について写真の(12)のプログラムにおいて、解説によると(12)を実行すると変数Kingaku[kuji]の値が表示されると書いてありますが、この文の獲得賞金の次の「:」はDNCLにおいて何を表してますか？単に「として」の意味で捉えていいような当たり前のものなのでしょうか。教えて頂きたいです。画像が見づらくてすみません

質問日時: 2024/12/08 12:31 質問者: 物理あああカテゴリ: C言語・C++・C#

解決済

2

0
googleスプレッドシートのGASについて質問です

googleスプレッドシートを学習し始めた超初心者です。 googleスプレッドシートのGASについて質問です。指定のセルが編集されたら実行させたいので、以下のスクリプトでシート名を取得しようとすると var sheetName = e.source.getSheetName(); でTypeError: Cannot read properties of undefined (reading 'source') というエラーメッセージでます。何が原因でしょうか？ご回答よろしくお願いいたします。 function onEdit(e) { //対象にしたいシート名を入力 var sheetN = 'kinoko'; //指定したいセル（A1など）を入力 var range = 'H1'; //evant(e)からアクティブシート名を取得 var sheetName = e.source.getSheetName(); ←ここでエラー //編集されたセルの行数を取得 var row = e.range.getRow(); //編集されたセルの列数を取得 var col = e.range.getColumn();

質問日時: 2024/12/08 10:45 質問者: yasurin2024 カテゴリ: Java

ベストアンサー

1

0
DNCL(共テ用プログラミング言語)について写真の(12)のプログラムにおいて、解説によると(12

DNCL(共テ用プログラミング言語)について写真の(12)のプログラムにおいて、解説によると(12)を実行すると変数Kingaku[kuji]の値が表示されると書いてありますが、この文の獲得賞金の次の「:」はDNCLにおいて何を表してますか？単に「として」の意味で捉えていいような当たり前のものなのでしょうか。教えて頂きたいです。

質問日時: 2024/12/07 19:13 質問者: 物理あああカテゴリ: C言語・C++・C#

解決済

1

0
AVAST SECURE BROWSERの操作

教えてグーに入場の入り口を示したものであったが、更新要求が来て応じた後の画面が黒のままであるが、これをどうすればいいか未詳。果たして表示TELに電話してもいいのかウィルス感染か警戒で閉じるべきか。ただ待てば静まる説明もあるが、標示画面が異国語で分からず。対処方法を伝授お願いします。

質問日時: 2024/12/06 09:50 質問者: kamiyamasora カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

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

下記のコードは以前教えて頂いたコードで If Not Intersect(Target, Range("C5")) Is Nothing Then If Range("C5").Value = "都市計画区域内" Then Call 申請時期 End If End If 指定セル値に指定文字が表示されるとマクロが実行されます、又、繰り返しのマクロ実行を防いでます。このコードだと、指定セルが同じセルでのコードになりますが、 If Not Intersect(Target, Range("C5")) Is Nothing Then If Range("C5").Value = "都市計画区域内" Then この部分を If Range("C5").Value = "都市計画区域外" And Range("E5").Value = "階数:2階以上又は200㎡を超える" Then に変更し、マクロを繰り返し実行できない方法を教えてください。よろしくお願いいたします。

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

ベストアンサー

4

0
PHPの勉強してます。配列のところですが、実行結果は、9になりますが、そのロジックを教えてくだ

PHPの勉強してます。配列のところですが、実行結果は、9になりますが、そのロジックを教えてください。テキストの説明が足りなくて、よく分かりません。宜しくお願いします。

質問日時: 2024/12/04 13:34 質問者: lark1234 カテゴリ: PHP

ベストアンサー

7

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

作業ブックの作業シートにVBAコードを設定してます。このコードは先日教えて頂いたコードを少しアレンジしております。このコードは指定セル値「C5」に指定文字が表示された場合に指定マクロが実行されます。このコードを指定セル値「C5」に不特定の文字が表示された場合に指定マクロが実行できるように変更する方法を教えてください。現状のマクロ Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("C5")) Is Nothing Then If Range("C5").Value = "新築" Then Call 建物面積 End If End If End Sub

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

ベストアンサー

1

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

下記のマクロを実行するとメッセージボックスが表示され、「はい（Y）」をクリックするとマクロ「Call 都市計画区域内」が実行されます。このマクロを画像のようにメッセージボックスの表示を「区域内」「区域外」「ｷｬﾝｾﾙ」として「区域内」をクリックするとマクロ「Call 都市計画区域内」が実行「区域外」をクリックするとマクロ「Call 都市計画区域外」が実行「ｷｬﾝｾﾙ」をクリックするとマクロ実行されないように変更する方法を教えてください。現状のマクロ Sub 都市計画() alert = MsgBox("都市計画区域", vbYesNo + vbQuestion, "都市計画確認") If alert <> vbYes Then Exit Sub End If Call 都市計画区域内 End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

0
VBAについて教えて下さい

お世話になります。 excel2019で作成したVBAはexcel2013で動かす事は出来ないのでしょうか？動かない場合はexcel2013とexcel2019に搭載されているマクロや関数の違いよるのでしょうか。対処法などは有りますでしょうか。ご教授宜しくお願い致します。

質問日時: 2024/12/04 00:44 質問者: mokatsu カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
Excelの数式について教えてください。

下記の条件で「シート名昇降機【青紙】（表面）」のセル「CB5」に数字を表示できる方法を教えてください。条件シート名「基本情報」のセルにプルダウンで文字が表示されます。例えば №1号機 №1号機～№2号機 №3号機～№4号機 №3号機～№5号機等々この表示された文字を以下のように数字にしたいのですが、 №1号機＝1 №1号機～№2号機＝2 №3号機～№4号機＝2 №3号機～№5号機＝3 のように№で表示された数字の数を数字に出来る方法を教えてください。よろしくお願いいたします。

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

ベストアンサー

1

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

作業ブックのThisWorkbookに下記のコードを設定しています。ブックを開くとメッセージボックスが表示されて、はい（Y）をクリックすると以下のマクロが実行されます。いいえ（N）をクリックするとマクロが実行されません。このコードをはい（Y）の代わりに「新築」と表示し、それをクリックするとマクロ「新築シート表示」が実行同じく「増築」と表示し、それをクリックするとマクロ「増築シート表示」が実行「変更」と表示し、それをクリックするとマクロ「変更シート表示」が実行「キャンセル」と表示し、それをクリックするとすべてのマクロが非実行に出来る方法を教えてください。現行のコード Private Sub Workbook_Open() Dim alert As VbMsgBoxResult alert = MsgBox("シートを表示しますか？", vbYesNo + vbQuestion, "シート確認") If alert <> vbYes Then Exit Sub End If Call 新築シート表示 Call 増築シート表示 Call 変更シート表示 End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

0
共テのプログラミング言語はPython等と違いほとんど日本語ですが、その共テのプログラミング言語を解

共テのプログラミング言語はPython等と違いほとんど日本語ですが、その共テのプログラミング言語を解説している参考書で学ぶ必要はありますか？それとも教科書に載ってる言語を学べば共テも解けますか？

質問日時: 2024/12/01 15:49 質問者: 物理あああカテゴリ: その他（プログラミング・Web制作）

解決済

1

0
Vba 型が一致しません（エラー13）のセルを特定する方法を教えてください

いつもお世話になります今、沢山の数値を扱うプログラムを社内で提供していますが、たまにエラー13が出てその場所特定に呼ばれます。プログラムにパスワードが掛かっているので、解除して再計算で場所を特定しますそこでOnError Gotoからエラーメッセージを出そうと考えましたがその場所が特定できればと思い相談しましたエラーの箇所は単純で Dim ABC as Double の変数に代入するセルに文字が入っているという時ですもし、そのセルの特定方法が分かれば教えてください以上、宜しくお願いいたします

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

ベストアンサー

6

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

下記のマクロを実行するとセル値の番号の該当フォルダが指定フォルダから指定フォルダ内に移動出来るマクロになっております。このマクロの実行は、シート名「物件管理」にVBA Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Range("AE79").Value = "該当" Then Call フォルダ移動 End If End Sub を設定して実行しております。しかし、マクロを実行後に、対象フォルダを移動済みの場合でも、シート「物件管理」上で作業をする度に、メッセージ「フォルダを移動しますか？」が表示されてしまいます。対象フォルダが移動済み又は、メッセージが表示されて「はい（Y）を1回クリックすることでシート「物件管理」上で作業をする度に、メッセージ「フォルダを移動しますか？」が非表示となる方法を親切にコード元を教えてください。現状のマクロ Sub フォルダ移動() Dim alert As VbMsgBoxResult alert = MsgBox("フォルダを移動しますか？", vbYesNo + vbQuestion, "移動確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Dim fso As Object Dim MSfo As String Dim RSfo As String Dim sh As Worksheet Set sh = Workbooks("作業管理（最新）.xlsm").Sheets("物件管理") Set fso = CreateObject("Scripting.FileSystemObject") RSfo = "\\nas-sp01\share\確認部\電子申請　関連\２．審査中\北海\" Dim i As Long For i = 1 To 20 If sh.Cells(i, "AG").Value <> "" Then MSfo = "\\nas-sp01\share\確認部\電子申請　関連\２．審査中\◆未審査物件◆\" & sh.Cells(i, "AG").Value & "_*" End If fso.MoveFolder MSfo, RSfo Next Set fso = Nothing End Sub

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

ベストアンサー

1

0
特許公報のPDFから項目毎にExcelシートの列に転記したい

Pythonを使って特許公報PDFの一部分をExcelシートに落とすプログラムを作っていますが、どうしても正規表現の一致で必要部分（【項目】～次の【まで）を抜き出すことが出来ません。修正方法がお分かりの方にお教えを請えれば幸いです。 A列、B列、C列、D列、E列、F列、G列、H列、I列、J列、H列文献番号、発明の名称、出願人/権利者、要約、特許請求の範囲、発明の詳細な説明、発明の効果、実施例、公開番号、出願番号、出願日　テキスト全体を抜き出す所までは動くのですが、項目別に抜き出そうとすると空白になってしまいます。公報は特許情報プラットホーム（J-PlatPat）でダウンロードしたものです。宜しくお願い致します。 Pythonコード（暫定） import pdfplumber import re import openpyxl # PDFファイルを開く with pdfplumber.open("example.pdf") as pdf: extracted_text = "" for page in pdf.pages: extracted_text += page.extract_text() # 改行を統一 normalized_text = extracted_text.replace("\n", " ") # 正規表現パターン pattern = r"【\s*(文献番号|発明の名称|出願人/権利者|要約|特許請求の範囲|発明の詳細な説明|発明の効果|実施例|公開番号|出願番号|出願日)\s*】([\s\S]*?)(?=【|$)" # 正規表現でマッチ matches = re.findall(pattern, normalized_text) # 抽出データをデバッグ出力 print(f"マッチ数: {len(matches)}") for i, match in enumerate(matches, 1): title, content = match print(f"マッチ {i}: 項目 = {title}, 内容 = {content[:100]}") # 内容の冒頭100文字を表示 # Excelに書き込み wb = openpyxl.Workbook() ws = wb.active # ヘッダー行（項目名）をB列から順に追加 columns = ["文献番号", "発明の名称", "出願人/権利者", "要約", "特許請求の範囲", "発明の詳細な説明", "発明の効果", "実施例", "公開番号", "出願番号", "出願日"] ws.append(["項目"] + columns) # ヘッダー行をA列から挿入 # 各項目に該当するデータをExcelに保存 row_data = ["内容"] # A列のラベル for column_name in columns: # 該当するデータを検索 content = "" for match in matches: if match[0] == column_name: content = match[1].strip() # 内容を取得 break row_data.append(content) # データを追加 ws.append(row_data) # 保存 wb.save("extracted_data_by_columns.xlsx") print("Excelファイルにデータを保存しました。")

質問日時: 2024/11/27 10:56 質問者: ゲホゲホカテゴリ: オープンソース

解決済

1

0
itエンジニアに就職希望で未経験です就活用ポートフォリオを作成したいのですがどのようにすればいい？

html/css javasprictの言語を覚えていて、typescriptやnode.jsなども使えるのですが、技術を見せるため、とはポートフォリオ作成おすすめなどは書いてますが、どうすればその技術を誇示できて就活が有利に進むようなポートフォリオを作成できるのでしょうか？

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

ベストアンサー

6

0
VBA Application.Matchについての質問です

商品管理にマクロを使用しています。W列に仕入日、X列に仕入れ品名、Y、Z、AAには内容物の個数を入力しています。AL列には販売済み品名、AM,AN,AOには数字が入っていますが基本1に想定しています。仕入れ品は1箱に複数個のものもあり、便宜上個々としてバラす（AA列の数）必要があります。X:AAは仕入れ品名と日付で昇順し、販売済み品は同一の品名を統合し、数字は合算した形からAAをバラさずにApplication.Matchを実行すると完璧に走ってくれることは確認できています。つぎにAAをバラすため、別シートからX1に貼り付けたのちに Dim i As Variant For i = Cells(Rows.Count, "AA").End(xlUp).Row To 1 Step -1 If Cells(i, "AA").Value > 1 Then Range(Cells(i, "W"), Cells(i, "AA")).Copy Range(Cells(i + 1, "W"), Cells(i + 1, "AA")).Resize(Cells(i, "AA").Value - 1).Insert End If Next Application.CutCopyMode = False を追加すると、X列の途中（AL列の統合前の最終行？）までしか見に行かずに”見当たりません”のメッセージが返ってきます。あらかじめ別シートでバラしてから本シートのX1に貼り付けてVBAを走らせても結果は同じで止まります。バラにしなければ走る、VBAを追加すると止まるのはなぜでしょうか？どこかを修正すればX列を最後まで検索してくれるようになるのでしょうか。さほど知識がないので何日も考え、試しています。是非ともご教授お願いいたします。

質問日時: 2024/11/25 14:10 質問者: mokatsu カテゴリ: Visual Basic（VBA）

ベストアンサー

4

0
pythonについて

0を1に、1を0に、それぞれビット変換をする際に、「いずれの場合も＋１して、0ビット目以外を0にする」ことで達成できることは分かりました。この際のpythonでの表現方法のサンプルコードがあれば、教えてもらえたら嬉しいです。なお、例えば変換をしたい対象のビットを「Data[i]」だったとします。ご回答のほど、よろしくお願いいたします。

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

ベストアンサー

3

1
添付URLの様な３Dが動くWEBサイトの作り方。※どんなツール。技術が使われているの？

https://recruit.industry.panasonic.com/ 上記URLの様な３Dが動くWEBサイトの作り方。※どんなツール。技術が使われているの？

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

解決済

3

0
添付URLの様なサイトを作るにはどうすればいいですか？※どんな技術が使われていますか

https://www.biz-integral.com/ 上記URLの様なトップ画面のサイトを作るにはどうすればいいですか？※どんな技術が使われていますか３Dでかつ動きのあるサイト

質問日時: 2024/11/23 04:46 質問者: 39OK カテゴリ: その他（プログラミング・Web制作）

解決済

1

0
Excel マクロについて詳しい方、ご教示ください。『行数が毎回変わる元データの、A列に「1」と入

Excel マクロについて詳しい方、ご教示ください。『行数が毎回変わる元データの、A列に「1」と入っている行のみ、先データの各セルにコピペし印刷したい』のですが、うまくいかず行き詰まっています…。どのようにすればいいでしょうか？ ①元データのタイトル行を除きたい ②A列に「1」と入っている場合のみコピペ印刷したい以上がメインの悩みで、以下はサブ的な悩みなのですが、 ③元データ、先データのセル共に連続していない為、全箇所１個１個指定しているが可能ならコンパクトしたい ④元データシリアル値→先データ元号の数字のみの表記にしたいよろしくお願いいたします。ーー以下マクローー Sub テスト() Dim lastRow As Long Dim i As Long 'データのA列の最終行取得 lastRow = Sheets("元データ").Range("A" & Rows.Count).End(xlUp).Row '1行目からlastRow行目まで繰り返し For i = 1 To lastRow 'データをセット Sheets("先データ").Range("EA2").Value = Sheets("元データ").Range("B" & i).Value Sheets("先データ").Range("EL2").Value = Sheets("元データ").Range("C" & i).Value Sheets("先データ").Range("EW2").Value = Sheets("元データ").Range("D" & i).Value ※計60箇所ある為省略 '印刷プレビュー Sheets("先データ").PrintPreview Next End Sub

質問日時: 2024/11/23 01:53 質問者: gooddbx1013 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
アセンブラーの命令についてです。

私はアセンブラーのプログラム解析を行っています。アセンブラープログラムで２点疑問がありましたので質問いたします。１．ファイルのclose命令が２重のコーディングされている。 close(xx) close(xx) xxは同じファイルです。２．ファイルのclose命令がない状態でプログラムが終了している。プログラムが終了する前にファイルのcloseを行うと思いますが、そのcloseがありません。どちらのケースもコーディングミスと思いますが、実際にプログラムが停止、アベンドすることがない状態で動けるのでしょうか

質問日時: 2024/11/23 00:39 質問者: マー坊08050218 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

5

1
Javascript で条件分岐を使い共通コードをまとめる方法が分かりません

質問画面と回答画面の2つのファイルでQ＆A掲示板を作成しています。どちらも非同期通信（HTMLの書き換え）を行い、goo質問のように入力→確認→送信という形で設計しております。コード短縮、実装順番の変更のために response.js にコードをまとめているのですが、確認送信ボタンのみ質問画面か回答画面を if で条件分岐する必要があるため、コードの書き方が分かりません。ファイルアップロードの引数の値が質問と回答で異なるので、そこを利用して分岐したいと考えているのですが、どのように判定させればよいのでしょうか？ /* 質問＆回答画面の確認送信ボタン */ const divPostButton = document.createElement("div"); // div (子)を生成 divPostButton.classList.add("post-button"); // classの追加 child = document.createElement("button"); // button (孫)を生成 child.type = "button"; child.innerText = "入力画面へ戻る"; child.addEventListener("click", () => { change1(); input_area.style.display = "block"; // 空文字を入れることで要素内を空にできる confirm_area.textContent = ''; confirm_area.style.display = "none"; }); divPostButton.appendChild(child); // div (子要素) の末尾に child を追加 child = document.createElement("button"); // button (孫)を生成 child.type = "button"; //name属性の追加・変更 child.setAttribute("name", "output"); child.innerText = "結果画面へ進む"; child.addEventListener("click", confirm_button_click); divPostButton.appendChild(child); // div (子要素) の末尾に child を追加 /* ファイルアップロード（質問画面） */ const usericonImg = document.createElement("img"); const image_area = create_image_parts("image-partial", 3, usericonImg); /* ファイルアップロード（回答画面）*/ const usericonImg = document.createElement("img"); const image_area = create_image_parts("uploadfile-area", 0, usericonImg); /* ファイルアップロード（response.js） */ function create_image_parts(image_class, usericonIndex, usericonImg) { const image_area = document.createElement("div"); // const comment_area = document.createElement("div"); var image_count = 0; const divImagePartial = document.createElement("div"); // div (子)を生成 divImagePartial.classList.add(image_class); // classの追加 // var usericonImg; for (let i = 0; i < blobType.length; i++) { if (i == usericonIndex) { // usericonImg = document.createElement("img"); usericonImg.style.maxHeight = "85px"; usericonImg.style.maxWidth = "85px"; if (blobType[i] == "") { usericonImg.src = "<?php echo $noimage_url; ?>"; } else { usericonImg.src = blobUrl[i]; } } else { var changeImg = null; if (blobType[i] == "img") { changeImg = document.createElement("img"); } else if (blobType[i] == "video") { changeImg = document.createElement("video"); changeImg.setAttribute("controls", null); } else if (blobType[i] == "iframe") { changeImg = document.createElement("iframe"); } if (changeImg !== null) { image_count++; changeImg.classList.add("changeImg"); changeImg.style.height = "350px"; changeImg.style.width = "530px"; changeImg.src = blobUrl[i]; const divImageCameraIcon = document.createElement("div"); // div (孫)を生成 divImageCameraIcon.classList.add("image-camera-icon"); // classの追加 divImageCameraIcon.appendChild(changeImg); // image_camera_icon (子要素) の末尾に changeImg を追加 divImagePartial.appendChild(divImageCameraIcon); // uploadfile_area (親要素) の末尾に image_camera_icon を追加 } } } image_area.appendChild(divImagePartial); // image_area (親要素) の末尾に div を追加 return image_area; }

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

ベストアンサー

1

0
VBAで特定の文字が入った行をコピーして貼り付けたい

仕事で他の人に使ってもらうExcelファイルを作っているのですが行き詰っているので助けてください。 ①列指定して特定の文字が入ったセルを複数条件から探して該当する行を全てコピーして、 ②空いている行から貼り付けして、 ③コピーした行のセルの一か所（ I列予定）に文字や記号を1文字追加したい。 Sub 行コピー() Dim mySheet As Worksheet Dim targetSheet As Worksheet Dim lastRow As Long Dim i As Long Set mySheet = ThisWorkbook.Sheets("シート名") Set targetSheet = ThisWorkbook.Sheets("シート名") lastRow = mySheet.Cells(mySheet.Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow If mySheet.Cells(i, "E").Value = "〇〇" Or mySheet.Cells(i, "E").Value = "△△" Or mySheet.Cells(i, "E").Value = "✕✕" Then mySheet.Rows(i).Copy Destination:=targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1) End If Next i End Sub ネットで探して②までは上記で可能なのですが③が分からず、どなたか助けて頂けると助かります。

質問日時: 2024/11/22 15:50 質問者: マーボー666 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
CookieをWebStoeageに変える

このCookieの関数を、使い方はそのままでWebStorageに保存するように変えるにはどうすればいいでしょうか。よろしくお願いします。 function setCookie(name, value, days) { const date = new Date(); date.setTime(date.getTime() + (days * 24 * 60 * 60 * 1000)); const expires = "expires=" + date.toUTCString(); document.cookie = name + "=" + value + ";" + expires + ";path=/"; } function getCookie(name) { const nameEQ = name + "="; const ca = document.cookie.split(';'); for (let i = 0; i < ca.length; i++) { let c = ca[i]; while (c.charAt(0) == ' ') c = c.substring(1, c.length); if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length, c.length); } return null; }

質問日時: 2024/11/21 13:38 質問者: 優里さんカテゴリ: JavaScript

解決済

4

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

下記のマクロを実行すると指定セル値（CE1）をファイル名にしてマクロ有効ブックとして保存できます。セル（CE1）には「=$CJ$16&""&$A$2」を設定しており、「CJ$16」には【青紙】と表示しており「A$2」には物件毎の名前が表示されますが、物件の名前が「No.1」の場合に上手くマクロ有効ブックとして保存できません。（Excelの拡張子が無くなってます）物件の名前が「№1」の場合には上手くマクロ有効ブックとして保存できます。これはマクロで解決できるものでしょうか。教えてください。現状のマクロ 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("CE1").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/11/21 10:13 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0

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

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

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

質問する（無料）

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

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

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

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

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

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