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

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

回答数

気になる

コトリン言語について。

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

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

ベストアンサー

1

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

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

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

ベストアンサー

1

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

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

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

ベストアンサー

1

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

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

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

ベストアンサー

3

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

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

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

ベストアンサー

3

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

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

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

解決済

2

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

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

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

ベストアンサー

1

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

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

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

ベストアンサー

4

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

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

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

ベストアンサー

4

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

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

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

ベストアンサー

7

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

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

質問日時: 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
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>   <script src="content2.js"></script> </head> <body>    <div class="content1"> BOX① ＜/div>  <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
エクセルのマクロについて教えてください。

下記マクロは先ほど教えて頂いたマクロを少し変更して指定セル値の合計をそれぞれセル「Y8＝B4、E4・Y14＝B10、E10・Y20＝B16、E16中間省略Y116＝B112、E112・Y122＝B118、E118」に表示出来るようにしましたが、マクロを実行すると上記の全てのセルに Y8の計算結果が表示されてしまいます。解決方法を教えてください。現状のマクロ Sub Macro1() Dim i As Long Dim r As Long Dim str1 As String Dim str2 As String Sheets("Table 2").Select For i = 1 To 20 r = i * 6 + 2 str1 = "$Y$" & r str2 = "=IFERROR(ROUND(SUMPRODUCT(--TEXTSPLIT($B$4,,CHAR(10)),--TEXTSPLIT($E$4,,CHAR(10))),2),"""")" Range(str1) = str2 Next End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

3

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

下記マクロを短いコード（一つのコード）に変更する方法を教えてください。 Sub 採光面積() Sheets("Table 2").Select Range("$AC$8").Formula = "=IFERROR(ROUNDUP($Y$8*数式! $C$1,2),"""")" Range("$AC$14").Formula = "=IFERROR(round($Y$14*数式! $C$2,2),"""")" Range("$AC$20").Formula = "=IFERROR(round($Y$20*数式! $C$3,2),"""")" Range("$AC$26").Formula = "=IFERROR(round($Y$26*数式! $C$4,2),"""")" Range("$AC$32").Formula = "=IFERROR(round($Y$32*数式! $C$5,2),"""")" Range("$AC$38").Formula = "=IFERROR(round($Y$38*数式! $C$6,2),"""")" Range("$AC$44").Formula = "=IFERROR(round($Y$44*数式! $C$7,2),"""")" Range("$AC$50").Formula = "=IFERROR(round($Y$50*数式! $C$8,2),"""")" Range("$AC$56").Formula = "=IFERROR(round($Y$56*数式! $C$9,2),"""")" Range("$AC$62").Formula = "=IFERROR(round($Y$62*数式! $C$10,2),"""")" Range("$AC$68").Formula = "=IFERROR(round($Y$68*数式! $C$11,2),"""")" Range("$AC$74").Formula = "=IFERROR(round($Y$74*数式! $C$12,2),"""")" Range("$AC$80").Formula = "=IFERROR(round($Y$80*数式! $C$13,2),"""")" Range("$AC$86").Formula = "=IFERROR(round($Y$86*数式! $C$14,2),"""")" Range("$AC$92").Formula = "=IFERROR(round($Y$92*数式! $C$15,2),"""")" Range("$AC$98").Formula = "=IFERROR(round($Y$98*数式! $C$16,2),"""")" Range("$AC$104").Formula = "=IFERROR(round($Y$104*数式! $C$17,2),"""")" Range("$AC$110").Formula = "=IFERROR(round($Y$110*数式! $C$18,2),"""")" Range("$AC$116").Formula = "=IFERROR(round($Y$116*数式! $C$19,2),"""")" Range("$AC$122").Formula = "=IFERROR(round($Y$122*数式! $C$20,2),"""")" Sheets("Table 2").Select Range("X2").Select End Sub 以上となります。宜しくお願い致します。

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

ベストアンサー

4

0
VBAでクイズゲームの作り方

VBAでクイズを作りたいのですがなかなかうまくいきません。画像にあるようにすいかのオプションボタンが選択されたらMsgBoxに正解ですと表示され、他のオプションボタンが表示されたら不正解ですと表示されます。また選択されてない場合は選択してください。と表示させるコードを作りたいのですがどのように書けばうまくいくでしょうか。分かりにくい文章で申し訳ないですがどうかご回答よろしくお願いします。

質問日時: 2024/09/09 17:26 質問者: 榎田カテゴリ: AJAX

解決済

1

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

下記のマクロは先日教えて頂いたマクロです。指定シートの指定セル範囲指定数式をコピーできます。コードの str2 = "=IFERROR(ROUNDDOWN(($O$" & i & "+$P$" & i & "),3),"""")" 部分を =IFERROR(ROUNDDOWN(MIN(6*($O$4/$Q$4)-1.4,3),3),"3") に変更する方法を教えてください。尚、($O$4/$Q$4)の部分はO4及びQ4から4行づつで121まで以上になります。よろしくお願いいたします。

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

ベストアンサー

2

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

下記のマクロは指定シートの指定セル値に指定文字をコピーできます。指定シート名「Table 2」指定セル値「X$9」に指定文字「結　果」このコードの内、指定セル値「X$9」を6行づつ例えば「X$9」「X$15」「X$21」～「X$123」までの指定セルに変更出来る方法を教えてください。現状のマクロ Sub 文字をコピー() Sheets("Table 2").Select Range("X$9").Select ActiveCell.FormulaR1C1 = "結　果" End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

0

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

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

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

質問する（無料）

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

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

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

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

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

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