回答数
気になる
-
Excelマクロで空白セルの大小比較処理について
Excelで対象のシートを選択した際に、前週の商品単価からプラスマイナス10円以上超過した場合にてメッセージを表示させるマクロを作りたく以下のVBAコードを書いてみましたが、添付画像のように空白セル(B6)があるとメッセージが表示されてしまいます。空白セルを無視することはできないでしょうか? Private Sub Worksheet_Activate() If Range("B3") <= Range("B2") - 10 Or Range("B3") >= Range("B2") + 10 Or _ Range("B4") <= Range("B3") - 10 Or Range("B4") >= Range("B3") + 10 Or _ Range("B5") <= Range("B4") - 10 Or Range("B5") >= Range("B4") + 10 Or _ Range("B6") <= Range("B5") - 10 Or Range("B6") >= Range("B5") + 10 Then MsgBox ("±10円をオーバーしています!") End If End Sub
質問日時: 2023/09/29 10:24 質問者: take_goma カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルマクロで出力行の増やし方がわかりません。
エクセルマクロで残業時間入力シートを作成しています。 1シートあたり8日分しか記載できないため、9日目以降は2枚目に書く必要があります。 下記のコードでは、1枚目が8日分(8行)埋まれば2枚目に移行し、2枚目も8日分(8行)埋まれば3枚目に移行するように組んでいるつもりです。 問題は、1枚目は上から順に8日分記載してくれるのですが、2枚目では記載する行が増えずに同じ行の上に上書きしてしまいます。つまり2枚目が埋まらないのです。下の方の「’出力行を増やす」が2枚目ではどうもうまく機能していないようです。 どのように改善すればよろしいでしょうか?ご指導のほどよろしくお願いします。 Sub 出力するコード() Dim wsInput As Worksheet Dim wsOutput As Worksheet Dim wsOutput2 As Worksheet Dim wsOutput3 As Worksheet Dim LastRow As Long Dim DateRange As Range Dim WeekdayRange As Range Dim AbsenceRange As Range Dim WorkTypeRange As Range Dim DepartureTimeRange As Range Dim OutputRow As Long ' 入力シートと出力シートを設定 Set wsInput = ThisWorkbook.Sheets("入力シート") Set wsOutput = ThisWorkbook.Sheets("出力シート") Set wsOutput2 = ThisWorkbook.Sheets("出力シート2") Set wsOutput3 = ThisWorkbook.Sheets("出力シート3") ' 最終行を取得(B列のデータが入力されている最終行を基準にする) LastRow = wsInput.Cells(wsInput.Rows.Count, "B").End(xlUp).Row ' 列の範囲を設定 Set DateRange = wsInput.Range("B9:B" & LastRow) Set WeekdayRange = wsInput.Range("C9:C" & LastRow) Set AbsenceRange = wsInput.Range("E9:E" & LastRow) Set WorkTypeRange = wsInput.Range("F9:F" & LastRow) Set DepartureTimeRange = wsInput.Range("I9:I" & LastRow) ' 出力行の初期化 OutputRow = 1 'シート2の出力初期化 Dim OutputRowSheet2 As Long OutputRowSheet2 = 1 ' シート3の出力行初期化 Dim OutputRowSheet3 As Long OutputRowSheet3 = 1 ' 行ごとにデータを検査 Dim i As Long For i = 1 To LastRow - 8 ' ヘッダー行を除外するために -8 する If (AbsenceRange.Cells(i).Value = "" And WorkTypeRange.Cells(i).Value = "日勤" And DepartureTimeRange.Cells(i).Value > TimeValue("17:15")) Or _ (AbsenceRange.Cells(i).Value = "" And WorkTypeRange.Cells(i).Value = "6:45早出" And DepartureTimeRange.Cells(i).Value > TimeValue("15:30")) Or _ (AbsenceRange.Cells(i).Value = "" And WorkTypeRange.Cells(i).Value = "11時遅出" And DepartureTimeRange.Cells(i).Value > TimeValue("19:45")) Then If OutputRow <= 8 Then ' 出力シート1に記載 wsOutput.Cells(OutputRow + 6, 1).Value = DateRange.Cells(i).Value ' 日付 wsOutput.Cells(OutputRow + 6, 2).Value = WeekdayRange.Cells(i).Value ' 曜日 wsOutput.Cells(OutputRow + 6, 5).Value = DepartureTimeRange.Cells(i).Value ' 退勤時刻 Else If OutputRowSheet2 <= 8 Then ' 出力シート2に記載 wsOutput2.Cells(OutputRowSheet2 + 6, 1).Value = DateRange.Cells(i).Value ' 日付 wsOutput2.Cells(OutputRowSheet2 + 6, 2).Value = WeekdayRange.Cells(i).Value ' 曜日 wsOutput2.Cells(OutputRowSheet2 + 6, 5).Value = DepartureTimeRange.Cells(i).Value ' 退勤時刻 Else ' 出力シート3に記載 wsOutput3.Cells(OutputRowSheet3 + 7, 1).Value = DateRange.Cells(i).Value ' 日付 wsOutput3.Cells(OutputRowSheet3 + 7, 2).Value = WeekdayRange.Cells(i).Value ' 曜日 wsOutput3.Cells(OutputRowSheet3 + 7, 5).Value = DepartureTimeRange.Cells(i).Value ' 退勤時刻 End If OutputRowSheet2 = OutputRowSheet + 1 End If ' 出力行を増やす OutputRow = OutputRow + 1 OutputRowSheet2 = OutputRowSheet + 1 End If Next i
質問日時: 2023/09/28 23:40 質問者: かいかいまる カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
Gitで空白のみの変更を削除したくてgit diff -wとコマンドで打ったのですが何も変わりません
Gitで空白のみの変更を削除したくてgit diff -wとコマンドで打ったのですが何も変わりません。 原因として何が考えられますか? フロントエンドエンジニア駆け出しのため、何かがぬけているのかもしれません。 ご教授いただければ幸いです。
質問日時: 2023/09/28 20:39 質問者: reo96319 カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
メール送信をVB.NET化するにはどうしたらよいでしょうか?
メール送信をVB.NET化するにはどうしたらよいでしょうか?
質問日時: 2023/09/28 20:26 質問者: あっきー126 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Excel(office365)を使っている者です。 Excel VBAで,PDFでファイルを出力して,そのファイルを当該マクロの入ったファイルと同じ場所に保存したく,以下のようなコードを書いたのですが,一つ上の階層のフォルダに保存(作成)されてしまいます。 どうすれば,同じ階層のフォルダに保存できるようになるのか,ご教示願います。 よろしくお願いいたします。 -----------------------------------------------------(関連する部分のみ抜粋) Dim myfolder As String myfolder = ThisWorkbook.Path l = Worksheets("評価").Range("N5").Value & "・" & Worksheets("評価").Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=myfolder & l & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False ------------------------------------------------------
質問日時: 2023/09/28 13:36 質問者: qazxcvfr4 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
URLにアクセスした際に指定した箇所に飛ぶようにしたいです。
URLにアクセスした際に指定した箇所に飛ぶようにしたいです。 HTMLのコード以下のURLにアクセスすると▼▼のHTML部分直接飛ぶようにしたいのですが、下記のコードでは上手く飛びません。なぜでしょうか? idもきちんと記載されています。#16 #17 飛ばしたい先のHTML id="16" id="17" <div class="category"> <ul> <li><a href="https://●●categorypage2.php#16">家庭用ゲーム機</a></li> <li><a href="https://●●categorypage2.php#17">家庭用ゲームソフト</a></li> </ul> <ul> </div> ▼▼飛ばしたい箇所のHTML以下。 <div class="title3" id="16"><i class="fa-solid fa-pen-to-square"></i>家庭用ゲーム機</div> <div class="title3" id="17"><i class="fa-solid fa-pen-to-square"></i>家庭用ゲームソフト</div>
ベストアンサー
1
0
-
Pythonでのstrip()とsplit()の使い方
text = ' a b c d e f ' で、 text.split() と text.strip().split() は両方ともに、 ['a', 'b', 'c', 'd', 'e', 'f'] で同じ結果になってしまう様なのですが、 text.split()では駄目で、text.strip().split()にしないといけない場合って、 どんなケースがあるのでしょうか?
質問日時: 2023/09/28 01:03 質問者: tmiyoshi カテゴリ: その他(プログラミング・Web制作)
解決済
4
1
-
エクセル VBA 他シートの行を選択して,転記する。
お世話になります。いつも助けられてます。エクセルVBAの質問です。個別のコーディングは できるのですが,表題の件について,アドバイスいただければと思います。 やりたいことは, 1.ThsisWorkBookから他ブックを開く ↓ 2.開いたブックをみながら特定の行を選ぶ(← →キーか,マウスを使う) ↓ 3.選んだ行をThsisWorkBooに転記する のようなことです。今までは,2の部分がは,あらかじめ読む行をテキストボックス等から 取得していましたが,視覚的に分かりやすくしたいので,2の部分をいれたいと考えていま す。 キー入力の方法とうは,分かるのですが,流れとしてどんな手順を踏めばいいのか,また, どのようなイベントを使用すればいいのか,アドバイスいただければありがたいです。
質問日時: 2023/09/27 22:46 質問者: mabo52 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
Pythonで指定時間までスリープするには?
こんなコードが見つかったのですが、これで17:00までスリープできるのでしょうか? また、これが正しいならシンプルなコードに見えるのですがどのようにしたら簡単に思いつきますか? while datetime.datetime.now().hour != 17 or datetime.datetime.now().minute != 0: time.sleep(1)
質問日時: 2023/09/27 13:47 質問者: elee_f カテゴリ: その他(プログラミング・Web制作)
解決済
5
0
-
どの印をつけた範囲の何をどう表示させるといった指定をするファイルは何ですか? CS
どの印をつけた範囲の何をどう表示させるといった指定をするファイルは何ですか? CSS(Cascading Style Sheet) .css HTML(HyperText Markup Language) .html 教えてくださいお願いします
質問日時: 2023/09/27 12:55 質問者: Wohinfahrensie カテゴリ: HTML・CSS
解決済
1
0
-
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教えてください。 AAAAというExcelのデータがあり A列に、支店名コード(4桁)があり、支店ごとの情報がX列まで 入っています。 ①AAAA.excel (データはA列からX列まで) 支店名 売上 最終値引き ・・・・・ 0001 50000 4500 0002 60000 12000 ・ ・ このデータを支店名でフィルターをかけて、支店別のExcelに見出しなし、かつ 支店名を除いたデータを転記したいと考えています。 例えばですが・・[0001支店.excel] にデータを貼り付けたいのですが 支店別のExcelには、A-C列に別の情報が入っていて、 D列から、 売上 最終値引き・・・ の見出しがあるので D列(2行目)から、フィルターをかけた可視セルの情報を値貼付けしたいです。 (A列の支店名は不要) どうしても支店名がコピーされてしまうので、困っています。 どなたか教えていただけると助かります! マクロは、下記の通りです。 Sub TEST() Dim Wb1 As Workbook Dim Wb2 As Workbook '現在開いているファイルを変数格納 Set Wb1 = ActiveWorkbook '別ファイルを開く Workbooks.Open "D:\Users\△△\0001支店.xlsx" Set Wb2 = ActiveWorkbook 'フィルターでデータ抽出 Wb1.Sheets("S1").Range("A1").CurrentRegion.AutoFilter _ Field:=1, _ Criteria1:="0001" If WorksheetFunction.Subtotal(3, Range("A:A")) > 1 Then 'フィルター抽出結果を別ファイルへ転記 With Wb1.Sheets("S1").Range("B1:X1").CurrentRegion .Resize(.Rows.Count - 1).Offset(1, 0).Copy Wb2.Sheets("TEST").Range("D7").PasteSpecial Paste:=xlPasteValues End With End If 'オートフィルタを解除 Range("A1").AutoFilter End Sub
質問日時: 2023/09/27 08:51 質問者: kappasan4646 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
python の素朴な疑問
素朴な疑問です。 pythonは動的言語としては型に厳しくて 2 + "1" なんて書くと エラーになります。しかし True == 1 == 1.0 は True hash(True), hash(1), hash(1.0) は全て 1 True + 1 は 2 なのは有名な話です。 これを知らずに問題が起こることはほとんどないと思いますが True, 1, 1.0 はハッシュのキーとしては重複扱いになり 気味悪いです。 なんでこんな実装にしたのでしょう?
質問日時: 2023/09/26 10:40 質問者: tknakamuri カテゴリ: その他(プログラミング・Web制作)
解決済
3
1
-
ホームページを制作したのですが・・・インデックスされるにはどのようにすればいいですか
ホームページを制作したのですが・・・インデックスされるにはどのようにすればいいですか?・・ホームページを制作したのですが・・・・・・・最善の方法教えてください。googleに登録するとか広告を出すとかですか??
質問日時: 2023/09/26 07:18 質問者: kakagaga1245 カテゴリ: SEO
解決済
3
0
-
【VBA】飛び飛びの3セルに"完了"かもしくは"支援なし"の文字が入っていたら、計算を実行したい
VBA初心者です。初めて質問させて頂きます。 400行程度の業務管理表のマクロを作成しております。 1行につき1物件のデータですが、1物件につき3回の〆切日があります。 その3回とも"完了"かもしくは"支援なし"になったら、それぞれの作業時間を合計するような感じにしたいです。 (作業時間の方は、同じシート内の遠い場所にSplit関数で1セルずつ抽出しております。) 以下のように考えてみたのですが、全く動作せず・・・検索や書籍にあたってもなかなか該当する内容に当たらず途方に暮れております・・・。 何か原因はございますでしょうか。ご教示いただけますと幸いです。 宜しくお願い致します。 Sub 複数のセルが終了か支援なしの時() Dim i, lRow As Long Dim rng As Range lRow = Cells(Rows.Count, "B").End(xlUp).Row For i = 6 To lRow Next Select Case Cells(i, 16).Value & Cells(i, 24).Value & Cells(i, 34).Value Case "終了", "支援なし" Set rng = Union(Range(Cells(i, 178), Cells(i, 192)), _ Range(Cells(i, 206), Cells(i, 220)), _ Range(Cells(i, 234), Cells(i, 248)), _ Range(Cells(i, 262), Cells(i, 276)), _ Range(Cells(290))) Cells(i, 43) = _ Application.WorksheetFunction.Sum(rng) Case Else '何も実行しない End Select End Sub
質問日時: 2023/09/26 04:21 質問者: のこのこさんぽ カテゴリ: Visual Basic(VBA)
解決済
2
0
-
さくらサーバーにcgiフォームを設置したところ・・・・
「このフォームはセキュリティで保護されていません}オートフィルがオフになっています」とメッセージが出ます。サクラの仕様が変わったのか、当方のパソコンがおかしいのか教えてください
解決済
1
0
-
PHP8を使うと、大量のWarningが発生してしまいます。
PHPの勉強をしています。 先日ローカル環境のPHPを8に変更したのですが、その際今まで発生したいなかったWarningが沢山表示されて困っております、大きく仕様が変わったのでしょうか…。 アドバイスを頂けますと幸いです。 例えばメールフォームで今まで以下のように記述していたのですが、 <?php if ($_SERVER["REQUEST_METHOD"] === "POST") { $error = []; if ($_POST["lastName"] === "") { $error["lastName"] = "blank"; } } ?> <form action="" method="post"> <fieldset> <legend>お名前</legend> <label>姓 <input type="text" name="lastName" value="<?php echo $_POST["lastName"]; ?>"> <span class="require"> <?php if ($error["lastName"]==="blank") { echo "※お名前を入力してください。"; } ?> </span></label> <input type="submit" value="送信する"> </form> しょっぱなからエラーが表示されます。 Warning: Undefined variable $error in E:\xampp\htdocs\index.php on line 45 Warning: Trying to access array offset on value of type null in E:\xampp\htdocs\index.php on line 45 遷移先の同ページで$_POSTを受け取った際にも以下のエラーが表示されます。 Warning: Undefined array key "lastName" in 調べてみると回避策として、isset()を指定するようなことがか書かれているのですが、色々と試してみるのですがうまく設定ができません。 ちなみに、error_reporting(E_ERROR | E_PARSE | E_NOTICE); でエラーを無視すると意図する動きをしてくれるのですが、そもそもきちんとした書き方ができていないからエラーが出ていると思うので、この辺り正しい書き方で対応したいと思っております。 アドバイスのほど宜しくお願いいたします。
解決済
2
0
-
select case について
いつもお世話になっております Range("C2:C4")に値を入力すると C6に合計がでます。 '① '② '③ の部分を一つにまとめることはできますでしょうか Private Sub Worksheet_Change(ByVal Target As Range) Dim Rngs As Range, Rng As Range Set Rng = Intersect(Target, Range("C2:C4")) If Rng Is Nothing Then Exit Sub For Each Rngs In Rng Select Case Rngs.Address(False, False) Case Is = "C2" '① Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4")) Case Is = "C3" '② Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4")) Case Is = "C4" '③ Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4")) End Select Next
質問日時: 2023/09/24 23:14 質問者: りんごプリン カテゴリ: Visual Basic(VBA)
解決済
1
1
-
JavascriptでDom XSSの脆弱性対策を行いたい
現在雑談掲示板を作成しており、ヤフー知恵袋のような入力可能な文字数をカウントする機能を考えているのですが、JavascriptのDOM-based XSS対策用にコードを組むのが難しく困っております。HTMLクラスを1つにしてifで分岐表示することは可能でしょうか? アドバイスお願い致します。 エレメント事作る=そこでDOM要素が発生の原因になるため(無限DOM)、初めは入力文字のカウントを表示させずに入力されたら残りの文字数をカウントして、制限文字数をオーバーしたら超過した文字数を表示させるようにコードを考えました。 画像のアップロードが名前、メッセージの前になるので、参考サイトのどちらのコードを使えばよいのか分からず前者を使うようにしております。 ※window.onload = function() {} は動かない原因になりうるため window.addEventListener('DOMContentLoaded', function() {} を代用するように変更しております。 ※参考サイト https://took.jp/window-onload/ ※アドバイス頂いたもの submit_button_validationだけを使って innerHTML="残り<span>"+v+"</span>文字入力できます。"; の時と、 innerHTML="span>"+v+"</span>文字超過しています。"; の時を、ifで制御すればOK ※考えたコード <div class="title-partial parts"> <!-- title-partial + parts --> <h2>名前(name)<span class="required">※必須</span></h2> <div class=parts> <input class=submit_button type="text" type="text" name="name1" id="name" data-length=32 placeholder="未入力の場合は、匿名で表示されます" value="<?php echo $namae; ?>"> <div class="submit_button_validation submit_button_validation"></div> </div> <div class="body-partial parts"><!-- body-partial + parts --> <h2>コメント(comment)<span class="required">※必須</span></h2> <div class=parts> <input class=submit_button type="text" name="name2" id="message" data-length=40 placeholder="荒らし行為や誹謗中傷や著作権の侵害はご遠慮ください"><?php echo $message; ?> <div class="submit_button_validation submit_button_validation"></div> </div> <script> function validation_submit(f) { const submit = document.getElementById("submit_button"); /* 判定は逆なので、逆に渡す */ /*JavaScriptの要素を活性または非活性にする */ submit.disabled = f?false:true; }; function validation_text(parts) { /* このpartsグループの、input=textを抽出 */ /* HTML要素を取得 */ let text=parts.getElementsByClassName('submit_button')[0]; /* バリデーション警告パーツを抽出 */ let validation=parts.getElementsByClassName('submit_button_validation')[0]; validation.style.display = 'none'; /* 例えばのチェック */ /* window.onload = function() {} を window.addEventListener('DOMContentLoaded', function() {} に変更 */ window.addEventListener('DOMContentLoaded', function() { let wao = document.getElementsByClassName('submit_button_validation'); const left = text.dataset.length-text.value.length; if (left >= 0) { /* ひとまずclassは複数配置できる形式なので、見つかった最初の1個目にアタッチ */ wao[0].innerHTML="残り<span>"+v+"</span>文字入力できます。"; text.value.length === 0; } else { /* そのまま、2個目にアタッチ */ wao[1].innerHTML="<span>"+v+"</span>文字超過しています。"; } }) }; /* バリデーション条件判断部分 */ function validation() { let parts = document.getElementsByClassName('parts'); let submit=true; for (let i=0;i<parts.length;i++) { if (validation_text(parts[i])!=true) { submit=false; } } validation_submit(submit); }; /* DOM構築が終わってから呼び出される初期化関数 */ function init() { // let text = document.getElementById('submit_button'); // text.oninput = e_text; /* ↑これを、idじゃなくてclass対応に変更↓ */ /* class=parts内の class=submit_buttonに対して設定 */ let parts = document.getElementsByClassName('parts'); for (let i=0;i<parts.length;i++) { parts[i].getElementsByClassName('submit_button')[0].oninput = validation; } validation(); }; window.onload = init; </script>
質問日時: 2023/09/24 21:20 質問者: 初心者サイト作成 カテゴリ: JavaScript
ベストアンサー
2
0
-
xlookup関数の引数を利用して検索元に移動するVBAコードについて
sheet2のa1:a10には支店番号、b1:b10には支店名のデータが入力されています。sheet1のa1セルに支店番号を入力するとxlookup関数を用いて支店名がsheet1のb1セルに表示されるようになっています。そのsheet1の支店名が表示されているセルをクリックするとsheet2の検索元のセルに移動するvbaコードを教えてください。 chatgptに聞いても作動できるコードにたどり着きませんでした。
質問日時: 2023/09/24 11:48 質問者: 003popo カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
HTML電卓で1文字消す方法
https://jp-seemore.com/web/3142/ このページの最初のコードで、1文字消す(末尾)方法を教えてほしいです。よろしくお願いします。
解決済
1
0
-
VB.Netでファイル圧縮する方法は何ですか?
VB.Netでファイル圧縮する方法は何ですか?
質問日時: 2023/09/22 16:38 質問者: あっきー126 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
質問日時: 2023/09/22 08:24 質問者: あっきー126 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Fortran の定数表現について
Fortran95 以降の Fortran で変数 a を以下のように倍精度に宣言しているとします。 real( Kind=8 ) :: a この変数の値をプログラム中で1.0 だけ増やしたいとき、以下のように書くのは普通だと思います。 a = a + 1.0d0 それに対して以下のように書く事が出来ます。 a = a + 1.0_8 このアンダースコアに続けて Kind 値に相当する数を書く書き方は標準の文法にあるのでしょうか。 それとも、この書き方は推奨されないとかのように、なにか特定のコンパイラなどに依存する方言的なものなのでしょうか。 ご存じの方がいらっしゃったら教えてください。
質問日時: 2023/09/22 00:09 質問者: Bunbuk803 カテゴリ: その他(プログラミング・Web制作)
解決済
3
0
-
ワードプレスで事前定義されたclassの一覧を見たいです
お世話になっております。 ワードプレスには、事前定義されたclassがあると知りました。 例えば、画像を丸く表示したいときは、画像を選択して「追加cssクラス」に「is-style-circle-mask」と入力すれば、自分でcssを記述しなくても画像が丸く表示されます。 このようにワードプレスで事前定義されているclassの一覧を見たいのですが、検索してもヒットしません。 どこかで一覧があれば教えていただけますか。 よろしくお願いいたします。
ベストアンサー
1
1
-
web制作をしているのですが、ページ内リンクを押すとidを指定しているブロックより上の方に飛んでしま
web制作をしているのですが、ページ内リンクを押すとidを指定しているブロックより上の方に飛んでしまいます。 原因がわからず困っています。考えられる理由を教えていただけると幸いです。よろしくお願いいたします。
ベストアンサー
1
0
-
ExcelのVBAコードについて教えてください。
マクロコードがあります。 このマクロをマクロ実行では無く、マクロを設定している作業ブックを開いたタイミングで実行出来るように VBAコードを「ThisWorkbook」に設定する方法を教えてください。 詳しいコード共に親切に教えて頂ける方、宜しくお願い致します。 マクロ Sub 番号コピー() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then GetIDNuber (.SelectedItems(1)) End If End With End Sub Function GetIDNuber(s As String) As String Dim temp Dim IDNumber As String temp = Split(s, "\") temp = Split(temp(UBound(temp)), "_") SetClipBoard (temp(0)) End Function Sub SetClipBoard(s As String) Dim buf As String, buf2 As String, CB As Object Set CB = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") With CB .SetText s ''変数のデータをDataObjectに格納する .PutInClipboard ''DataObjectのデータをクリップボードに格納する .GetFromClipboard ''クリップボードからDataObjectにデータを取得する End With End Sub このマクロ実行すると第が開き、指定したフォルダ名の「_」から前の番号をコピーできるようになっております。 宜しくお願い致します。
質問日時: 2023/09/21 13:01 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
align-itemsの使い方。本が間違っている?
お世話になっております。 align-itemsの使い方について調べていたら、いくつかの本やサイトではflexアイテムの縦方向を決めるとあります。これが正解なように思えます。 しかし、HTML&CSS全辞典という本では、 「align-itemsプロパティは、配置されるすべてのボックスに対して既定となるalign-selfプロパティの値を定義します。」 と書いてあり、さらに「適用される要素」は「すべての要素」と書いてあります。 これって、本が間違いですよね? 詳しい方がいらっしゃいましたらよろしくお願いいたします。
ベストアンサー
3
0
-
ボックスを中央配置したいです。
青みどりの全体の背景の上に薄いグレー色のボックスがあり、さらにそのボックスの上に3つボックスを配置するコードを書いているのですが、3つのボックスが均等に中央配置されず困っています。 一見PCのデバイス幅では中央配置に見えますが、デバイス幅を縮小するにつれて中央配置にならず、それが目立ってしまいます。3つのボックスを中央配置するにはどうしたらよいでしょうか? ●HTMLのコード以下 <div class="zentai"> <div class="box"> <div class="box2"> <div class="title3">テキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキ </div> </div> <div class="box1"><div class="title2">入力フォーム内に以下の項目を記載して下さい。</div></div> <div class="box2"> <div class="title5">テキストテキストテキストテキストテキストテキストテキストテキストテ</div> </div> <div class="box3"> </div> </div><!--div box--> </div> ●CSSのコード .zentai{ background-color:#299CA4; } .box{ position: relative; max-width: 1106px; width: 88%; height: auto; margin-right: auto; margin-left: auto; margin-top: 100px; margin-bottom: 80px; padding: 10px 30px 16px 30px; background-color: #f9f9f9; color: #006666; z-index: 1; } /*ボックス2*/ .box2{ position: relative; display: inline-block;/*テキストと背景を同じ長さに*/ width: 94%; height: auto; margin-right: auto; margin-left: auto; margin-bottom: 30px; padding-right: 20px; padding-left: 20px; padding-top: 5px; padding-bottom: 10px; background-color: #d4ebeb; border-radius: 0 12px 12px 12px; z-index: 9999; } /*3つ目のボックス*/ .box3{ position: relative; width: 94%; height: auto; margin-right: auto; margin-left: auto; margin-bottom: 16px; padding-right: 20px; padding-left: 20px; padding-top: 12px; padding-bottom: 10px; background-color: #FFFFFF; border-radius: 12px 12px 12px 12px; border: 1.5px solid #ddd; } /* ボックス3の中にフォーム */ .auto-style15{ letter-spacing: -0.04em; width: 90%; max-width: 600px; }
ベストアンサー
2
0
-
Excel VBA素人です。VBAで図形のセンタリング方法ご教示下さい
Excel VBA素人です。VBAで図形をセンタリングする為のコードご存じの方教えてください。 C1:G8には文字(アルファベット)が入っています。 文字を検索し「A」のみの中央に図形の「〇」(※緑色)を付けたく、以下のコードを作ってみましたが、添付の写真のように、セルの中央に「〇」が付きません。Forループを使わない場合は上手くいくのですが。(尚、図形削除のボタンは無視してください) 図形を文字中央に移動するために必要なコード(Forループ内で)をご教示ください。 以下現状のコードです。 Sub まる() Dim n As Integer Dim d As Integer s = 0 For d = 1 To 5 For n = 3 To 8 If Cells(d, n) = "A" Then ActiveSheet.Shapes("まる").Copy Cells(d, n).Select ActiveSheet.Paste End If Next n Next d End Sub 素人ですので丁寧なご指導をお願いいたします。
質問日時: 2023/09/19 10:39 質問者: さつまいも----------。 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Python超入門者です、win pcにv3.1インストールして入力してたった3行のコマンドを入力s
Python超入門者です、win pcにv3.1インストールして入力してたった3行のコマンドを入力saveしたら、その後開いてEnter keyを押しても動作しません。 入門書には、トラブルシューティングが記載してなくて八方塞がりです。 ちなみにimportとかいう動作です。
質問日時: 2023/09/19 01:13 質問者: tkcj2009 カテゴリ: その他(プログラミング・Web制作)
解決済
3
0
-
C言語について。
char文は、intやfloat文と同様で、データ領域を確保しまでは分かったのですが、charTable[20]は、変数名とも配列名とも言っているのですが、変数名と配列名は同じなのでしょうか?教えて頂けると幸いです。
質問日時: 2023/09/15 22:24 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
Google Colabでimport soxが出来ない件
Google Colabのjupyternotebookで、 import sox を実行すると、 ModuleNotFoundError: No module named 'sox' のエラーになります。 それで、 !pip install sox を実行してやってみたのですが、 WARNING:sox:This install of SoX cannot process .wav files. みたいなワーニングが出て上手くいきません。 既にご経験のある方、ご教示願えればと思います。
質問日時: 2023/09/15 12:26 質問者: tmiyoshi カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
エクセルのマクロについて教えてください。 印刷設定をマクロで設定することは可能でしょうか。 マクロを実行して 作業ブックの指定シートをページレイアウトが「2in1」「両面」に出来る方法があれば教えてください。 指定シート名は「1号確認」「4号完了」の2つです。 詳しいコード共に親切に教えて頂ける方、よろしくお願いします。
質問日時: 2023/09/15 09:38 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
インドe-Visa 承認書のApplication Formとは
インド渡航時に必要となる承認書(ETA)のApplication Form(1ページ目の Signature にパスポートと同じサインをお願いします)がなんなのか分かりません。 ご存知の方いましたらご教授ください。
質問日時: 2023/09/14 07:33 質問者: st9722 カテゴリ: Microsoft ASP
解決済
1
1
-
ヤフー知恵袋みたいなサイトを作成中です。
ヤフー知恵袋みたいなサイトを作成中です。 それに対応したプログラミングの書籍はないでしょうか? GoogleBardの回答は以下です。 ヤフー知恵袋のようなQ&Aサイトを作成するには、以下の3つの要素が必要です。 ユーザーが質問を投稿できる機能 質問に回答できる機能 質問と回答を管理する機能 これらの機能の実現には、プログラミングが必要です。 ヤフー知恵袋のようなサイトのプログラミングについて解説した書籍は、いくつかあります。 以下に、いくつかの書籍をご紹介します。 「Q&Aサイトのプログラミング入門」(翔泳社) この書籍は、HTML、CSS、JavaScriptなどの基本的な技術から、PHPやMySQLを使ったQ&Aサイトの作成方法までを解説したものです。 「Q&Aサイトのプログラミング」(技術評論社) この書籍は、Q&Aサイトの構築方法から運営方法までを、実践的な内容で解説したものです。PHPやMySQLを使ったQ&Aサイトの作成方法について、より詳細に解説しています。 「Q&Aサイトのプログラミング 応用編」(技術評論社) この書籍は、Q&Aサイトの応用的な機能を実装する方法について解説したものです。ランキング機能や検索機能などの実装方法について、具体的なコード例を交えて解説しています。 以上ですが 無いですよね? よろしくお願いいたします。
質問日時: 2023/09/14 06:57 質問者: Campus_20231226 カテゴリ: XML
ベストアンサー
5
0
-
Vba Cells.Findについて教えてください
いつもお世話になります 今、ひとつのシートにユーザ定義関数が二つ有って それぞれの関数は定義されているセルの下に表を持っています Application.Volatileを使って自動計算をさせ Row0 = Application.ThisCell.Row sht.Cells(Row0, 1).Activate Call FindColumnWhole("周期", Row1, Col1) その関数以下の行から検索させていますが どうしても上の表の文字を検索してしまいます Afterが機能しないので困っています もし分かりましたら教えてください なお、自動計算にはこんな定義もしています Dim targetCell As Range Set targetCell = Application.Caller Set sht = targetCell.Parent また、Findのサブルーチンは以下のようにしています Sub FindColumnWhole(ByVal SearchM As String, Findrow As Integer, Findcol As Integer) Dim FoundCell As Range, FirstCell As Range, Target As Range nError = True Set FoundCell = Cells.Find(what:=SearchM, After:=Cells(Row0, 1), LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False) If FoundCell Is Nothing Then 'MsgBox "検索文字(" + SearchM + ")が見つかりません" nError = False Exit Sub Else Set FirstCell = FoundCell Set Target = FoundCell Findrow = FoundCell.Row Findcol = FoundCell.Column End If End Sub いつもありがとうございます ちょっと分かりづらい説明になってしまいましたが よろしくお願い申し上げます
質問日時: 2023/09/13 19:47 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
ワードプレスで、特定の記事のみGoogle検索で引っかからないようにしたいです。 All in th
ワードプレスで、特定の記事のみGoogle検索で引っかからないようにしたいです。 All in the SEO Parkをダウンロードしたのですが、「All in One SEO」のなかに「noindex設定」という項目がありません。 また、mypace Custom Meta Robots をインストールして「noindex follow」にチェックをいれても、Google検索に表示されてしまいます。 どうすればいいでしょうか…
解決済
1
0
-
xmlドキュメントから別拡張子で保存したい
★以下エラー箇所★にて、エラーが発生してしまい修正ができず困っています。 エラー内容は、 「実行時エラー1004,SaveAsメソッドは失敗しました'_Workbook'オブジェクト] ファイルの種類は、xmlドキュメント(エクセル状態) Private Sub ファイル名作成() Dim lastRow As Long Dim supplierNames As Object Dim supplierName As Variant ' データの最終行を取得 lastRow = Cells(Rows.Count, "B").End(xlUp).Row ' 仕入先名称を格納するコレクションを作成 Set supplierNames = CreateObject("Scripting.Dictionary") ' データの重複を排除してコレクションに追加 For i = 2 To lastRow ' ヘッダー行を除外 If supplierNames.Exists(Cells(i, "B").Value) = False Then supplierNames.Add Cells(i, "B").Value, 1 End If Next i ' コレクションの要素をファイル名として連結 For Each supplierName In supplierNames.Keys fileName = fileName & supplierName & "," Next supplierName ' ファイル名の最後のカンマを削除 fileName = Left(fileName, Len(fileName) - 1) ' ファイル名に使用できない文字を削除する fileName = ReplaceInvalidFileNameCharacters(fileName) ' ファイルを保存 ' On Error Resume Next ' ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.Path & "\" & "単価変更リスト_" & Format(Date, "yyyymmdd") & "_" & fileName, _ ' FileFormat:=xlOpenXMLWorkbook ★以下エラー箇所★ ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.Path & "" & "単価変更リスト_" & Format(Date, "yyyymmdd") & "_" & fileName & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook ' If Err.Number > 0 Then ' MsgBox ("ファイルを選択してください") ' End ' End If '単価リストブックアクティブ用 priceListBook = ActiveWorkbook.Name End Sub
質問日時: 2023/09/12 11:08 質問者: tanukiin カテゴリ: Visual Basic(VBA)
解決済
4
0
-
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
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコン
-
これて逆じゃないですか?
-
1、Rstudioで回帰直線を求めるため...
-
あんまり考えたくないけど
-
jQueryでシンセサイザーを作ってい...
-
PHPについて。
-
【ExcelVBA】値を変更しながら連続...
-
C言語について。
-
python3について。
-
時間短縮のために、テキストファイ...
-
C言語について。
-
コンソールアプリを作成するのにお...
-
htmlの文字が縦書きになる
-
C言語について。
-
アンリアルエンジン5に関して、3Dの...
-
Windows10にデュアルブートでXPをイ...
-
PHPからCSVをアップロード後、mysql...
-
vba クリップボードクリアについて...
-
Excel VBA 選択範囲の罫線色の変更...
-
二次元配列を使って順位をだすとき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
エクセルで集計したい。
-
1、Rstudioで回帰直線を求めるため...
-
プログラム言語について c言語もコ...
-
vba クリップボードクリアについて...
-
C#でログファイルにファイルパスが...
-
Python、プログラミングについて質...
-
バッチファイルで以下のようなもの...
-
onedrive にexcelファイルをアップ...
-
VBAなくなるの?
-
テキストファイルの1行目のみを削除...
-
XMLを作成してもタグしか表示されない
-
プログラミングの課題がわからない...
-
バッチファイル 特定ウインドウの最...
-
エクセルに張り付けた写真のファイ...
-
配列にnullを代入すると、nullが文...
-
だれがとけるの?
-
0 == False はいいけど
-
VBAでCOPYを繰り返すと、処理が途中...
-
CPUが16bitでも32bitOSでコンパイル...
おすすめ情報