回答数
気になる
-
Q&A掲示板の入力フォームに文字数制限を設けて入力可能な文字数を表示したい
残り入力可能な文字数をカウントするコードを作成したのですが、あと1文字入力できるのにそこでボタン送信ができないように制限がかかってしまいます。 原因が分からない為コードを調べなおしてみました。引き算に問題が生じているのではないかと考えているのですが、どこを修正すべきか分かりませんアドバイスお願い致します。 ※該当コード <php> class MAX_LENGTH { public const NAME = 50; public const TITLE = 50; public const QUESTION = 500; } </php> <html> <div id="input_area"> <form name="input_form"> <div class="body-partial-parts"><!-- body-partial-parts --> <h2>質問文(question)<span class="required">※必須</span></h2> <div class="parts"> <textarea class="input" name="question" id="question" data-length="<?php echo MAX_LENGTH::QUESTION; ?>" data-minlength="<?php echo MIN_LENGTH::QUESTION; ?>" placeholder="荒らし行為や誹謗中傷や著作権の侵害はご遠慮ください"></textarea> <div></div> </div> </div> <div class="title-partial-parts"> <!-- title-partial-parts --> <h2>質問タイトル(title)<span class="required">※必須</span></h2> <div class="parts"> <input class="input" type="text" name="title" id="title" data-length="<?php echo MAX_LENGTH::TITLE; ?>" data-minlength="<?php echo MIN_LENGTH::TITLE; ?>" placeholder="<?php echo MIN_LENGTH::TITLE; ?>文字以上で入力してください"> <div></div> </div> </div> <div class="usericon-partial"> <h2>画像アイコン(image icon)<span class="required">※任意</span></h2> <div class="usericon-thumbnail-button"> <label> <div class="usericon-uploads"> <img src="<?php echo $noimage_url; ?>" class="changeImg" style="height: 100px;"> </div> <input type="file" class="attach" name="attach[]" data-maxsize="5" accept=".png, .jpg, .jpeg" style="display: none;"> </label> <div class="viewer"></div> <button type="button" class="attachclear">clear</button> </div> </div> <div class="namae-partial-parts"> <!-- namae-partial-parts --> <h2>名前(name)<span class="required">※任意</span></h2> <div class="parts"> <input class="input" type="text" name="namae" id="name" data-length="<?php echo MAX_LENGTH::NAME; ?>" data-minlength="<?php echo MIN_LENGTH::NAME; ?>" placeholder="未入力の場合は、匿名で表示されます"> <div></div> </div> </div> <div class="post-button"><!-- ボタンを押せなくする --> <button type="button" id="submit_button" name="mode" value="confirm">確認画面へ進む</button> </div> <!-- type、name、id、valueの順番 --> </form> </div> </html> <script> document.addEventListener('input', e => { if (!['name', 'title', 'question'].includes(e.target.id)) return; const t = e.target, m = t.nextElementSibling, n = t.value.length - (t.dataset.length | 0), c = document.createElement('strong'); //絶対値が欲しい時 c.append(Math.abs(n)); //classを設定 m.className = 'msg_partial'; m.style.color = n > 0 ? 'red' : 'black'; m.replaceChildren(n > 0 ? '' : '残り', c, `文字${n > 0 ? '超過してい' : '入力でき'}ます。`); </script> ※調べたもの e,もし名前、タイトル、質問の id が取得できなければ終了する t,イベントターゲット イベントが発生した要素 m,イベントが発生した次の要素を取得する n,名前、タイトル、質問のテキストボックスの文字列の長さを取得する-要素に設定されたカスタム属性(date-)の値(文字列の長さ)を取得する c,要素を生成(strong) c.append(math.abs(n));親要素に子要素を追加する 絶対値を返す。 m.replaceChildren();要素の子要素を全部削除して引数で渡したものに置き換える
質問日時: 2024/04/08 02:46 質問者: 初心者サイト作成 カテゴリ: JavaScript
解決済
1
0
-
php配列のキーの二重定義 $a['zero'],$a['iti']と$a[0],$a[1]とが同等
となるようなことはできるでしょうか?
ベストアンサー
2
0
-
Excel VBA 定義されたプロージャ名、関数名の取得
次のようなVBAのコードをご指南ください。 実行すると、アクティブブックのモジュール内で定義されたサブプロージャ名や関数名を、種類とそれが定義されたモジュール名を併記する形で、メッセージボックスで一覧表示するマクロ。 実行結果のイメージ Sheet1 (****) プロージャー procA() Sheet1 (****) プロージャー procB() ThisWorkbook イベントプロージャー workbook_open() 標準モジュール プロージャー test() 標準モジュール 関数 func(hikisuA As Long, hikusuB As String) 他者がつくったマクロファイルが複雑で、モジュールがたくさんあります。どのモジュールにマクロが定義されているか、VBEを開いて1つ1つモジュールをダブルクリックして調べるのが面倒です。情報を得るのが目的なので、実行結果のイメージに深いこだわりはありません。詳しい方、よろしくお願いします。
質問日時: 2024/04/07 00:29 質問者: tsukita カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
エクセルのマクロについて教えてください。
下記のマクロは先日教えていただいたマクロで 作業ブックの指定セル値を別ブックの指定セルにコピー出来るマクロですが コピー元のセル値を複数指定し、コピー先のセル値も同じく複数指定したいのですが、 コードを下記のように設定しても上手く行きませんでした。 Book1の値をコピー ThisWorkbook.Sheets("1").Range("F10,F12").Copy 'Book2に値貼り付け Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Sheets("建築物(確認申請)(第1号様式)").Range("C1,E4") = ThisWorkbook.Sheets("1").Range("F10,F12").Value 解決方法を教えてください。 現行のマクロ Sub 新行政報告にコピー() 'コピー先のファイルを開く Workbooks.Open ThisWorkbook.Path & "\【連動版】行政報告チェックリスト(戸建て).xlsm" 'Book1の値をコピー ThisWorkbook.Sheets("1").Range("F10").Copy 'Book2に値貼り付け Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Sheets("建築物(確認申請)(第1号様式)").Range("C1") = ThisWorkbook.Sheets("1").Range("F10").Value Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Save Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Close End Sub
質問日時: 2024/04/06 10:16 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで
Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーできます このマクロだとコピー先のフォルダを指定してます Workbooks.Open "C:\Users\160931\Desktop\テスト\ が この部分を マクロを設定しているブックと同じフォルダ内 ThisWorkbook.Path にあるファイルを指定出来る 方法を教えてください。 よろしくお願い致します 現状のマクロ Sub 新行政報告にコピー() 'コピー先のファイルを開く Workbooks.Open "C:\Users\160931\Desktop\テスト\【連動版】行政報告チェックリスト(戸建て).xlsm" 'Book1の値をコピー ThisWorkbook.Sheets("1").Range("F10").Copy 'Book2に値貼り付け Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Sheets("建築物(確認申請)(第1号様式)").Range("C1").PasteSpecial Paste:=xlPasteValues Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Save Workbooks("【連動版】行政報告チェックリスト(戸建て).xlsm").Close End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/04/05 21:25 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
メールフォームの日付入力フォームで過去の日付で範囲指定する方法が分かりません
メールフォームの input type="date" で、 以前に予約日の設定で7日~6ヶ月感(180日)での範囲指定では、 以下のスクリプトで思い通りの動作が確認できました。 <script> window.onload = function(){ /* 今日の日付取得 */ const today = new Date(); /* 変数に8日後をセット */ const getConst1 = new Date(today.getFullYear(), today.getMonth(), today.getDate() + 8); /* yyyy-mm-ddに整形 */ var y = getConst1.getFullYear(); var m = getConst1.getMonth() + 1; var d = getConst1.getDate(); const const1 = y + "-" + m.toString().padStart(2,'0') + "-" + d.toString().padStart(2,'0'); /* 変数に6か月≒182日後をセット(30.4日×6ヶ月=182.4日) */ const getConst2 = new Date(today.getFullYear(), today.getMonth(), today.getDate() + 182); var y = getConst2.getFullYear(); var m = getConst2.getMonth() + 1; var d = getConst2.getDate(); var const2 = y + "-" + m.toString().padStart(2,'0') + "-" + d.toString().padStart(2,'0'); document.getElementById("birth1").setAttribute("value",const1); document.getElementById("birth1").setAttribute("min",const1); document.getElementById("birth1").setAttribute("max",const2); } </script> 今回、このスクリプトを使い、 年齢制限のある申し込みで年齢を18~60歳で受付たいケースがあり、 予約日のスクリプトで、以下の様に修正しましたが動作しません。 <input type="date" id="birth1"> <script> window.onload = function(){ /* 今日の日付取得 */ const today = new Date(); /* 変数に60歳(365日×60年=21900日)をマイナス */ const getConst1 = new Date(today.getFullYear(), today.getMonth(), today.getDate() - 21900); /* yyyy-mm-ddに整形 */ var y = getConst1.getFullYear(); var m = getConst1.getMonth() + 1; var d = getConst1.getDate(); const const1 = y + "-" + m.toString().padStart(2,'0') + "-" + d.toString().padStart(2,'0'); /* 変数に15歳5474日をマイナスセット(365日×15年=5475日) */ const getConst2 = new Date(today.getFullYear(), today.getMonth(), today.getDate() + 182); var y = getConst2.getFullYear(); var m = getConst2.getMonth() + 1; var d = getConst2.getDate(); var const2 = y + "-" + m.toString().padStart(2,'0') + "-" + d.toString().padStart(2,'0'); document.getElementById("birth1").setAttribute("value",const1); document.getElementById("birth1").setAttribute("min",const1); document.getElementById("birth1").setAttribute("max",const2); } </script> 日付のマイナス指定はどうしたら良いのでしょうか? ご教授いただけると助かります。
質問日時: 2024/04/05 17:43 質問者: k-kazun カテゴリ: JavaScript
ベストアンサー
3
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると指定フォルダ内 「C:\Users\160931\Desktop\テスト\」 の指定ファイル 「テストチェックリスト.xlsm」 の別ブックの マクロ 「チェック」 を実行できますが、 実行マクロを複数設定出来る方法を教えてください。 例えば 「チェック」「チェック2」「チェック3」 現状のマクロ Sub 別ブックマクロ実行() Const FILE_NAME = "C:\Users\160931\Desktop\テスト\テストチェックリスト.xlsm" Const PROC_NAME = "チェック" Dim app Set app = CreateObject("Excel.Application") With app 'Excel非表示 .Visible = False Dim wb Set wb = .Workbooks.Open(FILE_NAME) .Run wb.Name & "!" & PROC_NAME 'アラートを消す .DisplayAlerts = False wb.Save wb.Close End With app.Quit End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/04/05 09:58 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
[C言語]fputsとfprintfの違い
下記サイト記事の一つ目の例についてです。 https://www.jpcert.or.jp/sc-rules/c-fio30-c.html 違反コードでは、fprintf関数を使用しており危険、適合コードはfputs関数で回避とありますが、ユーザーからの入力を元にした文字列msgをsnprintfで構築しているのは両方とも変わりませんが、それを書式文字列として扱うかどうかによって件名の関数の危険有無が変わるというのがいまいち分かりません。 ユーザーの危険な入力を何か一例として、解説をお願い出来ないでしょうか?
質問日時: 2024/04/05 09:20 質問者: nkk06116kk カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
awsにApacheとPHPを入れて、何故か画面が500エラーで表示できません! それに、ログファイ
awsにApacheとPHPを入れて、何故か画面が500エラーで表示できません! それに、ログファイルにこのエラーが出力されません! 明らかな構文エラーに書き換えるとログファイルに出力されます。 また、echoだけのような簡単なプログラムなら500エラーにならずに期待通りに出力できます! さらに、php.iniファイルを更新してもPHPに反映されません!コマンドラインからファイル内容確認しても間違いなく編集は効いているのですが、phpinfo関数では変わってないようになります! VMwareに入れた時にはこんなことにはなりませんでした。 どうやら自前の仮想環境に入れた時はCGIのバージョンでec2の場合はphp-fpmモジュール版のようです。 ただ、前述の通り、簡単なPHPなら出力できるのでパーミッションやファイアウォールなどが原因ではないと推測しています! apacheの再起動だけではなくphp-fpmの再起動なども試しましたがダメでした! awsについてわかる方おられませんでしょうか? php.iniをいじっても反映されないので、なんの調査も出来ません。。。 また、出力されないエラーがなんなのかも知りたいです。 よろしくお願いします。
解決済
1
0
-
二次元配列を使って順位をだすときに、同点の場合の順位をだす方法を教えて下さい。
Google Apps Scriptを勉強中の者です。 例えば成績処理のようなことをする場合に成績の順位を出すような処理が必要です。二次元配列をsortで降順に並び替えるのは簡単ですが、順位を出す場合は、同点の場合は同順位になりますが、それを二次元配列を使ってするにはどうしたらいいのでしょうか?indexOfでは同順位の処理はできないですよね? 例えば以下のように同点の者が複数いる場合の処理方法がわかりません。 生徒 点数 順位 A 85 1 B 82 2 C 82 2 D 82 2 E 80 5 F 78 6 G 78 6 H 76 8 I 71 9 J 70 10 VBAだとworksheetfunction.rankという形でVBAの関数を使えますが、GASでもそういうことはできるのでしょうか? ネットで検索してもわからないので、解決法を教えていただければ助かります。どうぞよろしくお願いいたします。
質問日時: 2024/04/04 05:43 質問者: CaveatEmptor カテゴリ: JavaScript
ベストアンサー
4
0
-
なんかC言語でプログラム書いてると脳汁というかエクスタシーというかなんかすげえ気持ちいいんですけどな
なんかC言語でプログラム書いてると脳汁というかエクスタシーというかなんかすげえ気持ちいいんですけどなんでですか?他の言語じゃならないです。
質問日時: 2024/04/03 23:24 質問者: だいぬ カテゴリ: C言語・C++・C#
ベストアンサー
4
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行するとチェックボックスに「✔」が入るように設定しましたが、 エラーは出ませんが、 「✔」が表示されません。 なお、チェックボックス名は「CheckBox51」と表示されております。 又、その他のチェックボックスを指定すると 例えば「.CheckBoxes(313)を設定すると エラー「1004」が表示されます。 私の希望はマクロを実行して指定のチェックボックスに「✔」を表示させたいのですが、 解決方法を教えてください。 現状のマクロ Sub Macro1() With ActiveSheet .CheckBoxes(51).Value = True End With End Sub 宜しくお願い致します。
質問日時: 2024/04/03 17:56 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Excel-VBAのmsgBox()の不思議
Excel-VBA初心者です。初歩的なことをお聞きします。以下のプログラムで、2)の場合がエラーにならないのは何故でしょうか。引数は文字列データである必要があると思うのですが、数字でもエラーが出ません。本来は型変換をする3)が正しいと思うのですが...。お詳しい方、解説お願いいたします。 ------------ Sub test() Dim str As String Dim num As Long str = "あいうえお" num = 100 '1) MsgBox "str:" & str '2) MsgBox "num:" & num '3) MsgBox "CStr(num):" & CStr(num) End Sub
質問日時: 2024/04/03 17:06 質問者: hgama1024 カテゴリ: Visual Basic(VBA)
解決済
5
0
-
システムエンジニアの適正について
組み込み系ITエンジニアになって、10数年程度経ちますが、いまいちパッとしません。 自己学習をしようと思って、microsoft learnのサイトを見てみたりしますが、 なかなか理解が出来ません。 このページを見て、一般的なエンジニアの方はサクサクと理解できるものでしょうか? https://learn.microsoft.com/ja-jp/cpp/cpp/cpp-type-system-modern-cpp?view=msvc-170
質問日時: 2024/04/03 00:46 質問者: まゆげ大好き カテゴリ: C言語・C++・C#
解決済
5
1
-
エクセルのマクロについて教えてください。
下記のマクロは先日より教えて頂いたマクロです。 作業シート名「建築物(確認申請)(第1号様式)」の セル値「AB1」の数字をワイルドカードで検索し 該当するファイルの指定シートを作業ブックのシートにコピーできますが、 作業シート名「建築物(確認申請)(第1号様式)」の セル値「AB1」の数字が表示されていなくても マクロを実行すると 指定フォルダ先のファイルを呼び込み、作業ブックにシートがコピーされてしまします。 マクロを実行し 作業シート名「建築物(確認申請)(第1号様式)」の セル値「AB1」の数字が表示され、該当ファイルがある場合のみ コピー元のシートを作業ブックにコピー出来る方法を教えてください。 宜しくお願い致します。 現状のマクロ Application.DisplayAlerts = False Dim srcFolderPath As String Dim srcFileName As String Dim srcSheetName As String Dim destWorkbook As Workbook Dim destSheet As Worksheet Dim srcWorkbook As Workbook Dim srcSheet As Worksheet ' コピー元のフォルダパスとファイル名を指定 srcFolderPath = "\\nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\2024年 【担当】確認番号 建物名称\03月\" srcFileName = "*" & ThisWorkbook.Worksheets("建築物(確認申請)(第1号様式)").Range("AB1").Value & "*.xlsm" ' コピー先の作業ブックとシートを指定 Set destWorkbook = ThisWorkbook Set destSheet = destWorkbook.Sheets("第4号様式(印刷用)") ' コピー元のファイルを検索 srcFileName = Dir(srcFolderPath & srcFileName) ' コピー元のブックを開く Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName) 'シート名の値を設定 arr = Array("受付", "青紙表", "1", "1号確認", "4号完了") 'シート名でループ For Each sname In arr ' コピー元のシートを取得 Set srcSheet = srcWorkbook.Sheets(sname) ' コピー元のシート名を取得 srcSheetName = srcSheet.Name ' コピー元のシートをコピー先にコピー srcSheet.Copy After:=destSheet Next ' コピー元のブックを閉じる srcWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/04/02 16:12 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると 左からのシート「11」番目の保護シートを解除できますが、 このコードを 指定シート名に変更出来る方法を教えてください。 現状のマクロ Sub シートの保護解除() ThisWorkbook.Worksheets(11).Unprotect Password:="abc" End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/04/02 14:29 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると、コピー元の指定フォルダ内にあるワイルドカードで指定したファイルの指定シートを作業ブックにコピー出来ますが、このマクロではコピー元の指定シートが 「' コピー元のシートを取得(左から4番麺目のシート) Set srcSheet = srcWorkbook.Sheets(4)」となっており、 この部分を複数の直接名のシートに変更出来る方法を教えてください。 コピー元のシート名「受付」「青紙表」「1号様式」「2号式」 以上です。 現状のマクロです。 Dim srcFolderPath As String Dim srcFileName As String Dim srcSheetName As String Dim destWorkbook As Workbook Dim destSheet As Worksheet Dim srcWorkbook As Workbook Dim srcSheet As Worksheet ' コピー元のフォルダパスとファイル名を指定 srcFolderPath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\2024年 【担当】確認番号 建物名称\01月\" srcFileName = "*23045888*.xlsm" ' コピー先の作業ブックとシートを指定 Set destWorkbook = ThisWorkbook Set destSheet = destWorkbook.Sheets("第4号様式(印刷用)") ' コピー元のファイルを検索 srcFileName = Dir(srcFolderPath & srcFileName) ' コピー元のブックを開く Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName) ' コピー元のシートを取得(左から4番麺目のシート) Set srcSheet = srcWorkbook.Sheets(4) ' コピー元のシート名を取得 srcSheetName = srcSheet.Name ' コピー元のシートをコピー先にコピー srcSheet.Copy After:=destSheet ' コピー元のブックを閉じる srcWorkbook.Close SaveChanges:=False End Sub 以上となります。 宜しくお願い致します
質問日時: 2024/04/02 06:34 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Let's Encryptで自動更新がされない
centos7でApache2.4.6という環境です。 crontab -eで下記の2通りを試しましたが、自動更新されませんでした。 0 1 * * * root /usr/bin/certbot renew 0 1 * * * root /usr/bin/certbot renew --post-hook "systemctl reload httpd" letsencrypt.logをみてみたのですが、何か問題ありますでしょうか。 /var/log/letsencrypt/letsencrypt.log 2024-04-01 20:00:01,282:DEBUG:certbot._internal.main:certbot version: 1.11.0 2024-04-01 20:00:01,282:DEBUG:certbot._internal.main:Location of certbot entry point: /bin/certbot 2024-04-01 20:00:01,282:DEBUG:certbot._internal.main:Arguments: [] 2024-04-01 20:00:01,282:DEBUG:certbot._internal.main:Discovered plugins: PluginsRegistry(PluginEntryPoint#apache,PluginEntryPoint#manual,PluginEntryPoint#null,PluginEntryPoint#standalone,PluginEntryPoint#webroot) 2024-04-01 20:00:01,295:DEBUG:certbot._internal.log:Root logging level set at 20 2024-04-01 20:00:01,295:INFO:certbot._internal.log:Saving debug log to /var/log/letsencrypt/letsencrypt.log 2024-04-01 20:00:01,324:DEBUG:certbot.ocsp:Querying OCSP for /etc/letsencrypt/live/test2.jp/cert.pem 2024-04-01 20:00:01,325:DEBUG:certbot.ocsp:openssl ocsp -no_nonce -issuer /etc/letsencrypt/live/test2.jp/chain.pem -cert /etc/letsencrypt/live/test2.jp/cert.pem -CAfile /etc/letsencrypt/live/test2.jp/chain.pem -verify_other /etc/letsencrypt/live/test2.jp/chain.pem -trust_other -timeout 10 -header Host r3.o.lencr.org -url http://r3.o.lencr.org 2024-04-01 20:00:01,537:DEBUG:certbot.ocsp:Querying OCSP for /etc/letsencrypt/live/test1.jp/cert.pem 2024-04-01 20:00:01,537:DEBUG:certbot.ocsp:openssl ocsp -no_nonce -issuer /etc/letsencrypt/live/test1.jp/chain.pem -cert /etc/letsencrypt/live/test1.jp/cert.pem -CAfile /etc/letsencrypt/live/test1.jp/chain.pem -verify_other /etc/letsencrypt/live/test1.jp/chain.pem -trust_other -timeout 10 -header Host r3.o.lencr.org -url http://r3.o.lencr.org 2024-04-01 20:00:01,588:DEBUG:certbot.display.util:Notifying user: Found the following certs: Certificate Name: test2.jp Serial Number: xxxxxxxxxxxxxx Key Type: RSA Domains: test2.jp www.test2.jp Expiry Date: 2024-04-22 12:31:22+00:00 (VALID: 18 days) Certificate Path: /etc/letsencrypt/live/test2.jp/fullchain.pem Private Key Path: /etc/letsencrypt/live/test2.jp/privkey.pem Certificate Name: test1.jp Serial Number: zzzzzzzzzzzzzzzzzz Key Type: RSA Domains: test1.jp sp.test1.jp www.test1.jp Expiry Date: 2024-04-30 13:22:54+00:00 (VALID: 25 days) Certificate Path: /etc/letsencrypt/live/test1.jp/fullchain.pem Private Key Path: /etc/letsencrypt/live/test1.jp/privkey.pem また、下記の自動更新に関する設定ファイル(test1.jp.conf)をみたのですが、こちらも問題ありますでしょうか。 /etc/letsencrypt/renewal/test1.jp.conf # renew_before_expiry = 30 days version = 1.11.0 archive_dir = /etc/letsencrypt/archive/test1.jp cert = /etc/letsencrypt/live/test1.jp/cert.pem privkey = /etc/letsencrypt/live/test1.jp/privkey.pem chain = /etc/letsencrypt/live/test1.jp/chain.pem fullchain = /etc/letsencrypt/live/test1.jp/fullchain.pem # Options used in the renewal process [renewalparams] authenticator = apache installer = apache account = xxxxxxxxxxx manual_public_ip_logging_ok = None server = https://acme-v02.api.letsencrypt.org/directory また、certbot renew --dry-runを試したところ、エラーはでませんでした。 他に確認するべきところなどアドバイスいただけると助かります。 よろしくお願いいたします。
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると指定フォルダ先のワイルドカードで指定したファイルの指定シートを 作業ブックの指定した場所にコピーが出来ます。 srcFileName = "*12345678*.xlsm"の 「23045888」この数字の部分を 作業ブックの指定シート名「建築物(確認申請)(第1号様式)」の 指定セル値「AB1」に出来る方法を教えてください。 現状のマクロ Dim srcFolderPath As String Dim srcFileName As String Dim srcSheetName As String Dim destWorkbook As Workbook Dim destSheet As Worksheet Dim srcWorkbook As Workbook Dim srcSheet As Worksheet ' コピー元のフォルダパスとファイル名を指定 srcFolderPath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\2024年 【担当】確認番号 建物名称\01月\" srcFileName = "*23045888*.xlsm" ' コピー先の作業ブックとシートを指定 Set destWorkbook = ThisWorkbook Set destSheet = destWorkbook.Sheets("第4号様式(印刷用)") ' コピー元のファイルを検索 srcFileName = Dir(srcFolderPath & srcFileName) ' コピー元のブックを開く Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName) ' コピー元のシートを取得(左から4番麺目のシート) Set srcSheet = srcWorkbook.Sheets(4) ' コピー元のシート名を取得 srcSheetName = srcSheet.Name ' コピー元のシートをコピー先にコピー srcSheet.Copy After:=destSheet ' コピー元のブックを閉じる srcWorkbook.Close SaveChanges:=False End Sub 以上となります。 宜しくお願い致します
質問日時: 2024/04/01 17:53 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
iOSのみダブルタップが必要
2つの背景画像を切り替えるスクリプトを一つのページに設定しており、どちらも別のページに設置すると、iPhoneでも正常に動作するため、競合を疑っています。 おかしな挙動をするのは下記コードのfunction gazou(n){ のみです。ボタンをダブルタップする必要があり、ワンタップで機能しません。Androidとパソコンでは正常に動きます。お分かりになる方いらっしゃいますでしょうか。chatGPTにも聞いてみましたが解決せずで困っております。 よろしくお願い致します。 【javascript】 function gazou(n){ if(n==0) document.body.style.backgroundImage="url(bg1.jpeg)"; if(n==1) document.body.style.backgroundImage="url(bg2.jpeg)"; if(n==2) document.body.style.backgroundImage="url(bg3.jpeg)"; if(n==3) document.body.style.backgroundImage="url(bg4.jpeg)"; if(n==4) document.body.style.backgroundImage="url(bg5.jpeg)"; if(n==5) document.body.style.backgroundImage="url(bg6.jpeg)"; if(n==6) document.body.style.backgroundImage="url(bg7.jpeg)"; if(n==7) document.body.style.backgroundImage="url(bg8.jpeg)"; if(n==8) document.body.style.backgroundImage="url(bg9.jpeg)"; if(n==9) document.body.style.backgroundImage="url(bg10.jpeg)"; if(n==10) document.body.style.backgroundImage="url(bg11.jpeg)"; } 【html】 <form name="henkou"> <input type="button" value="A" onclick="gazou(0)"> <input type="button" value="B" onclick="gazou(1)"> <input type="button" value="C" onclick="gazou(2)"> <input type="button" value="D" onclick="gazou(3)"> <input type="button" value="E" onclick="gazou(4)"> <input type="button" value="F" onclick="gazou(5)"> <input type="button" value="G" onclick="gazou(6)"> <input type="button" value="H" onclick="gazou(7)"> <input type="button" value="I" onclick="gazou(8)"> <input type="button" value="J" onclick="gazou(9)"> <input type="button" value="K" onclick="gazou(10)"> </form> <button onclick="mybg()">ボタンの文字</button> <script> const arr = ["gazou1.webp","gazou2.webp","gazou3.webp"]; let cnt = 0; function mybg() { const bodys = document.querySelectorAll('main'); bodys[0].style.backgroundImage = 'url(' + arr[ cnt % arr.length ] + ')'; cnt++; } </script> 【CSS】 body { background-color: transparent!important; background-repeat: no-repeat!importan; background-position: center center!important; background-size: cover!important; background-attachment: fixed!important; } .main { background-color: transparent!important; border-color:transparent!important; background:url("gazou3.webp"); background-repeat: no-repeat; background-position: center center!important; background-size: contain!important; position:relative!important; background-attachment: fixed!important; height:150vh!important; }
質問日時: 2024/04/01 15:27 質問者: Mypetwanwan カテゴリ: JavaScript
解決済
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると、作業シートの指定セル部分に文字があれば、自動で行調整が出来ます。 このマクロを指定シートの指定セル値に変更出来る方法を教えてください。 指定シート名「質疑」指定セル値同じく「Range("C26:C60")」です。 現状のマクロ Sub 行調整() Dim r As Range Dim tmp, n As Integer, i As Integer For Each r In Range("C26:C60") If WorksheetFunction.CountIf(r.Resize(, 4), "<>") > 0 Then r.Rows.AutoFit '折り返し設定とフォントサイズ For i = 0 To 3 If InStr(r.Offset(, i), vbLf) > 0 Then If n < UBound(Split(r.Offset(, i), vbLf)) Then n = UBound(Split(r.Offset(, i), vbLf)) + 1 End If End If Next If n > 0 Then tmp = r.RowHeight r.RowHeight = tmp * n '改行コード Alt+Enter n = 0 End If Else r.RowHeight = 27 End If Next End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/04/01 14:54 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
1つの「ホームページビルダー22」のソフトでホームページは何個作れますか?
妻の勤める会社(訪問介護)のウェブサイトの作成を依頼され「ホームページビルダー22-SP」で作ってみました。その後、別の会社からもウェブサイトの作成を依頼されています。そこで質問ですが、このソフトウェアで、何個までウェブサイトを立ち上げることができるのでしょうか? 自分でも丸1日かけて調べてみたのですが、どうしても回答が見つかりません。どなたかご存知でしたら教えてください。
ベストアンサー
4
0
-
静止画画像をクリックすると音楽が鳴るスクリプトってありますか?
<audio>タグを使わないで、リンクもつけないで、演奏動画にしないで、その場で音楽再生音のみが聴けるような表示をつくりたいのですが・・
ベストアンサー
1
0
-
テーブルのセルデータを自動改行させずに、はみ出た部分は切り捨てたい
いつもお世話になっています。 テーブルで、スマホ等の横幅が狭い画面で見た場合には、自動改行するのでなく、1行で表示できるように後尾を非表示にするには、どうすれば良いですか。 一番簡単な方法をご教示ください。
ベストアンサー
15
0
-
Gitについて質問。 クローンしたフォルダをコピーして、色々書き換えて、 さらにクローンして、そこに
Gitについて質問。 クローンしたフォルダをコピーして、色々書き換えて、 さらにクローンして、そこに上書き保存すると全部のファイルが変更点として出てきてしまうのですがどうにかなりませんか? 実際中身は変わってなくて、差分のチェックするとエラーになったりもします。 なんでこんなことしてるかと言うと、GitHub→Subversion→GitHubとバージョン管理してるからです。 深くは聞かないでください。
質問日時: 2024/03/30 20:15 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
テキストファイルのファイル名を抽出してBAT処理する方法はありますか。
テキストファイルのファイル名を抽出して、 1行目に挿入する処理をbatファイルでしたいです。 <データの内容> フォルダーの中に 1.txt 2.txt 3.txt (ファイルが増える場合もあります) 1.txtのデータの中身が ガソリンスタンド スーパー コンビニ で 処理後 1 ガソリンスタンド スーパー コンビニ と先頭にテキストのタイトルを入れたいです。 2.txt以降も同じ処理をしたいです。 これを、コマンドを使用し、batファイルで自動的に 実行したいです。 どのような方法があるでしょうか?
質問日時: 2024/03/29 15:02 質問者: ユコニ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
こんなことてしますか??
おもいつきで書いてみました。こういうことをすることはありますか?? すごい無駄ですか??
質問日時: 2024/03/28 23:26 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
2
0
-
どちのほうがすきですか?
私の書いた def fizzBuzz(self, n: int) -> List[str]: res = [] for i in range(1, n + 1): s = '' if i % 3 == 0: s += 'Fizz' if i % 5 == 0: s += 'Buzz' if not s: s += str(i) res.append(s) return res いちばんはやいひとの def fizzBuzz(self, n: int) -> List[str]: fb_list = [] for i in range(1, n+1): if (i % 15 == 0): fb_list.append("FizzBuzz") elif (i % 3 == 0): fb_list.append("Fizz") elif (i % 5 == 0): fb_list.append("Buzz") else: fb_list.append(str(i)) return fb_list たぶんstrの操作って計算コスト大きいて思うし if, elif, else の塊にまとめたほうが各iで入るのは一この条件だけなのでそっちのほうがはやいとおもいましたけど、どっちがよきですか?? int nにたいしてindex n に FizzBuzzを格納している配列を返す問題です。
質問日時: 2024/03/28 22:38 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
解決済
8
0
-
プログラミング、アーキテクチャ好きに質問です。 kotlinなどのMVVM、単方向データフローの考え
プログラミング、アーキテクチャ好きに質問です。 kotlinなどのMVVM、単方向データフローの考え方についてなんですが、 ViewModelがViewとModelのインスタンスを持つって考えの方がいい気がするんですがこれじゃダメなんですかね? まずメリット1つ目ですがViewModelが全てのインスタンスをもてばいいならひとつの画面に対して1つの情報源(ViewModel)があり、どのリソースを参照しているのかを把握しやすいため、仕様変更による修正やバグの修正がしやすい。 従来の方法ではViewはViewModelのインスタンスを持ち、VieModelはModelのインスタンスを持つという形だったのでViewからModelまでに距離がありすぎるのと、使い回したいViewがあった時にツリーのようなネスト構造になることが予測できるため管理に一貫性を持てない。 更に入力とDB(例えばORM)との依存性を保ちやすいからViewの再表示とかも管理しやすくなるのでは?
質問日時: 2024/03/28 20:14 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
4
0
-
コードを書いて下さい( ; ; )写真有り
添付している写真の html cssのコードを書いていただきたいです 白長方形の幅は1200px 画像の大きさ幅600px 縦408px テキスト内につきまして タイトルはh3 上部の余白56px 右側の余白75px(写真との余白) 下側の余白134px 左側の余白100px ノーコードで作成していたのですが、 うまくいかず、、、分かる方コードを手入力しようと思っています…よろしくお願いします( ; ; )
質問日時: 2024/03/28 18:55 質問者: Jijtmdp745j カテゴリ: HTML・CSS
解決済
2
0
-
ExcelのVBAコードについて教えてください。
下記のコードを一つにまとめる方法を教えてください。 下記のコードはセル値「F3」に「札幌市」と表示されると マクロ Call 注意2表示 Call 札幌道路図形表示 Call 札幌開発資料図形表示 Call 札幌資料図形表示 が実行されます。 このコードを一つにまとめる方法を教えてください。 現状のコード If Range("F3").Value = "札幌市" Then Call 注意2表示 End If If Range("F3").Value = "札幌市" Then Call 札幌道路図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌開発資料図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌資料図形表示 End If 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/28 13:38 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Word VBA MSGBOX 内で降順表示
下記のVBAはWORDファイル内の青文字で書かれた登録日を検索し、MSGBOXに表示するもので、正常に使えています。 しかし、MSGBOX内の表示がファイル内での順番になっています。昇順または降順表示にしたいのですが、 ネット検索してトライしましたが結果が得られていません。ご指導いただければ大変たすかります。よろしくお願いします。 Sub TEST() '検索 青文字「ABC」+ 日付 Dim vv As Variant Dim i As Integer i = 0 ReDim vv(i) ActiveDocument.Range(0, 0).Select With Selection.Find .Font.Color = wdColorBlue .Text = "登録日 202[0-9]/[0-9]{1,2}/[0-9]{1,2}" .MatchFuzzy = False .MatchWildcards = True Do While Selection.Find.Execute vv(i) = Selection i = i + 1: ReDim Preserve vv(i) Loop End With MsgBox "登録日" + vbCrLf + vbCrLf + Join(vv, vbCrLf) End Sub
質問日時: 2024/03/28 13:12 質問者: oldhidesan カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると 指定フォルダ内の指定ファイルを開く事が出来ますが、 マクロを実行すると、PDFファイルが、Excelシートの呼び込みされてしまします。 マクロを実行した時に、PDFそのままの状態で開く事が出来る方法を教えてください。 現状のマクロ Sub 道路資料を開く() Dim alert As VbMsgBoxResult alert = MsgBox("道路確認照会確認をしますか?", vbYesNo + vbQuestion, "道路確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Workbooks.Open Filename:=" \\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\資料\道路開発照会資料\道路照会の要否.pdf" End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/28 12:00 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロは以前教えて頂いたマクロで、マクロを実行すると、指定フォルダ内に指定セル値にて 保存されますが、 その時に指定の非表示シート 「List = Array("休日", "受付", "管理表", "300")」 が削除されますが、この部分の非表示シートを全て削除しないように変更出来る方法を教えてください。 現状のマクロ Sub 行政報告標準() Dim alert As VbMsgBoxResult alert = MsgBox("行政報告を保存します。", vbYesNo + vbQuestion, "行政報告確認") If alert <> vbYes Then Exit Sub End If Application.ScreenUpdating = False Dim folder As String folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("選択シート").Range("E4").Text & " 【担当】確認番号 建物名称\" & Worksheets("選択シート").Range("E3").Text & "\" Dim initName As String initName = folder & Worksheets("【標準】第1号様式").Range("Z1").Value Dim newName As String newName = initName & ".xlsm" Dim thisBk As Workbook Dim copyBk As Workbook Set thisBk = ActiveWorkbook ThisWorkbook.SaveCopyAs newName Set copyBk = Workbooks.Open(newName) Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean List = Array("休日", "受付", "管理表", "300") For Each ws In copyBk.Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws copyBk.Close SaveChanges:=True Application.ScreenUpdating = True End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/27 14:27 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Sub 要具ライフ() ActiveSheet.Cells.Find(what:="TOPゴム").
Sub 要具ライフ() ActiveSheet.Cells.Find(what:="TOPゴム").offset(0,3) = ActiveSheet.Next.Cells.Find(what:="TOPゴム").Offset(0, 3).Value + 1 End Sub 上記のコードで、選択している隣のシート中にある特定の文字の下のセル内の数値に加算した値を選択しているシート中の同じ文字の下のセルに入れたいのですが実行できません。 シートを新しく作った時、隣のシートの行数が挿入するなどで変更される場合があるため行位置が一定でありません。よって、特定の文字のセル位置から出力するセルを探したいです。 どなたか、教えていただけないでしょうか?
質問日時: 2024/03/27 11:57 質問者: かなもゆ カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロは以前教えて頂いたマクロを少しアレンジして設定しております。 マクロを実行すると、ダイアログが開き、指定フォルダに指定セル値名でマクロ有効ブックで保存できます。 保存後に、元のマクロ有効ブックが閉じるようになっております。 マクロ実行前のファイルもマクロ有効ブックです(マクロ有効テンプレートではありません) しかし、マクロを実行すると、画像のようなエラーメッセージが表示され、 コードの「For i = 0 To UBound(List)」部分が黄色くなっております。 この問題の解決方法を教えて 現状のマクロ Sub 昇降機青紙保存() Dim alert As VbMsgBoxResult alert = MsgBox("【青紙】保存を行いますか?", vbYesNo + vbQuestion, "【青紙】保存確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Application.DisplayAlerts = False Dim vDeleteSheet As Variant On Error GoTo 0 Application.ScreenUpdating = False Const folder As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" Dim newName As Variant Dim initName As String initName = folder & Range("CQ1").Value newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm") If newName = False Then Exit Sub Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean For Each ws In Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/26 18:09 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
VBA listBoxについて
動作としてはTextBox1に検索対象(管理№例100053)を入力(完全一致ではなく一部入力でも)該当する№がリストボックスに表示します 表示したリストから該当の№をクリックしたらsheet1のB列にカーソルが移動した対象を確認、 その№行の指定したセルに転記させるというながれになります 検索対象の桁数があるので下桁でも表示はするのですが クリックしてカーソルがその対象とは違うところに移動してしまいます 問題なく動くときは頭の1桁検索しスクロールで対象をクリックした時になります 現状はこのようになってます どのようにしたら改善するのでしょうか?(´;ω;`) Private Sub TextBox1_Change() ' TextBox入力した時の処理 Dim i As Long Dim Mydata As Variant Dim lastRow As Long Dim Cnt As Long Dim searchTerm As String Dim listBoxIndex As Integer ' 配列カウント初期化 Cnt = 1 ' 最終行を取得 lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 2).End(xlUp).Row ' 2次元配列の要素数を変更 ReDim Mydata(1 To lastRow, 1 To 20) ' 検索対象が空の場合は処理を終了 searchTerm = Me.TextBox1.text If Len(searchTerm) = 0 Then Exit Sub For i = 1 To lastRow If InStr(1, Sheets("Sheet1").Cells(i, 2), searchTerm) > 0 Then ' 配列に列の値と、セル番号を格納 Mydata(Cnt, 1) = i + 1 Mydata(Cnt, 2) = Cells(i, 2) Mydata(Cnt, 3) = Cells(i, 3) Mydata(Cnt, 4) = Cells(i, 4) Mydata(Cnt, 5) = Cells(i, 5) Mydata(Cnt, 6) = Cells(i, 6) Mydata(Cnt, 7) = Cells(i, 7) Mydata(Cnt, 8) = Cells(i, 8) Mydata(Cnt, 9) = Cells(i, 9) Mydata(Cnt, 10) = Cells(i, 10) Mydata(Cnt, 11) = Cells(i, 11) Mydata(Cnt, 12) = Cells(i, 12) Mydata(Cnt, 13) = Cells(i, 13) Mydata(Cnt, 14) = Cells(i, 14) Mydata(Cnt, 15) = Cells(i, 15) Mydata(Cnt, 16) = Cells(i, 16) Mydata(Cnt, 17) = Cells(i, 17) Mydata(Cnt, 18) = Cells(i, 18) Mydata(Cnt, 19) = Cells(i, 19) Mydata(Cnt, 20) = Cells(i, 20) ' 他の列のデータも同様に追加 ' ... ' 配列カウント増加 Cnt = Cnt + 1 End If Next i ' 検索で一致したデータをリストボックスに表示 With ListBox1 .ColumnCount = 20 .ColumnWidths = "30;55;40;0;150;90;130;130;0;0;60;150;0;0;0;0;120,60,130,30" .List = Mydata End With End Sub Private Sub ListBox1_Click() ' リストボックス内をクリックして該当セルを選択 Dim rowIndex As Integer Dim targetCell As Range ' 選択された項目の行番号を取得 rowIndex = ListBox1.ListIndex + 2 ' 対応するセルを選択 Set targetCell = Sheets("Sheet1").Cells(rowIndex, 2) targetCell.Select End Sub Private Sub CommandButton1_Click() Dim selectedRow As Integer Dim r As Integer If Me.ComboBox6 = "" Then MsgBox "管理場所が入力されてません" Exit Sub End If If Me.ComboBox7 = "" Then MsgBox "担当者が入力されてません" Exit Sub End If ' リストボックス内で選択された行のインデックスを取得 selectedRow = ListBox1.ListIndex For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row If ListBox1.ListIndex = r - 2 Then ' 選択された行が有効かどうかを確認 ' 選択された行に基づいてデータを転記 Cells(r, 18).Value = Me.TextBox4.Value Cells(r, 19).Value = Me.ComboBox6.Value Cells(r, 20).Value = Me.ComboBox7.Value Cells(r, 21).Value = Me.TextBox2.Value ' 選択された行をリストボックスから削除 ListBox1.RemoveItem r - 2 Exit For ' 処理が完了したらループを終了 End If Next r End Sub
質問日時: 2024/03/26 16:14 質問者: kacky76 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
CSSデータの作成方法について(FTP内)
専門の方にショップページを作成していただき、その後ちょっとしたページのレイアウト編集は、自力でしております。 FTP内に、CSSデータが組み込まれていますが、一部デザインの色を変更したいと考えております。 FTPをのぞいてみると、CSSファイルがあったのですが、そちらはメモ帳で開くことができました。 メモ帳でCSSデータを作成することは可能でしょうか。 ファイル名は「カスケードスタイルシートドキュメント」と記載されています。 どうぞ、よろしくお願いいたします。
ベストアンサー
5
0
-
単語を少し変えると1位になるのだけど、6位くらいになります。
ページを立派いにしたのにいまいちseo順位が上がらなかったため seoのプロにお金を払い分析してもらいました。 結果、例えばで話しますが、 「〇(市名から市を抜いたもの) ガラス屋」なら1位に来るけど 「〇市 ガラス屋」では5,6位に来るので、こんな業者は初めてだとのことで、 私が作っているページに「△市 ガラス屋」みたいなページもあるため、 検索エンジンは「市」という言葉に反応し、ユーザーが「〇市 ガラス屋」 で検索したとき、私のサイトの〇市と△市どちら優先させるかで迷ってしまい検索順位が 下がるとのことでした(;^_^A わかりやすく言うと人間の目には〇市ガラス屋と△市ガラス屋別もんで混同しませんが、 検索エンジンは市を除いた部分以外一緒なのでどっち優先させるか迷って順位が下がってるんだとか。 アドバイスを受けてコンサルがお勧めする、外部のページに△市ガラス屋のページを移行させ、 元のページは、△市ガラス屋ページ移転のお知らせに変えましたし、検索エンジンも このページを新たにインデックスしましました。 でも、〇市ガラス屋のページの検索順位は以前と変わりません(;^_^A なんかほかの原因あるんでしょうか? 「〇(市名から市を抜いたもの) ガラス屋」なら1位に来るけど 「〇市 ガラス屋」では5,6位に来る理由です。 ちなみに市名がなんかの食べ物名と一緒とか、人名と一緒とかそういうのはなく、市名抜いた検索でもずらっと地元市のガラス屋一覧が出てきます。
解決済
2
0
-
VBAを使用した時間管理
ある列(例:C列)に文字列(例:開始、終了)が入力されたら右横のセルに入力された時間表示し、整数が入力された場合は左横のセルに日付を表示させたいです。開始、終了、整数はバーコードリーダーを使用してQR化した文字列、数字を取得する予定です。 ご回答よろしくお願いします。
質問日時: 2024/03/25 12:45 質問者: かずよこ カテゴリ: Visual Basic(VBA)
解決済
4
0
-
左右の表のキー位置を合わせたい
左表と右表がありますが、キーがあったりなかったりして行が ずれているのを一致させた表をつくろうとしています。 キーの有無を判定して相手方の表に空行を挿入する方法以外で もっと良い方法はありませんか?
質問日時: 2024/03/25 10:23 質問者: rexfan カテゴリ: Visual Basic(VBA)
解決済
4
0
-
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれば FALSE になる。 上と似たようにA列とB列が一緒だった場合 TRUE 違っていれば FALSE ←この列での判定はできるのでしょうか? また、あればVBAでこの列での判定があればコードを教えていだきたいです。
質問日時: 2024/03/24 19:05 質問者: 社畜お兄さん カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Stuck
まいにちいちもんか数問問題をといて、たいてい解けないから他の人の解説とか見て 考え方を把握したきもちになって、コードを見るだけじゃなくてわかったと思ったのを自分で一から書いてみるとかしてますけど、結局そのコード自体をその場で覚えてしまってるかんじがして、ぜんぜん成長してるかんじがしません。なにが悪いと思いますか? アルゴリズムの本自体はに冊くらいよみました。 今はアルゴリズムの試験の勉強のためにしてます https://www.youtube.com/watch?v=gqXU1UyA8pk
質問日時: 2024/03/24 12:04 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
Windowsのアプリ開発ってなんのためにするんですか? Excelで入力、更新、表示、検索、削除、
Windowsのアプリ開発ってなんのためにするんですか? Excelで入力、更新、表示、検索、削除、行列の非表示、編集用パスワードの設定、式の計算、セレクトボックスの設定、時間入力のショートカット、テーブルのリレーション、フォーム入力、こんだけ出来てなんでExcelで管理していたものをWindowsアプリで作ってって依頼するんでしょう?税金対策か何かですか。お金の無駄だと思います。 Excelで唯一出来ないことと言ったら0で始まる数字の0を消さないようにする設定くらいですよね。マクロは変な需要ない限り要らないし。
質問日時: 2024/03/24 05:05 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
6
1
-
エクセルの合計を自動で表示させたいです
1か月の合計を集計したセルの値をフォームのテキストにリンクさせて表示させていますが 此れですと 毎月リンクのセルを変えなければなりません 常に直近1カ月の集計を表示せせることは出来ないでしょうか ご指南頂ければ幸いです よろしくお願い致します
質問日時: 2024/03/23 22:20 質問者: tompapa2021 カテゴリ: Visual Basic(VBA)
解決済
3
0
-
PythonやJavaScriptのように実質的に数の桁数を無限に扱える言語と、全く無限に使えない言
PythonやJavaScriptのように実質的に数の桁数を無限に扱える言語と、全く無限に使えない言語の違いはなんですか?
質問日時: 2024/03/22 21:33 質問者: だいぬ カテゴリ: JavaScript
ベストアンサー
3
0
-
Webプログラムってネイティブアプリプログラムに比べて遥かに簡単すぎる気がするのですが気の所為ですか
Webプログラムってネイティブアプリプログラムに比べて遥かに簡単すぎる気がするのですが気の所為ですか?
質問日時: 2024/03/22 20:53 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
VBAの質問になります Userform内で
TextBoxに検索対象を入力しリストボックスに表示させているのですが 検索対象を1つ限定ではなく含む検索にしたいのですが可能でしょうか? 現状は下記になります 'B列に該当データがあったら If Cells(i, 2) = Me.TextBox1.Text Then せっかくリストボックスにしているのですから含む検索にして 該当する物も表示させたいと思いました 検索対象は管理№になります 100002や100002_1または1000021なども含みたいです
質問日時: 2024/03/22 16:40 質問者: kacky76 カテゴリ: Visual Basic(VBA)
解決済
2
0
-
VBAの質問になります メッセージボックス
UserForm内で一つ一つのBOXに空白の場合ウィンドウ出るようにしてありますが まとめて"入力されていない箇所があります"にしたいのですが可能でしょうか? 現状はこのようになっています If Me.TextBox1 = "" Then MsgBox "入力されていません" Exit Sub End If BOX数が多くて面倒なので(;^_^A TextもComboもあります
質問日時: 2024/03/22 14:33 質問者: kacky76 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
Excelのマクロでワードのテキストボックスへデータをコピーする方法を教えてください
以下のようなExcelデータがあります。 AAA 3 BBB 1 CCC 0 ※AAAは本来は日本語の文字データで、連続性はありません。 B列の値が1以上のときにWordの任意のテキストボックスへその値を入力したいです。 AAAはテキストボックス1へ、BBBはテキストボックス2へというように入力していきたいです。 また、上記ではCCCまでですが下に100件ほどデータがあります。 どのようにマクロをかいてよいのかわからず、教えてください。 よろしくお願いいたします。
質問日時: 2024/03/22 11:51 質問者: neko9868 カテゴリ: Visual Basic(VBA)
解決済
1
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【追加質問】レイアウトが異なる別...
-
fortran write文について マチンの...
-
XMLサイトマップの登録方法がわかり...
-
エクセルに張り付けた写真のファイ...
-
htmlの文字が縦書きになる
-
エクセルのVBAコードについて教えて...
-
jdk17.06のインストーラーが起動しない
-
エクセルvbaの対象セルに色をつける...
-
PDFを(htmlのように)無限に縦長に...
-
テーブルの行を折りたたみたいので...
-
Excel VBA マクロ あるフォルダー内...
-
XMLを作成してもタグしか表示されない
-
vba クリップボードクリアについて...
-
css初心者 フレックスボックスの適...
-
Trees掲示板CGI(CGI-Resque氏作)...
-
ラズベリーパイ初心者です。 ラズパ...
-
キヤノン アソビカメラ iNSPiC REC...
-
公文書のxmlファイルの開き方が分か...
-
aspxをhtmlに変換する方法について
-
【ExcelVBA】インデックスが有効範...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
vba クリップボードクリアについて...
-
エクセルに張り付けた写真のファイ...
-
iPhoneで HTMLファイルを閲覧
-
エクセルで集計したい。
-
プログラミングについて プログラミ...
-
テーブルの行を折りたたみたいので...
-
バッチファイル 特定ウインドウの最...
-
PDFを(htmlのように)無限に縦長に...
-
VBA 別ブックからコピペしたいので...
-
XMLを作成してもタグしか表示されない
-
Google ColaboでGUI作成
-
AIのプログラムについて教えてください
-
プログラミングを学ぼうと思います...
-
VBA 別ブックから条件に合うものを...
-
phpのファイルがブラウザで開かない
-
プログラミングの進学について
-
返信機能のツリー構造の深さをライ...
-
vba 別ブックに転記
-
onedrive にexcelファイルをアップ...
おすすめ情報