回答数
気になる
-
wordのマクロで思うように行きません(ファイル削除ができない)
wordの差し込み印刷で、PDFファイルで保存するマクロを作成したのですが、 保存先の「出力」フォルダーに、PDFファイルとワードファイルが作成されます。 不要なワードファイルを削除しようと、 Kill myMainDoc.Path & "\" & "出力\" & myFileName & ".docx" を入れているのですが、ワードファイルが削除できません。 なぜでしょうか? ------------------ Sub 差し込み印刷_レコード毎に別ファイルで保存() Dim myMainDoc As Document: Set myMainDoc = ActiveDocument With myMainDoc.MailMerge '------------------------------------------- 'ファイル名の指定 '------------------------------------------- Dim myFieldName As String myFieldName = "出力ファイル名" If IsValidFieldName(.DataSource.FieldNames, myFieldName) = False Then MsgBox "フィールド名が間違っています", vbExclamation Exit Sub End If '------------------------------------------- '差し込み印刷の設定 '------------------------------------------- '新規文書に書き出す .Destination = wdSendToNewDocument '空白の差し込みフィールドを印刷しない .SuppressBlankLines = True '------------------------------------------- '本処理 '------------------------------------------- Dim i As Integer 'レコード番号 Dim iMax As Integer '対象となる最終レコード番号(レコード数ではない) .DataSource.ActiveRecord = wdLastRecord iMax = .DataSource.ActiveRecord Dim j As Integer: j = 0 '作成したファイルの通し番号 For i = 1 To iMax '全レコードを対象にループ処理 'レコードの指定(1つのレコードに限定) With .DataSource .FirstRecord = i .LastRecord = i .ActiveRecord = i End With On Error Resume Next .Execute If Err = 0 Then '------------------------------------------- 'レコードが対象として選択されている場合:差し込み印刷を実行 '------------------------------------------- j = j + 1 Dim myFileName As String: myFileName = .DataSource.DataFields(myFieldName).Value If myFileName = "" Then myFileName = "★" & myFieldName & ":不明★" myFileName = myFileName 'ファイル名:通し番号+指定したフィールドの値 '新規文書に名前をつけてdocx形式で保存 Dim myNewDoc As Document: Set myNewDoc = ActiveDocument myNewDoc.SaveAs FileName:=myMainDoc.Path & "\" & "出力\" & myFileName & ".docx", _ FileFormat:=wdFormatXMLDocument, _ AddToRecentFiles:=False Dim myFilePath As String '保存先のフォルダパス Dim myDoc As Document Dim intPos As Integer 'ピリオドの位置 Set myDoc = ActiveDocument '拡張子のない名称を取得 myFileName = myDoc.Name intPos = InStrRev(myFileName, ".") myFileName = Left(myFileName, intPos - 1) 'PDFファイルで保存 myFilePath = myMainDoc.Path 'Wordファイルと同じフォルダ myDoc.ExportAsFixedFormat _ OutputFileName:=myFilePath & "\" & "出力\" & myFileName & ".pdf", _ ExportFormat:=wdExportFormatPDF Kill myMainDoc.Path & "\" & "出力\" & myFileName & ".docx" Set myDoc = Nothing myNewDoc.Close DoEvents Set myNewDoc = Nothing Else '------------------------------------------- 'レコードが対象として選択されていない場合:エラー発生 '------------------------------------------- Err.Clear End If Next i End With Set myMainDoc = Nothing End Sub Function IsValidFieldName(myFieldNames As Object, myFieldName As String) As Boolean IsValidFieldName = False Dim myName As Object For Each myName In myFieldNames If myName.Name = myFieldName Then IsValidFieldName = True Exit For End If Next End Function
質問日時: 2023/09/12 08:34 質問者: Ninjya2436 カテゴリ: Visual Basic(VBA)
解決済
3
0
-
ホリエモン ひろゆきはプログラマーになればお金が儲かると言いますが嘘で? IT土方というのは正しい
ホリエモン ひろゆきはプログラマーになればお金が儲かると言いますが嘘ですよね IT土方というのは正しいですか 自分の弟は工場の中でプログラマーをやっていましたが むちゃくちゃ忙しいのに手取りで14万くらいだったと思います 20年くらい昔の話ですが プログラマーの嘘について教えてください 弟が言っていましたが現在はプログラムというのは ネットにコードというのがあって ある面素人でもできる みたいなことを言っていましたが本当ですか コードって関数みたいなものなんですか 素人なので分かりません 簡単に教えてください ____________ バードの回答 ホリエモンこと堀江貴文氏は、プログラマーはお金が儲かる職業だと言っていますが、それは一概に正しいとは言えません。 確かに、プログラマーの平均年収は高く、2022年の調査では、大卒の初任給は約330万円、経験者になると約500万円とされています。また、スキルや経験を積んで、独立や起業に成功すれば、億単位の年収を稼ぐことも可能です。 しかし、プログラマーは下流工程にあたる部分が多いため、年収が低くなりやすいという側面もあります。また、多重請負の構造になっている場合、元請け企業との間に挟まれた企業の数が多ければ多いほど交渉力が低くなり、単価が下がる傾向があります。 そのため、プログラマーとしてお金を稼ぐためには、以下の2点が重要になります。 * スキルや経験を積んで、上流工程に携われるようにする * 独立や起業などの、自分で稼ぐ仕組みを作る また、IT土方という言葉は、プログラマーの一部を指す言葉として使われることがありますが、必ずしも正しいとは言えません。 IT土方とは、下請けや派遣で働くプログラマーを指す言葉で、単純作業やルーチンワークを繰り返すことが多いため、低賃金で働いているというイメージがあります。 しかし、IT土方という言葉は、プログラマー全体を否定的に捉えた言葉であるため、注意が必要です。 プログラマーとしてお金を稼ぐには、スキルや経験を積んで、上流工程に携われるようにすることが重要です。また、独立や起業などの、自分で稼ぐ仕組みを作ることも有効です。
質問日時: 2023/09/12 01:29 質問者: necotarou2222 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
5
0
-
CSSで謎の現象
お世話になっております。 ワードプレスのcocoonテーマでWEBサイトを作成しています。 テーマのデフォルトではヘッダーロゴが中央寄せになっています。 ヘッダーロゴを左寄せにしたかったので以下のコードを追加CSSに記述して左寄せにしていました。 /*ヘッダーロゴ左寄せ*/ .logo{ text-align:left; } しかし、1ヶ月くらい経過してからやはり中央寄せが良いと思い、上記を削除しました。 ところが、ヘッダーロゴは左寄せのまま戻らないんです。 四苦八苦していたところ、ある発見をしました。 削除する前の元々の記述があった位置に「.」を記述すると中央寄せになるんです。 この「.」はもともとあった場所に記述しないとダメなんです。 違う位置に記述しても左寄せのままです。 「.」を記述しなくても中央寄せに戻したいのです。 「.」だけというのは気持ち悪いので。 この現象がわかる方、解決できる方がいましたらお願いいたします。
ベストアンサー
1
0
-
Vba ユーザ定義関数について教えてください
いつもお世話になります ユーザ定義関数は使ったことないので教えてください 今、他人がプログラムの修正に取り組んでいます 二つのシートにユーザ定義関数があり、 Application.Volatileを定義して自動再計算関数にしています さらに下記のような定義も行っています Dim targetCell As Range, sht As Worksheet Set targetCell = Application.Caller '...2個のシートのマクロを計算する Set sht = targetCell.Parent '...それぞれのマクロのシート名 さて、ユーザ定義関数は各シートのセル上で =@calc_myu_x(I39,J39) として使われているのですが、この@マークの意味が分かりません Webでいろいろ調べましたがどこにも出ていないのですが 何か意味が有るのでしょうか? 分かりましたら教えてください 以上、宜しくお願い申し上げます
質問日時: 2023/09/11 11:22 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
Eclipse 動的プロジェクトで404エラーが治りません
スッキリわかるサーブレットのテキストで動的プロジェクト作っているのですが、コードもちゃんと見直したし、ファイルの配置もちゃんとしてます。ネットに上がっている解決策で試してみても全然表示されないです。eclipseのverは2023です。eclipse削除して入れなおしても変わりません。もうどうしていいかわかりません。どなたか解決法教えていただけると幸いです。よろしくお願いいたします。
解決済
2
0
-
C言語について。
①charTableの要素番号0似英文字Aをセットする。と、②文字型変数abcにcharTableの要素番号19の内容をセットする。この2つの違いは何でしょうか?教えて頂けると幸いです。
質問日時: 2023/09/10 18:44 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
10
0
-
パイソン、データーサイエンス。辞書で2つ囲むのはなぜですか。[[ ]]
join_data[["payment_date","payment_month"]].head() というのうがあるのですが、辞書で2つ囲んでいるのはなぜですか。[[ ]]
解決済
2
0
-
SFTPなどは使わないホームページやプログラムファイルの公開方法
お詳しい方、特に仕事で実際に利用されている方にお伺いしたです。 現在ではWEBの制作物、ホームページのデータやプログラムシステムなどの本番環境へのアップロードはどのように行われるのが一般的なのでしょうか? SFTPなどの利用は皆無とお伺いしました。 その場合2つお伺いしたいです。 1)フレームワークなどを利用したり、大きめのサイト?などのデプロイは具体的にどういった手順で、どういったものを利用して行いますか?ローカルからGIT、GITから本番のサーバーへ…、等環境や手法についても具体的にお伺いできればと思います。 2)Wordpressや自前のスクリプト一式など、比較的小規模なサイトの公開の場合のデプロイ?公開手順についてもお伺いしたです。 SFTPを使わないとなると、その都度scpなどのコマンドで転送するのかな?と考えたりもしますが、サーバーによってはSSHの設定など少々面倒なサーバーもあり、そんな場合にはSFTPからの転送が手軽で楽なイメージがあるのですが、どうなのでしょうか? その他の方法が分からないので何とも考えが広がらないのですが…。 お詳しい方、宜しくお願いいたします。
質問日時: 2023/09/10 11:53 質問者: apple_mango カテゴリ: PHP
解決済
2
0
-
PowerAutomateDesktopでOutlookを自動送信せず画面を立ち上げる方法を教えて
PowerAutomateDesktop(PAD)でOutlookを自動送信せず画面を立ち上げる方法を教えて下さい。 PADのアクション「Outlookからのメールメッセージの送信」を使用すると自動送信まで全て自動化されてしまうのですが、私がしたいのはメール画面が表示されている状態にしておきたいのです。 「件名」「本文」は自動書き込みで良いのですが、「宛先」は空欄のまま画面を立ち上げたいのです。その後自分で「宛先」を入力し、自分で「送信」したいのです。この方法を教えて下さい。
質問日時: 2023/09/09 10:41 質問者: ニックネーム船長 カテゴリ: その他(プログラミング・Web制作)
解決済
2
0
-
サクラエディタ・マクロ → VSCode・マクロに変更
サクラエディタのマクロをVSCodeのマクロに変更する必要が出たのですが、全く知識がなく悩んでいます。 もとのサクラエディタでのマクロは以下の内容なのですが、その内容する分からず困っています。ネットで勉強中ですが、どなたか以下についてご教授して頂ける方がいたらお願いします。 1.マクロ内容の意味(以下の01~09行の意味) 2.VSCodeのマクロにしたら、どう変わるのか ~マクロ(サクラエディタ)の中身~ 01.S_ReplaceAll('("email":".+?")', '\\r\\n\\1', 28); 02.S_ReplaceAll('^(?!").*$', '', 28); 03.S_ReplaceAll('("email":".+?").*', '\1', 28); 04.S_ReplaceAll('"email":"', '', 28); 05.S_ReplaceAll('noreply@xxx.com', '', 28); 06.S_ReplaceAll('"', '', 28); 07.S_ReplaceAll('^\n', '', 28); 08.S_ReplaceAll('^\r\n', '', 28); 09.S_ReDraw(0);
質問日時: 2023/09/09 07:52 質問者: ふじのり カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
jQuery . プログラミング 助けて下さい 変数「$displayslide」からactiveク
jQuery . プログラミング 助けて下さい 変数「$displayslide」からactiveクラスを 取り除く理由がわかりません。 画像をご確認ください(progateのjQuery講座、上級編です) 「次へ」を押すと次の画像へ、「前へ」を押すと前の画像にいくスライドを作成しています。 4枚の画像があり、番号を押すとその番号の画像に切り替わります。 また、[次へ」[前へ」を押すことで、前後の画像が表示されます。 はじめに、 全画像に「display:none」のcssを使って 非表示にしておきます。 表示したい画像に「display:block」を含んだ「.active」クラスを移動させることで、選んだ画像のみを表示しています。 ここで質問です。 選んだ画像にactiveクラスが移動して、そのactiveクラスを 変数$displayslideに代入しています。 displayslideからactiveクラスを取り除いたら、空っぽの変数になるはずなのに、その後のコードで、nextとprevを使って上手にdisplayslideを使える理由がわかりません。 displayslideは、activeクラスを取り除かれたとしても、かつてactiveクラスがあった場所のことを記憶しているのですか?→それ故に「次へ」を押したときに、今表示されている画像、つまりactiveクラスを持っている画像の次の画像にactiveが移動して表示されてくれるのでしょうか? ちなみに、変数$displayslideからactiveクラスを取り除くコードを消去すると、「次へ」のボタンを押したときに1番目の2番目の画像が両方出ます。3番の画像が表示された状態で「次へ」を押すと、3番と4番の画像が両方表示されてしまいます。 ここでは、4枚目の画像が表示されているときに[次へ」を押すと何も表示されなくなり、1枚目の画像が表示されているときに「前へ」を押しても、同じく何も表示されなくなりますが、ここでは考えないものとしてください。 写真のコードは正しいコードです。
質問日時: 2023/09/08 23:07 質問者: エビフライとたぬき カテゴリ: JavaScript
ベストアンサー
2
0
-
CSS初心者です。わかる方教えてください。
画像の左上の背景色(plum-親要素)に重なるように、同位置で子要素の画像(xxx.png)を同高さ左詰め中央で配置したいのですが、表示できません。原因と対処法がしりたいです。htmlに<img src=xxx は避けたいです。 よろしくお願いいたします。 html <!doctype html> <html lang="ja"> <head> <meta charset="UTF-8"> 省略 <title>ホームページ</title> <link rel="stylesheet" href="cssA/styleA.css"> </head> <body> <div class="wrapper" > <header class="container"> <div class="header-left">h-left <div id="image1">image1</div> </div> <div class="header-center">h-center</div> <div class="header-right">h-right</div> </header> <div class="main">main</div> <footer class="footer">footer</footer> </div> </body> </html> CSS @charset "utf-8"; /*全体の設定 ---------------------------------------------------------------------------*/ .wrapper { max-width: 1200px; margin: 0 auto; } header { background: tomato; opacity: 0.7; max-width: 1200px; height: 150px; margin-left: auto; margin-right: auto; } .container { display:flex; flex-direction: row; align-items: center; flex-wrap: nowrap; } .header-left{ height: 150px; width: 40%; background:plum; position: relative; } .header-center{ margin-left: auto; margin-right: auto; height: 150px; width: 40%; background:gold; } .header-right{ margin-left: auto; margin-right: auto; display:flex; height: 150px; width: 20%; background:lime; } header-left #image1{ position:absolute; top:0; bottom:0; margin:auto; background-image:url("../images/xxx.png"); background-position:center; background-size: contain; background-repeat: no-repeat; } .main { margin: 0 auto; /* 外側の余白:上下 左右; auto で左右センタリング */ box-sizing: border-box; /* 幅を padding も含めた幅にする */ max-width:1200px; background: blue; } footer { background:olive; }
ベストアンサー
3
0
-
Javaについての質問です。 コンパイルした後、 「java Sample」 で実行しようとしても出
Javaについての質問です。 コンパイルした後、 「java Sample」 で実行しようとしても出来なくて、 「java Sample.java」 で実行するとできるのですが... 何故でしょうか... 本当にワケわからないのでいつも.javaつけてやってますが、、、何故でしょう...?
質問日時: 2023/09/08 19:23 質問者: parurun0217 カテゴリ: Java
解決済
3
0
-
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Excel(office365)を使っている者です。 以下はクリップボードに値のみをコピーするコードですが,範囲内に空白行があった場合,クリップボードには余計な改行が入ってしまいます。 最後の余計な改行を消したいため,ネットで調べて,For Each ary In Selection~nextを入れたのですが,型が一致しないということでエラーになってしまいます。どうすれば余計な改行を削除できるか,ご教示願います。よろしくお願いいたします。 --------------------------------------------------------------------------- Sub 値のみコピー() Dim ary As Variant ary = Range("A10:J30").Value Dim myDO As New DataObject Dim i As Long, j As Long Dim strBuf As String For i = 1 To UBound(ary, 1) For j = 1 To UBound(ary, 2) strBuf = strBuf & ary(i, j) Next strBuf = strBuf & vbCrLf '改行コードを付加 For Each ary In Selection If Len(ary.Value) > 0 Then Do While Right(ary.Value, 1) = vbLf ary.Value = Left(ary.Value, Len(ary.Value) - 1) Loop End If Next Next myDO.SetText strBuf myDO.PutInClipboard Set myDO = Nothing End Sub
質問日時: 2023/09/08 18:41 質問者: qazxcvfr4 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
1
-
Laravelなど、フレームワークを使うメリットについて教えてください。
フレームワークを利用したことが無く、現在laravelというPHPのフレームワークを学んでおりますが、なかな難しく、また、こういったフレームワークの利用意味についてもご教授頂けますと幸いです。 一応、ざっくりですが、phpやjavascriptなど学んでまいりました。 言語的には、基本はある意味共通する部分が多く、CやC#、Kotlinなどのコンパイラ系の言語も、型の設定やポインタなどがあるものの、共通点は多くプログラミング的には何とか浅い部分では理解できるのですが、フレームワークを使うとなると話が全く変わります。 これはAndroid StudioなどのIDEなどを理解すると同じ意識でよいのでしょうか?(そうなると非常に労力凄いですね、理解をするために…) 何と申しますか、今回ご質問をさせて頂きました主題、laravelの場合ですと、PHPを理解するという話は大前提で、laravelという、また別のものを理解しないといけないため、ある意味他の言語を習得する以上の労力が必要に感じます…。 話がそれてしまいましたが、お伺いしたいのが、今回のlaravelを用いたサイト構築についてなのですが、ログイン機能や掲示板など、諸々の「車輪の再発明」的なことが不要な場合には利用する価値は無いでしょうか? もしこういった↑の機能を必要とせずとも、何でもかんでも、laravel経由で作った方が良い等ご意見がありましたらその理由をお伺いしたいです。 というのも、メールフォーム1つでもあればlaravelで作る方が楽!といった記事を拝見し、確かに、バリデーションなど考慮するとそうなのかな?とも思ったりしましたが、小さいサイトでもlaravelを利用することが、管理するうえでも良いものなのか?または、そういった環境であれば、一長一短あるよ!など現場を知っている方のお声を頂けたらと思いまして質問をさせて頂きました。 上手く説明ができている気がしませんが、フレームワークの利用意義についてアドバイス頂けますと幸いです。
質問日時: 2023/09/07 22:32 質問者: 404not_found カテゴリ: PHP
解決済
3
0
-
【VBA】エクセルで値のみクリップボードにコピーするコードについて(貼り付け時の空白削除)
office365のExcelを使っている者です。 以前ここで,エクセルで選択した範囲の値のみをクリップボードにコピーする以下のコードを教えていただき,現在も使用しております。 適切に動いていると思いますが,一点気になることがあります。 クリップボードにコピーされたデータを貼り付けると,横方向のセルの区切り(エクセルをcsvにしたときのコンマ区切りに相当するもの)にスペースのような空白(以下「空白」)が入ってしまい、間延びした感じになってしまいます。 「空白が削除された状態でクリップボードにコピーされる」又は「クリップボードにコピーされたデータにつき空白が削除された状態にする」というコードにするには,どのようにしたら良いかご教示ください。 Sub 値のみコピー() Dim ary As Variant ary = Range("A10:J30").Value '選択範囲の値を一旦配列に格納 ' Dim myDO As New DataObject Dim myDO As Object Set myDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Dim i As Long, j As Long Dim strBuf As String For i = 1 To UBound(ary, 1) For j = 1 To UBound(ary, 2) strBuf = strBuf & ary(i, j) & vbTab Next strBuf = Left(strBuf, Len(strBuf) - 1) '右のタブコードを削除 strBuf = strBuf & vbCrLf '改行コードを付加 Next myDO.SetText strBuf myDO.PutInClipboard Set myDO = Nothing End Sub
質問日時: 2023/09/06 23:37 質問者: qazxcvfr4 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
1
-
R言語ユーザーに質問です! 統計解析において、多言語と比較した ①利点 ②欠点 を各々教えてください
R言語ユーザーに質問です! 統計解析において、多言語と比較した ①利点 ②欠点 を各々教えてください!
ベストアンサー
1
0
-
Pythonで質問です。 for文で所謂カウンタ制御型のループ処理をすると思いますが、二重ループって
Pythonで質問です。 for文で所謂カウンタ制御型のループ処理をすると思いますが、二重ループって組めないのでしょうか? 私はfortranの経験があるのですが、Pythonで同様の処理ができずに困っています。 ご教示の程、お願いいたします。
ベストアンサー
2
0
-
【JavaScript】検索がヒットした場合、プルダウンをオープンで表示させる方法
WEBページ内にFAQコーナーを作っています。 下記のようにプルダウン式で質問部分(Q.)のみを表示させ、回答部分(A.)は非表示にしているのですが ここに検索機能を掛け合わせて、Q.もしくはA.にヒットする文字列があった場合、 もとのFAQのレイアウトデザインを生かしたまま、ヒットする文字列のあるQ&Aのみを表示させるには どのような検索スクリプト、および「search-result」部分のコードを書けばよいのか教えていただけないでしょうか。 とりあえず、現状下記のように記述しているのですが、まずはサーチ機能が走りません。 (当方javaScriptは全然学んでおらず、いろいろなサイトからつぎはぎでコードを持ってきては繋げているので、いらないものが残り、必要なものが欠けている頓珍漢なコードなんだろうと思います 汗) <style> /*-------- search box ----------*/ .search-area input[type="text"] { padding: 5px 5px 3px; font-size: 16px; border: 1px solid #D6D6D6; } .search-area input[type="text"]:focus { background: #F9F9F9; } .hit-num__text span { font-weight: bold; } #search-result__list { } #search-result__list span { display: inline-block; margin-right: 15px; padding: 5px; background: #F2F2F2; } .target-area .hidden, { display: none; } /*-------- FAQ アコーディオンメニュー --------*/ .tble_FAQ { margin: 30px auto; counter-reset: numFaq; } .FAQ_body + .FAQ_title { margin-top: 5px; } .FAQ_btn { position: relative; display: block; width: 100%; padding: 10px 60px 10px 15px; text-align: left; background-color: #8f7e68; color: #fff; font-size: 16px; border: 2px solid #8f7e68; cursor: pointer; transition: .25s; } .FAQ_btn:before { display: inline-block; float: left; margin: 0 10px 10px 0; width: 30px; background: tan; padding: 3px; text-align: center; line-height: 30px; font-size: 18px; font-family: sans-serif; color: white; font-weight: 800; counter-increment: numFaq; content: "Q" counter(numFaq) "."; } .FAQ_btn:after { content: '+'; position: absolute; display: block; top: 10px; right: 24px; font-size: 24px; font-family: sans-serif; font-weight: 1200; line-height: 30px; } .FAQ_btn:focus, .FAQ_btn:hover { background-color: #fff; color: #8f7e68; } .FAQ_btn--active::after { content: none; } .FAQ_body { display: none; padding: 14px; border: 1px solid #ddd; } .FAQ_body > *:last-child { margin-bottom: 0; } .FAQ_body--active { display: block; } .FAQ_text { margin-bottom: 20px; font-size: 1.6rem; } </style> <!--検索窓--> <div class="search-area"> <form onsubmit="return false;"> <input type="text" id="search-text" placeholder="検索ワードを入力"> </form> <div class="search-result"> <div class="search-result__hit-num"></div> <div id="search-result__list"></div> </div> </div> <!--検索窓のスクリプト--> <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script> <script src="https://cdnjs.cloudflare.com/ajax/libs/jquery-easing/1.3/jquery.easing.min.js"></script> <script> // 検索ボックス $(function () { searchWord = function(){ var searchText = $(this).val(), // 検索ボックスに入力された値 targetText; $('.target-area td,dd').each(function() { targetText = $(this).text(); // 検索対象となるリストに入力された文字列が存在するかどうかを判断 if (targetText.indexOf(searchText) != -1) { $(this).removeClass('hidden'); } else { $(this).addClass('hidden'); } }); }; // searchWordの実行 $('#search-text').on('input', searchWord); }); <script>//FAQプルダウンのscript $(document).ready(function () { $(".FAQ_btn").on("click", function(){ $(this).toggleClass("FAQ_btn--active"); $(this).parent("dt").next().toggleClass("FAQ_body--active"); }); }); </script> <div class="target-area tble_FAQ "> <dl> <dt class="FAQ_title"> <button class="FAQ_btn" type="button">あなたの好きな果物は</button> </dt> <dd class="FAQ_body"> <p class="FAQ_text"> リンゴとバナナ </p> </dd> <dt class="FAQ_title"> <button class="FAQ_btn" type="button">あなたの好きな料理は</button> </dt> <dd class="FAQ_body"> <p class="FAQ_text"> リンゴパイ、ピザ、魚 </p> </dd> <dt class="FAQ_title"> <button class="FAQ_btn" type="button">あなたのペットはなんですか</button> </dt> <dd class="FAQ_body"> <p class="FAQ_text"> 金魚 </p> </dd> </dl> </div>
質問日時: 2023/09/06 14:02 質問者: あさこす カテゴリ: JavaScript
ベストアンサー
2
0
-
VBA 毎日取得するデータを反映させる方法 の応用
先日こちらで質問してすごくぴったりなVBA構文を教えていただきました! で、またもや問題が出てきました。 教えてもらってばかりで申し訳ないのですが、教えてください。 先日いただいた回答は Sub CSV入力1() Dim varFileName As Variant Dim intFree As Integer Dim strRec As String Dim strSplit() As String Dim i As Long, j As Long Dim maxrow As Long Dim wrow As Long varFileName = Application.GetOpenFilename(FileFilter:="CSV〇〇店売上日計(*.csv),*.csv", _ Title:="CSVファイルの選択") If varFileName = False Then Exit Sub End If maxrow = Cells(Rows.Count, "A").End(xlUp).Row '最終行取得 wrow = maxrow + 1 '書き込み開始行 intFree = FreeFile '空番号を取得 Open varFileName For Input As #intFree 'CSVファィルをオープン i = 0 Do Until EOF(intFree) Line Input #intFree, strRec '1行読み込み i = i + 1 '最初の1~14行はスキップする。15行以降を処理する If i > 14 Then strSplit = Split(strRec, ",") 'カンマ区切りで配列へ For j = 0 To UBound(strSplit) Cells(wrow, j + 1) = strSplit(j) Next wrow = wrow + 1 End If Loop Close #intFree End Sub 毎日送られてくるデータをコツコツ取得する分には十分なのですが、 例えば月曜日のデータを取得するのを忘れて火曜日に取得しようとするとできないようです。 (うちの会社が本社は日曜日が休みですが、営業所は日曜日開いているので、どうしても日曜のデータは月曜に取り込むことになります) 指定したファイルを順番に取得してけるような構文などありましたら教えてもらいたいです。どうぞよろしくお願いいたします。
質問日時: 2023/09/05 16:32 質問者: KYAC カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
xlsmファイルで、別名ファイルを保存する方法
Sub ファイル保存() 保存場所 = ActiveWorkbook.Path & "\" Application.DisplayAlerts = False Thisworkbook.SaveAs 保存場所 & "あたらしいファイル名称" & ".xlsm" End Sub このマクロを実行すると、マクロを含むファイルの名前が、あたらしいファイル名称という名前になってしまいます。 やりたいのは、マクロを含むファイルはそのままの名前で、あたらしいファイル名称.xlsm というファイルを作成することです。 どうすればよいか教えてください。
質問日時: 2023/09/04 21:25 質問者: Ninjya2436 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
Vba Windows上で開いているファイル名を取得したい
いつもお世話になります 今、廉価版のCadソフトをコントロールしたのですが、このソフト 立ち上げるとキーにな反応しないというか、どこかをクリックしないと うまくコントールしません 使う前にメッセージを出してどこかをクリックしてもらえれば問題ないのですが AppActivateで使うキャプション名もWebを参考に取得できるようにしましたが このプログラムは出来ませきゃぷちおんめいぷちおんめい キャプション名、"ARES Standard 2024”にしかならずエラーになります ちなみにキャプション名は 新規ファイルは、"ARES Standard 2024 - [NONAME_0.dwg]" 既存ファイルは、”ARES Standard 2024 - [C:/temp/F1階 D中間スラブ 抵抗モーメント図.dwg]" が正解です なんとかキャプション名が分かればコントロール出来るのです! (クラス名は分かっています) ShowWindowやSetForegroundWindowも使ってみましたが 立ち上げりのウインドウハンドルは目的ではないウインドウハンドルを持ってきて 真っ白な画面になってしまいます どこかクリックして動かせば正常なのですが、ファイル名(NONAMEも含めて)さえ分かれば この手間をなくせます そこで現在Windows上で開いているファイル名を拾え無いかと相談に伺いました ちょっと分かりづらい文章になってしまいました、分かりましたら是非教えてください 特定なオペレーションでのプログラムであれば「こうしなさい」で終わるのですが 不特定多数の人がどうのように使ってもある程度は許容出来るソフトを目指していますので どうかよろしくお願い申し上げます
質問日時: 2023/09/04 18:24 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
教えて下さい!VBAで複数Excelを1つのブックにまとめたいです。
はじめまして。VBA初心者のため、お知恵を貸してください。 1つのフォルダの中に、いちご10月、いちご11月、みかん9月、なし8月、、という形で、月別のフルーツの売り上げデータが複数あります。 このExcelを、フルーツ別に1つのブックにまとめたいのですが、どのようなマクロにすればよいでしょうか。→例 いちご売上高 というExcelに、10月、11月というシートがついているイメージ 1、まとめたエクセルには、フルーツ名と売上高(例 いちご売上高.xlsx)というファイル名にしたいです。 2、月別のExcelに、シートは1つだけです。(月がシート名。例 10月) 3、フルーツによって、売上がない月もあります。 Excelの数が多く、手作業に時間がかかってしまうので マクロでの作業に変更したいです。 よろしくお願いします。。
質問日時: 2023/09/04 09:30 質問者: kappasan4646 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
Javaって使いますか、もう古いですか?C++とどっちがいいですか?分析でC++使う授業ありましたけ
Javaって使いますか、もう古いですか?C++とどっちがいいですか?分析でC++使う授業ありましたけど取りませんでした。
質問日時: 2023/09/03 22:01 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
解決済
5
1
-
基本情報技術者の擬似言語プログラム このプログラムの答えは(ウ)です。でも配列に格納されてる順番が良
基本情報技術者の擬似言語プログラム このプログラムの答えは(ウ)です。でも配列に格納されてる順番が良く分からなくて困ってます。 教えて頂けるととてもありがたいです。 array に 後ろから格納されて行く事が分かります。 例えばグラフ3の自分を始点となる辺が1つもない頂点 E を最初に選んだとすると,プログラムの9行目で array [グラフの項点の数ーcount+1]← curr.label を実行すると, array[6ー1+1]←E を代入することになりますが,そうすると array[4]←E になりますので 出力結果と異なります。 なぜでしょうか 分かる方がいたらよろしくお願いします。
質問日時: 2023/09/03 09:48 質問者: サノくん カテゴリ: Visual Basic(VBA)
解決済
2
1
-
入力した文字を全て自動で全角にしてくれるコード
エクセルで「指定した行」に「入力した文字」を『自動的に全角になる』ようにするVBAコードを教えて下さい 入力した文字:全ての文字(漢字、ひらがな、カタカナ、記号、英数字) 指定した行:B列全体 B列のどのセルにおいても、画像1-カ-Aをと入力したら入力したセルに「画像1-カ-A」と全て全角に変換されて入力されるようにしたいです。 行いたいシートの名前を右クリックしてコードの表示 左側の一覧から行いたいシートをダブルクリック コードをコピペ でよいのですか? VBAは覚えて多少なりとも使えるように理解できれば便利でしょうが、 難しくてなかなか理解できません。
質問日時: 2023/09/03 07:16 質問者: satopower カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
Javaのbronzeの資格試験を受けようと思っているのですが、試験時間短くないですか? コードを読
Javaのbronzeの資格試験を受けようと思っているのですが、試験時間短くないですか? コードを読まないといけない中で、60問を65分は短いと思います。 何かコツがあれば教えていただきたいです。
ベストアンサー
1
0
-
離れた複数のセルのどこかに文字が入った場合に、⚫が表示されるようにしたいです
資格の有無と有効期限管理をするにあたり、 有効期限を入力すると、資格の有無を表すセルに●が表示されるように設定したいです。 現状、A1(←資格の有無を表示するセル)には =IF(DG17<>"","●","") と入力しうまく反映できていますが(←DG17は有効期限を入れるセル) とある資格は細かい分類があるため有効期限を入力するセルが複数存在します。 例えば、BE17に●を表示させたいのですが 有効期限を入力するセルは FV17・FZ17・GD17 の3か所に点在しています。 このいずれかに有効期限をいれた場合、●がつくようにしたいのです。 このような場合に使用できる数式はありますでしょうか。 よろしくお願いいたします。
質問日時: 2023/09/01 11:06 質問者: ちきぽん カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
アルファベットに付いて質問します。 小文字のエル【l】と大文字のアイ【I】の区別ができません。写真の
アルファベットに付いて質問します。 小文字のエル【l】と大文字のアイ【I】の区別ができません。写真の本人確認コード【I】です。何方か教えて頂けませんか。 宜しくお願いします。
解決済
3
1
-
JavascriptでXSSの脆弱性への対策を行いたい
JavascriptのXSS対策として以前アドバイス頂いたようにinnerHTMLでHTMLのエスケープ処理コードを書いてみたのですが、正しいのか分かりませんアドバイスお願い致します。 Document.createTextNodeを代用する方法もアドバイス頂いたので考えてみたのですが、使い方が難しく既存のHTMLにあっているのか心配です… ※アドバイス頂いた質問 https://oshiete.goo.ne.jp/qa/13578040.html ※名前HTML <div class="msg_partial">あと<strong>50</strong>文字</div> ※コメントHTML <div class="msg_partial">あと<strong>500</strong>文字</div> ※該当コード <h2>名前<span class="required">※必須</span></h2> <input class="length_input" data-maxlength="<?php echo MAX_LENGTH::NAME; ?>" type="text" name="namae" id="name" placeholder="未入力の場合は、匿名で表示されます" value="<?php echo $namae; ?>"> <div class="msg_partial"></div> <h2>コメント<span class="required">※必須</span></h2> <textarea class="length_input" data-maxlength="<?php echo MAX_LENGTH::MESSAGE; ?>" name="message" id="message" placeholder="荒らし行為や誹謗中傷や著作権の侵害はご遠慮ください"><?php echo $message; ?></textarea> <div class="msg_partial"></div> ※エスケープ処理を追加 function lengthCheck() { const left = this.dataset.maxlength - this.value.length; if (left >= 0) { const a = document.querySelectorAll('msg_partial'); return a.innerHTML; this.nextElementSibling.innerHTML = '<strong>' + escapeHTML(left) + '</strong>文字'; this.dataset.submit_disabled = this.value.length === 0; } else { const b = document.querySelectorAll('msg_partial'); return b.innerHTML; this.nextElementSibling.innerHTML = '<strong>' + escapeHTML(-left) + '</strong>文字超過しています'; this.dataset.submit_disabled = true; } _________________________________________________________ ※Document.createTextNodeを利用したもの <script> function lengthCheck(text) { const newtext = document.createTextNode(text); msg_partial = document.querySelectorAll("msg_partial"); const left = this.dataset.maxlength - this.value.length; if (left >= 0) { this.nextElementSibling.innerHTML = 'あと<strong>' + addTextNode('left') + '</strong>文字'; this.dataset.submit_disabled = this.value.length === 0; } else { this.nextElementSibling.innerHTML = '<strong>' + addTextNode('-left') + '</strong>文字超過しています'; this.dataset.submit_disabled = true; } msg_partial.appendChild(newtext); } </script>
質問日時: 2023/08/31 22:28 質問者: 初心者サイト作成 カテゴリ: JavaScript
解決済
2
0
-
独自ドメインのHPを編集するにはどうしたらいいでしょうか。
知恵をお貸しください。 ホームページ作成初心者です。 ロリポップでレンタルサーバーを借りています。 ドメインが二つあります。 1つはロリポップで作ったドメイン。 2つ目は独自ドメイン。 FTPを編集するとロリポップで作ったドメインのHPが編集されてしまいます。 独自ドメインのHPを編集するにはどうしたらいいでしょうか。
質問日時: 2023/08/31 20:26 質問者: ほうじ茶6499 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
テキストエディタvscodeでプログラミングしているのですが、 コメントアウトだけを折りたたむ、非表
テキストエディタvscodeでプログラミングしているのですが、 コメントアウトだけを折りたたむ、非表示にする機能はありませんか? vscodeでなくとも、上記の機能を持つテキストエディタがありましたらその方法を教えていただきたいです。
質問日時: 2023/08/31 11:27 質問者: yudit777 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
C言語などをマスターして、人生に何かメリットありますか???
C言語などをマスターして、人生に何かメリットありますか???
質問日時: 2023/08/30 23:22 質問者: 堺太郎丸 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
8
1
-
C言語について。
出力並びで、①出力並びでは、変換書式に従って出力する変数名を指定します。②出力並びで指定した変数の型と、変換書式での変換指示の型は一致していなければなりません。とはどういう事でしょうか?教えて頂けると幸いです。
質問日時: 2023/08/30 21:33 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
C言語について。
制御文字とは、改行のように画面の制御や、そのままでは直接表現できない文字の所をもう少し詳しく教えて頂けると幸いです。
質問日時: 2023/08/30 19:44 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
1
0
-
シートモジュールを複数作成することはできるのでしょうか?
全く詳しくないので上手く質問できるか分からないのですが… 1つのシートの中で、かつ、別のエリアで ダブルクリックで記号を表示させたいです。 ①AK6からCG6 間の行に対して、ダブルクリックで○が表示されるようにしたい。 ②AK17からCG500のすべてのセルに対して、ダブルクリックで⚫と◎が表示されるようにしたい 今自分なりに下記をコード?に入れてみたところ、②についてはクリアできたのですが①について追加できず困っています。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("AK17:CG500")) Is Nothing Then Exit Sub With Target Select Case .Value Case "" .Value = "●" Case "●" .Value = "◎" Case "◎" .Value = "" End Select End With End Sub ご教授いただけますでしょうか?
質問日時: 2023/08/30 18:48 質問者: ちきぽん カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
jcode->jfold で禁則処理
perlで日本語文字列を指定幅で折り返すツールを作りたく調べていたところ、Jcodeモジュールを使うのが良さそうであると考えました。 https://manpages.debian.org/testing/libjcode-pm-perl/Jcode::Nihongo.3pm.en.html ーーーーーーーーーーーーーーーーーーーー my $j = new Jcode($str); my @result = (); foreach my $buff ( $j->jfold($count) ){ push(@result, $buff); } ーーーーーーーーーーーーーーーーーーーー という感じで、良い感じに折り返してくれるのですが、このままでは禁則処理がされません。 上記URLのドキュメントによると「Perl 5.8.1以降は3番目の引数$krefにEUCの文字列の配列リファレンスを 渡すことで、簡易的な行頭禁則処理(ぶら下がり)を行えます。」とあるのですが、具体的に$krefをどのように指定すれば良いかわからず往生しています。 スクリプトの文字コードをeucで作成して、 my @k = ("。", "、"); $j->jfold($count,,\@k) などとやってもダメでした。 どのようにすれば、禁則処理を有効にできるでしょうか?
解決済
1
0
-
JavascriptでDOM-based XSSの発生源となるinnerHTMLを変更したい
参考サイトを見るとHTMLElement.innerHTMLは脆弱性があるようで対策が必要なようですが、コードをどのように変更すればよいか分かりません… アドバイスお願い致します。 ※参考サイト https://gihyo.jp/dev/serial/01/javascript-security/0006 <script> function lengthCheck() { const left = this.dataset.maxlength - this.value.length; if (left >= 0) { this.nextElementSibling.innerHTML = 'あと<strong>' + left + '</strong>文字'; this.dataset.submit_disabled = this.value.length === 0; } else { this.nextElementSibling.innerHTML = '<strong>' + -left + '</strong>文字超過しています'; this.dataset.submit_disabled = true; } let disabled = false; for (let i = 0; i < length_input.length; i++) { if (length_input[i].dataset.submit_disabled === "true") { disabled = true; } } submit_button.disabled = disabled; } /* カメラ画像をファイルアップロード時に非表示にする */ const attach = document.querySelectorAll('.attach'); const del = document.querySelectorAll('.attachdel'); const clear = document.querySelectorAll('.attachclear'); const viewer = document.querySelectorAll('.viewer'); const changeImg = document.querySelectorAll('.changeImg'); // 入力されたら消す画像 for (let i = 0; i < attach.length; i++) { attach[i].addEventListener('change', () => { if (attach[i].files[0].size > 15 * 1024 * 1024) { alert('ファイルサイズが 15MBバイトを超えています'); return; } del[i].value = ""; viewer[i].innerHTML = ""; if (attach[i].files.length !== 0) { const reader = new FileReader(); reader.readAsDataURL(attach[i].files[0]); } }); clear[i].addEventListener('click', () => { attach[i].value = ""; del[i].value = "1"; viewer[i].innerHTML = ""; changeImg[i].classList.remove('hideItems'); }); } </script>
質問日時: 2023/08/29 22:11 質問者: 初心者サイト作成 カテゴリ: JavaScript
ベストアンサー
2
0
-
合計数量から引いていく
vbaをネットで検索しながら作成しているのですが、うまくいかず困っています。 お助けいただけたら嬉しいです。 やりたいことは、Y列「複数ロットNo」が空白ではない場合、Q列の「合計数量」を分割していく。 言い換えると、同じ入荷NO(F列)のものを、予定使用数(Z列)に合わせて実際使用数(AA列)に分割していく。 ※添付図面の左から右にしたいです。右図に追加したものは、わかりやすく赤字にしてあります。 ①Y列が「1」の場合、Q列とZ列を比較する。Z列が大きければ、Q列の値をAA列に転記。 ②Y列が「1」で、Q列とZ列を比較してQ列が大きければ、Z列の値をAA列に転記する。 ③1行下がって、Y列が「2」のZ列と、1行上のY列が「1」の「Q列-Z列」を比較する。 Z列が大きければ、Y列が「1」の「Q列-Z列」を転記。 ④Z列が小さければ、Y列が「1」の「Q列-Z列」からY列が「2」のZ列を引く。 合計数量が0になるまで繰り返し。数が余った場合は、同じ入荷NOの最終列に加算。 IFを使用して、作成してみたのですがIFだらけになり非常にわかりにくくなってしまいました。 複数ロットNOは1~5まであり、3まで作成した段階で断念しました。 いい方法があれば、ご教示いただけると助かります。 ----------------------------------------------------------------- Dim m As Long Dim i As Long Dim wSG As Worksheet With wSG For i = 2 To lRowG If .Cells(i, "Y").Value <> "" Then If .Cells(i, "Y").Value = 1 Then If .Cells(i, "Z").Value <= .Cells(i, "Q").Value Then .Cells(i, "AA").Value = .Cells(i, "Z").Value m = .Cells(i, "Q").Value - .Cells(i, "Z").Value If .Cells(i, "H").Value = 2 Then .Cells(i + 1, "AA").Value = m ElseIf .Cells(i, "H").Value = 3 Then If .Cells(i + 1, "Z").Value <= m Then .Cells(i + 1, "AA").Value = .Cells(i + 1, "Z").Value .Cells(i + 2, "AA").Value = m - .Cells(i + 1, "AA").Value Else .Cells(i + 1, "AA").Value = m End If Else .Cells(i + 1, "AA").Value = m End If End If Else .Cells(i, "AA").Value = .Cells(i, "Q").Value End If End If End If Next i End With
質問日時: 2023/08/29 19:53 質問者: tatituteto7410 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
下記問題の答えが"D"になる意味がわかりません。 Cだと思ったのですが、違うのですか? なぜ、bがf
下記問題の答えが"D"になる意味がわかりません。 Cだと思ったのですが、違うのですか? なぜ、bがfalseに変換されるのでしょうか?
解決済
3
0
-
A2~I4179列にあるリストを支社名ごとにシートに分けたいです。 各シート名はA列にある支社名とし
A2~I4179列にあるリストを支社名ごとにシートに分けたいです。 各シート名はA列にある支社名としたい。 各シートごとに分けたリストにはリストの見出しをつけたい。 以下VBAコードで実施するとリストの見出しに該当するA2~I2が支社名シートとして1つのシートになり他のシートのリストに付与されないです。 どこを修正したら良いかご教示お願いします。 Sub SheetSeparation() Dim lastRow As Long Dim i As Long Dim sheetName As String ' シート名「元データ」にデータがある前提 sheetName = "元データ" ' 元データの最終行を取得 lastRow = Sheets(sheetName).Cells(Rows.Count, "A").End(xlUp).Row ' 支社名ごとにシートを作成 For i = 2 To lastRow ' B列の値を取得 Dim companyName As String companyName = Sheets(sheetName).Cells(i, "A").Value ' 支社名のシートが存在しなければ作成 If Not WorksheetExists(companyName) Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = companyName End If ' データをコピーしてシートに貼り付け Sheets(sheetName).Rows(i).Copy Destination:=Sheets(companyName).Cells(Rows.Count, "A").End(xlUp).Offset(1) Next i End Sub Function WorksheetExists(sheetName As String) As Boolean On Error Resume Next WorksheetExists = Not Sheets(sheetName) Is Nothing On Error GoTo 0 End Function
質問日時: 2023/08/29 16:46 質問者: HS83als カテゴリ: Visual Basic(VBA)
解決済
3
1
-
ホームページでCGIのフォームを動かそうとしています。・・・そこでのエラーです
[このフォームはセキュリティで保護されていません、オートフィルがオフになっています]のメッセージが出ます、教えてください、何が起こっているか・・・何をしでかしているか??
質問日時: 2023/08/26 22:45 質問者: kakagaga1245 カテゴリ: CGI
解決済
2
0
-
この曲はなんでしょう?
la-lalalala-lala-lalalala-lala-la-lalalala♪
解決済
4
0
-
VBA 毎日取得するデータを順番に反映していく方法
1週間程ずっと調べているのですがどうしてもわからず質問させていただきます。 システムから売上日計を集計するとCSVファイルとして出力されます。 ファイル名は20230826160630(西暦年月時分秒)_general_purpose.csvとなります。 そのファイルをエクセルに取込み、毎月の集計を行いたいのです。 例えば 集計するエクセルのSheet1(”データ”と名前を設定しています)に月曜日の日計を取り込むところまではできましたが、火曜日のCSVファイルを取り込もうとしたら月曜日の日計が上書きされてしまいます。 私としては、月曜日のデータの下の行に火曜日のデータ、水曜日のデータが取り込めたらいいなと思っています。 ちなみに売上日計ですので月曜日が10行分のデータだったり、火曜日は15行分のデータだったりします。 例)A1~A10は月曜日のデータが反映 A11~A25は火曜日のデータが反映 A26~A37は水曜日のデータが反映 ▽ ▽ ▽ 1か月分すべてSheet1(”データ”)に反映 わかりにくいかもしれませんが、ご教示お願いいたします。
質問日時: 2023/08/26 16:22 質問者: KYAC カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
JavaScript|特定URLだった時、特定の要素を変更するコードの書き方を教えてほしいです
特定URLのパスと一致した時、特定要素を変更するコードの書き方を教えて欲しいです。 例えば各ページに「申し込み」というボタンがあるとして、/bbb/のページだけ、「申し込み無料」と変更する場合、JavaScriptでどのようなコードを書けば良いのでしょうか。 https://goo.ne.jp/aaa/ →申し込み https://goo.ne.jp/bbb/ →申し込み無料 https://goo.ne.jp/ccc/ →申し込み ちなみにJavaScript初心者で、HTMLはほぼ分かります。
質問日時: 2023/08/25 21:43 質問者: UT-1049 カテゴリ: JavaScript
解決済
2
0
-
PHPmyAdminに登録したデータをどうすればWordpressに反映できますか?
とある音楽サイトを立ち上げたいと思っています。 というのも歌詞のサイトです。 世界中の歌詞を見られるサイトを作りたいです。 Wordpressでサイトをつくり、ロリポップのPHPmyAdminのデータベースに 歌詞を登録していきました。 このあとどうすればいいでしょうか? PHPmyAdminに登録したデータをどうすればWordpressに反映できますか?
解決済
1
0
-
Pythonを勉強しています。
#すでに存在するExcelワークブックを読み込む wb = openpyxl.load_workbook("G:/sample.xlsx") #ワークブック内のアクティブなシートを取得 ws = wb.active #シート内のA1セルを読み込み、値を表示 print(ws["A1"].value) ネットで見つけたコードですが、 エクセルファイルが開きません。 パスを変えてもエラーが出てしまいます。 G:/sample.xlsx G://sample.xlsx G:\sample.xlsx 原因を教えてください。 pip install openpyxlは、インストール済みです。 コードの実行はColaboratoryで行っています。 --------------------------------------------------------------------------- FileNotFoundError Traceback (most recent call last) <ipython-input-45-6f274f9076cf> in <cell line: 2>() 1 #すでに存在するExcelワークブックを読み込む ----> 2 wb = openpyxl.load_workbook("G:/sample.xlsx") 3 #ワークブック内のアクティブなシートを取得 4 ws = wb.active 5 #シート内のA1セルを読み込み、値を表示 3 frames /usr/lib/python3.10/zipfile.py in __init__(self, file, mode, compression, allowZip64, compresslevel, strict_timestamps) 1249 while True: 1250 try: -> 1251 self.fp = io.open(file, filemode) 1252 except OSError: 1253 if filemode in modeDict: FileNotFoundError: [Errno 2] No such file or directory: 'G:/sample.xlsx'
質問日時: 2023/08/25 09:51 質問者: gyaos777 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
5
0
-
VisualStudioでC++クラスを追加するとき、ファイルを所定のフォルダ下につくりたい
VisualStudio2019を使用しているものです。 VisualStudioにおいて、新しい項目の追加で「C++クラス」を選択すると、ソースファイルとヘッダファイルが自動的に生成されます。 このとき、ファイルの生成場所を所定のフォルダ下にしたいのですが、どのようにすればよいのでしょうか 質問するカテゴリを迷ったのですが、ここに質問させていただきます。
質問日時: 2023/08/24 17:17 質問者: cyacya2000 カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
QT(C++)の学習方法について
QTを学習している人、もしくはQTができる人に質問です。 どのようにしてQTを学習すればいいでしょうか? なかなかQTをわかりやすくまとめている書籍やサイトがなくて、学習が難航しています。 タイトルにもあるように、言語はC++とします
質問日時: 2023/08/24 12:47 質問者: MYACCFORGOO カテゴリ: C言語・C++・C#
解決済
1
0
-
vba GetAsyncKeyState関数について
いつもお世話になります 昨日の質問は、fujillinから教わったGetAsyncKeyState関数でうまく行きました ありがとうございました ところでもう一つ質問 下記のようにマウス左クリックとEnterキーでチェックしたところ GetAsyncKeyState(vbKeyReturn)は最初 1 が入ってきます そこでカウントを取ってプログラムは実行していますが何故だか教えていただけると 幸いです errCount = 0 Do If GetAsyncKeyState(vbKeyLButton) <> 0 Then Exit Do ElseIf GetAsyncKeyState(vbKeyReturn) <> 0 Then If errCount > 0 Then Exit Do Else errCount = errCount + 1 End If End If Loop DoEvents 以上、宜しくお願い申し上げます
質問日時: 2023/08/24 12:08 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
-
中古物件転売時の節税対策にメス?不動産投資家は戦々恐々?元国税が解説
不動産の取引において、土地と建物を一括で売買する場合、土地に消費税はかからないが、建物には消費税がかかる。これを利用して、例えば土地と建物を合計1億円で売る場合、土地の値段を9999万9999円にし、建物を1円...
-
話題の「風呂キャンセル界隈」、お風呂に「入らない」のではなく「入れない」?
皆さんは、「風呂キャンセル界隈(かいわい)」という言葉を聞いたことはあるだろうか。「お風呂に入らない(入れない)人」のことで、最近ネット上などで話題になっているようだ。「教えて!goo」にも、「風呂に入...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2カラム、左メニュー、特定パーツの...
-
arduinoでの母音識別について
-
htmlの文字が縦書きになる
-
エクセルに張り付けた写真のファイ...
-
python エラー
-
Google ColaboでGUI作成
-
フォームを再送信しますか?
-
スマホのスプレッドシートでセルに-...
-
VBA 入力箇所指定方法
-
vba クリップボードクリアについて...
-
テーブルの行を折りたたみたいので...
-
onedrive にexcelファイルをアップ...
-
phpのファイルがブラウザで開かない
-
エクセルで集計したい。
-
EXCEL vbaでシート上に配置したボタ...
-
C#でログファイルにファイルパスが...
-
VBA 別ブックからコピペしたいので...
-
配列のペースト出力結果の書式について
-
CSSファイルの日本語コメントが文字...
-
100万件越えCSVから条件を満たす行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
onedrive にexcelファイルをアップ...
-
エクセルに張り付けた写真のファイ...
-
VBA 別ブックからコピペしたいので...
-
どうして+3
-
vba クリップボードクリアについて...
-
プログラミング言語についてc++に空...
-
今ってプログラミング言語は何が中心?
-
XMLを作成してもタグしか表示されない
-
ゲーミングPCに入っているAlrisit S...
-
テーブルの行を折りたたみたいので...
-
Pythonでの文字列からfloatへの変換...
-
Vba ファイル書き込み時に書き込み...
-
プログラミング言語について
-
バッチファイル 特定ウインドウの最...
-
matplotlibでのLaTex表示
-
Google ColaboでGUI作成
-
Excel_VBAについて質疑です。(for...
-
VBAの間違い教えて下さい
-
2つほどお聞きしたいことがあり、答...
おすすめ情報