人生最悪の忘れ物

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

回答数

気になる

  • 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

    回答受付中

    0

    1

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

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

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

    回答受付中

    1

    1

  • CCNAとjava silverは、合格に必要な勉強時間はどちらが少ないでしょうか？ 基本情報、ja

    CCNAとjava silverは、合格に必要な勉強時間はどちらが少ないでしょうか？ 基本情報、java bronze 所有しています。

    質問日時: 2024/10/12 19:28 質問者: パントテンさん カテゴリ: Java

    回答受付中

    0

    0

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

    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

  • androidx86でマネーファームを遊べる種類ありますか？https://apps.apple.c

    androidx86でマネーファームを遊べる種類ありますか？https://apps.apple.com/jp/app/%E3%83%9E%E3%83%8D%E3%83%BC%E3%83%95%E3%82%A1%E3%83%BC%E3%83%A0/id880577706

    質問日時: 2024/10/10 20:45 質問者: クラフトマイン カテゴリ: オープンソース

    回答受付中

    0

    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

  • 企業用のブログで何を書けばいいのかわかりません・・・

    アルバイトで一記事いくら、という契約で雇われています どうせなら毎日書こうかと思ってましたが（特に毎日書いてとは言われてないが） 書くことがなくなってきました・・どうしたらいいでしょうか？ 毎日書く必要はないんですかね？？ でも企業はグーグルで検索かけたときに上のほうに出てくるようにするために更新してほしいらしいです それだと毎日書く必要ありますか？ その企業が行ってる業務に関する豆知識とかかくといいらしいですが、ネタ切れです・・・ 昔の記事すべてはホームページからみれない（記事を開いてる状態から「前の記事を読む」をクリックし続けると昔の記事にいける）状態なので昔の記事と似たようなタイトル、似たような内容でもいいのでしょうか？ コツを教えてください・・・

    質問日時: 2024/10/06 19:50 質問者: こんにちは。さん カテゴリ: SEO

    ベストアンサー

    2

    0

  • c＋＋の勉強方法を教えてくださいプログラミングをやった事がなく1から勉強を始めようと思います1日1時

    c＋＋の勉強方法を教えてくださいプログラミングをやった事がなく1から勉強を始めようと思います1日1時間勉強し決められた期間にプログラムが出来るプロの状態になるにはどれくらいの時間が必要ですか？基本は言語と同じで文字を覚える「意味も」、計算ができるぐらいですか？

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

    ベストアンサー

    2

    0

  • VBAでセルの書式を変えずに文字列を置換する方法をご教示ください

    大変お世話になっております。 VBAの超初心者です。皆さまどうかご教示ください。 Excelで資料を作っていて、下記、洋ちゃんさん（Know-How-No-Life）のマクロを応用して、セルの書式を変えずに文字を置換したいと思っています。 https://www.banana-juice.com/tech/articles/replace-without-format 資料の体裁は以下の画像のような形です。この中でURLは青色、日付の類（20200808だけでなく、申請日(yyyy/mm/dd)も赤く表示）が赤色で表示されているとします。 https://kaizen-penguin.com/wp-content/uploads/2020/08/image-768x395.png 置き換える文字列は申請日(yyyy/mm/dd)を申請日(2024/08/08)にしたいと考えています。 洋ちゃんさん（Know-How-No-Life）のhttps://www.banana-juice.com/tech/articles/replace-without-formatにあるマクロを利用する場合、どこをどのように変更すればいいでしょうか。 また実行する場合は、「Call 書式を保持したままReplace("申請日(yyyy/mm/dd)", "申請日(2024/08/08)")」とすればいいのでしょうか。 ご教示の程どうぞよろしくお願いいたします。

    質問日時: 2024/10/04 22:19 質問者: ナカシュン太郎 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    1

  • FlaskでWEBアプリを作りPython any whrerでデプロイし、Googleサーチコンソ

    FlaskでWEBアプリを作りPython any whrerでデプロイし、Googleサーチコンソールにてインデックス登録を行い1日後このページはインデックスに登録されていますと出ているのに検索してもサイトが表示されませんなぜでしょうhttps://goodreed.pythonanywhere.com/

    質問日時: 2024/10/04 00:47 質問者: こーえいいあ カテゴリ: SEO

    解決済

    1

    0

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

    ご覧いただきありがとうございます。 VBA初心者です。 ダイアログボックスを開き画像ファイルを選択、１行目が見出し行になっている表のB2から６行ごとに結合したセルに画像を挿入し、隣のC列(６行ごと結合)に画像ファイル名(拡張子なし)が入る表を作りたいです。 結合していないセルの場合、以下のコードで作成できました。 ６行ごとに結合したセルの場合は、どのように修正したらいいのでしょうか？ 詳しい方、よろしくお願いいたします。 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "Select Image Files" .Filters.Clear .Filters.Add "Image Files", "*.GIF; *.JPG; *.BMP; *.PNG; *.TIF", 1 .AllowMultiSelect = True If .Show = -1 Then Dim i As Long For i = 1 To .SelectedItems.Count Dim fileName As String fileName = Left(Dir(.SelectedItems(i)), Len(Dir(.SelectedItems(i))) - 4) Range("C" & i + 1).Value = fileName Dim Picture As Picture Set Picture = ActiveSheet.Pictures.Insert(.SelectedItems(i)) With Picture With .ShapeRange .LockAspectRatio = msoFalse .Width = Range("B" & i + 1).Width .Height = Range("B" & i + 1).Height End With .Left = Range("B" & i + 1).Left .Top = Range("B" & i + 1).Top .Placement = xlMoveAndSize End With Next i End If End With End Sub

    質問日時: 2024/10/03 21:59 質問者: ukr-pm カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • 検索１位なのに依頼がない

    自営の仕事のページを持ってますが、 似たようなページを複数作ってるのでマイナスになると指摘されたので、 外部hpにリンクを張って、検索で引っかかる最初のページは「移転のお知らせ」のページになってます。つまりリンク先がお客さんに見てもらいたいメインのページとなり、ちゃんと作りこんであります。私としては移転の知らせのページはゴミなので検索エンジンにいずれ拾われなくなり、 外部のページが拾われて集客になると考えていたのですが、 移転のお知らせだけ書いてあるゴミページがいつまでも検索に引っかかりしかも、地元で１位です。 １位なのになんで依頼がないのか不思議です。なんでこの状況で依頼がないのか知りたいです。 301リダイレクトとかいうのやってみましたが、（リンク先のページが存在しない扱い）エラーになるのであきらめましたｗ またゴミページが表示されないよう、メインが表示される、リダイレクトじゃないいい方法はないですかね？ ちなみにゴミページを再度復活させ、ちゃんとしたｈｐにすると複数に多様なページがある問題が再発し同じことの繰り返しになります。

    質問日時: 2024/10/03 15:02 質問者: linkshuu カテゴリ: SEO

    解決済

    2

    0

  • classic aspとJS(jquery)を使用したオートフィルについて

    オートフィルを作成したいのでお力をください。 要件 SELECT要素を3つ用意します。 SELECT①　＝　リーダー名 SELECT②　＝　従業員名 SELECT③　＝　店舗 初期表示　データ例： 田中　佐藤　東京 田中　鈴木　埼玉 田中　谷口　埼玉 村上　加藤　神奈川 とします。 操作イメージは、 リーダー名＝田中　を選択時、残りのリストの内容は以下を表示したいです。 従業員名＝佐藤・鈴木・田口 店舗　　＝東京・埼玉 ※加藤・神奈川はリストに表示しない 処理のイメージは以下を想定しています。 ①jqeryのajaxメソッドを使用 changeイベントで値をサーバーへPOST ②サーバー側で値をSQLのWHERE句に動的に設定 取得結果をレスポンスとして返却 ③クライアント側で各SELECT要素に取得データを設定 ここで質問が２つあります。 質問① 田中を動的に設定した場合、 SQL実行時のレコードは以下となり、店舗に埼玉が2つ表示されてしまいます。 田中　佐藤　東京 田中　鈴木　埼玉 田中　谷口　埼玉 上記の場合の店舗の重複排除方法 質問② レスポンスとして返した3項目を各SELECT要素に全権表示させる方法 以上、どなたかお力をお貸しください、よろしくお願いいたします。

    質問日時: 2024/10/01 22:39 質問者: SE112 カテゴリ: AJAX

    解決済

    1

    0

  • [Excel VBA]特定の条件で文字を削除＆残す処理をするファイルを作成したいです

    助けてください。 Excelは関数を少し使ってるくらいのVB全くわかってないレベルで恐縮なのですが 仕事で以下のファイルを作る必要があり 検索などで色々調べているものの見事につまづいております。 作りたいファイルは、添付画像のように 列Fの結合セルにはテキストで　"あいうえお"　が それぞれ入っているのですが メモ下の結合セル内が 〇の時は列F4の結合セル、あいうえお（赤字）を削除して空白に。 ×の時は列F11の結合セル、あいうえお（青字）はそのまま残す。 のようなマクロを組みたいです。 if分を使えば、、というイメージはありますが、型の指定など 諸々ちんぷんかんぷんでどのようにすればよいか苦慮しております。 可能であればコードをそのまま貼り付けられる状態で 教えていただけると嬉しいです。 よろしくお願いいたします。

    質問日時: 2024/09/30 12:09 質問者: モノルル カテゴリ: Visual Basic（VBA）

    ベストアンサー

    4

    0

  • webディベロッパーについて詳しい方教えてくたまに…詳しく書かれているサイトでもいいので教えてくださ

    webディベロッパーについて詳しい方教えてくたまに…詳しく書かれているサイトでもいいので教えてくださると嬉しいです。 去年知り合いにhtml とcssについて教えてもらい，コーダーという仕事に興味を持ちプロゲートというサイトで練習しましたが難しいなと感じてました。 最近オンライン授業でも受けようかと思って調べてたら，WEBデザイナーの5日間無料講座というのがあり、とりあえず受けてみました。 受けながら，WEBデザイナーとコーダーの関係についてわかってきたと同時に，WordPressというサイトでもWebページがつくれ、それではコーダーとしての知識はそんなにいらない、あったほうがいいけど自分でかける必要はないとしりました。 しかし、WEBデザイナーが作ったサイトを再現したいならコーダーの知識が必要ということでしょうか？ WordPressについて解説しているYouTubeの動画を見ると，WordPressで作られたホームページはインターネットページの3割以上を占めるからやれて損はない！とよく主張してますが、 実際はWebデザイン以上のスキルをつけたいならコーダーとしても実践的に働けるようになったほうがいいのでしょうか？ フリーランスで働く場合は，顧客によって使い分けるって感じですかね？

    質問日時: 2024/09/30 09:13 質問者: こんにちは。さん カテゴリ: HTML・CSS

    ベストアンサー

    7

    0

  • タモリさんを信じられますか？

    働かなくても１億円稼げると言っています。 本物のｙａｈｏｏニュースでしょうか。徹子の部屋って生放送じゃないし 日本銀行が提訴したんなら、テレビでも放送するだろうし、詐欺サイトでしょうか https://incomediversificationstart.com/?newsInterview&media_type=image&utm_medium=paid&utm_source=fb&utm_id=120213091337510717&utm_content=120213091482030717&utm_term=120213091481800717&utm_campaign=120213091337510717&fbclid=IwY2xjawFmt3FleHRuA2FlbQEwAAEdXYsE1vgStpLSJ5m-3M8LFVMiNuiLcAN4tu5aaVXpXRzXzbK2rq08cabq_aem_H7_cWmA3YOscU1GL0GZMLw#custom-regbox

    質問日時: 2024/09/30 08:17 質問者: bagus3 カテゴリ: XML

    ベストアンサー

    5

    0

  • 【VBA】スペースが入っていない場合 ユーザーフォームのテキストボックスに、 氏名を入力する際、姓と

    【VBA】スペースが入っていない場合 ユーザーフォームのテキストボックスに、 氏名を入力する際、姓と名の間にスペースを入れて入力して欲しいのですが、 スペースが入ってない場合、エラーメッセージが出るようにしたいです。 Private Sub Text氏名_Enter() If Not Text氏名.Value Like “* *” Then Msg box “氏名間にスペースを入れてください” End If End sub 自分なりに作ってみましたが、 出来ませんでした。 どなたかご教授願います。

    質問日時: 2024/09/27 13:51 質問者: すももちゃんず カテゴリ: Visual Basic（VBA）

    ベストアンサー

    3

    0

  • AIのプログラムについて教えてください

    Pythonでプログラムを作って、AIを更に進化・発展させシンギュラリティーに迫るような革新的な物を作ることは可能でしょうか？ それは無理でしょうか？ Pythonでプログラムを作っても、出来上がるのは、あくまでもPythonを使った応用のプログラムしか出来ないでしょうか？ AIのプログラムに興味がありますが素人です。 AIやPythonについて何の知識もないので漠然としてます。 プログラミングについては、C言語やBasicを使った経験はあります。

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

    ベストアンサー

    4

    0

  • jqueryのselect2で検索欄の文字が消せない

    業務で困っているためご存知の方がいらっしゃればご教授ください。 バージョンなどの細かい条件がお伝えできないため 参考程度で構いません。アタリがつけられればと思っています。 開発環境 windows classic asp(vbscript) javascript(jquery) 経緯 html →selectタグでリスト作成 asp →oracle接続→人名データ取得→optionタグでループで全件表示 js →jqueryをインポートし、select2メソッドで実装 困っていること リスト内へのデータの反映とselect2による検索欄も正常に表示されましたが、検索時に入力した文字が消せない事象が発生しています。 詳細 半角文字→削除不可 全角文字→enter押下前削除可、押下後削除不可 全選択から文字入力(上書き？)可能 検索機能は正常 jqueryのファイルはダウンロード後 相対パスで呼び出しており、記述の順番も確認済み。 他システムでも同様のファイルを使用しており、可能性としては低そう 何かイベントが発生しないと文字が消せないなどの条件があるのでしょうか、、 よろしくお願いいたします。

    質問日時: 2024/09/26 19:18 質問者: mmmmo777 カテゴリ: JavaScript

    解決済

    1

    0

  • 【VBA】値を変更しながら連続でPDFを作成し，それらに印刷設定をした状態で結合するコード

    office365を使っている者です。 以前，この掲示板でExcel VBAで連続でPDFを作製し，それらを結合した状態でPDFで出力するコードを以下のとおり教えていただいた者です。 結合する前のデータ１件につき１ページでPDFが作成されるように設定を加えたいと思い，質問させていただきます。 -------------------------------------------------------------- Sub 連続PDF作成() Dim stK, stY, stD Dim startN, endN, i As Long Const AA = "A1:H40" ' ← コピー(転記)対象のセル範囲 Const fileName = "hoge" ' ← 作成するPDFファイル名 Set stK = Worksheets("回答") Set stY = Worksheets("様式") startN = stK.Range("I2").Value endN = stK.Range("I3").Value If Application.CountBlank(stK.Range("I2:I3")) > 0 Or _ Not (IsNumeric(startN) And IsNumeric(endN)) Then _ MsgBox "無効な入力です": Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False stY.Copy With ActiveWorkbook Set stD = ActiveSheet For i = startN To endN stK.Range("A5").Value = stK.Cells(i + 9, 1).Value stD.Copy after:=.Worksheets(.Worksheets.Count) .Worksheets(.Worksheets.Count).Range(AA).Value = stY.Range(AA).Value Next i stD.Delete .ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & fileName .Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ------------------------------------------------------------------------ 「様式」シートの内容を新しいシートとしてコピーして，値だけにして，それを順番に結合していくという内容になっています。「様式」シート１件のデータ（変数 i でコントロールしています）につき１ページでPDFを作成したいのですが，上のコードだと端末の環境によっては２ページになってしまうことがあります。 そこで，以下のようにPageSetupのコードを「stD.Copy after:=.Worksheets(.Worksheets.Count) .Worksheets(.Worksheets.Count).Range(AA).Value = stY.Range(AA).Value」と「Next i」の間に入れてみたのですが，デバックで止まってしまいます。（実行時エラー「438」です） どのようにすれば，問題なく動くようになるのかご教示願います。 --------------------------------------------------------------------- .Worksheets(.Worksheets.Count).Range(AA).Value = stY.Range(AA).Value .Worksheets(.Worksheets.Count).PageSetup .Worksheets(.Worksheets.Count).Zoom = False '拡大/縮小の指定を無しにする .Worksheets(.Worksheets.Count).FitToPagesWide = 1 '1ページに収める（横） .Worksheets(.Worksheets.Count).FitToPagesTall = 1 '1ページに収める（縦） .Worksheets(.Worksheets.Count).CenterHorizontally = True '真ん中に配置（横） .Worksheets(.Worksheets.Count).CenterVertically = True '真ん中に配置（縦） Next i --------------------------------------------------------------------------

    質問日時: 2024/09/26 15:34 質問者: qazxcvfr4 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    1

    0

  • エクセル タブの下のメニューを選択 実行するコード

    エクセルのタブを選択するところまでは出来ました。 参照URL https://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=1267#google_vignette これは　３２Bit　適宜　６４に変更する必要あり タブの下（そも、タブの下・これは何と呼ぶのか？　一応メニューと言うはず・・・）　 メニューの　左から２番目を　実行させたい ここにたどり着いたのですが https://liclog.net/menu-operation-rpa-function-vba-api/#google_vignette いまいち、こちらの能力不足で エクセル　開発　VBA　起動で　結構ですので実行コード　もしくは　上記のページについて 解説願えれば幸いです。

    質問日時: 2024/09/24 20:16 質問者: kozo2004 カテゴリ: Visual Basic（VBA）

    解決済

    1

    1

  • プログラミングについて プログラミングの練習(勉強)ができるようなサイトなどありませんか？ あれば教

    プログラミングについて プログラミングの練習(勉強)ができるようなサイトなどありませんか？ あれば教えて頂きたいです

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

    ベストアンサー

    10

    1

  • プログラミングの進学について

    定時制に通う高校２年生です。 自分は大人になった時、プログラミングの仕事に就こうと思っています。 ですが、知識がないので先に進学をしたいのですが、今のところ自分では考えが3択あります。 1つ目はプログラミングの大学に進学。 2つ目はプログラミングの専門学校に進学 3つ目はDMMWebcampの受講 です 正直、DMMWebcampについてはどのような勉強なのかもいまいち分かっていないので大学か専門学校かなと思っています。 そこで、先輩方にお聞きしたいのは、プログラミングの大学と専門学校の違いをお聞きしたいです。 自分は最終的にフリーランスや個人での依頼など、時間に縛られすぎない環境で働きたいと思っています。 現時点ではどこかしらの学校等に通い知識をつけ、現場経験を積みフリーランスになろうと思っています。 (これはあくまで理想であり、こんな理想通りにはならないということは重々承知していますが、少しでも理想に近付けたいです) まずはどこで知識をつけるか、というところです。 大学と専門学校の違いを知った上でどちらに進学すべきか、また、他の選択肢もあるのであれば教えて頂けると今後の参考資料になりますので良ければアドバイスお願いします。 長文失礼します。

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

    ベストアンサー

    6

    1

  • seo順位下がった原因

    トップページの地元での検索順位下がりました。 ずっと１位だったけど３位に。 下がる前に調整したことは、あまり需要がなさそうなページはたくさんあり、削除、 似たようなページに合流させました。 検索エンジンはトップページがどのくらい多くのサブページを抱えているかトータルで判断するのでしょうか？トップならトップだけの人気を判断するのですか？

    質問日時: 2024/09/23 11:27 質問者: linkshuu カテゴリ: SEO

    解決済

    2

    0

  • ＜tr＞指定した表の行要素をボタンクリック後に表示させる方法

    最初の行のみ表示させておき、ボタンをクリックすれば全ての行が表示される実装の仕方をご教授いただきたいです。 言語：Javascript <table> <tr> <th >名前</th> <th >年齢</th> <th >出身</th> </tr> <tr> <th >taro</th> <td>18</td> <td>日本</td> </tr> <tr> <th >jon</th> <td>23</td> <td>オーストラリア</td> </tr> <tr> <th >Mia</th> <td>20</td> <td>アメリカ</td> </tr> </table> <button>ボタン</button>

    質問日時: 2024/09/23 00:07 質問者: mcln カテゴリ: JavaScript

    解決済

    4

    0

  • pythonでAmazonのほしいものリストをローカル保存するスクリプト書いたら一部しか保存できぬ！

    pythonでAmazonのほしいものリストをローカルに保存するスクリプトを パプレシティで作成したのですが、 スクリプトを実行すると ほしいものリストの先頭ページしかローカル保存できません。 複数ページにまたがるほしいものリストの場合どのようにすればローカルに保存できますか？ アドバイスいただけると幸いです。よろしくおねがいします。 -------------------------------------------------------------------------- import requests from bs4 import BeautifulSoup import csv def get_wishlist(wishlist_id): url = f"https://www.amazon.co.jp/hz/wishlist/ls/{wishlist_id}" headers = { "User-Agent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36" } response = requests.get(url, headers=headers) soup = BeautifulSoup(response.content, 'html.parser') items = [] for item in soup.find_all('li', {'data-id': True}): title = item.find('h2', {'class': 'a-size-base'}).text.strip() price = item.find('span', {'class': 'a-price'}) price = price.text.strip() if price else 'N/A' link = "https://www.amazon.co.jp" + item.find('a', {'class': 'a-link-normal'})['href'] items.append([title, price, link]) return items def save_wishlist_csv(items, filename): with open(filename, 'w', newline='', encoding='utf-8-sig') as f: writer = csv.writer(f) writer.writerow(['タイトル', '価格', 'リンク']) # ヘッダー行 writer.writerows(items) # メインの実行部分 wishlist_id = input("Amazon wishlist IDを入力してください: ") items = get_wishlist(wishlist_id) if items: filename = "amazon_wishlist.csv" save_wishlist_csv(items, filename) print(f"ほしいものリストを {filename} に保存しました。") else: print("ほしいものリストの取得に失敗しました。")

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

    ベストアンサー

    1

    0

  • Web初心者です。 簡易的なWebページを作成し

    Web初心者です。 簡易的なWebページを作成し（index.htmlなど）、ローカル環境で同じLAN内の複数のPCに同時に公開することはXamppを使ってできたのですが、これをインターネット（WANというのでしょうか）に公開するのはまたしくみや訳が違いますか？どう違うのか教えてください。 ・PC環境 Windows10 ntel(R) Core(TM) i5-8350U CPU @ 1.70GHz 1.90 GHz メモリ　8GB ・簡易サーバー環境 Xampp v3.3.0

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

    解決済

    5

    0

  • Xamppはオープンソースのディストリビューションですか？

    Xamppはオープンソースのディストリビューションですか？ GNU General Public Licenseのもと自由に複製できるとあります。

    質問日時: 2024/09/21 08:55 質問者: dice_zk1 カテゴリ: オープンソース

    ベストアンサー

    1

    0

  • Web画面の文字をVB6で取得したい

    VB6でWebブラウザを使わず（つまりIE.Navigateをぜず）に、 Web画面の文字を取得したいのですが、 どのようなコードを書けばよいでしょうか。 ひとまずxmlHTTP オブジェクトをクリエイトしての文字列取得には成功したのですが、 こちらは xmlHTTP.Open "GET", "取得したいＵＲＬ" と言う命令の方法になっており、 この方法だと、Web画面の一部の文字をクリックすることで、 別画面としてポップアップされる子画面の文字は取得が無理そうでした。 それは子画面が、"取得したいＵＲＬ"ではなく別ものになるからです。 では 子画面のＵＲＬはわかるので Open "GET", "子画面のＵＲＬ" とするといけそうですが、親画面から起動した子画面でないと、 命令を認識しないと言う制約があるようでした。 別な表現をしますと、欲しい文字が子画面の文字なのですが、 別のＵＲＬとなっている為に取得できず、では、 xmlHTTP.Open "GET", "子画面のＵＲＬ" としても、 親画面から何かを継続して表示したものでなければ、取得できない構造でした。 これはVB6のインターネットコントロールを使っても同様です。 Web画面のタイトル部分ならば、 GetWindowTextと言うAPI関数で取得できたのですが、 メイン画面から別に起動する子画面の全ての文字取得は、 実装ができませんでした。実装できる関数に心当たりはありませんか？ かくなる上はセンドキーで、Ctrl+A と Ctrl+C を送るのですが、 常にターゲットの画面にフォーカスを与えなくてはならず、 他のアプリの画面が使えなくなってしまいます。 ＶＢドットネットであればこれらは解決できるでしょうか。 ドットネットを使ってもメインのＵＲＬ画面から別ＵＲＬで開く、 子画面の文字列取得は難しいように思っています。 取得のためのAPI関数が分かれば一番良いのですが、 アドバイスの程、よろしくお願いします。

    質問日時: 2024/09/20 11:18 質問者: VT250F カテゴリ: Visual Basic（VBA）

    ベストアンサー

    3

    1

  • アップロードファイルを表示するためにはどうすればよいでしょうか？

    Q&A掲示板の回答画面を作成しているのですが、アップロードファイルの URL が表示されており、それと結びつく画像が表示されません。 アドバイスよろしくお願い致します。 <?php $sql = 'SELECT * FROM sortable'; $query = $wpdb->prepare($sql); $rows = $wpdb->get_results($query); // アップロードディレクトリ（パス名）を取得する $upload_dir = wp_upload_dir(); echo '<div>'; foreach ($rows as $row) { $files = array_filter([$row->attach1, $row->attach2, $row->attach3]); $views = []; //ＨＴＭＬをため込む配列の初期化する foreach ($files as $file) { $info = pathinfo($file); $attach_url = $upload_dir['baseurl'].'/attach/'.$info['basename']; $ext = $info['extension']; switch ($ext) { case 'jpeg': case 'png': $views[] = '<img style="height: 50px;" src="'.$attach_url.'">'; break; case 'mp4': $views[] = '<video style="height: 50px;" src="'.$attach_url.'">'; break; case 'pdf': $views[] = '<iframe style="height: 50px;" src="'.$attach_url.'"></iframe>'; break; default: break; } } foreach ($views as $view) { echo '<div>'.$view.'</div>'; // アップロードファイル } ?>

    質問日時: 2024/09/19 18:44 質問者: 初心者サイト作成 カテゴリ: PHP

    ベストアンサー

    2

    0

  • CSSを教えて下さい webデザイナーの職業訓練に通うコーディング初心者です。 サイトを作っていまし

    CSSを教えて下さい webデザイナーの職業訓練に通うコーディング初心者です。 サイトを作っていまして divにhover→filter:brightnessで暗くなるようにしたのですが divの中に入っている a (colorは白)も一緒にfilterが効いて暗くなり、グレーになってしまいます。 divの背景だけにfilterを効かせる方法はないでしょうか？ 参考にサイト見ていると、マウスを載せると中の文字はそのままで、背景だけ暗く変わるサイトがいっぱいありますが、検証画面見てもhoverのスタイルがでてこないのでわかりません。 htmlはざっくりこんな感じです。↓ 〈div class=○○〉 〈a〉ここも暗くなってしまいます。〈/a〉 〈/div〉 CSSは基本しか習っていないのでプロパティや擬似クラス？等知らないものが多いです。 よろしくお願いします。

    質問日時: 2024/09/19 07:39 質問者: ホルキナ カテゴリ: HTML・CSS

    ベストアンサー

    2

    0

  • CSSを教えて下さい webデザイナーの職業訓練に通うコーディング初心者です。 サイトを作っていまし

    CSSを教えて下さい webデザイナーの職業訓練に通うコーディング初心者です。 サイトを作っていまして divにhover→filter:brightnessで暗くなるようにしたのですが divの中に入っている a (colorは白)も一緒にfilterが効いて暗くなり、グレーになってしまいます。 divの背景だけにfilterを効かせる方法はないでしょうか？ 参考にサイト見ていると、マウスを載せると中の文字はそのままで、背景だけ暗く変わるサイトがいっぱいありますが、検証画面見てもhoverのスタイルがでてこないのでわかりません。 htmlはざっくりこんな感じです。↓ 〈div class=○○〉 〈a〉ここも暗くなってしまいます。〈/a〉 〈/div〉 CSSは基本しか習っていないのでプロパティや擬似クラス？等知らないものが多いです。 よろしくお願いします。

    質問日時: 2024/09/18 23:15 質問者: ホルキナ カテゴリ: HTML・CSS

    ベストアンサー

    1

    0

  • CSSでinputのテキストカラーを変えたのですがパソコンで確認すると色が変わっているのですがiPh

    CSSでinputのテキストカラーを変えたのですがパソコンで確認すると色が変わっているのですがiPhoneで確認すると色が変わっていませんなぜでしょうか

    質問日時: 2024/09/18 01:26 質問者: こーえいいあ カテゴリ: HTML・CSS

    解決済

    2

    0

  • 2カラム、左メニュー、特定パーツのインクルド化

    HTML5 左メニュー全体のインクルドはできましたが、左メニューの特定パーツ(BOX:プールダウンメニュー)のみインクルドできないものか調べましたが、分かりません。 HTMLにお詳しい方どうぞご教授宜しくお願い致しますm(__)m ※参：画像 <!DOCTYPE html> <!-- 省略 --> <!-- インクルドjs --> <script src="content2.js"></script> </head> <body> <!-- 省略 --> <!-- 省略 --> <!-- 左メニュー --> <div class="content1"> BOX① ＜/div> <!-- 左メニューBOX② --> <div class="content2"> <!-- ●インクルドさせたい● --> <script>include("content2"); </script> <p>インクルドHTMLは別に用意:content2.html</p> ＜/div> 左メニューの省略「BOX②のパーツ」のみ、インクルド化する方法はありますでしょうか？ サイトを色々調べましたが、左メニュー特定BOX(プールダウンメニュー)だけのインクルド化は分かりませんでした。 ※また色々試しましたが、左メニューが「横並び」になります。 <div class="content2"> CSS、HTMLの記述の問題ありかと思っております。 HTML・CSSにお詳しい方、 2カラム・左メニュー縦並びで「BOX②のみインクルド化」する方法があるようでしたら、是非宜しくお願い致します。

    質問日時: 2024/09/17 12:57 質問者: Fkujusou カテゴリ: HTML・CSS

    ベストアンサー

    2

    0

  • ＶBA 入力箇所指定方法

    はじめまして。 やりたい事は、A1にQRコードを読み後、自動でB1に移動しまたQRコードを読み後 A2列に移動、QRコードを読み後、自動でB2に移動しまたQRコードを読み後A3に移動の 繰り返しをプロブラミングしたいのですがよくわかりません。 御存じの方ご教授お願い致します。

    質問日時: 2024/09/14 07:00 質問者: たけやん224 カテゴリ: Visual Basic（VBA）

    解決済

    2

    0

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

    下記のマクロを実行すると、確認メッセージが表示され「YES」をクリックすると マクロ設定ブックと同じフォルダ内にある指定の圧縮ファイルを削除できます。 このコードを変更して マクロ設定ブックと同じフォルダ内に既に圧縮ファイルが削除されて無い場合に マクロを実行した時に確認メッセージが表示されない方法を教えてください。 現状のマクロ Sub 削除() Dim alert As VbMsgBoxResult alert = MsgBox("圧縮ファイルを削除してよろしいですか？", vbYesNo + vbQuestion, "削除確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Kill ThisWorkbook.Path & "\*.zip" Kill ThisWorkbook.Path & "\*.7z" End Sub 以上となります。 よろしくお願いいたします。

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

    ベストアンサー

    4

    0

  • python エラー

    anacondaでpythonプログラムを実行したところ、エラーが出て処理ができなくなりました。 解決方法はあるでしょうか。プログラムは、1ファイル1GBの動画データが100個ほどあり、それを結合して出力するプログラムです。 最初は実行できていましたが、突然できなくなりました。 よろしくお願いします。

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

    解決済

    1

    0

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

    下記のマクロは先ほど教えて頂いたマクロで コピー元の指定シートとセル値をコピー先にコピペできます。 Sub Macro1() Call 採光シートコピー範囲 Call 貼り付け Call 採光データ削除 End Sub 張り付けた後に コピー元のファイルが不要の為、マクロ「採光データ削除」を実行して、ファイルを削除したいのですが、削除対象のファイルが開いた状態なので、エラーメッセージが出て、ファイルを削除できません。 以前教えて頂いたコードをそのまま利用しており、コピー元のファイルのコピー範囲が完了するとこのファイルは閉じると思うのですが、なぜか、開いたままの状態です。 それぞれのマクロを書き込みますので、解決方法を教えてください。 Sub 採光シートコピー範囲() Dim folderPath As String Dim fileName As String Dim ws As Worksheet folderPath = ThisWorkbook.Path & "\" '作業フォルダ内にはマクロを設定しているコピー先のブックとコピー元の ' 採光計算確認.xlsxの 2つ のExcelファイルしかありません｡ fileName = Dir(folderPath & "*.xlsx?") Do While fileName <> "" If CheckName(fileName) = True Then Exit Do fileName = Dir() Loop If fileName <> "" Then '別ブック 採光計算書.xlsx Set Wb2 = Workbooks.Open(folderPath & fileName) On Error Resume Next Set ws = Wb2.Worksheets("Table 2") If Err.Number <> 0 Then MsgBox "コピー元ブックの提出シートが見つかりません" On Error GoTo 0 Wb2.Close False End End If 'セルの値を取得する ws.Range("A1:W51").Copy On Error GoTo 0 ws.Activate ws.Range("A1:W51").Copy Else MsgBox "コピー元ブックが見つかりません": End End If End Sub Private Function CheckName(ByVal fileName As String) As Boolean CheckName = False If fileName = ThisWorkbook.Name Then Exit Function CheckName = True If LCase(Right(fileName, 5)) = ".xlsx" Then Exit Function If LCase(Right(fileName, 5)) = ".xlsm" Then Exit Function CheckName = False End Function Sub 貼り付け() Dim ws1 As Worksheet Set Wb1 = Workbooks(1) 'このブック On Error Resume Next Set ws1 = Wb1.Worksheets("採光確認") If Err.Number <> 0 Then MsgBox "コピー先ブックの受付シートが見つかりません" Application.CutCopyMode = False On Error GoTo 0 If Not Wb2 Is Nothing Then Wb2.Close False End End If Application.DisplayAlerts = False Application.EnableEvents = False ws1.Range("A1:W52").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False Application.EnableEvents = True Application.DisplayAlerts = True End Sub Sub 採光データ削除() Dim filePath As String filePath = ThisWorkbook.Path & "\採光計算書.xlsx" If Dir(filePath) <> "" Then Kill filePath End If End Sub 以上となります。 よろしくお願いいたします。

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

    ベストアンサー

    6

    0

  • 複数のパソコンの中の1つのパソコンのアパッチドキュメントルートをインターネットブラウザで見れるように

    DDNSアドレスで公開しているのですが 公開しているパソコンはPHP8で動いていてPHP5にしか対応していないPHPファイルの公開に支障が出ています。 PHP5で動いている他のパソコンを公開したいのですがIPアドレスは１個しかプロバイダから貰っていないのでできません 公開していないPCのアパッチドキュメントルートを 公開しているPCを経由して公開する方法はないでしょうか？

    質問日時: 2024/09/12 12:00 質問者: reiman カテゴリ: PHP

    ベストアンサー

    1

    1

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

    下記のマクロを実行すると コピー元のシートの指定セル範囲を、コピー元（マクロ設定ブック）にコピーできます。 コピー元のシートが「Table 1」「Table 2」「Table 3」が3つあり シートを「Table 2」と指定しているのですが、上手くコピペできません、 コピー元のシート「Table 1」と「Table 3」をあらかじめ削除し、「Table 2」のみの状態で、マクロを実行すると、上手く行きます。 出来ればコピー元のシートが「Table 1」「Table 2」「Table 3」3つある状態で上手くコピペ出来る方法を教えてください。 現状のマクロです。 Sub Macro1() Call 採光シートコピー範囲 Call 貼り付け End Sub Sub 採光シートコピー範囲() Dim folderPath As String Dim fileName As String Dim ws As Worksheet folderPath = ThisWorkbook.Path & "\" '作業フォルダ内にはマクロを設定しているコピー先のブックとコピー元の ' 採光計算確認.xlsxの 2つ のExcelファイルしかありません｡ fileName = Dir(folderPath & "*.xlsx?") Do While fileName <> "" If CheckName(fileName) = True Then Exit Do fileName = Dir() Loop If fileName <> "" Then '別ブック 採光計算書.xlsx Set Wb2 = Workbooks.Open(folderPath & fileName) On Error Resume Next Set ws = Wb2.Worksheets("Table 2") If Err.Number <> 0 Then MsgBox "コピー元ブックの提出シートが見つかりません" On Error GoTo 0 Wb2.Close False End End If 'セルの値を取得する ws.Range("A1:W51").Copy Else MsgBox "コピー元ブックが見つかりません": End End If End Sub Private Function CheckName(ByVal fileName As String) As Boolean CheckName = False If fileName = ThisWorkbook.Name Then Exit Function CheckName = True If LCase(Right(fileName, 5)) = ".xlsx" Then Exit Function If LCase(Right(fileName, 5)) = ".xlsm" Then Exit Function CheckName = False End Function Sub 貼り付け() Dim ws1 As Worksheet Set Wb1 = Workbooks(1) 'このブック On Error Resume Next Set ws1 = Wb1.Worksheets("採光確認") If Err.Number <> 0 Then MsgBox "コピー先ブックの受付シートが見つかりません" Application.CutCopyMode = False On Error GoTo 0 If Not Wb2 Is Nothing Then Wb2.Close False End End If Application.DisplayAlerts = False Application.EnableEvents = False ws1.Range("A1:W52").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False Application.EnableEvents = True Application.DisplayAlerts = True End Sub 以上となります。 よろしくお願いいたします。

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

    ベストアンサー

    1

    0

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

    下記のマクロを実行すると、 指定フォルダ内の指定ファイルが削除できます。 この指定フォルダをマクロを設定しているフォルダ内に削除ファイルがある時に 指定ファイルを削除出来る方法を教えてください。 ilePath = "\\nas-sp01\share\確認部\電子申請 関連\２．審査中\北海\採光確認\採光計算書.pdf" このコードを マクロ設定ブックと同じフォルダ内に削除ファイルがある場合に 指定ファイルを削除したいです。 現状のマクロ Sub PDFファイル削除() Dim filePath As String filePath = "\\nas-sp01\share\確認部\電子申請 関連\２．審査中\北海\採光確認\採光計算書.pdf" If Dir(filePath) <> "" Then Kill filePath End If End Sub 以上となります。 よろしくお願いいたします。

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

    ベストアンサー

    2

    0

  • EXCEL vbaでシート上に配置したボタンの移動については

    シート上に配置したボタンが、マウスでスクロールすると画面と共に移動し、画面表示から外れてしまいます。 この状態を、マウスで行を多く送ってもボタンは常に画面上の同じ位置にあるようにしたいのです。 コントロールの書式設定のプロパティのチェック変更では対応出来ないようです。 どなたかご存知の方、対処法をご教授ぐださいませ。よろしくお願いします。

    質問日時: 2024/09/11 23:16 質問者: take913 カテゴリ: Visual Basic（VBA）

    ベストアンサー

    2

    0

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

回答数0件

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

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

Q質問する（無料）

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

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

新しく質問する

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

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

おすすめ情報