回答数
気になる
-
C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に
C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に表示された値によって80点以上ならA 60点以上ならB それ以外ならCとC4のセルに表示させる式を入れたいです。 Sub プロジーシャ名() Range(“C3”).Value = InputBox(“数値を入力し てください) If Range(“C3”) => 80 Then Range(“D3”).Value = A Elseif Range(“C3”) => 60 Range(“D3”).Value = B Else Range(“D3”).Value = C End Sub これでお手上げです。どういう風に打ち込めばいいですか?そしてプラスでA B Cを赤色で表示したいです。 お時間取らせますが教えていただきたいです
質問日時: 2023/07/14 09:43 質問者: 教えてよー カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
祝日を除いた月曜から土曜までの1週間分の日付行を選択し、別シートへカットアンドペーストしたい
sh1のB列に縦に最大31日分の曜日が並んでいます。この列から最初の1週間分の曜日を祝日を除いて切り取り、Sh2に貼り付けるコードを教えてください。 行を指定して貼り付ける下記コードだと、例として火曜日が祝日だった場合、次の1週間分のシートが月曜始まりにならないため、月曜から土曜までの行を指定し、無い曜日があっても次の1週間分のシートができるようにしたいのですが、、、 findを使って検索し、切り取っていくようなイメージにするには、どのようなコードになるか教えてください。 With Sheets("sh1") .Range(.Cells(1, "A"), .Cells(6, "AA")).Copy _ Destination:=Sheets("sh2").Range("A1") End With 2023/07/03 (月) 2023/07/05 (水) 2023/07/06 (木) 2023/07/07 (金) 2023/07/08 (土) 2023/07/10 (月) 2023/07/11 (火) 2023/07/12 (水) ・・・・・ ・・・・・ _______________ 【Sh1】 2023/07/03 (月) 2023/07/05 (水) 2023/07/06 (木) 2023/07/07 (金) 2023/07/08 (土) ________ 【Sh2】 2023/07/10 (月) 2023/07/11 (火) 2023/07/12 (水) ・・・・・ ・・・・・ _______ 【sh3】
質問日時: 2023/07/13 22:46 質問者: momo_2123 カテゴリ: Visual Basic(VBA)
ベストアンサー
13
0
-
恒久的リダイレクトについて
下記アドレスを https://****-***.ssl-lolipop.jp/sample/test.html 下記アドレスに恒久的リダイレクトさせたい。 https://www.***.com/sample.html これは、以前ロリポップで独自無料SSLが提供されていないとき、共有SSLというサービスを利用していた名残で。。。検索エンジンにこの共有SSLのページが掲載されるため、リダイレクトさせ正規のURLに導きたいと考えております。 アドバイスをいただける方よろしくお願いいたします。
質問日時: 2023/07/13 15:58 質問者: yattaman32 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
Excelのマクロについて教えてください。 マクロを実行した後に、マクロを設定している作業ブックを削除出来る方法を詳しいコード共、教えてください。 下記のマクロがあります。 Sub ファイル名変更() Application.Run "青紙" Application.Run "エジソン" Application.Run "エジソン審査資料" End Sub マクロを実行すると順番に「青紙」「エジソン」「エジソン審査資料」のマクロが実行されます。 上記のマクロが実行された後には、マクロを設定している作業ブックが不要になります。 マクロ実行後に、作業ブックを削除出来る方法を教えてください。 ちなみに、一番最後のマクロは Sub エジソン審査資料() Dim parentFolderPath As String parentFolderPath = ThisWorkbook.Path Dim fso Dim orgFileName As String orgFileName = Dir(parentFolderPath & "\" & "*.eds") '該当するファイルが1つしかないという前提のようなので。 Dim f, flag As Boolean For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(parentFolderPath).Files If f.Name Like "##############.eds" Then f.Name = "前審査資料.eds" flag = True Exit For End If Next If flag = False Then MsgBox ".edsはありません" End If End Sub となります。 よろしくお願いします。
質問日時: 2023/07/13 12:31 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
PHP一覧表示した項目にリンクをはりたい
PHP、PhpMyAdminを使ってデータベースを構築しようとしています。 現在サンプルデータを登録し、それを一覧表示するようにできるようになりました。 この一覧の詳細データへのリンクを貼りたいのですが、エラーとなり表示されません。 リンクを貼るとエラーになるのでその箇所の書式がおかしいのかと思い、 幾つかネットで探しながら試してみたのですが、エラー表示が変わらず どこか確認する箇所ございましたら教えてください。 どうぞよろしくお願いいたします。 try{ $DB_DATABASE = 'test'; $DB_USERNAME = 'test'; $DB_PASSWORD = 'test'; $DB_OPTION = 'charset=utf8'; $PDO_DSN = "mysql:host=localhost;dbname=" . $DB_DATABASE . ";" . $DB_OPTION; $pdo = new PDO($PDO_DSN, $DB_USERNAME, $DB_PASSWORD, [ PDO::ATTR_ERRMODE => PDO::ERRMODE_EXCEPTION ]); $stmt = $pdo->prepare('SELECT year, title_jp, title, mark FROM test'); $stmt->execute(); echo "<ul>\n"; while( $result = $stmt->fetch( PDO::FETCH_ASSOC ) ){ echo "\t<li>\n"; echo "\t\t<strong>{$result['year']}年 </strong>\n"; /*↓↓↓↓ここ↓↓↓↓*/ echo "\t\t<a href="test/test.html">{$result['title_jp']} - {$result['title']} {$result['mark']}</a>\n"; /*↑↑↑↑ここ↑↑↑↑*/ echo "\t</li>\n"; } echo "</ul>\n"; } catch(PDOException $e){ echo 'DB接続失敗'; die(); }
質問日時: 2023/07/12 17:08 質問者: apricot1101 カテゴリ: PHP
解決済
1
0
-
Googleアナリティクスでの設定について
Googleアナリティクス(G4)で、上部に、 「このプロパティの設定は完了していません。設定アシスタントで、推奨される設定チェックリストを完了してください。」と出てます。 いろいろやりましたが、どうも、「シグナルのデータ収集」のような。 アシスタントの設定で、7つの項目ですが、すべて完了にしても、6つしかならず、 動画など見ましたが、2段目の「シグナルを有効にする」項目が表示されてません。 (コンバージョン設定」「オーディエンス定義」の2つのみ表示) プロパティで、データ収集で、シグナルデータは有効にしてます。 他に問題、原因あるとすればどこでしょうか? アドバイスいただければ幸いです。 よろしくお願いします。
解決済
1
1
-
C言語
私は今、四十代半ばなのですが、二十代のころは、C言語で主にゲームを作っていました。 今のプログラミング言語は何ですか?
質問日時: 2023/07/11 19:55 質問者: ともこん カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
改行ごとに行を追加し、数量を分割
vbaをネットで検索しながら作成しているのですが、うまくいかず困っています。 お助けいただけたら嬉しいです。 やりたいことは、①アクティブシートをコピーし、新しく追加したシートに貼り付ける。→○ ②F列の納期が複数ある場合は、改行されている毎に分ける→○ ③納期を分ける際に、下に行を追加する。その際、列をコピーし貼り付けて、分離された納期を記載する→× ④納期が複数ある場合、合計数量をロット単位に分ける。分けきれなかった場合は、残った数量をその品目の最後に記載。(右図 E列、15行目参照)→× ③、④が分からずご教示いただけると助かります。 ---------------------------------------------------------------------------------- Sub 納期分割() Dim a As Variant Dim i As Long Dim j As Long ActiveSheet.Copy after:=ActiveSheet ActiveSheet.Name = "New Sheet" For j = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 With ActiveSheet '改行区切りで分割 a = Split(.Cells(j, "F"), vbLf) '配列の大きさの分だけループ For i = 0 To UBound(a) .Cells(j + i, "F") = a(i) 'セルへ入力 Next i End With Next j End Sub
質問日時: 2023/07/11 16:39 質問者: tatituteto7410 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
翌日にお休み予定の従業員がいる場合にアラートを出したい
エクセルで作成したシフト管理表で、翌日にお休み予定の人がいる時、 Bookを開いた際メッセージボックスを表示し「明日は休み予定の人がいます」のようなアラートを表示できるVBAを作成したいのですがどなたかご教示ください。 ブックの構成は、シート1に従業員1か月の○、×形式シフト表で、 シート2に休み希望表(F11:AI100まで)があり、各人の希望日を入力(例:7/11などの月/日形式)しています。 そのため、休み希望表の中に翌日の日付があればアラートが出るようにしたいです。
質問日時: 2023/07/11 11:18 質問者: res1112 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
符号誤り率の計算は例題でどのようなものがありますか。(.erfcで表現できるのも)教えてほしいです。
符号誤り率の計算は例題でどのようなものがありますか。(.erfcで表現できるのも)教えてほしいです。
質問日時: 2023/07/11 11:06 質問者: 25jneum カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
htmlについて質問です コードを打ったあと画像が表示されないので調べる svg ファイルが写真のよ
htmlについて質問です コードを打ったあと画像が表示されないので調べる svg ファイルが写真のようにリソースを読み込み中にエラーが発生しました。とでます。 macのアップデートをしていなかったのが原因だと思い、試してみたものの無理でした。 ほかにどんな原因があげられますか?
解決済
1
1
-
エクセルでフォームのチェックボックスを使用した日付表示切替を作りたい
VBAでチェックボックスにチェックが入ると和暦表示に、 チェックを外すと西暦に切り替わるVBAを組みたいのですがどなたかご教示ください。 ※列はK列の8行目から同列100行目までを対象と考えております。
質問日時: 2023/07/11 10:47 質問者: res1112 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
Java、配列の問題を教えて欲しいです。 ・日、月、火、水、木、金、土 ・各曜日の英語 を2次元配列
Java、配列の問題を教えて欲しいです。 ・日、月、火、水、木、金、土 ・各曜日の英語 を2次元配列で作成し、 (ー曜日は英語ーーではです) と全ての曜日を出力するプログラムを作成する。 さらに、ランダムに日~月の曜日を出力し該当の曜日の英語を入力させ正否を出力する。 否ならば正解になるまで入力を繰り返す。 上記の問題なのですが、正否の所が分かりません。 あっていてもちがうと出てきてしまいます。 どこが違いますか?
解決済
2
0
-
Java配列の問題を教えてください。 乱数で20個出力し、最大、最小、合計、平均を求め、更に昇順にソ
Java配列の問題を教えてください。 乱数で20個出力し、最大、最小、合計、平均を求め、更に昇順にソート(for文で)するという問題です。ですが、最大値は違う数値が出てきて最小値は0に。昇順は全て0が出てきてしまいます。 どこを直すとよいのか教えて欲しいです… 見ずらくてすみません。
解決済
3
0
-
日別の時間割を週別に分割して貼り付けたい Sheet1に日別で1ヶ月分縦に並んだ時間割を週別にシート
日別の時間割を週別に分割して貼り付けたい Sheet1に日別で1ヶ月分縦に並んだ時間割を週別にシートを5週に分けたいのですがどのような方法が良いか教えてください。 日別の日付セルと週別の日付を一致させて貼り付けるイメージはあるのですが何から手をつけたら良いか迷っています。
質問日時: 2023/07/10 16:01 質問者: momo_2123 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Outlook VBAについて
OutlookのVBAについて質問です。 現在添付画像のコードで 選択しているメールから指定のExcelのB2に受信日時 C2に件名を書き出しております。 このコードを 1、選択しているメールが複数でも書き出す 2、選択しているメールをmsgファイルとしてExcelにリンクを貼り付け(ALのセルに)エクセル上からクリックでメールを開けるようにする この2つの処理を追加できる方がおりましたら、是非コードを教えて頂きたいです。
質問日時: 2023/07/10 12:41 質問者: いさ4584269 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA
Excelで、ファイル内にシートを統合するVBAを書いてみたいと思うのですが、ネットなどでは同一のファイル内にVBEを書き実行するものがほとんどのようにお見受けします。 すなわち、VBAのあるファイル(マクロファイル)にシートが5枚あれば5つドラッグしてくる、10枚あらえば10枚、100枚あれば100枚ドラッグするということになります。 スタート(統合)ボタンなどを付けることを考えると、どのみちマクロ用に準備というか統合用のシートは必要なので、そこでパスとファイル名を指定すれば、当該Excelファイル内のシートを全部統合してくれるというVBAが理想的なのですが、どなたかそういうコードをご教授いただけないでしょうか。 よろしくお願い申し上げます。
質問日時: 2023/07/10 10:09 質問者: Ultra-maline カテゴリ: Visual Basic(VBA)
ベストアンサー
8
0
-
エクセルのマクロについて教えてください。
Excelのマクロについて教えてください。 マクロを実行して 作業フォルダ内にあるファイルの名前を変更するマクロがあります。 拡張子の前部分が専用ソフトからダウンロードした時に自動でつく半角数字「14桁」になります。例えば「20230710082524.eds」です。 上記のファイル名の「20230710082524」はダウンロードの都度変更になります。 下記のマクロを設定したのですが、「.edS」が見つかりません、と表示が出て上手くファイル名を変更できませんでした。解決方法をお願いします。 マクロ Sub エジソン審査資料() Dim parentFolderPath As String parentFolderPath = ThisWorkbook.Path Dim orgFileName As String orgFileName = Dir(parentFolderPath & "\" & "##############.eds ") If orgFileName = "" Then MsgBox ".edsはありません" Exit Sub End If Dim newFileName As String newFileName = "審査資料.eds" Name parentFolderPath & "\" & orgFileName As parentFolderPath & "\" & newFileName End Sub よろしくお願いします。
質問日時: 2023/07/10 09:06 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
3×3のラテン方陣をつくるプログラムを作成したのですが、(↓) #include <stdio.h>
3×3のラテン方陣をつくるプログラムを作成したのですが、(↓) #include <stdio.h> int main(){ int j,k,n = 3; int a,b,c; int d,e; printf("a,b,cの入力:\n"); scanf("%d%d%d",&a,&b,&c); for(j=0; j<=n-1; j++){ for(k=0; k<=n-1; k++){ d = a * j + b * k + c; e=d%n; printf("%d ",e); } printf("\n"); } return 0; } 実行すると時々値が変わってしまいます。 (その都度ちゃんとコンパイルし直して実行しています。) たとえば(a,b,c)=(1,1,1)の時に 1 2 0 2 0 1 0 1 2 と出たり 1 1 1 2 2 2 0 0 0 と出たりします。(手計算だと前者が合ってる…?) これは答えは何通りもある、どちらも正しい、ということでしょうか、、? 後者も合っているとしたら、どのような計算でこのような結果になったのでしょうか?そもそもこれはラテン方陣ではないのでは、、(>_<) 合っていないとしたら、何らかのエラーでしょうか…? 実行した写真も載せようと思うのですが、反映に時間がかかるとの事で、補足の方に載せようと思います。 正直ラテン方陣に関してもプログラミングに関してもまだ全然分かっておらず、このような理解の乏しい質問をしてしまい本当に申し訳ないです、、どなたか教えて下さる人がいると幸いです。。
質問日時: 2023/07/10 01:53 質問者: ハルジオン_ カテゴリ: C言語・C++・C#
解決済
5
0
-
htmlについて質問です! 写真のように写真の部分が?になってしまいます。 ファイルもしっかり選べて
htmlについて質問です! 写真のように写真の部分が?になってしまいます。 ファイルもしっかり選べてると思うのですが、何がおかしいですか? <body> <header class="page-header"> <h1><a href="index.html"><img class="logo" src="images/logo.svg" alt="WCBカフェホーム"></a></h1> <nav> <ul class="main-nav"> <li><a href="news.html">News</a></li> <li><a href="menu.html">Menu</a></li> <li><a href="contact.html">Contact</a></li> </ul> </nav> </header> </body>
解決済
1
0
-
アプリ開発について 初心者です phythonをはじめに学んで、c#かswiftのどちらかを学ぶのは
アプリ開発について 初心者です phythonをはじめに学んで、c#かswiftのどちらかを学ぶのは遠回りになりますか? ほんとの初心者からでもc#を学ぶのは早いですか? また、FPSの開発に必要な言語は何ですか? よろしくお願いします
質問日時: 2023/07/09 19:18 質問者: agtjpvn カテゴリ: C言語・C++・C#
解決済
2
0
-
Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル
Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイルをファイルの「更新日時」によってファイル名を変更出来る方法を教えてください。 仕事上で使用する専用ソフトにてデータをダウンロードすると 「12345679.erirct」と「12345678.erirct」みたいに拡張子の前に物件毎に違う数字がファイル名となり作業フォルダ内に保存されます。(拡張子は専用のファイルの拡張子になります) ダウンロードをして保存された順番にファイル名を変更出来る方法を教えてください。 一番最初にダウンロードしたファイルを「申請書」にファイル名を変更 二番目にダウンロードしたファイルを「審査資料」にファイル名を変更 尚、ダウンロードは続けて行いますので、「更新日時」は秒単位になると思います。 又、作業フォルダ内には当該マクロを設定しているマクロ有効ブックも有ります。 詳しくコードを教えてください よろしくお願いします
質問日時: 2023/07/09 13:40 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
1
-
PHPの$_SERVER["REQUEST_URL"]の0文字目は必ず"/"になることになってるの?
いまWordPressのthemeのfunctions.phpの編集をしようとしてる やりたいことと現状は次の通りで意図はセキュリティ向上 管理者と編集者がいる GET /author/(管理者じゃない編集者)/は普通に表示されるしそのまま表示されるようにしときたい GET /author/(管理者じゃない編集者)も/author/(管理者じゃない編集者)/に301されるようになってる GET /author/(管理者)/しようとしたら404にリダイレクトとかホームにリダイレクトとかではなく404が出てくるようにしたい(これがやりたい) ついでに言うとGET /author/(管理者)が現在GET /author/(管理者)/に301されるようになってるんだけどこれが気にいらない GET /author/(いない人の名前)/やGET /author/(いない人の名前)は現在404にリダイレクトされるのではなく404ヘッダから始まる404ページが出る状況にある 以上がやりたいこととか現状になる 今日、Edit Author Slugというプラグインをインストールし、管理者名の/author/以下略については書き換えることができたし、その際に変な3xxが発生することはないことが確認できた あと?author=1をやろうとしても管理者名が出ないようにするようにしといた 以下のサイトを参考にした https://blog.saboh.net/authorpagenone/#i-2
質問日時: 2023/07/07 17:42 質問者: ご希望のニックネームで登録 カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
エクセルのマクロについて教えてください。
先日教えて頂けたマクロがあります、このマクロを実行すると作業ブック内の不要なフォルダを削除できます。 このマクロでは不要なフォルダを一つだけ選択して削除できますが、複数選択して削除出来る方法を詳しいコード共に教えてください。 よろしくお願いします。 マクロ Sub フォルダ削除() Dim InitialPath As String InitialPath = ThisWorkbook.Path Dim rs As Integer rs = MsgBox("フォルダを削除します。", vbCritical + vbOKCancel, "削除の確認") If rs = vbOK Then Dim folderPath As Variant With Application.FileDialog(msoFileDialogFolderPicker) .Title = "削除するフォルダを選択してください" .InitialFileName = InitialPath If .Show = -1 Then folderPath = .SelectedItems(1) Call MoveDustbox(folderPath) Else MsgBox "削除をキャンセルしました。", vbInformation Exit Sub End If End With End If End Sub よろしくお願いします。
質問日時: 2023/07/07 08:37 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
型が一致しませんとエラー
いつもお世話になっております 下記のコードは A B C のいずれかなら隣の列に1 D E F のいずれかなら隣の列に2 の値をいれたのですが、 型が一致しませんとエラーがでます。 まちがっているところ わかる方おしえてくれませんでしょうか a = Array("A", "B", "C") b = Array("D", "E", "F") Sub fe() Dim a, b Dim R As Range a = Array("A", "B", "C") b = Array("D", "E", "F") For Each R In Range("C2:C10") If R.Value = a Then R.Offset(, 1) = 1 If R.Value = b Then R.Offset(, 1) = 2 Else R.Offset(, 1) = "Nothing" End If End If Next End Sub
質問日時: 2023/07/06 20:14 質問者: りんごプリン カテゴリ: Visual Basic(VBA)
ベストアンサー
6
1
-
Python - Excel で Webからデータを連続取得したいのですが エラーが出ます
はじめて Pythonを利用としているのですが、理解不足でエラーの解消ができないでおります。 NHK WORLD NEWSをWEBから 連続して、取り出して、EXCELに表示しようとしています。 作業予定としては 1⃣ 別のpy でURLのリストを取込作成 2⃣ 今回、表示しているpyの Urllistへ EXCEL経由で取り入れて、連続して読み込み、EXCELへリストアップしようとしています。 1番目のURLは問題なく EXCELへ取り込めるのですが、2番目からの取込がうまくいきません。 『ConnectionRefusedError: [WinError 10061] 対象のコンピューターによって拒否されたため、接続できませんでした。』というエラーが出ます。 解説文が WEBで検索すると多くでているのですが、理解できずに解決策が見つかりません。 (Win10 hHome 22H2、EXCEL365 Ver2306、Python3.11.4、Selenium2.0.9.0、openpyxl3.1.2 cmdのウィンドウがすぐに閉じてしまうので、読み込めず違いがあるかもわかりません?) 解決策、また、より良いコード等がありましたら、ご指摘、ご指導よろしくお願いします。 from selenium import webdriver from selenium.webdriver.common.by import By from selenium.webdriver.common.keys import Keys from selenium.webdriver.chrome import service as fs import openpyxl import datetime CHROMEDRIVER = r"driver/chromedriver.exe" chrome_service = fs.Service(executable_path=CHROMEDRIVER) browser = webdriver.Chrome(service=chrome_service) #++++++++++++++++++++++++++++++++++++ data_list = [] Urllist_list = [] #++++++++++++++++++++++++++++++++++++ Urllist_list = [ "https://www3.nhk.or.jp/nhkworld/en/news/20230706_04/", "https://www3.nhk.or.jp/nhkworld/en/news/20230706_11/", "https://www3.nhk.or.jp/nhkworld/en/news/20230706_06/", "https://www3.nhk.or.jp/nhkworld/en/news/20230706_14/" ] #++++++++++++++++++++++++++++++++++++ wb_new = openpyxl.Workbook() ws_new = wb_new.active row_num = 1 #########################################################browser.implicitly_wait(15) ################################################################################################################## for Urllist in Urllist_list: dt = datetime.datetime.now().date() now = datetime.datetime.now() dm = now.strftime("%x %X") ws_new.cell(row_num, 1).value = str(Urllist) ws_new.cell(row_num + 1, 1).value = str(dm) row_num = row_num + 2 ###################################################### browser.get(str(Urllist)) ###################################################### links = browser.find_elements(By.TAG_NAME,"h1") for link in links: link_text = link.text link_url = link.get_attribute("a") data_list.append([link_text]) for data in data_list: if data[0] != "" and data[0] != "News": ws_new.cell(row_num, 2).value = data[0] row_num = row_num + 1 ###################################################### links = browser.find_elements(By.TAG_NAME,"p") #data_list = [] for link in links: link_text = link.text link_url = link.get_attribute("p") data_list.append([link_text]) #+++++++++++++++++++++++++++++++++++++++++++++++++++++++ for data in data_list: if data[0] != "" : if "Your subscription plan doesn" in data[0]: break if "*You will leave" in data[0] : break if data[0] != "News": # テキスト ws_new.cell(row_num, 3).value = data[0] row_num = row_num + 1 ###################################################### browser.quit() ###################################################### ws_new.title = "NHKNEWS" wb_new.save("NHKNEWS.xlsx") ######################################################
質問日時: 2023/07/06 20:08 質問者: sei1miyata カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
いまc言語を独学で勉強しているのですがいまいちわかりません。 https://monozukuri-
いまc言語を独学で勉強しているのですがいまいちわかりません。 https://monozukuri-c.com/langc-original-handle/?amp=1 このリンクでハンドル生成時の 構造体*pAccountは何をしているんですか? これはポインタですか? またメインソースのhcard1の値には何が入っているんですか? またなぜ野口さんと諭吉さんのデータは残り続けているんですか?同じ関数を使っているので野口さんが諭吉さんに上書きされることはないんですか?
質問日時: 2023/07/06 18:59 質問者: るなるなるなるなるな カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
エクセルのマクロについて教えてください。
下記のマクロは作業ブック内の指定ファイルを削除出来るマクロになっておりますが、 このマクロを 作業ブック内の指定フォルダが削除を削除出来る方法を詳しいコードを教えてください。 マクロ Sub Macro1() ' メッセージボックスの表示 Dim result As VbMsgBoxResult result = MsgBox("不要ファイルを削除します", vbCritical + vbYesNo, "作業フォルダ削除") ' キャンセルがクリックされた場合、マクロの実行を終了 If result = vbNo Then Exit Sub ' ファイル選択ダイアログを開いてファイルを選択 Dim fileDialog As fileDialog Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) ' 複数のファイル選択を許可 fileDialog.AllowMultiSelect = True ' ファイル選択ダイアログを表示 If fileDialog.Show = -1 Then ' 選択されたファイルを削除 Dim selectedFile As Variant For Each selectedFile In fileDialog.SelectedItems On Error Resume Next VBA.FileSystem.Kill selectedFile On Error GoTo 0 Next selectedFile ' メッセージボックスの表示 MsgBox "ファイルの削除が完了しました。", vbInformation + vbOKOnly, "作業フォルダ削除" End If End Sub よろしくお願いします。
質問日時: 2023/07/06 17:46 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
PHP.laravelについて
分からなさすぎるので初めて投稿します。 laravelを使ってcsvインポート機能をおこないたくて、、、。 laravelを使ってcsvファイルをmysqlにインサートするのも分からず、そもそもどこにcsvファイルを置くのかとかcsvファイルの読み込み方も分からず困っています、、 ネットで調べても理解できず分かる方教えていただきたいです!
質問日時: 2023/07/06 15:26 質問者: satukinman カテゴリ: XML
解決済
1
0
-
エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク
エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをクリックすると 作業フォルダのダイナログが開いて フォルダ内にあるフォルダやファイルをCtrlキーを押しながらマウスで指定したフォルダやファイルを削除出来る方法を教えて下さい メッセージボックスのアイコンは赤丸に✖️でメッセージは 回答フォルダ、不要ファイルを削除します。 okをクリックすると 作業フォルダのダイナログが開いて 削除したいフォルダやファイルを指定して 警告文なしで okで削除 その後 次の作業に進みます メッセージのキャンセルをクリックするとマクロは実行されず 次の作業に進めます 詳しいコードを教えてください よろしくお願いします
質問日時: 2023/07/05 19:32 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
vba 重複データ合算
vbaをネットで検索しながら作成しているのですが、うまくいかず困っています。 お助けいただけたら嬉しいです。 やりたいことは、A列、B列、C列が全て同じデータの場合、D列の個数を合算します。合算した場合、E列とF列の一番最初(行列の番号の低い)の値を転記します。取得結果を、H列以降に出力します。 E列とF列の値をL列とM列に転記する部分がどうしても分からず、ご教示いただけたら助かります。 ------------------------------------------------------------------------------------------------- Sub 重複データを削除し合算() Dim myDic As Object Dim myKey As Variant Dim myItem As Variant Dim i As Long Dim Target As String Dim tmp As Variant Set myDic = CreateObject("Scripting.Dictionary") For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Target = Cells(i, 1) & "_" & Cells(i, 2) & "_" & Cells(i, 3) If Not myDic.exists(Target) Then myDic.Add Key:=Target, Item:=Cells(i, 4) Else myDic(Target) = myDic(Target) + Cells(i, 4) End If Next myKey = myDic.keys myItem = myDic.items Application.ScreenUpdating = False For i = 0 To UBound(myKey) tmp = Split(myKey(i), "_") Cells(i + 1, 8) = tmp(0) Cells(i + 1, 9) = tmp(1) Cells(i + 1, 10) = tmp(2) Cells(i + 1, 11).Value = myItem(i) Next Application.ScreenUpdating = True Set myDic = Nothing End Sub
質問日時: 2023/07/05 18:55 質問者: tatituteto7410 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
1
-
EXCELのVBAについて
このVBAをEXCEL起動=実行ではなく、セルの値が変わったら累計も変更と、前日までの累計しかでないのを当日か31シート分表示できるようにしたいです。 Private Sub Workbook_Open() Dim k As Long With Worksheets(1) '「1」Sheetのみの操作 .Range("R58") = .Range("R58") .Range("R73") = .Range("R73") End With For k = 2 To Day(Date) - 1 With Worksheets(k) .Range("R58") = Worksheets(k - 1).Range("R58") + .Range("I58") .Range("R73") = Worksheets(k - 1).Range("R73") + .Range("I73") End With Next k End Sub
質問日時: 2023/07/05 17:17 質問者: Piiiiiro カテゴリ: Visual Basic(VBA)
ベストアンサー
2
1
-
MicroPythonコード
こんにちは、今MicroPythonを勉強中、 ラズパイPicoとシャープ製のTFT-LCD module(MODEL No.LS022B7DH03)を繋いで、プログラムコードを書いて、コードを実行したら、LCD画面にブロックチェックの模様が表示させましたが、 gate address line1(0x81,0x00 )~line243( 0x80,0x9E )のアドレスがしか作れない、それ以上を作っても、LCD画面に表示されないみたいです。 もしLCDの全画面に表示させたいのなら、どうすれば良いですか? 一応、回路図、LCD仕様書、自分が書いたmicropythonコードと点灯されている様子の写真をアップロードしたので、こちらのリンクをクリックしていただいたらと思います。 https://1ne.jp/receiver/file_box.do?fb=00b5b7c0079b452585ed952e158922ea&rc=8470fb32f39d4db7a069bf802b63d947&lang=ja
質問日時: 2023/07/05 15:20 質問者: mada0121 カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
VBAでPowerPointからExcelにレイアウト通りに出力する
PowerPoint上の全文字列をExcelに出力するPowerPointマクロは作成できたのですが、シェイプのインデックス順に出力してしまいます。 レイアウト通りに貼り付ける際はどう変更すればいいのでしょうか Excel VBAでコードを入力しました こちらのHPを参考にしました [インストラクターのネタ帳]より PPTファイル上の全文字列をExcelに出力するPowerPointマクロ https://www.relief.jp/docs/018395.html
質問日時: 2023/07/05 12:22 質問者: おまるさん カテゴリ: Visual Basic(VBA)
解決済
4
0
-
エクセルのマクロについて教えてください。
セル値をコピーして別のシートのセルに貼り付けを行う時に、 コピー側がセルを統合していなく、コピー先がセルを統合しているので、 マクロを実行した時にエラーが出てマクロが実行できません。 解決方法を教えてください。 マクロ Sub 青紙日付() Sheets("審査").Range("H10").Copy Sheets("青紙表").Range("O27").PasteSpecial xlPasteValues End Sub です。 よろしくお願いします。
質問日時: 2023/07/05 09:30 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
0
-
エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間
エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間があったらお答えをおねがいします! 自分で色々検索して参考になるものがあったのですが 他のセル場所を指定しても反映されずどのように作れば良いか分からなくなってしまいました。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myValue As Double Dim preVAlue As Double 'セルは、A1 If Target.Address <> "$A$1" Then Exit Sub With Application .EnableEvents = False .ScreenUpdating = False If VarType(Target.Value) = vbDouble Then myValue = Target.Value .Undo preVAlue = Target.Value If VarType(preVAlue) = vbDouble Then Target.Value = myValue + preVAlue Else Target.Value = myValue End If End If .ScreenUpdating = True .EnableEvents = True End With End Sub を使ってA1だけでなくA1からC3まで同じ動作がセルごとにできるようにしたいのですが分かる方がいらっしゃったら教えて頂きたいです。 よろしくお願いします。 作成はシートタブのコードの表示でつくていますが、 他に同じ動作で簡単にできるものがあれば教えて頂きたいです、、、
質問日時: 2023/07/05 06:13 質問者: asuty00 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
VBA リボンののリカバリーでオーバーフローエラーになります
いつもお世話になります 最近、Windows11およびExcel64ビット版に変更していろいろエラーが発生しています その中で今までWindows10およびExcel32ビット版では問題なかったリボンのリカバリーで オーバーフローエラーで悩まされています '***初期設定*** '...レジストリを使った、リボンコントロール用(イレギュラーに止まった時のカバー用) Public Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal cbLen As Long) Public rbRibbon520 As IRibbonUI ' リボン Public rbCheckBox520 As Boolean Sub Ribbon_OnLoad520(ribbon As IRibbonUI) ' リボンの初期処理 Set rbRibbon520 = ribbon ' リボンの表示を更新できるようにするためにリボンをセットする SaveSetting "RibbonApp", "Main", "RibbonPointer520", CStr(ObjPtr(ribbon)) '...リボンのポインタをレジストリに記録 rbRibbon520.Invalidate ' リボンの描画を更新する End Sub '***エラー時*** If rbRibbon520 Is Nothing Then '...前回イレギュラーで終わったため、レジストリからチェックボックスの値を読み込む rbCheckBox520 = GetSetting("MyChkBox520", "Main", "IsCheckBox520") '...オブジェクトのリセット(レジストリからのリカバリー) Set rbRibbon520 = GetRibbon(CLng(GetSetting("RibbonApp", "Main", "RibbonPointer520"))) rbRibbon520.Invalidate ' リボンの描画を更新する のように作成しています プログラムは上記のチェックボックスを使って処理していますが デバッグ等で途中で止めた場合、再スタート時にエラーになってしまいます Windows11とWindows10の違いなのか、 Excel32版とExcel64版によるものかも分かっていません もし分かりましたら教えてください 以上、よろしくお願い申し上げます
質問日時: 2023/07/04 19:07 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
Excelのマクロについて教えてください。 マクロ有効テンプレート方式のブックがあります。 最初にこのブックを開き、次に、顧客から送られてきた一般のExcelブック(物件によってファイル名は不特定です)を開き セル範囲を指定して、マクロ有効テンプレートに貼り付けます。 貼り付け後は、マクロ有効テンプレートのみで作業を行う為、コピー先の一般Excelブック は不要になります。 下記のマクロ実行後に コピー先のファイルを削除出来る方法を教えてください。 マクロ Sub 貼り付け() Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True Sheets("受付").Range("Q8").Copy Sheets("受付").Range("F3").PasteSpecial xlPasteValues Sheets("受付").Range("H60").Copy Sheets("受付").Range("F24").PasteSpecial xlPasteValues Sheets("受付").Range("Q9").Copy Sheets("受付").Range("E12").PasteSpecial xlPasteValues Sheets("受付").Range("Q10").Copy Sheets("受付").Range("F12").PasteSpecial xlPasteValues End Sub 以上です。詳しくコードを教えてください。 よろしくお願いします。
質問日時: 2023/07/04 17:58 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい
batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したいのですが、下記のバッチを実行したところ、 実行結果関係なく、EXEが実行できたら0を返すようなコードになってしまいました。 どこを直せば良いかご指摘お願いします。 EXEはVB6.0です。 【バッチ】 @ehco off Project.exe echo %errorlevel% ↓↓↓project.exe 【フォーム】 private sub form_load() 'ファイルの存在を確認する Dim fso As FileSystemObject Set fso = New FileSystemObject 'ファイルの存在を確認する If fso.FileExists("C:\Hoge.txt") Then Call MsgBox("ファイルはあります") Else Call MsgBox("ファイルはありません") End If 【標準モジュール】 Public Declare Sub ExitProcess Lib "kernel32"(ByVal uExitCode As Long) Public Sub Main() Dim filePath As String filePath = Split(Command)(0) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(filePath) Then ExitProcess 0 Else ExitProcess -1 End If End Sub
質問日時: 2023/07/04 16:40 質問者: おらごくう12 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
いまc言語の標準ライブラリ文字列を勉強しているのですがいまいちわかりません。 strcmpとmemc
いまc言語の標準ライブラリ文字列を勉強しているのですがいまいちわかりません。 strcmpとmemcopの違いとどうやって文字列を比較しているかがいまいちわかりません。 等しい場合はわかるのですが大きい時と小さい時ってどうやって比較してるんですか? アスキーコードで比較してるんですか?
質問日時: 2023/07/04 15:34 質問者: えままる。 カテゴリ: C言語・C++・C#
解決済
5
0
-
batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ
batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッチを実行したところ、 バッチ側でエラーレベルが 成功したときも失敗したときも0で帰ってきました。 どこが誤っているかご指摘お願いします。 EXEはVB6.0です。 【バッチ】 @ehco off Project.exe echo %errorlevel% ↓↓↓project.exe 【フォーム】 private sub form_load() 'ファイルの存在を確認する Dim fso As FileSystemObject Set fso = New FileSystemObject 'ファイルの存在を確認する If fso.FileExists("C:\Hoge.txt") Then Call MsgBox("ファイルはあります") Else Call MsgBox("ファイルはありません") End If 【標準モジュール】 Public Declare Sub ExitProcess Lib "kernel32"(ByVal uExitCode As Long) Public Sub Main() Dim filePath As String filePath = Split(Command)(0) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(filePath) Then ExitProcess 0 Else ExitProcess -1 End If End Sub
質問日時: 2023/07/04 15:13 質問者: おらごくう12 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
mayaでコンストレイントの始点と終点を逆にしたいのですがどうすれば良いですか?
mayaでコンストレイントの始点と終点を逆にしたいのですがどうすれば良いですか?
質問日時: 2023/07/04 14:37 質問者: BookManHome カテゴリ: オープンソース
ベストアンサー
1
0
-
2年ほど放置しているワードプレスで作ったサイトを全く違うジャンルのサイトに作り替えたい
この場合、記事を削除して表面を変えるだけで新しいサイトとして育っていくものでしょうか? それとも新しいドメインを取得して作っていく方が良いでしょうか? ドメインは元々中古を使っていて意味のない単語になっています。
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
Excelのマクロの不具合について教えてください。 マクロを連続して実行すると一部のマクロがエラーが出て実行できません。 解決方法を教えてください。 マクロ Sub 審査結果3() Application.Run "行調整" Application.Run "青紙日付" Application.Run "審査結果" Application.Run "シート移動" If Worksheets("審査").Range("S19") = "計画変更" Then Application.Run "審査資料計変" End If Application.Run "上書き保存表示無し" End Sub があります。このマクロを実行すると上から順番にマクロが実行されます。 しかし、途中マクロ「Application.Run "審査資料計変"」にエラーが出てこのマクロだけ実行できません。 コードは Sub 審査資料計変() Dim TargetFile As String Dim fPath As String, fName As String Dim newfName As String newfName = ThisWorkbook.Sheets("審査").Range("S22").Value & ".pdf" newfName = NGNarrowToWide(newfName) ''メッセージを表示し、実施確認する。 If MsgBox(newfName & vbCrLf & vbCrLf & "審査資料(計変)を作成しますか。", vbExclamation + vbOKCancel) <> vbOK Then Exit Sub ' ファイルのパスを指定 fPath = ThisWorkbook.Path ' ダイアログを表示してファイルを選択 TargetFile = Application.GetOpenFilename("PDFファイル ,*.pdf", , "ファイルを選択", , False) If TargetFile = "False" Then Exit Sub ' ファイル名を変更 If TargetFile = fPath & "\" & newfName Then MsgBox "同名ファイルを選択しています" Exit Sub End If If Not Dir(fPath & "\" & newfName) <> "" Then Name TargetFile As fPath & "\" & newfName Else Dim rc As Integer rc = MsgBox("既に存在する名前です" & vbCrLf & "はいを押すと既存ファイルは削除され" & vbCrLf & "リネームファイルに置き換えられます", 52, "置き換え確認") If rc = vbYes Then Application.DisplayAlerts = False Kill fPath & "\" & newfName Name TargetFile As fPath & "\" & newfName Application.DisplayAlerts = True Else MsgBox "処理を中止しました" End If End If End Sub Public Function NGNarrowToWide(ByVal stg As String) As String stg = Replace(Replace(Replace(Replace(stg, "\", "¥"), "/", "/"), ":", ":"), "*", "*") stg = Replace(Replace(Replace(Replace(stg, "?", "?"), "<", "<"), ">", ">"), "|", "|") stg = Replace(stg, """", Chr(&H8168)) NGNarrowToWide = stg End Function になっており、画像のようなエラーメッセージが出て、 コードの内「Name TargetFile As fPath & "\" & newfName」の部分が黄色くなっております。 このマクロの前の「Application.Run "審査結果"」のマクロを実行したPDFファイルを Application.Run "審査資料計変"マクロを使用してファイル名を変更するようになっております。 解決方法を教えてください。 よろしくお願いします。
質問日時: 2023/07/04 09:18 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
7
0
-
LEDで電光掲示板に「A B C D E」と表示したいのですが・・・
ESP32-DevKitC8mbと Lauify 2X WS2812BLED R フレキシブルピクセルパネル16X16個別にアドレス指定可能なパネルライト2枚 でLEDで電光掲示板に「A B C D E」と表示したいのですが・・・ ネット上にArduinoUNOにWS2812b 8×32パネルを使用しているスケッチをみつけました ------------------------------------------- #include <Adafruit_GFX.h> #include <Adafruit_NeoMatrix.h> #include <Adafruit_NeoPixel.h> #define PIN 6 Adafruit_NeoMatrix matrix = Adafruit_NeoMatrix(32, 8, PIN, ←--NeoMatrix(32, 16, PIN,してみましたがダメでした(^^;) NEO_MATRIX_TOP + NEO_MATRIX_LEFT + NEO_MATRIX_ROWS + NEO_MATRIX_ZIGZAG, NEO_GRB + NEO_KHZ800); const uint16_t colors[] = { matrix.Color(255, 0, 0), matrix.Color(255, 69, 0), matrix.Color(255, 255, 0),matrix.Color(0, 0, 255), matrix.Color(255, 0, 255), matrix.Color(0, 255, 255), matrix.Color(255, 255, 255)}; void setup() { matrix.begin(); matrix.setTextWrap(false); matrix.setBrightness(10); matrix.setTextColor(colors[0]); } int x = matrix.width(); int pass = 0; void loop() { matrix.fillScreen(0); //Turn off all the LEDs matrix.setCursor(x, 0); matrix.print(F("A B C D E")); if( --x < -150 ) { x = matrix.width(); if(++pass >= 5) pass = 0; matrix.setTextColor(colors[pass]); } matrix.show(); delay(40); } ---------------------------------------------------- 私のESP32-DevKitC8mbとWS2812B LED2枚を使って試しましたら 1枚のみにスクロール表示されてターンして戻ってしまいます(2枚目にはいかないです) ターンしないで2枚目にいくようにスケツチを変更したいのですが ArduinoUNOにWS2812b 8×32パネル購入すればできるとは思いますが 私のESP32-DevKitC8mbとWS2812B LED2枚では無理があるでしょうか 教えていただければと思います よろしくお願いします
質問日時: 2023/07/04 07:37 質問者: hiyotom カテゴリ: Microsoft ASP
解決済
1
0
-
次のソースコードの意味を教えてください form.show vbmodel vbmodelというもの
次のソースコードの意味を教えてください form.show vbmodel vbmodelというものがどういうものなのかよく分かっていません。上のコードはフォームを表示するという意味でしょうか? visual basic 6.0です。
質問日時: 2023/07/03 19:17 質問者: おらごくう12 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
jQueryローディングアニメーションのコードの以下のURL内参考サイトで提示されている
jQueryローディングアニメーションのコードの以下のURL内参考サイトで提示されている<script>タグ内の if (sessionStorage.getItem('access')) {のaccessはどこから来るものでしょうか? CSSやHTMLにclass名accessが見当たらないです。 回答よろしくお願いいたします。 https://web-creates.com/code/jquery-loading-sessionstorage/
質問日時: 2023/07/03 18:29 質問者: hayosato カテゴリ: JavaScript
ベストアンサー
3
0
-
画像横の余白をなくしたいんですけどどうすればいいですか?よろしくお願いします。 margin pad
画像横の余白をなくしたいんですけどどうすればいいですか?よろしくお願いします。 margin paddingのrightは、設定してないです。
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
Excelのマクロについて教えてください。 PDFファイル名をマクロを実行してセル値をファイル名に変更できますが、 変更するファイルがある場所を指定するダイナログが開きますが、 そのダイナログの先を変更出来る方法を詳しいコードで教えてください。 現状ではダイナログを開くと違うフォルダを指定しておりますので、 マクロが設定しているExcelファイルとファイル名を変更したいファイルは同じフォルダ内にありますので、このフォルダを指定する方法を教えてください。「ThisWorkbook.Path」 マクロ Sub 交付用名前変更() Dim TargetFile As String Dim fPath As String, fName As String Dim newfName As String newfName = ThisWorkbook.Sheets("青紙表").Range("CH2").Value & ".pdf" newfName = NGNarrowToWide(newfName) TargetFile = Application.GetOpenFilename("PDFファイル ,*.pdf") If TargetFile = "False" Then Exit Sub fPath = Left(TargetFile, InStrRev(TargetFile, "\") - 1) ' ファイル名を変更 If TargetFile = fPath & "\" & newfName Then MsgBox "同名ファイルを選択しています": Exit Sub If Not Dir(fPath & "\" & newfName) <> "" Then Name TargetFile As fPath & "\" & newfName Else Dim rc As Integer rc = MsgBox("既に存在する名前です" & vbCrLf & _ "はいを押すと既存ファイルは削除され" & vbCrLf & _ "リネームファイルに置き換えられます", 52, "置き換え確認") If rc = vbYes Then Application.DisplayAlerts = False Kill fPath & "\" & newfName Name TargetFile As fPath & "\" & newfName Application.DisplayAlerts = True Else MsgBox "処理を中止しました" End If End If End Sub Public Function NGNarrowToWide(ByVal stg As String) As String stg = Replace(Replace(Replace(Replace(stg, "\", "¥"), "/", "/"), ":", ":"), "*", "*") stg = Replace(Replace(Replace(Replace(stg, "?", "?"), "<", "<"), ">", ">"), "|", "|") stg = Replace(stg, """", Chr(&H8168)) NGNarrowToWide = stg End Function です。 よろしくお願いいたします。
質問日時: 2023/07/03 09:11 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
Pythonのコードをexe化
現在、Pythonを使用し下記コードを実行しているのですが、Pythonで実行をすると正しく動くのですが、exe化するとはじめの1回目が正しく動作しません。おそらくchromeのwebドライバーのダウンロードの部分の動作がちゃんと出来ていないのではないかと思いますが、exe化した時にも1回目から動くようにするにはどのようなコードに書き直せばよろしいでしょうか? ど素人ながらの予測では、Pythonだと自動で現在の自分のPCにインストールされているchromeにあったwebドライバーがインストールされ、コードが正しく動作している。 exe化すると、その部分が正しく動作していない、と予想しております。 Pythonで一度実行してから、再度exeの方を実行すると動作する。 ご教示願います(コードは一部隠しております。) from selenium import webdriver from selenium.webdriver.support.ui import Select from webdriver_manager.chrome import ChromeDriverManager from time import sleep import subprocess import os import shutil import glob browser = webdriver.Chrome(ChromeDriverManager().install()) browser.implicitly_wait(10) url = "【隠しております】" browser.get(url) browser.implicitly_wait(20) overview = browser.find_element_by_id("SelDep") select = Select(overview) select.select_by_index(5) sleep(0.5) overview = browser.find_element_by_id("SelOgnzDV") select = Select(overview) select.select_by_index(1) sleep(0.5) overview = browser.find_element_by_id("SelOgnzCD") overview.send_keys("711:FL") sleep(0.5) overview = browser.find_element_by_id("btn_ver3") overview.click() browser.implicitly_wait(20) overview = browser.find_element_by_name("submitbutton") overview.click() sleep(2) browser.quit() path = r"【隠しております】" subprocess.Popen(['explorer', path], shell=True) list_of_files = glob.glob('【隠しております】') latest_file = max(list_of_files, key=os.path.getctime) shutil.copyfile(latest_file, "【隠しております】")
ベストアンサー
1
0
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
-
投資詐欺の手口や被害に遭わないためのポイント、被害後の対応策を弁護士が解説
新NISAが始まって間もなく半年が経過する。政府の旗振りの元、預貯金大国から脱却し、資産運用立国に向けた滑り出しは順調のようで、それはNISAの利用状況(2023年4月から2024年4月)を見ても明らかだ。 ・NISA口座...
-
メダロット:第247話「Vol.247※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAコードについて教えて...
-
マクロの記録を使用したマクロの実...
-
c言語のリダイレクトによる円の描...
-
{ CONTROL Forms.Label.1}が消えない
-
VBAでCOPYを繰り返すと、処理が途中...
-
{ CONTROL Forms.Label.1}が表示...
-
【BAT(バッチ)ファイル】Webペー...
-
複素関数はどこはあんまりやらなく...
-
1、Rstudioで回帰直線を求めるため...
-
htmlの文字が縦書きになる
-
Version Control on Unity
-
vbaにてseleniumを使用したedgeスク...
-
0 == False はいいけど
-
プログラム言語について c言語もコ...
-
【ExcelVBA】インデックスが有効範...
-
VBSでテキストファイルの2行目から...
-
VBの色を変えるにはどうしたらいい...
-
ユーザーフォームに別シートからデ...
-
テキストファイルの1行目のみを削除...
-
バッチファイルで以下のようなもの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
vba クリップボードクリアについて...
-
ビーリアルのユーザー名を変えたい...
-
AIの登場でプログラマーたちが解雇...
-
Linux Cプログラミングを学ぶための...
-
onedrive にexcelファイルをアップ...
-
エクセルで集計したい。
-
VBAで大量のファイルをシート名ごと...
-
右ビットシフト
-
XMLを作成してもタグしか表示されない
-
プログラミングについて。 1つのル...
-
プログラミングのPythonのnotebook...
-
エクセルに張り付けた写真のファイ...
-
応用情報技術者試験の令和元年秋、...
-
ImageMagickでgif画像の一部が切れ...
-
過剰なオブジェクト指向脳からの脱...
-
プログラム言語について。
-
VBAでパワーシェルを実行したいので...
-
配列にnullを代入すると、nullが文...
-
VBA レジストリの値の読み方につい...
おすすめ情報