その他（プログラミング・開発）

WordPressのWoocommerceで作成した、商品詳細ページに表示される、パンくずリストのリンク先のページを修正したいです。 Woocommerceで商品ページを作成すると、そのページの左上にパンクズリストが表示されます。 HOME > カテゴリページ > 商品詳細ページ という感じです。 このカテゴリページにあたるページの修正をいろいろと探してみましたが、どこで行うかがわからないです。 また、パーマリンクを設定して、そのリンクにはまるように固定ページを作成したのですが、その固定ページにはジャンプしないで、カテゴリ名が入った、メイン部分が空のどこで設定されているかわからないページにジャンプします（404ページにはならないです）。 この、商品詳細ページの上位のカテゴリページ（上記のメイン部分が空になるページ）をどこで修正するか知りたいのと、またはそのリンク先を設定した固定ページに飛ぶようになるか、どちらかで解決したいです。 よろしくお願いいたします。

winXp access2003 クエリー　デザインビューにおいて 日付フィールドを 今月の初日からで 検索したいのですが 抽出条件を >=""Year(Now())"/"Month(Now())"/"1"" >="Year(Now())"/"Month(Now())"/"1" これですと いずれも うまくいきません 抽出条件で　データ型が一致しません とでます 宜しくお願い致します

宜しくお願い致します win10 access365 先日、ここでお尋ねした アクセスファイルのVBAコードからエクセルファイルを作成するための コードをお尋ねし、以下では L.xlsxが作成されて、 アクセスのテーブル　KJKTから　データ転送が 行われるというコードを教示頂きました しかしながら 同様の操作をするときに L.xlsxのデータが 上書きされずに 以前に作ったデータのまま 残ってしまってました そこで 以下のようなエクセルVBAを R.xlsmに作りました Ldataclear() です 毎回 このマクロを実行して いったんL.xlsxの データを当該シートから削除して まっさらにして そのうえで Exp123()を実行すれば 目的は叶うのですが 迂遠なような気もしました もっと簡単に 上書き保存のできる コードなど あるのでありましたら 御教示くださいませ 宜しくお願い致します Private Function Exp123() '変数宣言 Dim srchXls As String 'Excelエクスポート先のファイルパス srchXls = "C:\Users\USER\Desktop\ACCESS\L.xlsx" 'Excelファイルの出力 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "KJKT", srchXls, True, "output" 'Excelファイルをエクスポートした旨を通知する。 MsgBox "Excelをエクスポートしました。" End Function ---------------------- Public Function ExcelRmacro() Dim oApp As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'ファイルを開く oApp.Workbooks.Open FileName:="C:\Users\USER\Desktop\ACCESS\R.xlsm" oApp.Application.Run ("'R.xlsm'!Ldataclear") End Function -------------------------------- Sub Ldataclear() ' FilePath = "C:\Users\USER\Desktop\ACCESS\L.xlsx" 'ここにファイルの場所ファイル名を記載 Set Wb = GetObject(FilePath) Set Ws = Wb.Worksheets("output") 'ここにシートを記載する Ws.Cells.Delete Wb.Save Application.CutCopyMode = False ActiveWorkbook.Save End Sub

win10 office365 access365におきまして フォーム　Fを開いて そのなかの非連結テキストが　コンボボックスになっており そのコンボボックス名をcombo としますとき そこに規定の文字列 これは　そのコンボボックスの選択文字列として あるもので たとえば、あかさ この文字列は コンボボックスを開くと 第１列に表示されます 一番左側です を入れたいとき Sub Sample() DoCmd.OpenForm "F", acNormal Form![F]!combo = "あかさ" end sub フォームFは当然開くのですが 非連結コンボボックス　comboは 空白のままです Form![F]!combo = "あかさ" ここの部分を Form![F]!combo.column(0) = "あかさ" または Form![F]!combo.column(1) = "あかさ" としても 同様の結果となります ② もうひとつすみませんが テキストボックス　コメントテキストに 本日の日付で ４月１７日であれば 0417 と入れたいので Forms![F]![コメントテキスト] = Format(Now, mmdd) としますと 2024/04/17 13:02:59 と出てしまいます できるものなら 全角で ０４１７ と打ち出したいのですが、、 重ねて　恐縮ですが 御教示宜しくお願い致します

win10 office365 access365におきまして フォーム　Fを開いて そのなかの非連結テキスト　textが あるとしまして そこに規定の文字列 たとえば、あいう を入れたいとき Sub Sample() Dim cn As ADODB.Connection Set cn = CurrentProject.Connection DoCmd.OpenForm "F", acNormal Form![F]!text1 = "あいう" end sub フォームFは当然開くのですが 非連結のテキスト　textは 空白のままです ちなみに 通常の使い方は このテキスト　text1の空欄に カーソルを合わせて 文字を打ち込んで行き 最後は　既製の保存ボタンをクリックすることにより 別テーブルに非連結テキストに入力した値を保存する流れになりますが、 この非連結テキストが複数ありまして テンプレートを作りたいので 上記のようなコードを 考えました すみませんが 不足しているポイントの 御教示宜しくお願い致します

エクセル　保存是非のダイアログを出さずに保存VBA エクセルファイルの ひとつのブック L.xlsxの特定のセルを 別のブックR.xlsxのセルにコピーするを VBAコードで　コピーまでは出来たのですが R.xlsxのブックを保存するかどうかの ダイアログが出てしまいます これが出ないで保存できるように ActiveWorkBook.Save これを入れてもやはり保存是非の確認が 出てしまいます コードは -------------------- Sub ID移動() Dim x As Workbook Dim y As Workbook Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\L.xlsx" Set x = Workbooks("L.xlsx") Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\R.xlsx" Set y = Workbooks("R.xlsx") y.Sheets("sheet1").Range("A2") = x.Sheets("output").Range("B2") x.Close y.Close ActiveWorkBook.Save End Sub ------------------ 保存是非のダイアログがでないで 保存できるための方法を 御教示いただけますか win10 office365 すみませんが 宜しくお願い致します

githubを良く理解できていないので、おかしな質問かもしれませんが許してください。 パブリックに公開されているリポジトリをcloneしました。 それをいじったり、別のプログラムと同じフォルダにまとめたりしました。 そのフォルダを、自分のプライベートリポジトリにバックアップするにはどうすればいいですか？

最近、Minecraftを趣味でやってたときに、「Minecraftって天才だな」って思ったんですよ。 そのデザイン性とか設定とか、あらゆるところに気が配られてて、今更鳥肌が立ちました。 そこで、アイデアがほしいのですが、なるべくMinecraftの特徴を残したまま、誰が見ても別ゲーなものになるようにしたいです。 また、ストーリーではなく、ゲームの「世界観」を考えてほしいです。 　　　　　　　　↓読んで *質問主がいいと思った案は、回答者様の許可を取ることができれば、作らせていただきます。なので、「回答者様の案を更に改良してだすなら良い」という考えの人は末尾に「A」、「そのままで作って良い」という考えの人は末尾に「B」、「あくまで参考にするのみ」という考えの人は末尾に「C」と入れてください。これは必須でお願いします。 (↑尚、これは採用制) *また、希望する方のみ、希望された名前で「SuperThanks」として名前を挙げさせていただきます。 (↑尚、これは回答者様全員)

あるxmlファイルを一旦テキストファイルにして そこから数値をエクセルファイルに移行して ひとつはM.xlsxとし それに続いて行列を入れ替えた エクセルファイルR.xlsxを 作りたいのですが M.xlsx　R.xlsxのそれぞれを作るコードを 単純に　合体させただけでは どうも　できません M.xlsxだけ　また　R.xlsxだけの 作成するコードは　出来たのですが それぞれ別のマクロとして実行することになります ひとつのマクロでM.xlsx　R.xlsx同時に 作成するVBAコードは可能でしょうか 宜しくお願い致します ちなみに該当コードを単純化して 合体したのが以下のものです win10 office10 Sub 783縦() Dim FileName As Variant ChDir "\\DESKTOP-O5\f" FileName = Application.GetOpenFilename(FileFilter:="xmlファイル,*.xml") If FileName = False Then MsgBox "キャンセルされました" Exit Sub End If FileCopy FileName, Left(FileName, InStrRev(FileName, "\")) & "テキスト.txt" Const MyFile = "\\DESKTOP-O5\f\テキスト.txt" Const Key1 = "<Name>" Const Key2 = "</Name>" Const Key3 = "<NameKana>" Const Key4 = "</NameKana>" Const PutBokName = "M.xlsx" Dim buf As String Dim Len1 As Long Dim Len2 As Long Dim Pos1 As Long Dim Pos2 As Long Dim Len3 As Long Dim Len4 As Long Dim Pos3 As Long Dim Pos4 As Long Dim PutBook As Workbook With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile MyFile buf = .ReadText .Close End With Len1 = Len(Key1) Len2 = Len(Key2) Pos1 = InStr(buf, Key1) Pos2 = InStr(buf, Key2) Len3 = Len(Key3) Len4 = Len(Key4) Pos3 = InStr(buf, Key3) Pos4 = InStr(buf, Key4) Set PutBook = Workbooks.Add With PutBook.Sheets(1) .Cells(1, 1).Value = "氏名" .Cells(1, 2).Value = Mid(buf, Pos1 + Len1, Pos2 - (Pos1 + Len1)) .Cells(2, 1).Value = "氏名カナ" .Cells(2, 2).Value = Mid(buf, Pos3 + Len3, Pos4 - (Pos3 + Len3)) 'クリップボードをクリア Application.CutCopyMode = False PutBook.SaveAs ThisWorkbook.Path & "\" & PutBokName End With Const PutBokName = "R.xlsx" Dim buf As String Dim Len1 As Long Dim Len2 As Long Dim Pos1 As Long Dim Pos2 As Long Dim Len3 As Long Dim Len4 As Long Dim Pos3 As Long Dim Pos4 As Long Dim PutBook As Workbook With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile MyFile buf = .ReadText .Close End With Len1 = Len(Key1) Len2 = Len(Key2) Pos1 = InStr(buf, Key1) Pos2 = InStr(buf, Key2) Len3 = Len(Key3) Len4 = Len(Key4) Pos3 = InStr(buf, Key3) Pos4 = InStr(buf, Key4) Set PutBook = Workbooks.Add With PutBook.Sheets(1) .Cells(1, 1).Value = "氏名" .Cells(2, 1).Value = Mid(buf, Pos1 + Len1, Pos2 - (Pos1 + Len1)) .Cells(1, 2).Value = "氏名カナ" .Cells(2, 2).Value = Mid(buf, Pos3 + Len3, Pos4 - (Pos3 + Len3)) 'クリップボードをクリア Application.CutCopyMode = False PutBook.SaveAs ThisWorkbook.Path & "\" & PutBokName End With End Sub -------------------------------

人感センサーで単純にオン・オフしたりするものは巷に溢れていますが、センサーの感知結果を、USBなどを介してパソコンにバイナリやテキストなどの形式で送信するものはありますか？プログラミングで処理できるものがあったらいいなと。

エクセルの縦の列におきまして たとえば列A1からA31までの セル　数値が　入っています、を 合計してA33に返すとして これをコードのなかの 一連の作業として行いたいので VBAで試行錯誤していますが Cells(33, "A").Value = Application.WorksheetFunction.Sum("Cells(1, "A"):Cells(31, "A")") Cells(33, "A").Value = Application.WorksheetFunction.Sum("A1:A31") いずれも稼働しません 宜しくお願い致します win10 office365

たとえば17；45を基準として18：00退勤であれば１５分の残業として時給１０００円とすると0.25*1000の２５０円の残業代となるわけですが、VBAの一連のコードのなかで　それを計算したいので、たとえばセルDに退出時刻　そのときの残業代をセルIに返すのを　Cells(i, "I").Value = (Cells(i, "D").Value-17:45)*24*1000　を作ってみましたが　稼働しません

エクセルファイルにおきまして セルDi　＝退勤時刻としまして 基準退勤時刻を18：00とし、18：00ちょうどに 退勤であれば残業代は0となります 18：45であれば0.25*1000　２５０円が残業代として 加算となります 時給を１０００円として 残業または早退のときの 加算または減算金額を計算したいのですが iが1から31となります VBAで計算する場合は どのようになるでしょうか すみません 宜しくお願い致します win10 office365

勤務リスト.xlsx におきまして セルE1に、午前休、 という文字列があれば セルF1に数値の0 セルG1に数値の2000 を入力 同様に セルEiに、午前休、 という文字列があれば セルFiに数値の0 セルGiに数値の2000 ３１日を計算にいれて iを1から30としました エクセルファイルの開発から マクロに行き 以下のコードをいれましたが ------------------------------- Sub 午前休み() Dim 選択シート As Sheets Dim i As Integer Set 選択シート = ActiveWindow.SelectedSheets If InStr(Cells(5, i), "午前休") > 0 Then Cells(6, i).Value = 0 Cells(7, i).Value = 2000 i = 1 Do Until i = 30 i = i + 1 Loop End If End Sub 上記　作動しません すみません 御教示くださいませ win10 office365

firebaseを利用していてわからないことがあるので教えて下さい。 例えば認証機能を利用しているとします。 そこにMessage機能を利用したい場合、Message機能のプロジェクトを作成しgoogle-service.jsonファイルをダウンロードして自分のプロジェクトで利用すると思いますが、すでに認証機能で利用しているgoogle-service.jsonとどのようにマージすればいいのでしょうか？

前に何回かPowershellを使いCSVファイルをexcelの任意のセル位置から書き込む方法を質問しましたが、その過程で下記のコードをで試したところすこぶる処理時間が掛かる悪手となりました。最近まで私的に失敗作としていましたが何か間違った方法を取ったからではないかと思いたちました。しかしながらコピペでコードを書いて満足している素人では、間違いがあっても皆目見当もつきません。問題点ともし改善の余地があるならお教えください。 # CSVファイルをExcelにインポートするスクリプト $excel = New-Object -ComObject Excel.Application $excel.Visible = $true $book = $excel.Workbooks.Add() $sheet = $excel.Worksheets.Item(1) $fileName = "D:\test\pp001.csv" # CSV ファイルをオープンする $reader = New-Object System.IO.StreamReader($fileName, [System.Text.Encoding]::GetEncoding("utf-8")) $array_total = @() $array_total = New-Object System.Collections.ArrayList while ($reader.Peek() -ge 0) { $line = $reader.ReadLine() # 行ごとの処理を行う $array_total.add("$line") } <# セルへ配列で書き込み#> $c=($array_total[0] -split ",").Count $r=$array_total.Count $arw=New-Object "object[,]" $r,$c <# 書き込み用配列定義 $r行$c列 #> $a=@() foreach($inc in 0..($r-1)){ $cnt=0 $array_total[$inc] -split "," | % { $a +="`$arw[$inc,$cnt]=`"$($_)`"" $cnt++ } } $a | iex <# 範囲を指定してセット#> $sheet.Range("B2").Resize($r, $c) = $arw $reader.Close() # COM 参照を解放する [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($sheet) [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($book) [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel) [GC]::Collect() 処理速度に関して他の方法では、私の環境で2列1,000,001行のデータで オブジェクトとして各行のデータをArrayListに追加とExport-Excelを使う方法で11から13分、QueryTableだと13～20秒、Import-Csvと配列で51～53秒、Import-CsvとExport-Excelでは47～51秒、本末転倒のArrayListで動的配列を作りExport-ExcelでExcelに一度データを書き込んでからそのファイルを開きtexttocolumnsで区切り位置指定の分割を実行させても30～50秒です。 因みに今回のコードの実行速度は、少ないデータでもAIの回答で不十分な結果となった質問（https://okwave.jp/qa/q10209583.html）の方法よりかなり遅くなって、最悪の結果でした。

chatGPTで次々と質問をしていき、最後にはhtmlをダウンロードするという、 コンソールで実行できるコードを知りたいです。 例： （質問）東京の天気は？ （chatGPT）晴れです。 ＜回答が終わったら、すぐ自動で次の質問へ＞ （質問）大阪の天気は？ （chatGPT）雨です。 ＜回答が終わったら、すぐ自動で次の質問へ＞ （質問）名古屋の天気は？ （chatGPT）晴れです。 ＜回答が終わったら、すぐ自動で次の質問へ＞ （質問）北海道の天気は？ （chatGPT）雪です。 ＜設定した全部の質問の回答が終わったら、htmlを自動ダウンロード＞ という風な流れにしたいです。 （すぐ自動で、としましたが、３秒だけ余裕を持たせてとかの方がいいのかもしれないです） これをchatGPTに質問して、コードを書いてもらっても、 この通りに動くコードを書いてもらえません、 上記のようなことができるコードはどのようなものでしょうか？ 実際に書いていただくことは可能ですか？ また、chatGPTで書いてもらう場合、どのように質問していけば書いてもらえますか？ コンソールで実行できるものと過程してますが、 それ以外の何かで実行して、コンソールよりも便利にできるものってありますか？ それとも、コンソールでの実行が最も便利でしょうか？ よろしくお願いいたします。

Accessでクリップボードの操作をしていますが、クリップボード内にデータがあるかないかのチェック方法がわかりません。 ExcelではApplication.ClipboardFormatsが使えるようですが、Acessにはありません。 Accessの場合、エラーを判定しエラーコードで後処理をするサンプルがありましたがそれ以外は方法がないものでしょうか？

PowershellでExcelのセルデータにあるスペース区切りテキストから列分割を下記のコードで実行できますが、分割先のセルに既存データがある場合置換え確認のメッセージが出ます。Powershellで自動的にOK処理が出来ないかあるいはメッセージそのものを出さな方法があれば教えてください。 Excel部分に関するコード $excel = New-Object -ComObject Excel.Application $excel.Visible = $true $workbook = $excel.Workbooks.Open($excelPath) $sheet = $workbook.Worksheets.Item(1) $sheet.Range($sheet.Cells($StartRow, $StartColumn), $sheet.Cells($lincount +1,$StartColumn)).select() $xlRange = $sheet.usedrange $xlColA = $sheet.Cells($StartRow, $StartColumn).EntireColumn #$xlColrange = $sheet.range("A1") $xlDelimited = 1 $xlTextQualifier = -4142 #$xlTextFormat = 2 $xlColA.texttocolumns($xlRange,$xlDelimited,$xlTextQualifier,$true,$false,$true,$true,$true) $sheet.columns.autofit() 宜しくお願いします

(最近、HTMLとCSSは使いこなせるように なりました。) プログラミング言語には ・C言語 ・Python(パイソン？) ・JavaScript(ジャバスプリクト？) などが、ありますが、どれを学習しておいた 方がいいですか？ また、学習しやすい(簡単)な言語は なんですか？ わかる方、実際に経験した方、教えて ください！ できれば、その言語の基本的な構文なども 教えてください