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

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

回答数

気になる

ホームページのプログラムの見方について。

ホームページで、ファンクションキー(F9かF10か)を押せばそのホームぺージのプログラムを見ることができるらしいのですが、教えて頂けると幸いです。

質問日時: 2024/07/09 16:50 質問者: メラゾームカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

6

0
サイトにコンテンツを並べる際の CSS についてアドバイスお願い致します。

現在Q&A掲示板を作成しておりコンテンツを横に４列並べているのですが、ブラウザの横幅が変わる際にどう対応すべきか悩んでおります。 2つの方法で悩んでいて参考サイトを探してみたところYoutubeの動画一覧表示は➀の方法でコードが書かれているという記事を見つけました。こちらのコードで CSS を設定した場合並べることは出来たのですが、ブラウザの横幅でコンテンツが右端に追加される仕組みなので、スペースが足りない場合に間隔が空いてしまいデザインが崩れるのではないかと心配しております。どのように複数のブラウザ用に CSS を書くべきでしょうか？ ➀ブラウザによって横に並べるコンテンツ数を変化させる（減らす・増やす） ➁横に並べるコンテンツ数は維持して横幅を広げる ※参考サイト https://ecsiter.com/limage ※該当コード <html> <div class="image-inline-player"> <div class="image-card-wrap" style="display: inline-block;"> <a href=""><div class="image-thumbnail-card"> <img src=""> </div> <div class="image-title-link">タイトルテスト1タイトルテスト1タイトル... </div> </a> </div> <div class="image-card-wrap" style="display: inline-block;"> <a href=""><div class="image-thumbnail-card"><img src=""> </div> <div class="image-title-link">タイトルテスト2タイトルテスト2タイトル... </div> </a> </div> <div class="image-card-wrap" style="display: inline-block;"> <a href=""><div class="image-thumbnail-card"><img src=""> </div> <div class="image-title-link">タイトルテスト3タイトルテスト3タイトル... </div> </a> </div> <div class="image-card-wrap" style="display: inline-block;"> <a href=""><div class="image-thumbnail-card"><img src=""> </div> <div class="image-title-link">タイトルテスト3タイトルテスト3タイトル... </div> </a> </div> </div> </html> <style> /* 雑談掲示板　一覧表示画面本体定義 */ .image-inline-player { width: 1140px; margin: 0 auto 50px; background-color: #fff; border: 2px solid #999; clear: both; } /* 雑談掲示板　一覧表示画面本体定義 */ .image-inline-player .image-card-wrap { width:260px; /* 枠の横幅 */ margin: 23px 0px 23px 19px; /* 枠のスペース */ vertical-align:top; /* 上端に揃える */ word-wrap:break-word; /* 文字を改行し枠内に収める */ display:inline-block; /* <li>要素を横に並べる */ /* display:inline; */ zoom:1; } /* 雑談掲示板　一覧表示画面配置位置 */ .image-inline-player .image-card-wrap .image-title-link { font-size: 150%; font-weight: 700; letter-spacing: .1em; } /* 雑談掲示板　一覧表示画面の画像配置位置 */ .image-inline-player .image-card-wrap .image-thumbnail-card { height: 150px; /* 画像の高さ */ width: 260px; /* 画像の横幅 */ } </style>

質問日時: 2024/07/08 21:39 質問者: 初心者サイト作成カテゴリ: HTML・CSS

ベストアンサー

5

0
プログラミング学習

・普段からプログラミングを継続してないと忘れていきますか？・毎年、毎年、バージョンアップする度に新しい仕組みを勉強する必要がありますか？

質問日時: 2024/07/08 04:37 質問者: youarenotalone2 カテゴリ: JavaScript

解決済

7

0
[php初心者]サイトを見てデータベースへの登録を試みているのですがなぜできないのでしょうか？

https://qiita.com/Naughty1029/items/08b0ddeb805442916239 で紹介されている。register.phpで$_POST['token']と$_SESSION['token']が一致しなくて、エラーになるのですが、そもそもpostとsessionのtokenがどうすれば一致し、なぜ一致していないのかよく分かりません。サイトのコーディングは他の方は機能していますか？新規登録なので、一致しなくていいものなのでは？とも思えるのですが、アドバイスやコーディングの間違え等があるならば、教えていただきたいです。よろしくお願いいたします。

質問日時: 2024/07/07 15:35 質問者: denpataro カテゴリ: PHP

ベストアンサー

4

0
これらは書誌情報だと思うのですがそれぞれ何ですか？

Array (「bidl => 3 「btitlel => 図書館戦争「bauthorl => 有川浩「bpublisherl=> 角川グループパブリッシ > [bpubdate] => 2011 [bisbn] => 9784043898053 [bcover] => [bmemo] => ) Array (「bidl => 4 「btitle] => レインツリーの国「bauthorl => 有川浩「bpublisherl => 角川書店 [bpubdate] => 2015 [bisbn] => 9784041034323 [bcover] => [bmemo] =>) これらは書誌情報だと思うのですがそれぞれ何ですか？教えてください。

質問日時: 2024/07/07 15:18 質問者: WhereMonthName カテゴリ: Ruby

解決済

1

0
phpに関わる所での、form action="パス"について

<form action="<?php echo $_SERVER ['SCRIPT_NAME']; ?>" method="post"> とある所のform action="パス"には、パスとして、絶対パスと相対パスが入ると思っていたのですが、$_SERVER ['SCRIPT_NAME']は、Windowsで言うところのdocumentルート内からファイル名までのパス、またはドメイン以降のパス(何て言うのか分かりませんが、ルートパス？)で相対パスと少し違うと思うのですが、ルートパスでもよいとの考えでいいのでしょうか？伝わりにくいので、画像をみて欲しいです。

質問日時: 2024/07/06 21:10 質問者: denpataro カテゴリ: PHP

ベストアンサー

5

1
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について

次はエクセルで既に設定されている罫線の色を一括変更するプロージャーですが、表形式のシートで実行してみると結構動作が遅いです。高速化できますか？ Sub 罫線色変更() Application.ScreenUpdating = False Dim r As Range Dim i As Long Application.Dialogs(xlDialogEditColor).Show (1) For Each r In Selection For i = 7 To 10 If r.Borders(i).LineStyle <> xlNone Then r.Borders(i).Color = ActiveWorkbook.Colors(1) End If Next i Next r Application.ScreenUpdating = True End Sub

質問日時: 2024/07/06 18:02 質問者: tsukita カテゴリ: Visual Basic（VBA）

ベストアンサー

9

1
このプログラミング言語のfor分の文法構造を教えてください

このプログラミング言語のfor分の文法構造を教えてください

質問日時: 2024/07/06 15:12 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

9

1
Pythonで仮想通貨の自動売買が出来るプログラムを組みたいのですが、環境ががよくわかりません

タイトルの通りなのですが、Pyrhonの本を読むと対応しているバージョンが異なっていたりエディターの種類が異なっており、どの環境が自動売買のプログラミングに適しているのかわかりません。今現在プログラムで自動売買している方がおりましたら、環境をおしえていただければ幸いです。こちらのOSはWin11です。プログラム経験はCとVBAです。

質問日時: 2024/07/05 15:58 質問者: aki-pluto カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

5

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

下記のマクロを実行すると作業ブックのセル値がAccessの指定セル値にコピーできます。このコードの内「 rs.Fields("備考欄") = ws.Range("E29").Value」ですがセルの書式設定で「"希望日"m/d"急ぎ";@」と設定しているのですが、実行するとAccessの（備考欄）には：日付のみがコピーされております。書式設定したように「希望日7/5急ぎ」をコピー出来る方法を教えてください。現状のマクロ Sub 昇降機管理表() alert = MsgBox("Accessにデータ移動してよろしいですか？", vbYesNo + vbQuestion, "Access確認") If alert <> vbYes Then Exit Sub End If Dim ws As Worksheet: Set ws = Worksheets("基本情報") Dim db As String: db = "\\nas-sp01\share\新・確認申請管理表.accdb" Dim cn As Object: Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & db & ";" Dim rs As Object: Set rs = CreateObject("ADODB.Recordset") rs.Open "確認申請（建築物）", cn, 1, 3 rs.AddNew 'rs.Fields("ID") = ws.Range("A1").Value rs.Fields("受付NO(ＥＲＩ)") = ws.Range("F17").Value rs.Fields("物件名") = ws.Range("AJ4").Value rs.Fields("正受付日") = ws.Range("D29").Value rs.Fields("確認予定日") = ws.Range("D30").Value rs.Fields("意匠法定通知（送付）") = ws.Range("D31").Value rs.Fields("市町村名") = ws.Range("C8").Value rs.Fields("代理人") = ws.Range("C4").Value rs.Fields("主要用途") = ws.Range("AH2").Value rs.Fields("ＥＲＩ担当") = ws.Range("D16").Value rs.Fields("備考欄") = ws.Range("E29").Value rs.Update rs.Close cn.Close End Sub 以上となります。宜しくお願い致します。

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

ベストアンサー

1

0
ワードVBA どの表か知ることはできますか

ワードで、表がいくつかあるのですが、現在のカーソルがどのセルにあるか知ることはできますか。

質問日時: 2024/07/05 10:19 質問者: payphone カテゴリ: Visual Basic（VBA）

ベストアンサー

1

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

下記のマクロを実行するとセル「H5」をセル「L2」にコピペできます。マクロを実行した時にセル「L2」に不特定の文字が先に表示されているときにこのマクロを実行しても「L2」に上書きされない方法があれば教えてください。現状のマクロ Sheets("受付").Range("L2").Value _ = Sheets("受付").Range("H5").Value End Sub 以上となります。宜しくお願い致します。

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

ベストアンサー

1

0
10進数からN進数に変換するプログラミング（C言語）

以下のプログラムは入力されたデータを基に10進数からN進数に変換するプログラムなのですが変換後の表示が逆になってしまいます。（10110000と表示したいのに00001101となる）。そこで計算結果を配列に記憶しておいて、全部が終わってから桁を逆順に表示するプログラムに修正したいのですがどうすればいいか教えていただけませんか？ #include <stdio.h> int main( void ){ int base;　//基数 scanf( "%d", &base );　//データ1行目 int num; while( scanf( "%d", &num ) != EOF ){ do { printf( "%X", num%base ); num /= base; } while( num > 0 ); printf( "\n" ); } return 0; } 入力データ 2 176 128 248 2 68 95 64 97 159 37

質問日時: 2024/07/04 12:36 質問者: 山田ボールペンカテゴリ: C言語・C++・C#

ベストアンサー

4

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

マクロ設定ブックのThisWorkbookに下記のコードを設定しております。作業ブックをオープンしたタイミングで、「マクロ：提出シートコピー削除」が実行できますが、この作業が完了した後、別ブック名「物件毎のファイル名.xlsm」に保存後、違う作業に移行しますが、別ブックに保存した、ブックをオープンすると、又、「マクロ：提出シートコピー削除」が実行されてしまいます。 ThisWorkbookに設定したコードを一度だけ実行できる方法又は、最初のマクロ有効ブックのファイル名「総合引き受け（戸建て）.xlsm」（ファイル名は固定です）の時だけ実行でき、ファイル名が変更後は、コードが実行されない方法があれば教えてください。現状のコード Private Sub Workbook_Open() Dim alert As VbMsgBoxResult alert = MsgBox("提出シートを貼り付けますか？", vbYesNo + vbQuestion, "貼り付け確認") If alert <> vbYes Then Exit Sub End If Call 提出シートコピー削除 End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

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

下記のマクロは先日教えて頂いたマクロで、マクロを実行すると同じ作業フォルダ内にある別ブック（拡張子が.xlsx）を開きコピー範囲を指定出来るようになっております。稀に、（拡張子が.xlsm）の場合もあり、拡張子が（.xlsx又は.xlsm）の両方に対応できるように変更出来る方法があれば教えてください。尚、フォルダ内には、作業ブック（マクロ設定ブック）とコピー元のExcelファイル2つしかありません。よろしくお願いいたします。現状のマクロ Sub 提出シートコピー範囲() Dim folderPath As String Dim fileName As String Dim ws As Worksheet folderPath = ThisWorkbook.Path & "\" '作業フォルダ内にはマクロを設定しているコピー先のブックとコピー元の '○〇(提出用).xlsxの 2つのExcelファイルしかありません｡ fileName = Dir(folderPath & "*.xlsx") If fileName <> "" Then '別ブック ○〇(提出用).xlsx Set Wb2 = Workbooks.Open(folderPath & fileName) On Error Resume Next Set ws = Wb2.Worksheets("提出シート") If Err.Number <> 0 Then MsgBox "コピー元ブックの提出シートが見つかりません" On Error GoTo 0 Wb2.Close False End End If 'セルの値を取得する ws.Range("B1:H47").Copy Else MsgBox "コピー元ブックが見つかりません": End End If End Sub よろしくお願いいたします。

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

ベストアンサー

3

0
研究する文献がたくさんあります。1冊が200ページにもなります。chatgptでgptsを作ろうと思

研究する文献がたくさんあります。1冊が200ページにもなります。chatgptでgptsを作ろうと思います。web検索は外してクローズの世界で使いたいと思います。でも1ファイル5メガですよね。とても足りません。良いアイデアはありますか？

質問日時: 2024/07/04 05:39 質問者: ひろしですカテゴリ: オープンソース

ベストアンサー

2

0
縦書きのcssについて質問です。随分前に自分で作ったページのcssに writing-mode:

縦書きのcssについて質問です。随分前に自分で作ったページのcssに writing-mode: vertical-rl;/*縦書きにする*/ -ms-writing-mode: tb-rl;/*縦書きにする*/ と入れてたんですが、何故どうして両方とも入れたのかが思いだせません。パッと見どっちか片方を記載すればそれでいいように思うのですが、それと -ms-てなんだ？と思いまして、まったく思い出せません。ブランクありすぎてもはやちんぷんかんぷんです。この二つの謎についてかれこれ5日程ネットで調べたのですが、私の検索の仕方が悪いのか解決しませんでした。どなたか詳しい方いらっしゃいましたら教えてください。よろしくお願いいたします。

質問日時: 2024/07/04 03:27 質問者: まほそしカテゴリ: HTML・CSS

ベストアンサー

3

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

下記のコードは先日教えて頂いたコードを参考に作成しました。セルＤ47に不特定の文字が表示されるとマクロ住所コピーが実行されます。しかし、セルＤ47があるシートを他のブックのシートからコピペした場合はマクロが上手く実行されません。セルＤ47に直接書き込むとマクロが事項されます。この問題を解決できる方法を教えてください。よろしくお願いいたします。 If Not Intersect(Range("$D$47"), Target) Is Nothing And Not Target.Value <> "" Then Call 住所コピー以上となります。よろしくお願いいたします。

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

ベストアンサー

1

0
ファイルをディレクトリ分配のプログラムについて質問です。

現在仕事でPerlのプログラムを使用しています。（これは今はいらっしゃらない上司に作ってもらいました）使用しているのはLinuxでOSは「Fedora」です。それで以下のようなツリー構成のデータをディレクトリに分けたいんです。 ↓ ディレクトリ『A』の中に「***A_1.bz2」「***A_2.bz2」「***A_3.bz2」「***A_4.bz2」ディレクトリ『B』の中に「***B_1.bz2」「***B_2.bz2」「***B_3.bz2」「***B_4.bz2」こういったディレクトリが『A』～『L』まであるとします。これを拡張子前の「1」～「４」の数字別にディレクトリを作って下のように分配していきたいんです。 ●『1』のディレクトリ内ー「***A_1.bz2」・「***B_1.bz2」～「***L_1.bz2」　『2』のディレクトリ内ー「***A_2.bz2」・「***B_2.bz2」～「***L_2.bz2」　『3』のディレクトリ内ー「***A_3.bz2」・「***B_3.bz2」～「***L_3.bz2」　『4』のディレクトリ内ー「***A_4.bz2」・「***B_4.bz2」～「***L_4.bz2」こういったことをやるために以下のようなプログラムを使用しています。 -------------------------------------------------------------------------- $path0="/home/***********/****/**"; # output directory system( "mkdir $path0/1" ); system( "mkdir $path0/2" ); system( "mkdir $path0/3" ); system( "mkdir $path0/4" ); opendir( DIR, $path0); @dlist = readdir( DIR ); closedir( DIR ); foreach $dname ( @dlist ){ if( $dname=~/B/ ){ $path1=$path0.'/'.$dname; # print( "$path1\n" ); chdir( $path1 ); # unzip bz system( "bzip2 -d *bz2" ); opendir( DIR, $path1); @flist = readdir( DIR ); closedir( DIR ); foreach $fname ( @flist ){ print( "$fname\n" ); if ( $fname=~/*1/){ $exec="mv $fname $path0/1/"; } elsif( $fname=~/*2/){ $exec="mv $fname $path0/2/"; } elsif( $fname=~/*3/){ $exec="mv $fname $path0/3/"; } elsif( $fname=~/*4/){ $exec="mv $fname $path0/4/"; } system( "$exec" ); } } } -------------------------------------------------------------------------------- ※ ( $fname=~/*1/)　　の辺りはちょっと適当です。このプログラムですと、分配まではできるのですが元々あり空になってしまった『A』～『L』のディレクトリが残ってしまいます。この空のディレクトリを削除するにはどういったプログラムを追加したらいいでしょうか？すみませんが、どなたかよろしくお願いします。

質問日時: 2024/07/03 13:48 質問者: rie78 カテゴリ: Perl

ベストアンサー

3

0
ウェブサイトのアクセスログについてお聞きしたいです。アクセスログで接続の機器の機種名やOSなどを見

ウェブサイトのアクセスログについてお聞きしたいです。アクセスログで接続の機器の機種名やOSなどを見ることはできると思います。パソコンの機種名、OSやバージョン、パソコン本体に設定した名前、Windowsのユーザー名(起動時ログイン画面で選んだアカウント)など、どこまで調べることができるのでしょうか。ユーザー名を本名で設定していたので、何気にアクセスしていたウェブサイトや、ショッピング系の詐欺サイトに間違えてアクセスしてしまったときに記録されてたのではと心配になりました。調べてもユーザー名についての情報は出てこなかったので、ご回答よろしくお願いいたします。

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

解決済

3

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

下記のマクロは先日教えて頂いたマクロで、マクロを実行すると、ワイルドカードで指定したブックを開く事が出来ます。ファイル名 ①22069167-1_00－確認申請受付【花子】(提出用).xlsx の場合は上手くマクロが実行されてブックを開く事が出来ますが。 ②210610132-1_東二条7丁目住宅新築工事【太郎】(提出用) .xlsx の場合は"コピー元ブックが見つかりません"を表示されてブックを開く事が出来ません。下記のコードを変更し、①の場合も②の場合も両方ブックを開く事が出来る方法があれば教えてください。よろしくお願いいたします。現状のマクロ Sub 提出シートを開く() Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") Do While fileName <> "" Workbooks.Open (folderPath & fileName) fileName = Dir() Loop End Sub Sub 提出シートコピー範囲() Dim ws As Worksheet If Workbooks.Count > 1 Then Set Wb2 = Workbooks(2) '別ブック On Error Resume Next Set ws = Wb2.Worksheets("提出シート") If Err.Number <> 0 Then MsgBox "コピー元ブックの提出シートが見つかりません" On Error GoTo 0 Wb2.Close False End End If 'セルの値を取得する ws.Range("B1:H47").Copy Else MsgBox "コピー元ブックが見つかりません": End End If End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

7

0
ExcelVBA修正のお願い

・Excel(M365)で、添付ファイルが実行できるようなVBAを作成しましたが、おかしな点を修正していただけませんでしょうか。＜具体的に実施したいこと＞・①Sheet1のE列と、Sheet2のC列をマッチングし、Sheet1のJ列の値を、Sheet2のM列へ転記する。その際、Sheet1にデータ重複している場合（例：CCC,DDD）、そのデータの最下行の値を転記する（例：CCC→400、DDD→700）②この重複データについては、アラームのため、該当するSheet2のB~C列を赤くセル反転させる。・上記マッチングしない場合は、Sheet2へは特に転記はしない（例：EEE）・Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。 ↓以下の通り作成しましたが、「Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。」「該当するSheet2のB~C列を赤くセル反転させる。」という部分をうまく反映できていないように感じていますが、どのように修正すればよいかを教えてください。。 Sub sample() Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1") Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2") Dim i As Long, j As Long, r1 As Long, r2 As Long Dim k As Long, cnt As Long Dim ary ws1.Select With ws1 r1 = .Cells(Rows.Count, "E").End(xlUp).Row ReDim ary(1 To r1, 1 To 2) For i = 1 To r1 ary(i, 1) = .Cells(i, "E").Value ary(i, 2) = .Cells(i, "J").Value Next i End With With ws2 r2 = .Cells(Rows.Count, "C").End(xlUp).Row For i = 1 To r2 cnt = 0 For j = 1 To UBound(ary, 1) If .Cells(i, "C") = ary(j, 1) Then k = j cnt = cnt + 1 End If Next j If k > 0 Then .Cells(i, "M").Value = ary(k, 2) '値段転記 If cnt > 1 Then .Cells(i, "M").Interior.ColorIndex = 3 '重複値赤 k = 0 End If Next i End With End Sub

質問日時: 2024/07/02 23:06 質問者: mame1216 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
c言語

非定常熱伝導の計算のプログラムを作ったんですけど、エラーは出ないのに、結果が出ません。何が問題なのでしょうか？ include <stdlib.h> // パラメータ設定 #define Nx 50 // x方向のグリッド数 #define Ny 50 // y方向のグリッド数 #define Nz 50 // z方向のグリッド数 #define Lx 1.0 // x方向の領域の長さ #define Ly 1.0 // y方向の領域の長さ #define Lz 1.0 // z方向の領域の長さ #define dx (Lx / (Nx - 1)) // x方向のグリッド間隔 #define dy (Ly / (Ny - 1)) // y方向のグリッド間隔 #define dz (Lz / (Nz - 1)) // z方向のグリッド間隔 // 時間のパラメータ #define dt 0.01 // 時間ステップ #define totalTime 1.0 // 総シミュレーション時間 #define numTimeSteps ((int)(totalTime / dt)) // 時間ステップ数 // 熱拡散率の定義 #define alpha 0.1 // 初期条件: T(x, y, z, t=0) double initialTemperature(int i, int j, int k) { // 例として中心に熱スポットを置く初期条件 double x = i * dx - Lx / 2.0; double y = j * dy - Ly / 2.0; double z = k * dz - Lz / 2.0; double distanceSquared = x*x + y*y + z*z; return distanceSquared < 0.1 ? 1.0 : 0.0; } int main() { // 温度の配列を初期化 double T[Nx][Ny][Nz]; // 初期条件を設定 for (int i = 0; i < Nx; ++i) { for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { T[i][j][k] = initialTemperature(i, j, k); } } } // 明示的なオイラー法を使用して時間積分する for (int t = 0; t < numTimeSteps; ++t) { // 新しい温度を格納するための一時的な配列を作成 double T_new[Nx][Ny][Nz]; // 明示的なスキームを使用して新しい温度を計算する for (int i = 1; i < Nx - 1; ++i) { for (int j = 1; j < Ny - 1; ++j) { for (int k = 1; k < Nz - 1; ++k) { T_new[i][j][k] = T[i][j][k] + alpha * dt * ( (T[i+1][j][k] - 2*T[i][j][k] + T[i-1][j][k]) / (dx*dx) + (T[i][j+1][k] - 2*T[i][j][k] + T[i][j-1][k]) / (dy*dy) + (T[i][j][k+1] - 2*T[i][j][k] + T[i][j][k-1]) / (dz*dz) ); } } } // 次の時間ステップのために T を T_new に更新する for (int i = 0; i < Nx; ++i) { for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { T[i][j][k] = T_new[i][j][k]; } } } } // 最終的な温度分布を出力する（例として、中間の平面を出力） int midIndex = Nx / 2; // 中間平面のインデックス for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { printf("%.2f ", T[midIndex][j][k]); } printf("\n"); } return 0; }

質問日時: 2024/07/02 15:01 質問者: はらたつのり。。カテゴリ: C言語・C++・C#

解決済

5

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

下記のコードは以前教えて頂いたコードです If Not Intersect(Range("ER3"), Target) Is Nothing And Target.Value = "■" Then Call Accessシート表示指定セル値に指定文字「■」が表示されるとマクロが実行できます。このコードを指定セル値に「■」では無く、不特定の文字が表示されたときにマクロを実行出来るように変更する方法を教えてください。又、マクロは「Call Accessシート表示」ですが、複数のマクロ（例えば：テスト1・テスト2）を設定したいのですが、よろしくお願いいたします。

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

ベストアンサー

3

0
[vb.net] 起動したFrom2を閉じ、呼出元Form1の指定コントロールにカーソルをセット

こんにちは。いつもお世話になっております。タイトルの通りのことで悩んでいます。自作のPGで下記の処理を行っています。 ①Form1でForm2のインスタンスを作成する。 ②Form1をHideで非表示にする。 ③①のインスタンスをShowDialogで起動。 ④Form2を閉じて帰ってきた値がCancelならForm1をCloseする。→ここで終了 ⑤Form2を閉じて帰ってきた値がOKなら、Form1をshowで再表示する。 ⑥From1のtextbox1にカーソルをセットする。 ①～⑤まではうまくいくのですが、⑥のカーソルのセットがうまくいきません。「Me.show」の後に「Me.Activate()」などでForm1をアクティブにしてからフォーカスをセットしてもダメでした。フォーカスのセットは、「ActiveControl=textbox1」でも「textbox1.forcus」でもダメです。呼出元のForm1の指定コントロールにカーソルをセットする方法は何かないでしょうか。調べようにも、あまり当該内容がヒットせず見つかりません。ご存知の方がいましたら、宜しくお願い致します。

質問日時: 2024/07/02 10:57 質問者: nanigashi7 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

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

下記のマクロは先日教えて頂いたマクロです。実行すると作業ブック（コピー先）にコピー元のブックの指定範囲をコピペできます。 Dim Wb1 As Workbook Dim Wb2 As Workbook Sub 提出シートコピー削除() Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub このマクロに「Call 住所コピー」を追加すると画像のエラーが表示されて、作業ブックの別シート（シート名：青紙表）のVBAコードの「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。この問題の解決方法を教えてください。設定マクロ Dim Wb1 As Workbook Dim Wb2 As Workbook Sub 提出シートコピー削除() Call 提出シートを開く Call 住所コピー Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub 住所コピーマクロ Sub 住所コピー() On Error Resume Next Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49") End Sub シート「青紙表」のVBAコード Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then Application.EnableEvents = False Worksheets("青紙表").Range("$AX$3").Value = Worksheets("受付").Range("$J$2").Value Application.EnableEvents = True ActiveWorkbook.Save End If Sheets("青紙表").Select Range("$C$20").Select Sheets("Access").Visible = [AN46] = "●" On Error Resume Next If Range("$J$53").Value = "■" Then Call 構造 End If If Target.Address = "$C$23" Then Call 電子完了 End If If Range("$AB$35") <> "" Xor Range("AH35") <> "" Then Call 決済図形 End If If Range("$CO$7").Value = "有" Then Call 浄化槽表示 End If If Target.Address = "$O$28" Then Call 再修正表示 End If If Target.Address = "$O$28" Then Call 修正表示 End If If Target.Address = "$C$20" Then Call 審査担当コメント非表示 End If If Range("$EX$4").Value = "■" Then Call 消防通知図表示 End If If Range("$ER$3").Value = "■" Then Call 行政メール図表示 End If If Target.Address <> "$C$20" And Target.Address <> "$F$20" Then Exit Sub If Target.Address = "$C$20" And Range("$F$20").Value <> "" Then Exit Sub If Target.Address = "$F$20" And Range("$C$20").Value <> "" Then Exit Sub If Target.Value <> "" Then If True Then Call 新行政報告ファイルコピー Call 審査資料 Call 行政条例総合 Call いろはシステム Call シート300を非表示 On Error Resume Next Worksheets("受付").Visible = False Worksheets("管理表").Visible = False Worksheets("Access").Visible = False Worksheets("地方照会").Visible = False Worksheets("札幌道路").Visible = False Worksheets("札幌宅地").Visible = False Worksheets("札幌開発").Visible = False On Error Resume Next Application.DisplayAlerts = False Sheets("F審査").Delete Sheets("F設計INDX").Delete Application.DisplayAlerts = True End If Else On Error Resume Next Worksheets("受付").Visible = True Worksheets("管理表").Visible = True End If On Error Resume Next If Range("CI20").Value = "■" Then Call 日付 End If If Range("EY3").Value = "■" Then Call 消防通知図表示 End If End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

1

0
初心者 vscodeの拡張機能のEmmetってどれですか？

まず、質問本文で、「正しく入力されていない項目もしくは、不適切な内容を検知しました」となりました。原因は矢印が入っているフレーズです。変だと思いませんか？ vscodeの拡張機能でemmetを使いたいのですが、拡張機能に Mithril Emmet や Emmet Liveや Emmet keybindingsや Emmet commands and keybindings などがあります。どれをインストールすればいいのでしょうか？ keybindingsって本体機能のショートカットキーだと思うので、本体がないと動作しないのではと考えています。その認識で合ってますか？ Emmet LiveはEmmet Mithril の軽量版で速さ重視のものですか？ →ざっくりでいいので、よろしくお願いいたします。

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

ベストアンサー

2

0
[VB.net] ボタン(Flat)のEnable時の背景色について

こんにちは。 VB.netを用いて簡単なプログラムを作っています。メニュー画面を作っており、ボタンをFlatにして背景色は白にしています。ログインするユーザーによって使うボタンを変更したいのですが、 Flatの特性なのか、Enable=falseであることがわかりにくいなと思いボタンの背景色をグレー等にできたらいいなと考えています。プロパティなども確認しましたが、方法が分からず困っています。もしご存知の方がいたらご教授願えませんでしょうか。宜しくお願い致します。

質問日時: 2024/07/01 15:32 質問者: nanigashi7 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

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

下記のマクロは教えて頂いたマクロです。コピー先にマクロを設定しており、マクロを実行するとコピー元のブックが開き、コピー範囲を指定して、コピー元の指定範囲にコピペ出来、その後、不要となったコピー元のブックを削除できます。しかし、コピペまでは上手く実行出来ましたが、不要ブックを削除できませんでした。解決方法を教えてください。 Sub Macro1() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") If fileName <> "" Then Workbooks.Open folderPath & fileName Else MsgBox "コピー元ファイルがありません", , "確認" Exit Sub End If Dim Wb1 As Workbook, Wb2 As Workbook Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Application.DisplayAlerts = False Application.EnableEvents = False Wb2.Worksheets("提出シート").Range("B1:H47").Copy Wb1.Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False With Wb2 If .Name Like "#########-#*" Then If MsgBox(.Name & " を削除します", _ vbCritical + vbOKCancel, "警告！") = vbOK Then .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close (False) End If End If End With Application.EnableEvents = True Application.DisplayAlerts = True End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

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

下記のマクロを実行すると画像のエラーメッセージが表示されマクロ「貼り付け」のコードの内「Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」が黄色く表示されて上手くマクロを実行できません。一連のマクロでは無く、手動で行うと上手く行きます。この問題を解決できる方法を教えてください。何時もの作業の手順として、マクロ設定ブック：コピー先を開く（手動）次にコピー元のブックを開く（手動）次にコピー元のコピー範囲を指定（手動）次にコピー先のブックに貼り付け（マクロ：貼り付け）を実行次にコピー元のブックの削除（マクロ：電子提出削除）を日々行っており、この手順だとエラーが出ずにコピー元の指定範囲をコピー先の指定範囲にコピー出来、コピー元のファイルを削除できます。しかし、一連のマクロだとエラーメッセージが表示されます。一連のマクロのままで上手くできる方法があるものですか？又、一連のマクロを一つのマクロとすると上手く行きますか？詳しく教えてください。よろしくお願いいたします。一連のマクロ Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub それぞれのマクロ Sub 提出シートを開く() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") Do While fileName <> "" Workbooks.Open (folderPath & fileName) fileName = Dir() Loop End Sub Sub 提出シートコピー範囲() Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H47").Copy End Sub Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True End Sub Sub 電子提出削除() Dim wb As Workbook For Each wb In Workbooks With wb If .Name Like "#########-#*" Then If MsgBox(.Name & " を削除します", _ vbCritical + vbOKCancel, "警告！") = vbOK Then .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close (False) Exit For End If End If End With Next End Sub 以上となります。日々この作業を多い時で数十回行います。以前も同じような質問をしておりますが、解決には至っておりません。是非、解決方法を教えてください。よろしくお願いいたします。

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

ベストアンサー

7

0
"東横イン空室チェック"のSEO対策について

サイトのSEO対策について質問です。次のサイトがgoogle検索で、上位に上がってきません。なぜだと思いますか？【東横イン空室チェック】 https://hotel-vacancy.sakura.ne.jp/ 次の対応はしました。他にどのような対応をすれば良いと思いますか？・google search consoleに登録　インデックスには登録されています。・Xで使ってもらえそうな人にポスト　いいねをつけてくれる人や、返信をくれる人もいます。

質問日時: 2024/06/30 21:44 質問者: 東横イン空室チェックカテゴリ: SEO

解決済

1

0
重複確認

下記のVBAコードを実行したら画像の様な結果になります。グループ２、３のように同じ時間がありますが片方が色がついてしまいます。グループ２なら両方色つけグループ３も1:06が２つあるのでそちらも色付したのですがどうすればいいでしょうか？どなたか詳しい方教えてください。 Sub 重複削除() Dim ws As Worksheet Dim iLastRow As Long Dim dict As Object Dim key As Variant Dim i As Long Dim maxRow As Long Dim maxTime As Date ' Set the worksheet Set ws = ThisWorkbook.Sheets("時系列") ' 必要に応じてシート名を変更してください ' Get the last row with data in column I iLastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row ' Create a dictionary to store the latest time for each value in column I Set dict = CreateObject("Scripting.Dictionary") ' Loop through column I to find duplicates and their latest time For i = 2 To iLastRow ' Assuming there is a header row If Not IsEmpty(ws.Cells(i, "I").Value) Then key = ws.Cells(i, "I").Value If dict.exists(key) Then ' Update the latest time if current time is newer If ws.Cells(i, "E").Value > ws.Cells(dict(key), "E").Value Then dict(key) = i End If Else dict.Add key, i End If End If Next i ' Highlight the rows with the latest time for each duplicate value For Each key In dict.keys maxRow = dict(key) ws.Rows(maxRow).Interior.Color = RGB(255, 255, 0) ' Yellow color Next key ' Clean up Set dict = Nothing End Sub

質問日時: 2024/06/30 12:17 質問者: ケイ0000 カテゴリ: Visual Basic（VBA）

解決済

2

0
複素関数はどこはあんまりやらなくていいですか？

等角とかなににつかうんですか？

質問日時: 2024/06/29 18:27 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

4

0
｛ CONTROL Forms.Label.1｝が表示されます

ワードでラベルコントロールを貼り付けると、本来ならキャプションが表示されるところ、上記の文字が表示されてしまいます。どうなっているのでしょうか。

質問日時: 2024/06/29 06:49 質問者: payphone カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
｛ CONTROL Forms.Label.1｝が消えない

ワードでいたずらしていたらCaptionの文字と一緒に上記の文字が表示されるようになってしまいました。どうしたら消えるでしょうか。

質問日時: 2024/06/29 05:40 質問者: payphone カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
【BAT（バッチ）ファイル】Webページが存在しているか404 not foundかを

【BAT（バッチ）ファイル】Webページが存在しているか404 not foundかを成否で識別出来るBAT（バッチ）ファイルの書き方を教えてください。 http://example.com/0000/1-1.html http://example.com/0001/1-1.html 〜 http://example.com/9999/1-1.html 0000ディレクトリから9999ディレクトリまでアクセスして1-1.htmlが存在しているか一括で自動化して調べて出力する方法を教えてください。 OSはAndroidまたはWindows10です。

質問日時: 2024/06/28 20:01 質問者: redminote11pro5G カテゴリ: XML

ベストアンサー

2

0
マクロの記録を使用したマクロの実行について

当方、マクロ・VBA初心者です。マクロの記録を利用し、マクロの作成を行いました。既にデータが入力されているセルに対して、・行の追加・列の追加・セルの結合を行うマクロの記録を行い、別シートにも同様の作業を反映させようとしたのですが、マクロを実行したところ、データが入力されているセルに対しては作業が反映されず、新規列・行が追加され、追加されたセルに対して作業が実行されました。マクロの記録を行ったシートと、作業を反映させたいシートは同様の構成となります。こちら、別シートの既存セルに対して作業を実行するにはどのようにしたらよいでしょうか。ご教示いただければ幸いです。 ▼マクロの記録で作成されたマクロ Sub Macro1() ' ' Macro1 Macro ' ' Columns("I:K").Select Range("I2").Activate Selection.EntireColumn.Hidden = False Columns("I:J").Select Range("I2").Activate Selection.ColumnWidth = 20 Columns("C:C").Select Range("C2").Activate Selection.Insert Shift:=xlToRight Rows("4:4").Select Selection.Insert Shift:=xlDown Rows("6:6").Select Selection.Insert Shift:=xlDown Rows("8:8").Select Selection.Insert Shift:=xlDown Rows("10:10").Select Selection.Insert Shift:=xlDown Rows("12:12").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=6 Rows("14:14").Select Selection.Insert Shift:=xlDown Rows("16:16").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=3 Rows("18:18").Select Range("C18").Activate Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=-27 Rows("3:18").Select Selection.RowHeight = 32 Range("J2:K2").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:A4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With ＜セル結合の繰り返しのため中略＞ Selection.Merge Range("T17:T18").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:E18").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""S""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.799981688894314 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""D""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""DP""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub

質問日時: 2024/06/28 17:20 質問者: chimchim_yumyum カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ｃ言語のリダイレクトによる円の描画について

大学の課題で平均寿命、GDP、人口、国名のデータが入っているcsvファイルをリダイレクトで実行して、人口に応じた半径による円の描画がしたいのですが、以下に書いたプログラムでコンパイルは通るのですが結果が出力されません。原因のわかる方いらっしゃいますか？ちなみにrの値を３０という風に指定すれば何の問題もなくBMP画像が生成されます。 int main( void ){ int x, y; int offset = 100; int life, GDP, pop; char name[100+1]; BMPnew(); while( scanf( "%d,%d,%d,%100s", &life, &GDP, &pop, name ) != EOF ){ x = GDP/100 + offset; y = BMP_height - (life-50)*20; int v, w; int r=pop; for( v=x-r; v<x+r; v++ ){ for( w=y-r; w<y+r; w++ ){ if( (v-x)*(v-x) + (w-y)*(w-y) < r*r ){ BMPpoint( v, w, 255, 255, 255 ); } } } } BMPsave(); return 0; }

質問日時: 2024/06/28 12:07 質問者: 山田ボールペンカテゴリ: C言語・C++・C#

ベストアンサー

4

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

作業ブックのシートに Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 途中省略 If Range("$ER$3").Value = "■" Then Call Accessシート表示 End If End Sub を設定しております。指定セルに「■」が表示されるとマクロ「Accessシート表示」が実行されるのですが、作業の中で、マクロ「Accessシート非表示」を実行して「シート名：Access」を非表示にした後、同じシートの指定セル以外のセルを変更した場合にもマクロ「Accessシート表示」が実行されてAccessシート表示が表示されてしまいます。マクロ「Accessシート非表示」を変更して、一度、シート名：Accessを非表示にした後は、手動で表示にしない限り、このシートを非表示出来る方法があれば教えてください。現状のマクロ Sub Accessシート非表示() Worksheets("Access").Visible = False End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

6

0
Version Control on Unity

<Unity でのバージョン管理> // 以上のような日本語タイトルですと、なぜか "不適切な表現が含まれています" という、警告文が表示され投稿できないため、止むを得ず英語でタイトルを書かせていただいております。読みにくくてすみません。 Unity でローカルリポジトリを作成し、バージョン管理をしたいのですが、何か良いの方法はあるでしょうか。クラウドなどに接続する必要なく、オフラインでできる方法が知りたいです。何かわかる方がいましたら、ご回答いただけると幸いです。

質問日時: 2024/06/27 20:45 質問者: 眠れる森の美男カテゴリ: その他（プログラミング・Web制作）

解決済

1

0
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか

A列からE列までの5列で約3000行のデータがあります。これらのデータは2つのグループのデータが混在しています。それをグループ毎に振り分ける処理を作成しました。処理は正常に動作したのですが、処理に数分程度かかりました。そこで50行毎の処理時間をセルに表示させるようにしたところ、700行程度までは数秒で処理できていますが、その後1分程度、処理がアイドルしています。その後また700～800行を数秒で処理し、またアイドルするの繰り返しでした。解決策は見つけましたが、処理がアイドルする原因は何として考えられるか、教えていただけませんか。これまでこのような現象は経験がなく、気になっています。よろしくお願いいたします。問題のステートメント Cells(idx, 1).Resize(1, 5).Copy Destination:=Cells(cntA, 7).Resize(1, 5) Application.CutCopyMode = False　' ← この行は、あってもなくても現象は変わらないなおCopyメソッドをやめて、地道に転記してみたら10秒程度で全ての処理が終わりました。 Cells(cntA, 7) = Cells(idx, 1) Cells(cntA, 8) = Cells(idx, 2) Cells(cntA, 9) = Cells(idx, 3) Cells(cntA, 10) = Cells(idx, 4) Cells(cntA, 11) = Cells(idx, 5) Windows10　Office Professional Plus 2019　です。

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

ベストアンサー

4

1
vbaにてseleniumを使用したedgeスクレイピング

vbaにて selenium basicを使用して edgeブラウザを操作しようとしています。 vbaからedgeを起動しようとしていますが vbaにて、Selenium.Webdriverをnewする行で、オートメーションエラー('-2146・・・')となります。 ◆下記、手順を実施 1)SeleniumBasic-2.0.9.0インストール 2).net Framework3.5有効化 3)edgedriverダウンロード　seleniumのフォルダに上書き　＊バージョンは使用中のedgeブラウザの　　バージョンと同じにしてます 4)vba の参照設定追加　Selenium Type Libraryをチェック 5)vbaコード作成と実行　sub 　　Dim driver As Selenium.WebDriver 　　Set driver = new Selenium.WebDriver 　　driver.Start "edge" 　End Sub ◆実行環境 Windows Home 11 23H2 64bit excel 2003 ◆補足・手順4の参照設定画面にて　Selenium Type Libraryの場所に表示される　ファイル名がselenium32.tlb(selenium64.tlbではない) 　とあり、気になりますが、変更できませんでした。　seleniumのフォルダにはselenium64.tlbも存在はしています。

質問日時: 2024/06/27 11:09 質問者: ゆu カテゴリ: Visual Basic（VBA）

解決済

1

0
ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか？ウェブマーケターの友人に聞く

ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか？ウェブマーケターの友人に聞くと対策しなくても企業のサイトが上位にきてくれるので、最近は、seo対策はあまりしないで、コンテンツ増やすのみらしいです。現状はどうですか？

質問日時: 2024/06/27 09:27 質問者: satosatoplayboy カテゴリ: SEO

解決済

1

0
VBSでテキストファイルの2行目から最終行までを別のファイルに出力

VBSで既存のテキストファイル(カンマ区切り)の2行目から最終行を別のテキストファイルへ出力したいです。よろしくお願いします。

質問日時: 2024/06/25 15:00 質問者: Mehco3 カテゴリ: その他（プログラミング・Web制作）

解決済

3

0
VBの色を変えるにはどうしたらいいですか？

VBの色を変えるにはどうしたらいいですか？

質問日時: 2024/06/25 12:47 質問者: あっきー126 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
テキストファイルの1行目のみを削除したい

PowerAutomateDesktopからテキストファイルの1行目を削除したいです。テキストファイル(CSVカンマ区切り)から1行目を削除する方法を教えてください。 PADからの実行で実行可能なスクリプトは以下です。・DOSコマンド・VBScript ・JavaScript ・Python これらであればどれを使用しても大丈夫です。よろしくお願いします。

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

解決済

4

1
サーブレットをapacheで公開するときにはwarファイルにしてそのドキュメントルートに配置するのみ

でしょうか？

質問日時: 2024/06/25 11:39 質問者: reiman カテゴリ: Java

ベストアンサー

3

0
テキストファイルのフィールド行のみ削除したい

CSVファイルのフィールド行のみを削除する方法を教えてください。 PADからの実行で実行可能なスクリプトは以下です。・DOSコマンド・VBScript ・JavaScript ・Python これらであればどれを使用しても大丈夫です。よろしくお願いします。

質問日時: 2024/06/25 11:20 質問者: Mehco3 カテゴリ: Visual Basic（VBA）

解決済

2

0
CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)

CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)も問題なく動作するのですか？ int型のサイズはCPUではなく、OSとコンパイラによって決まりますという人がいて気になります。

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

ベストアンサー

7

0
プログラミングでArduinoのc++かc#を言葉から自動でソースコードを作ってくれる優秀なものはあ

プログラミングでArduinoのc++かc#を言葉から自動でソースコードを作ってくれる優秀なものはありますか？なんでも構いません！よろしくお願いします。

質問日時: 2024/06/24 20:21 質問者: あっっちーカテゴリ: C言語・C++・C#

解決済

2

0

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

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

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

質問する（無料）

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

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

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

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

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

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